diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index a0446d75f..f9ee8f83e 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,657 +1,643 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 10951}# - (lambda (#{f\ 11013}# #{first\ 11014}# . #{rest\ 11015}#) - (let ((#{t\ 11021}# (null? #{first\ 11014}#))) - (if #{t\ 11021}# - #{t\ 11021}# - (if (null? #{rest\ 11015}#) - (letrec ((#{andmap\ 11025}# - (lambda (#{first\ 11026}#) - (let ((#{x\ 11029}# (car #{first\ 11026}#)) - (#{first\ 11030}# - (cdr #{first\ 11026}#))) - (if (null? #{first\ 11030}#) - (#{f\ 11013}# #{x\ 11029}#) - (if (#{f\ 11013}# #{x\ 11029}#) - (#{andmap\ 11025}# #{first\ 11030}#) +(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}#) #f)))))) - (#{andmap\ 11025}# #{first\ 11014}#)) - (letrec ((#{andmap\ 11036}# - (lambda (#{first\ 11037}# #{rest\ 11038}#) - (let ((#{x\ 11043}# (car #{first\ 11037}#)) - (#{xr\ 11044}# (map car #{rest\ 11038}#)) - (#{first\ 11045}# (cdr #{first\ 11037}#)) - (#{rest\ 11046}# - (map cdr #{rest\ 11038}#))) - (if (null? #{first\ 11045}#) - (apply #{f\ 11013}# - (cons #{x\ 11043}# #{xr\ 11044}#)) - (if (apply #{f\ 11013}# - (cons #{x\ 11043}# - #{xr\ 11044}#)) - (#{andmap\ 11036}# - #{first\ 11045}# - #{rest\ 11046}#) + (#{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}#) #f)))))) - (#{andmap\ 11036}# - #{first\ 11014}# - #{rest\ 11015}#)))))))) - (letrec ((#{lambda-var-list\ 11266}# - (lambda (#{vars\ 11481}#) - (letrec ((#{lvl\ 11487}# - (lambda (#{vars\ 11488}# #{ls\ 11489}# #{w\ 11490}#) - (if (pair? #{vars\ 11488}#) - (#{lvl\ 11487}# - (cdr #{vars\ 11488}#) - (cons (#{wrap\ 11220}# - (car #{vars\ 11488}#) - #{w\ 11490}# + (#{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}# #f) - #{ls\ 11489}#) - #{w\ 11490}#) - (if (#{id?\ 11151}# #{vars\ 11488}#) - (cons (#{wrap\ 11220}# - #{vars\ 11488}# - #{w\ 11490}# + #{ls\ 1004}#) + #{w\ 1005}#) + (if (#{id?\ 666}# #{vars\ 1003}#) + (cons (#{wrap\ 735}# + #{vars\ 1003}# + #{w\ 1005}# #f) - #{ls\ 11489}#) - (if (null? #{vars\ 11488}#) - #{ls\ 11489}# - (if (#{syntax-object?\ 11115}# - #{vars\ 11488}#) - (#{lvl\ 11487}# - (#{syntax-object-expression\ 11117}# - #{vars\ 11488}#) - #{ls\ 11489}# - (#{join-wraps\ 11202}# - #{w\ 11490}# - (#{syntax-object-wrap\ 11119}# - #{vars\ 11488}#))) - (cons #{vars\ 11488}# #{ls\ 11489}#)))))))) - (#{lvl\ 11487}# - #{vars\ 11481}# + #{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}# '() '(()))))) - (#{gen-var\ 11264}# - (lambda (#{id\ 11501}#) - (let ((#{id\ 11504}# - (if (#{syntax-object?\ 11115}# #{id\ 11501}#) - (#{syntax-object-expression\ 11117}# - #{id\ 11501}#) - #{id\ 11501}#))) + (#{gen-var\ 779}# + (lambda (#{id\ 1016}#) + (let ((#{id\ 1019}# + (if (#{syntax-object?\ 630}# #{id\ 1016}#) + (#{syntax-object-expression\ 632}# #{id\ 1016}#) + #{id\ 1016}#))) (gensym - (string-append - (symbol->string #{id\ 11504}#) - " "))))) - (#{strip\ 11262}# - (lambda (#{x\ 11506}# #{w\ 11507}#) + (string-append (symbol->string #{id\ 1019}#) " "))))) + (#{strip\ 777}# + (lambda (#{x\ 1021}# #{w\ 1022}#) (if (memq 'top - (#{wrap-marks\ 11158}# #{w\ 11507}#)) - #{x\ 11506}# - (letrec ((#{f\ 11513}# - (lambda (#{x\ 11514}#) - (if (#{syntax-object?\ 11115}# #{x\ 11514}#) - (#{strip\ 11262}# - (#{syntax-object-expression\ 11117}# - #{x\ 11514}#) - (#{syntax-object-wrap\ 11119}# #{x\ 11514}#)) - (if (pair? #{x\ 11514}#) - (let ((#{a\ 11521}# - (#{f\ 11513}# (car #{x\ 11514}#))) - (#{d\ 11522}# - (#{f\ 11513}# (cdr #{x\ 11514}#)))) - (if (if (eq? #{a\ 11521}# - (car #{x\ 11514}#)) - (eq? #{d\ 11522}# (cdr #{x\ 11514}#)) + (#{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\ 11514}# - (cons #{a\ 11521}# #{d\ 11522}#))) - (if (vector? #{x\ 11514}#) - (let ((#{old\ 11528}# - (vector->list #{x\ 11514}#))) - (let ((#{new\ 11530}# - (map #{f\ 11513}# - #{old\ 11528}#))) - (if (#{and-map*\ 10951}# + #{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\ 11528}# - #{new\ 11530}#) - #{x\ 11514}# - (list->vector #{new\ 11530}#)))) - #{x\ 11514}#)))))) - (#{f\ 11513}# #{x\ 11506}#))))) - (#{chi-lambda-case\ 11260}# - (lambda (#{e\ 11532}# - #{r\ 11533}# - #{w\ 11534}# - #{s\ 11535}# - #{mod\ 11536}# - #{get-formals\ 11537}# - #{clauses\ 11538}#) - (letrec ((#{expand-body\ 11553}# - (lambda (#{req\ 11554}# - #{opt\ 11555}# - #{rest\ 11556}# - #{kw\ 11557}# - #{body\ 11558}# - #{vars\ 11559}# - #{r*\ 11560}# - #{w*\ 11561}# - #{inits\ 11562}# - #{meta\ 11563}#) - ((lambda (#{tmp\ 11574}#) - ((lambda (#{tmp\ 11575}#) - (if (if #{tmp\ 11575}# - (apply (lambda (#{docstring\ 11579}# - #{e1\ 11580}# - #{e2\ 11581}#) + #{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}#) (string? (syntax->datum - #{docstring\ 11579}#))) - #{tmp\ 11575}#) + #{docstring\ 1094}#))) + #{tmp\ 1090}#) #f) - (apply (lambda (#{docstring\ 11585}# - #{e1\ 11586}# - #{e2\ 11587}#) - (#{expand-body\ 11553}# - #{req\ 11554}# - #{opt\ 11555}# - #{rest\ 11556}# - #{kw\ 11557}# - (cons #{e1\ 11586}# - #{e2\ 11587}#) - #{vars\ 11559}# - #{r*\ 11560}# - #{w*\ 11561}# - #{inits\ 11562}# + (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}# (append - #{meta\ 11563}# + #{meta\ 1078}# (list (cons 'documentation (syntax->datum - #{docstring\ 11585}#)))))) - #{tmp\ 11575}#) - ((lambda (#{tmp\ 11590}#) - (if #{tmp\ 11590}# - (apply (lambda (#{k\ 11595}# - #{v\ 11596}# - #{e1\ 11597}# - #{e2\ 11598}#) - (#{expand-body\ 11553}# - #{req\ 11554}# - #{opt\ 11555}# - #{rest\ 11556}# - #{kw\ 11557}# - (cons #{e1\ 11597}# - #{e2\ 11598}#) - #{vars\ 11559}# - #{r*\ 11560}# - #{w*\ 11561}# - #{inits\ 11562}# + #{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}# (append - #{meta\ 11563}# + #{meta\ 1078}# (syntax->datum (map cons - #{k\ 11595}# - #{v\ 11596}#))))) - #{tmp\ 11590}#) - ((lambda (#{tmp\ 11602}#) - (if #{tmp\ 11602}# - (apply (lambda (#{e1\ 11605}# - #{e2\ 11606}#) + #{k\ 1110}# + #{v\ 1111}#))))) + #{tmp\ 1105}#) + ((lambda (#{tmp\ 1117}#) + (if #{tmp\ 1117}# + (apply (lambda (#{e1\ 1120}# + #{e2\ 1121}#) (values - #{meta\ 11563}# - #{req\ 11554}# - #{opt\ 11555}# - #{rest\ 11556}# - #{kw\ 11557}# - #{inits\ 11562}# - #{vars\ 11559}# - (#{chi-body\ 11244}# - (cons #{e1\ 11605}# - #{e2\ 11606}#) - (#{source-wrap\ 11222}# - #{e\ 11532}# - #{w\ 11534}# - #{s\ 11535}# - #{mod\ 11536}#) - #{r*\ 11560}# - #{w*\ 11561}# - #{mod\ 11536}#))) - #{tmp\ 11602}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 11574}#))) + #{tmp\ 1089}#))) ($sc-dispatch - #{tmp\ 11574}# + #{tmp\ 1089}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 11574}# + #{tmp\ 1089}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 11574}# + #{tmp\ 1089}# '(any any . each-any)))) - #{body\ 11558}#))) - (#{expand-kw\ 11551}# - (lambda (#{req\ 11608}# - #{opt\ 11609}# - #{rest\ 11610}# - #{kw\ 11611}# - #{body\ 11612}# - #{vars\ 11613}# - #{r*\ 11614}# - #{w*\ 11615}# - #{aok\ 11616}# - #{out\ 11617}# - #{inits\ 11618}#) - (if (pair? #{kw\ 11611}#) - ((lambda (#{tmp\ 11632}#) - ((lambda (#{tmp\ 11633}#) - (if #{tmp\ 11633}# - (apply (lambda (#{k\ 11637}# - #{id\ 11638}# - #{i\ 11639}#) - (let ((#{v\ 11642}# - (#{gen-var\ 11264}# - #{id\ 11638}#))) - (let ((#{l\ 11644}# - (#{gen-labels\ 11169}# - (list #{v\ 11642}#)))) - (let ((#{r**\ 11646}# - (#{extend-var-env\ 11141}# - #{l\ 11644}# - (list #{v\ 11642}#) - #{r*\ 11614}#))) - (let ((#{w**\ 11648}# - (#{make-binding-wrap\ 11198}# - (list #{id\ 11638}#) - #{l\ 11644}# - #{w*\ 11615}#))) - (#{expand-kw\ 11551}# - #{req\ 11608}# - #{opt\ 11609}# - #{rest\ 11610}# - (cdr #{kw\ 11611}#) - #{body\ 11612}# - (cons #{v\ 11642}# - #{vars\ 11613}#) - #{r**\ 11646}# - #{w**\ 11648}# - #{aok\ 11616}# + #{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}# (cons (list (syntax->datum - #{k\ 11637}#) + #{k\ 1152}#) (syntax->datum - #{id\ 11638}#) - #{v\ 11642}#) - #{out\ 11617}#) - (cons (#{chi\ 11236}# - #{i\ 11639}# - #{r*\ 11614}# - #{w*\ 11615}# - #{mod\ 11536}#) - #{inits\ 11618}#))))))) - #{tmp\ 11633}#) + #{id\ 1153}#) + #{v\ 1157}#) + #{out\ 1132}#) + (cons (#{chi\ 751}# + #{i\ 1154}# + #{r*\ 1129}# + #{w*\ 1130}# + #{mod\ 1051}#) + #{inits\ 1133}#))))))) + #{tmp\ 1148}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 11632}#))) + #{tmp\ 1147}#))) ($sc-dispatch - #{tmp\ 11632}# + #{tmp\ 1147}# '(any any any)))) - (car #{kw\ 11611}#)) - (#{expand-body\ 11553}# - #{req\ 11608}# - #{opt\ 11609}# - #{rest\ 11610}# - (if (let ((#{t\ 11652}# #{aok\ 11616}#)) - (if #{t\ 11652}# - #{t\ 11652}# - (pair? #{out\ 11617}#))) - (cons #{aok\ 11616}# - (reverse #{out\ 11617}#)) + (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}#)) #f) - #{body\ 11612}# - (reverse #{vars\ 11613}#) - #{r*\ 11614}# - #{w*\ 11615}# - (reverse #{inits\ 11618}#) + #{body\ 1127}# + (reverse #{vars\ 1128}#) + #{r*\ 1129}# + #{w*\ 1130}# + (reverse #{inits\ 1133}#) '())))) - (#{expand-opt\ 11549}# - (lambda (#{req\ 11654}# - #{opt\ 11655}# - #{rest\ 11656}# - #{kw\ 11657}# - #{body\ 11658}# - #{vars\ 11659}# - #{r*\ 11660}# - #{w*\ 11661}# - #{out\ 11662}# - #{inits\ 11663}#) - (if (pair? #{opt\ 11655}#) - ((lambda (#{tmp\ 11676}#) - ((lambda (#{tmp\ 11677}#) - (if #{tmp\ 11677}# - (apply (lambda (#{id\ 11680}# - #{i\ 11681}#) - (let ((#{v\ 11684}# - (#{gen-var\ 11264}# - #{id\ 11680}#))) - (let ((#{l\ 11686}# - (#{gen-labels\ 11169}# - (list #{v\ 11684}#)))) - (let ((#{r**\ 11688}# - (#{extend-var-env\ 11141}# - #{l\ 11686}# - (list #{v\ 11684}#) - #{r*\ 11660}#))) - (let ((#{w**\ 11690}# - (#{make-binding-wrap\ 11198}# - (list #{id\ 11680}#) - #{l\ 11686}# - #{w*\ 11661}#))) - (#{expand-opt\ 11549}# - #{req\ 11654}# - (cdr #{opt\ 11655}#) - #{rest\ 11656}# - #{kw\ 11657}# - #{body\ 11658}# - (cons #{v\ 11684}# - #{vars\ 11659}#) - #{r**\ 11688}# - #{w**\ 11690}# + (#{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}# (cons (syntax->datum - #{id\ 11680}#) - #{out\ 11662}#) - (cons (#{chi\ 11236}# - #{i\ 11681}# - #{r*\ 11660}# - #{w*\ 11661}# - #{mod\ 11536}#) - #{inits\ 11663}#))))))) - #{tmp\ 11677}#) + #{id\ 1195}#) + #{out\ 1177}#) + (cons (#{chi\ 751}# + #{i\ 1196}# + #{r*\ 1175}# + #{w*\ 1176}# + #{mod\ 1051}#) + #{inits\ 1178}#))))))) + #{tmp\ 1192}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 11676}#))) + #{tmp\ 1191}#))) ($sc-dispatch - #{tmp\ 11676}# + #{tmp\ 1191}# '(any any)))) - (car #{opt\ 11655}#)) - (if #{rest\ 11656}# - (let ((#{v\ 11695}# - (#{gen-var\ 11264}# #{rest\ 11656}#))) - (let ((#{l\ 11697}# - (#{gen-labels\ 11169}# - (list #{v\ 11695}#)))) - (let ((#{r*\ 11699}# - (#{extend-var-env\ 11141}# - #{l\ 11697}# - (list #{v\ 11695}#) - #{r*\ 11660}#))) - (let ((#{w*\ 11701}# - (#{make-binding-wrap\ 11198}# - (list #{rest\ 11656}#) - #{l\ 11697}# - #{w*\ 11661}#))) - (#{expand-kw\ 11551}# - #{req\ 11654}# - (if (pair? #{out\ 11662}#) - (reverse #{out\ 11662}#) + (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}#) #f) - (syntax->datum #{rest\ 11656}#) - (if (pair? #{kw\ 11657}#) - (cdr #{kw\ 11657}#) - #{kw\ 11657}#) - #{body\ 11658}# - (cons #{v\ 11695}# #{vars\ 11659}#) - #{r*\ 11699}# - #{w*\ 11701}# - (if (pair? #{kw\ 11657}#) - (car #{kw\ 11657}#) + (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}#) #f) '() - #{inits\ 11663}#))))) - (#{expand-kw\ 11551}# - #{req\ 11654}# - (if (pair? #{out\ 11662}#) - (reverse #{out\ 11662}#) + #{inits\ 1178}#))))) + (#{expand-kw\ 1066}# + #{req\ 1169}# + (if (pair? #{out\ 1177}#) + (reverse #{out\ 1177}#) #f) #f - (if (pair? #{kw\ 11657}#) - (cdr #{kw\ 11657}#) - #{kw\ 11657}#) - #{body\ 11658}# - #{vars\ 11659}# - #{r*\ 11660}# - #{w*\ 11661}# - (if (pair? #{kw\ 11657}#) - (car #{kw\ 11657}#) + (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) '() - #{inits\ 11663}#))))) - (#{expand-req\ 11547}# - (lambda (#{req\ 11703}# - #{opt\ 11704}# - #{rest\ 11705}# - #{kw\ 11706}# - #{body\ 11707}#) - (let ((#{vars\ 11715}# - (map #{gen-var\ 11264}# #{req\ 11703}#)) - (#{labels\ 11716}# - (#{gen-labels\ 11169}# #{req\ 11703}#))) - (let ((#{r*\ 11719}# - (#{extend-var-env\ 11141}# - #{labels\ 11716}# - #{vars\ 11715}# - #{r\ 11533}#)) - (#{w*\ 11720}# - (#{make-binding-wrap\ 11198}# - #{req\ 11703}# - #{labels\ 11716}# - #{w\ 11534}#))) - (#{expand-opt\ 11549}# - (map syntax->datum #{req\ 11703}#) - #{opt\ 11704}# - #{rest\ 11705}# - #{kw\ 11706}# - #{body\ 11707}# - (reverse #{vars\ 11715}#) - #{r*\ 11719}# - #{w*\ 11720}# + #{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}# '() '())))))) - ((lambda (#{tmp\ 11721}#) - ((lambda (#{tmp\ 11722}#) - (if #{tmp\ 11722}# + ((lambda (#{tmp\ 1236}#) + ((lambda (#{tmp\ 1237}#) + (if #{tmp\ 1237}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 11722}#) - ((lambda (#{tmp\ 11723}#) - (if #{tmp\ 11723}# - (apply (lambda (#{args\ 11730}# - #{e1\ 11731}# - #{e2\ 11732}# - #{args*\ 11733}# - #{e1*\ 11734}# - #{e2*\ 11735}#) + #{tmp\ 1237}#) + ((lambda (#{tmp\ 1238}#) + (if #{tmp\ 1238}# + (apply (lambda (#{args\ 1245}# + #{e1\ 1246}# + #{e2\ 1247}# + #{args*\ 1248}# + #{e1*\ 1249}# + #{e2*\ 1250}#) (call-with-values (lambda () - (#{get-formals\ 11537}# - #{args\ 11730}#)) - (lambda (#{req\ 11736}# - #{opt\ 11737}# - #{rest\ 11738}# - #{kw\ 11739}#) + (#{get-formals\ 1052}# + #{args\ 1245}#)) + (lambda (#{req\ 1251}# + #{opt\ 1252}# + #{rest\ 1253}# + #{kw\ 1254}#) (call-with-values (lambda () - (#{expand-req\ 11547}# - #{req\ 11736}# - #{opt\ 11737}# - #{rest\ 11738}# - #{kw\ 11739}# - (cons #{e1\ 11731}# - #{e2\ 11732}#))) - (lambda (#{meta\ 11745}# - #{req\ 11746}# - #{opt\ 11747}# - #{rest\ 11748}# - #{kw\ 11749}# - #{inits\ 11750}# - #{vars\ 11751}# - #{body\ 11752}#) + (#{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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 11260}# - #{e\ 11532}# - #{r\ 11533}# - #{w\ 11534}# - #{s\ 11535}# - #{mod\ 11536}# - #{get-formals\ 11537}# - (map (lambda (#{tmp\ 11763}# - #{tmp\ 11762}# - #{tmp\ 11761}#) - (cons #{tmp\ 11761}# - (cons #{tmp\ 11762}# - #{tmp\ 11763}#))) - #{e2*\ 11735}# - #{e1*\ 11734}# - #{args*\ 11733}#))) - (lambda (#{meta*\ 11765}# - #{else*\ 11766}#) + (#{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}#) (values (append - #{meta\ 11745}# - #{meta*\ 11765}#) - (#{build-lambda-case\ 11097}# - #{s\ 11535}# - #{req\ 11746}# - #{opt\ 11747}# - #{rest\ 11748}# - #{kw\ 11749}# - #{inits\ 11750}# - #{vars\ 11751}# - #{body\ 11752}# - #{else*\ 11766}#))))))))) - #{tmp\ 11723}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 11721}#))) + #{tmp\ 1236}#))) ($sc-dispatch - #{tmp\ 11721}# + #{tmp\ 1236}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 11721}# (quote ())))) - #{clauses\ 11538}#)))) - (#{lambda*-formals\ 11258}# - (lambda (#{orig-args\ 11769}#) - (letrec ((#{check\ 11780}# - (lambda (#{req\ 11781}# - #{opt\ 11782}# - #{rest\ 11783}# - #{kw\ 11784}#) - (if (#{distinct-bound-ids?\ 11216}# + ($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}# (append - #{req\ 11781}# - (map car #{opt\ 11782}#) - (if #{rest\ 11783}# - (list #{rest\ 11783}#) + #{req\ 1296}# + (map car #{opt\ 1297}#) + (if #{rest\ 1298}# + (list #{rest\ 1298}#) '()) - (if (pair? #{kw\ 11784}#) - (map cadr (cdr #{kw\ 11784}#)) + (if (pair? #{kw\ 1299}#) + (map cadr (cdr #{kw\ 1299}#)) '()))) (values - #{req\ 11781}# - #{opt\ 11782}# - #{rest\ 11783}# - #{kw\ 11784}#) + #{req\ 1296}# + #{opt\ 1297}# + #{rest\ 1298}# + #{kw\ 1299}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 11769}#)))) - (#{rest\ 11778}# - (lambda (#{args\ 11792}# - #{req\ 11793}# - #{opt\ 11794}# - #{kw\ 11795}#) - ((lambda (#{tmp\ 11800}#) - ((lambda (#{tmp\ 11801}#) - (if (if #{tmp\ 11801}# - (apply (lambda (#{r\ 11803}#) - (#{id?\ 11151}# #{r\ 11803}#)) - #{tmp\ 11801}#) + #{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}#) #f) - (apply (lambda (#{r\ 11805}#) - (#{check\ 11780}# - #{req\ 11793}# - #{opt\ 11794}# - #{r\ 11805}# - #{kw\ 11795}#)) - #{tmp\ 11801}#) - ((lambda (#{else\ 11807}#) + (apply (lambda (#{r\ 1320}#) + (#{check\ 1295}# + #{req\ 1308}# + #{opt\ 1309}# + #{r\ 1320}# + #{kw\ 1310}#)) + #{tmp\ 1316}#) + ((lambda (#{else\ 1322}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 11769}# - #{args\ 11792}#)) - #{tmp\ 11800}#))) - (list #{tmp\ 11800}#))) - #{args\ 11792}#))) - (#{key\ 11776}# - (lambda (#{args\ 11808}# - #{req\ 11809}# - #{opt\ 11810}# - #{rkey\ 11811}#) - ((lambda (#{tmp\ 11816}#) - ((lambda (#{tmp\ 11817}#) - (if #{tmp\ 11817}# + #{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}# (apply (lambda () - (#{check\ 11780}# - #{req\ 11809}# - #{opt\ 11810}# + (#{check\ 1295}# + #{req\ 1324}# + #{opt\ 1325}# #f (cons #f (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11817}#) - ((lambda (#{tmp\ 11818}#) - (if (if #{tmp\ 11818}# - (apply (lambda (#{a\ 11821}# - #{b\ 11822}#) - (#{id?\ 11151}# - #{a\ 11821}#)) - #{tmp\ 11818}#) + #{rkey\ 1326}#)))) + #{tmp\ 1332}#) + ((lambda (#{tmp\ 1333}#) + (if (if #{tmp\ 1333}# + (apply (lambda (#{a\ 1336}# + #{b\ 1337}#) + (#{id?\ 666}# + #{a\ 1336}#)) + #{tmp\ 1333}#) #f) - (apply (lambda (#{a\ 11825}# - #{b\ 11826}#) - ((lambda (#{tmp\ 11828}#) - ((lambda (#{k\ 11830}#) - (#{key\ 11776}# - #{b\ 11826}# - #{req\ 11809}# - #{opt\ 11810}# - (cons (cons #{k\ 11830}# - (cons #{a\ 11825}# + (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}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i11829")) + #("i1344")) #(ribcage #(a b) #((top) (top)) - #("i11823" - "i11824")) + #("i1338" + "i1339")) #(ribcage () () @@ -665,10 +651,10 @@ (top) (top) (top)) - #("i11812" - "i11813" - "i11814" - "i11815")) + #("i1327" + "i1328" + "i1329" + "i1330")) #(ribcage (check rest key @@ -679,15 +665,15 @@ (top) (top) (top)) - ("i11779" - "i11777" - "i11775" - "i11773" - "i11771")) + ("i1294" + "i1292" + "i1290" + "i1288" + "i1286")) #(ribcage #(orig-args) #((top)) - #("i11770")) + #("i1285")) #(ribcage (lambda-var-list gen-var @@ -923,351 +909,349 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile))))) - #{rkey\ 11811}#))) - #{tmp\ 11828}#)) + #{rkey\ 1326}#))) + #{tmp\ 1343}#)) (symbol->keyword (syntax->datum - #{a\ 11825}#)))) - #{tmp\ 11818}#) - ((lambda (#{tmp\ 11831}#) - (if (if #{tmp\ 11831}# - (apply (lambda (#{a\ 11835}# - #{init\ 11836}# - #{b\ 11837}#) - (#{id?\ 11151}# - #{a\ 11835}#)) - #{tmp\ 11831}#) + #{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}#) #f) - (apply (lambda (#{a\ 11841}# - #{init\ 11842}# - #{b\ 11843}#) - ((lambda (#{tmp\ 11845}#) - ((lambda (#{k\ 11847}#) - (#{key\ 11776}# - #{b\ 11843}# - #{req\ 11809}# - #{opt\ 11810}# - (cons (list #{k\ 11847}# - #{a\ 11841}# - #{init\ 11842}#) - #{rkey\ 11811}#))) - #{tmp\ 11845}#)) + (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}#)) (symbol->keyword (syntax->datum - #{a\ 11841}#)))) - #{tmp\ 11831}#) - ((lambda (#{tmp\ 11848}#) - (if (if #{tmp\ 11848}# - (apply (lambda (#{a\ 11853}# - #{init\ 11854}# - #{k\ 11855}# - #{b\ 11856}#) - (if (#{id?\ 11151}# - #{a\ 11853}#) + #{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}#) (keyword? (syntax->datum - #{k\ 11855}#)) + #{k\ 1370}#)) #f)) - #{tmp\ 11848}#) + #{tmp\ 1363}#) #f) - (apply (lambda (#{a\ 11863}# - #{init\ 11864}# - #{k\ 11865}# - #{b\ 11866}#) - (#{key\ 11776}# - #{b\ 11866}# - #{req\ 11809}# - #{opt\ 11810}# - (cons (list #{k\ 11865}# - #{a\ 11863}# - #{init\ 11864}#) - #{rkey\ 11811}#))) - #{tmp\ 11848}#) - ((lambda (#{tmp\ 11867}#) - (if (if #{tmp\ 11867}# - (apply (lambda (#{aok\ 11869}#) + (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}#) (eq? (syntax->datum - #{aok\ 11869}#) + #{aok\ 1384}#) #:allow-other-keys)) - #{tmp\ 11867}#) + #{tmp\ 1382}#) #f) - (apply (lambda (#{aok\ 11871}#) - (#{check\ 11780}# - #{req\ 11809}# - #{opt\ 11810}# + (apply (lambda (#{aok\ 1386}#) + (#{check\ 1295}# + #{req\ 1324}# + #{opt\ 1325}# #f (cons #t (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11867}#) - ((lambda (#{tmp\ 11872}#) - (if (if #{tmp\ 11872}# - (apply (lambda (#{aok\ 11876}# - #{a\ 11877}# - #{b\ 11878}#) + #{rkey\ 1326}#)))) + #{tmp\ 1382}#) + ((lambda (#{tmp\ 1387}#) + (if (if #{tmp\ 1387}# + (apply (lambda (#{aok\ 1391}# + #{a\ 1392}# + #{b\ 1393}#) (if (eq? (syntax->datum - #{aok\ 11876}#) + #{aok\ 1391}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 11877}#) + #{a\ 1392}#) #:rest) #f)) - #{tmp\ 11872}#) + #{tmp\ 1387}#) #f) - (apply (lambda (#{aok\ 11884}# - #{a\ 11885}# - #{b\ 11886}#) - (#{rest\ 11778}# - #{b\ 11886}# - #{req\ 11809}# - #{opt\ 11810}# + (apply (lambda (#{aok\ 1399}# + #{a\ 1400}# + #{b\ 1401}#) + (#{rest\ 1293}# + #{b\ 1401}# + #{req\ 1324}# + #{opt\ 1325}# (cons #t (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11872}#) - ((lambda (#{tmp\ 11887}#) - (if (if #{tmp\ 11887}# - (apply (lambda (#{aok\ 11890}# - #{r\ 11891}#) + #{rkey\ 1326}#)))) + #{tmp\ 1387}#) + ((lambda (#{tmp\ 1402}#) + (if (if #{tmp\ 1402}# + (apply (lambda (#{aok\ 1405}# + #{r\ 1406}#) (if (eq? (syntax->datum - #{aok\ 11890}#) + #{aok\ 1405}#) #:allow-other-keys) - (#{id?\ 11151}# - #{r\ 11891}#) + (#{id?\ 666}# + #{r\ 1406}#) #f)) - #{tmp\ 11887}#) + #{tmp\ 1402}#) #f) - (apply (lambda (#{aok\ 11896}# - #{r\ 11897}#) - (#{rest\ 11778}# - #{r\ 11897}# - #{req\ 11809}# - #{opt\ 11810}# + (apply (lambda (#{aok\ 1411}# + #{r\ 1412}#) + (#{rest\ 1293}# + #{r\ 1412}# + #{req\ 1324}# + #{opt\ 1325}# (cons #t (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11887}#) - ((lambda (#{tmp\ 11898}#) - (if (if #{tmp\ 11898}# - (apply (lambda (#{a\ 11901}# - #{b\ 11902}#) + #{rkey\ 1326}#)))) + #{tmp\ 1402}#) + ((lambda (#{tmp\ 1413}#) + (if (if #{tmp\ 1413}# + (apply (lambda (#{a\ 1416}# + #{b\ 1417}#) (eq? (syntax->datum - #{a\ 11901}#) + #{a\ 1416}#) #:rest)) - #{tmp\ 11898}#) + #{tmp\ 1413}#) #f) - (apply (lambda (#{a\ 11905}# - #{b\ 11906}#) - (#{rest\ 11778}# - #{b\ 11906}# - #{req\ 11809}# - #{opt\ 11810}# + (apply (lambda (#{a\ 1420}# + #{b\ 1421}#) + (#{rest\ 1293}# + #{b\ 1421}# + #{req\ 1324}# + #{opt\ 1325}# (cons #f (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11898}#) - ((lambda (#{tmp\ 11907}#) - (if (if #{tmp\ 11907}# - (apply (lambda (#{r\ 11909}#) - (#{id?\ 11151}# - #{r\ 11909}#)) - #{tmp\ 11907}#) + #{rkey\ 1326}#)))) + #{tmp\ 1413}#) + ((lambda (#{tmp\ 1422}#) + (if (if #{tmp\ 1422}# + (apply (lambda (#{r\ 1424}#) + (#{id?\ 666}# + #{r\ 1424}#)) + #{tmp\ 1422}#) #f) - (apply (lambda (#{r\ 11911}#) - (#{rest\ 11778}# - #{r\ 11911}# - #{req\ 11809}# - #{opt\ 11810}# + (apply (lambda (#{r\ 1426}#) + (#{rest\ 1293}# + #{r\ 1426}# + #{req\ 1324}# + #{opt\ 1325}# (cons #f (reverse - #{rkey\ 11811}#)))) - #{tmp\ 11907}#) - ((lambda (#{else\ 11913}#) + #{rkey\ 1326}#)))) + #{tmp\ 1422}#) + ((lambda (#{else\ 1428}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 11769}# - #{args\ 11808}#)) - #{tmp\ 11816}#))) - (list #{tmp\ 11816}#)))) + #{orig-args\ 1284}# + #{args\ 1323}#)) + #{tmp\ 1331}#))) + (list #{tmp\ 1331}#)))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '(any any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '(any . any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '(any any any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '(any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 11816}# + #{tmp\ 1331}# '(any . any))))) - ($sc-dispatch #{tmp\ 11816}# (quote ())))) - #{args\ 11808}#))) - (#{opt\ 11774}# - (lambda (#{args\ 11914}# - #{req\ 11915}# - #{ropt\ 11916}#) - ((lambda (#{tmp\ 11920}#) - ((lambda (#{tmp\ 11921}#) - (if #{tmp\ 11921}# + ($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}# (apply (lambda () - (#{check\ 11780}# - #{req\ 11915}# - (reverse #{ropt\ 11916}#) + (#{check\ 1295}# + #{req\ 1430}# + (reverse #{ropt\ 1431}#) #f '())) - #{tmp\ 11921}#) - ((lambda (#{tmp\ 11922}#) - (if (if #{tmp\ 11922}# - (apply (lambda (#{a\ 11925}# - #{b\ 11926}#) - (#{id?\ 11151}# - #{a\ 11925}#)) - #{tmp\ 11922}#) + #{tmp\ 1436}#) + ((lambda (#{tmp\ 1437}#) + (if (if #{tmp\ 1437}# + (apply (lambda (#{a\ 1440}# + #{b\ 1441}#) + (#{id?\ 666}# + #{a\ 1440}#)) + #{tmp\ 1437}#) #f) - (apply (lambda (#{a\ 11929}# - #{b\ 11930}#) - (#{opt\ 11774}# - #{b\ 11930}# - #{req\ 11915}# - (cons (cons #{a\ 11929}# + (apply (lambda (#{a\ 1444}# + #{b\ 1445}#) + (#{opt\ 1289}# + #{b\ 1445}# + #{req\ 1430}# + (cons (cons #{a\ 1444}# '(#(syntax-object #f ((top) @@ -1275,8 +1259,8 @@ #(a b) #((top) (top)) - #("i11927" - "i11928")) + #("i1442" + "i1443")) #(ribcage () () @@ -1288,9 +1272,9 @@ #((top) (top) (top)) - #("i11917" - "i11918" - "i11919")) + #("i1432" + "i1433" + "i1434")) #(ribcage (check rest key @@ -1301,15 +1285,15 @@ (top) (top) (top)) - ("i11779" - "i11777" - "i11775" - "i11773" - "i11771")) + ("i1294" + "i1292" + "i1290" + "i1288" + "i1286")) #(ribcage #(orig-args) #((top)) - #("i11770")) + #("i1285")) #(ribcage (lambda-var-list gen-var @@ -1545,462 +1529,462 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile)))) - #{ropt\ 11916}#))) - #{tmp\ 11922}#) - ((lambda (#{tmp\ 11931}#) - (if (if #{tmp\ 11931}# - (apply (lambda (#{a\ 11935}# - #{init\ 11936}# - #{b\ 11937}#) - (#{id?\ 11151}# - #{a\ 11935}#)) - #{tmp\ 11931}#) + #{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}#) #f) - (apply (lambda (#{a\ 11941}# - #{init\ 11942}# - #{b\ 11943}#) - (#{opt\ 11774}# - #{b\ 11943}# - #{req\ 11915}# - (cons (list #{a\ 11941}# - #{init\ 11942}#) - #{ropt\ 11916}#))) - #{tmp\ 11931}#) - ((lambda (#{tmp\ 11944}#) - (if (if #{tmp\ 11944}# - (apply (lambda (#{a\ 11947}# - #{b\ 11948}#) + (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}#) (eq? (syntax->datum - #{a\ 11947}#) + #{a\ 1462}#) #:key)) - #{tmp\ 11944}#) + #{tmp\ 1459}#) #f) - (apply (lambda (#{a\ 11951}# - #{b\ 11952}#) - (#{key\ 11776}# - #{b\ 11952}# - #{req\ 11915}# + (apply (lambda (#{a\ 1466}# + #{b\ 1467}#) + (#{key\ 1291}# + #{b\ 1467}# + #{req\ 1430}# (reverse - #{ropt\ 11916}#) + #{ropt\ 1431}#) '())) - #{tmp\ 11944}#) - ((lambda (#{tmp\ 11953}#) - (if (if #{tmp\ 11953}# - (apply (lambda (#{a\ 11956}# - #{b\ 11957}#) + #{tmp\ 1459}#) + ((lambda (#{tmp\ 1468}#) + (if (if #{tmp\ 1468}# + (apply (lambda (#{a\ 1471}# + #{b\ 1472}#) (eq? (syntax->datum - #{a\ 11956}#) + #{a\ 1471}#) #:rest)) - #{tmp\ 11953}#) + #{tmp\ 1468}#) #f) - (apply (lambda (#{a\ 11960}# - #{b\ 11961}#) - (#{rest\ 11778}# - #{b\ 11961}# - #{req\ 11915}# + (apply (lambda (#{a\ 1475}# + #{b\ 1476}#) + (#{rest\ 1293}# + #{b\ 1476}# + #{req\ 1430}# (reverse - #{ropt\ 11916}#) + #{ropt\ 1431}#) '())) - #{tmp\ 11953}#) - ((lambda (#{tmp\ 11962}#) - (if (if #{tmp\ 11962}# - (apply (lambda (#{r\ 11964}#) - (#{id?\ 11151}# - #{r\ 11964}#)) - #{tmp\ 11962}#) + #{tmp\ 1468}#) + ((lambda (#{tmp\ 1477}#) + (if (if #{tmp\ 1477}# + (apply (lambda (#{r\ 1479}#) + (#{id?\ 666}# + #{r\ 1479}#)) + #{tmp\ 1477}#) #f) - (apply (lambda (#{r\ 11966}#) - (#{rest\ 11778}# - #{r\ 11966}# - #{req\ 11915}# + (apply (lambda (#{r\ 1481}#) + (#{rest\ 1293}# + #{r\ 1481}# + #{req\ 1430}# (reverse - #{ropt\ 11916}#) + #{ropt\ 1431}#) '())) - #{tmp\ 11962}#) - ((lambda (#{else\ 11968}#) + #{tmp\ 1477}#) + ((lambda (#{else\ 1483}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 11769}# - #{args\ 11914}#)) - #{tmp\ 11920}#))) - (list #{tmp\ 11920}#)))) + #{orig-args\ 1284}# + #{args\ 1429}#)) + #{tmp\ 1435}#))) + (list #{tmp\ 1435}#)))) ($sc-dispatch - #{tmp\ 11920}# + #{tmp\ 1435}# '(any any))))) ($sc-dispatch - #{tmp\ 11920}# + #{tmp\ 1435}# '(any . any))))) ($sc-dispatch - #{tmp\ 11920}# + #{tmp\ 1435}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 11920}# + #{tmp\ 1435}# '(any . any))))) - ($sc-dispatch #{tmp\ 11920}# (quote ())))) - #{args\ 11914}#))) - (#{req\ 11772}# - (lambda (#{args\ 11969}# #{rreq\ 11970}#) - ((lambda (#{tmp\ 11973}#) - ((lambda (#{tmp\ 11974}#) - (if #{tmp\ 11974}# + ($sc-dispatch #{tmp\ 1435}# (quote ())))) + #{args\ 1429}#))) + (#{req\ 1287}# + (lambda (#{args\ 1484}# #{rreq\ 1485}#) + ((lambda (#{tmp\ 1488}#) + ((lambda (#{tmp\ 1489}#) + (if #{tmp\ 1489}# (apply (lambda () - (#{check\ 11780}# - (reverse #{rreq\ 11970}#) + (#{check\ 1295}# + (reverse #{rreq\ 1485}#) '() #f '())) - #{tmp\ 11974}#) - ((lambda (#{tmp\ 11975}#) - (if (if #{tmp\ 11975}# - (apply (lambda (#{a\ 11978}# - #{b\ 11979}#) - (#{id?\ 11151}# - #{a\ 11978}#)) - #{tmp\ 11975}#) + #{tmp\ 1489}#) + ((lambda (#{tmp\ 1490}#) + (if (if #{tmp\ 1490}# + (apply (lambda (#{a\ 1493}# + #{b\ 1494}#) + (#{id?\ 666}# + #{a\ 1493}#)) + #{tmp\ 1490}#) #f) - (apply (lambda (#{a\ 11982}# - #{b\ 11983}#) - (#{req\ 11772}# - #{b\ 11983}# - (cons #{a\ 11982}# - #{rreq\ 11970}#))) - #{tmp\ 11975}#) - ((lambda (#{tmp\ 11984}#) - (if (if #{tmp\ 11984}# - (apply (lambda (#{a\ 11987}# - #{b\ 11988}#) + (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}#) (eq? (syntax->datum - #{a\ 11987}#) + #{a\ 1502}#) #:optional)) - #{tmp\ 11984}#) + #{tmp\ 1499}#) #f) - (apply (lambda (#{a\ 11991}# - #{b\ 11992}#) - (#{opt\ 11774}# - #{b\ 11992}# + (apply (lambda (#{a\ 1506}# + #{b\ 1507}#) + (#{opt\ 1289}# + #{b\ 1507}# (reverse - #{rreq\ 11970}#) + #{rreq\ 1485}#) '())) - #{tmp\ 11984}#) - ((lambda (#{tmp\ 11993}#) - (if (if #{tmp\ 11993}# - (apply (lambda (#{a\ 11996}# - #{b\ 11997}#) + #{tmp\ 1499}#) + ((lambda (#{tmp\ 1508}#) + (if (if #{tmp\ 1508}# + (apply (lambda (#{a\ 1511}# + #{b\ 1512}#) (eq? (syntax->datum - #{a\ 11996}#) + #{a\ 1511}#) #:key)) - #{tmp\ 11993}#) + #{tmp\ 1508}#) #f) - (apply (lambda (#{a\ 12000}# - #{b\ 12001}#) - (#{key\ 11776}# - #{b\ 12001}# + (apply (lambda (#{a\ 1515}# + #{b\ 1516}#) + (#{key\ 1291}# + #{b\ 1516}# (reverse - #{rreq\ 11970}#) + #{rreq\ 1485}#) '() '())) - #{tmp\ 11993}#) - ((lambda (#{tmp\ 12002}#) - (if (if #{tmp\ 12002}# - (apply (lambda (#{a\ 12005}# - #{b\ 12006}#) + #{tmp\ 1508}#) + ((lambda (#{tmp\ 1517}#) + (if (if #{tmp\ 1517}# + (apply (lambda (#{a\ 1520}# + #{b\ 1521}#) (eq? (syntax->datum - #{a\ 12005}#) + #{a\ 1520}#) #:rest)) - #{tmp\ 12002}#) + #{tmp\ 1517}#) #f) - (apply (lambda (#{a\ 12009}# - #{b\ 12010}#) - (#{rest\ 11778}# - #{b\ 12010}# + (apply (lambda (#{a\ 1524}# + #{b\ 1525}#) + (#{rest\ 1293}# + #{b\ 1525}# (reverse - #{rreq\ 11970}#) + #{rreq\ 1485}#) '() '())) - #{tmp\ 12002}#) - ((lambda (#{tmp\ 12011}#) - (if (if #{tmp\ 12011}# - (apply (lambda (#{r\ 12013}#) - (#{id?\ 11151}# - #{r\ 12013}#)) - #{tmp\ 12011}#) + #{tmp\ 1517}#) + ((lambda (#{tmp\ 1526}#) + (if (if #{tmp\ 1526}# + (apply (lambda (#{r\ 1528}#) + (#{id?\ 666}# + #{r\ 1528}#)) + #{tmp\ 1526}#) #f) - (apply (lambda (#{r\ 12015}#) - (#{rest\ 11778}# - #{r\ 12015}# + (apply (lambda (#{r\ 1530}#) + (#{rest\ 1293}# + #{r\ 1530}# (reverse - #{rreq\ 11970}#) + #{rreq\ 1485}#) '() '())) - #{tmp\ 12011}#) - ((lambda (#{else\ 12017}#) + #{tmp\ 1526}#) + ((lambda (#{else\ 1532}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 11769}# - #{args\ 11969}#)) - #{tmp\ 11973}#))) - (list #{tmp\ 11973}#)))) + #{orig-args\ 1284}# + #{args\ 1484}#)) + #{tmp\ 1488}#))) + (list #{tmp\ 1488}#)))) ($sc-dispatch - #{tmp\ 11973}# + #{tmp\ 1488}# '(any any))))) ($sc-dispatch - #{tmp\ 11973}# + #{tmp\ 1488}# '(any . any))))) ($sc-dispatch - #{tmp\ 11973}# + #{tmp\ 1488}# '(any . any))))) ($sc-dispatch - #{tmp\ 11973}# + #{tmp\ 1488}# '(any . any))))) - ($sc-dispatch #{tmp\ 11973}# (quote ())))) - #{args\ 11969}#)))) - (#{req\ 11772}# #{orig-args\ 11769}# (quote ()))))) - (#{chi-simple-lambda\ 11256}# - (lambda (#{e\ 12018}# - #{r\ 12019}# - #{w\ 12020}# - #{s\ 12021}# - #{mod\ 12022}# - #{req\ 12023}# - #{rest\ 12024}# - #{meta\ 12025}# - #{body\ 12026}#) - (let ((#{ids\ 12038}# - (if #{rest\ 12024}# - (append #{req\ 12023}# (list #{rest\ 12024}#)) - #{req\ 12023}#))) - (let ((#{vars\ 12040}# - (map #{gen-var\ 11264}# #{ids\ 12038}#))) - (let ((#{labels\ 12042}# - (#{gen-labels\ 11169}# #{ids\ 12038}#))) - (#{build-simple-lambda\ 11093}# - #{s\ 12021}# - (map syntax->datum #{req\ 12023}#) - (if #{rest\ 12024}# - (syntax->datum #{rest\ 12024}#) + ($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}#) #f) - #{vars\ 12040}# - #{meta\ 12025}# - (#{chi-body\ 11244}# - #{body\ 12026}# - (#{source-wrap\ 11222}# - #{e\ 12018}# - #{w\ 12020}# - #{s\ 12021}# - #{mod\ 12022}#) - (#{extend-var-env\ 11141}# - #{labels\ 12042}# - #{vars\ 12040}# - #{r\ 12019}#) - (#{make-binding-wrap\ 11198}# - #{ids\ 12038}# - #{labels\ 12042}# - #{w\ 12020}#) - #{mod\ 12022}#))))))) - (#{lambda-formals\ 11254}# - (lambda (#{orig-args\ 12045}#) - (letrec ((#{check\ 12050}# - (lambda (#{req\ 12051}# #{rest\ 12052}#) - (if (#{distinct-bound-ids?\ 11216}# - (if #{rest\ 12052}# - (cons #{rest\ 12052}# #{req\ 12051}#) - #{req\ 12051}#)) - (values #{req\ 12051}# #f #{rest\ 12052}# #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) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 12045}#)))) - (#{req\ 12048}# - (lambda (#{args\ 12058}# #{rreq\ 12059}#) - ((lambda (#{tmp\ 12062}#) - ((lambda (#{tmp\ 12063}#) - (if #{tmp\ 12063}# + #{orig-args\ 1560}#)))) + (#{req\ 1563}# + (lambda (#{args\ 1573}# #{rreq\ 1574}#) + ((lambda (#{tmp\ 1577}#) + ((lambda (#{tmp\ 1578}#) + (if #{tmp\ 1578}# (apply (lambda () - (#{check\ 12050}# - (reverse #{rreq\ 12059}#) + (#{check\ 1565}# + (reverse #{rreq\ 1574}#) #f)) - #{tmp\ 12063}#) - ((lambda (#{tmp\ 12064}#) - (if (if #{tmp\ 12064}# - (apply (lambda (#{a\ 12067}# - #{b\ 12068}#) - (#{id?\ 11151}# - #{a\ 12067}#)) - #{tmp\ 12064}#) + #{tmp\ 1578}#) + ((lambda (#{tmp\ 1579}#) + (if (if #{tmp\ 1579}# + (apply (lambda (#{a\ 1582}# + #{b\ 1583}#) + (#{id?\ 666}# + #{a\ 1582}#)) + #{tmp\ 1579}#) #f) - (apply (lambda (#{a\ 12071}# - #{b\ 12072}#) - (#{req\ 12048}# - #{b\ 12072}# - (cons #{a\ 12071}# - #{rreq\ 12059}#))) - #{tmp\ 12064}#) - ((lambda (#{tmp\ 12073}#) - (if (if #{tmp\ 12073}# - (apply (lambda (#{r\ 12075}#) - (#{id?\ 11151}# - #{r\ 12075}#)) - #{tmp\ 12073}#) + (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}#) #f) - (apply (lambda (#{r\ 12077}#) - (#{check\ 12050}# + (apply (lambda (#{r\ 1592}#) + (#{check\ 1565}# (reverse - #{rreq\ 12059}#) - #{r\ 12077}#)) - #{tmp\ 12073}#) - ((lambda (#{else\ 12079}#) + #{rreq\ 1574}#) + #{r\ 1592}#)) + #{tmp\ 1588}#) + ((lambda (#{else\ 1594}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 12045}# - #{args\ 12058}#)) - #{tmp\ 12062}#))) - (list #{tmp\ 12062}#)))) + #{orig-args\ 1560}# + #{args\ 1573}#)) + #{tmp\ 1577}#))) + (list #{tmp\ 1577}#)))) ($sc-dispatch - #{tmp\ 12062}# + #{tmp\ 1577}# '(any . any))))) - ($sc-dispatch #{tmp\ 12062}# (quote ())))) - #{args\ 12058}#)))) - (#{req\ 12048}# #{orig-args\ 12045}# (quote ()))))) - (#{ellipsis?\ 11252}# - (lambda (#{x\ 12080}#) - (if (#{nonsymbol-id?\ 11149}# #{x\ 12080}#) - (#{free-id=?\ 11210}# - #{x\ 12080}# + ($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}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i12081")) + #(ribcage #(x) #((top)) #("i1596")) #(ribcage (lambda-var-list gen-var @@ -2236,1421 +2220,1411 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile))) #f))) - (#{chi-void\ 11250}# - (lambda () (#{build-void\ 11071}# #f))) - (#{eval-local-transformer\ 11248}# - (lambda (#{expanded\ 12085}# #{mod\ 12086}#) - (let ((#{p\ 12090}# - (#{local-eval-hook\ 11062}# - #{expanded\ 12085}# - #{mod\ 12086}#))) - (if (procedure? #{p\ 12090}#) - (cons #{p\ 12090}# - (module-name (current-module))) + (#{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))) (syntax-violation #f "nonprocedure transformer" - #{p\ 12090}#))))) - (#{chi-local-syntax\ 11246}# - (lambda (#{rec?\ 12091}# - #{e\ 12092}# - #{r\ 12093}# - #{w\ 12094}# - #{s\ 12095}# - #{mod\ 12096}# - #{k\ 12097}#) - ((lambda (#{tmp\ 12105}#) - ((lambda (#{tmp\ 12106}#) - (if #{tmp\ 12106}# - (apply (lambda (#{_\ 12112}# - #{id\ 12113}# - #{val\ 12114}# - #{e1\ 12115}# - #{e2\ 12116}#) - (let ((#{ids\ 12118}# #{id\ 12113}#)) - (if (not (#{valid-bound-ids?\ 11214}# - #{ids\ 12118}#)) + #{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}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 12092}#) - (let ((#{labels\ 12121}# - (#{gen-labels\ 11169}# - #{ids\ 12118}#))) - (let ((#{new-w\ 12123}# - (#{make-binding-wrap\ 11198}# - #{ids\ 12118}# - #{labels\ 12121}# - #{w\ 12094}#))) - (#{k\ 12097}# - (cons #{e1\ 12115}# #{e2\ 12116}#) - (#{extend-env\ 11139}# - #{labels\ 12121}# - (let ((#{w\ 12127}# - (if #{rec?\ 12091}# - #{new-w\ 12123}# - #{w\ 12094}#)) - (#{trans-r\ 12128}# - (#{macros-only-env\ 11143}# - #{r\ 12093}#))) - (map (lambda (#{x\ 12129}#) + #{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}#) (cons 'macro - (#{eval-local-transformer\ 11248}# - (#{chi\ 11236}# - #{x\ 12129}# - #{trans-r\ 12128}# - #{w\ 12127}# - #{mod\ 12096}#) - #{mod\ 12096}#))) - #{val\ 12114}#)) - #{r\ 12093}#) - #{new-w\ 12123}# - #{s\ 12095}# - #{mod\ 12096}#)))))) - #{tmp\ 12106}#) - ((lambda (#{_\ 12134}#) + (#{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}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 11222}# - #{e\ 12092}# - #{w\ 12094}# - #{s\ 12095}# - #{mod\ 12096}#))) - #{tmp\ 12105}#))) + (#{source-wrap\ 737}# + #{e\ 1607}# + #{w\ 1609}# + #{s\ 1610}# + #{mod\ 1611}#))) + #{tmp\ 1620}#))) ($sc-dispatch - #{tmp\ 12105}# + #{tmp\ 1620}# '(any #(each (any any)) any . each-any)))) - #{e\ 12092}#))) - (#{chi-body\ 11244}# - (lambda (#{body\ 12135}# - #{outer-form\ 12136}# - #{r\ 12137}# - #{w\ 12138}# - #{mod\ 12139}#) - (let ((#{r\ 12147}# + #{e\ 1607}#))) + (#{chi-body\ 759}# + (lambda (#{body\ 1650}# + #{outer-form\ 1651}# + #{r\ 1652}# + #{w\ 1653}# + #{mod\ 1654}#) + (let ((#{r\ 1662}# (cons '("placeholder" placeholder) - #{r\ 12137}#))) - (let ((#{ribcage\ 12149}# - (#{make-ribcage\ 11172}# + #{r\ 1652}#))) + (let ((#{ribcage\ 1664}# + (#{make-ribcage\ 687}# '() '() '()))) - (let ((#{w\ 12152}# - (#{make-wrap\ 11156}# - (#{wrap-marks\ 11158}# #{w\ 12138}#) - (cons #{ribcage\ 12149}# - (#{wrap-subst\ 11160}# #{w\ 12138}#))))) - (letrec ((#{parse\ 12161}# - (lambda (#{body\ 12162}# - #{ids\ 12163}# - #{labels\ 12164}# - #{var-ids\ 12165}# - #{vars\ 12166}# - #{vals\ 12167}# - #{bindings\ 12168}#) - (if (null? #{body\ 12162}#) + (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}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 12136}#) - (let ((#{e\ 12173}# (cdar #{body\ 12162}#)) - (#{er\ 12174}# - (caar #{body\ 12162}#))) + #{outer-form\ 1651}#) + (let ((#{e\ 1688}# (cdar #{body\ 1677}#)) + (#{er\ 1689}# (caar #{body\ 1677}#))) (call-with-values (lambda () - (#{syntax-type\ 11232}# - #{e\ 12173}# - #{er\ 12174}# + (#{syntax-type\ 747}# + #{e\ 1688}# + #{er\ 1689}# '(()) - (#{source-annotation\ 11130}# - #{er\ 12174}#) - #{ribcage\ 12149}# - #{mod\ 12139}# + (#{source-annotation\ 645}# + #{er\ 1689}#) + #{ribcage\ 1664}# + #{mod\ 1654}# #f)) - (lambda (#{type\ 12176}# - #{value\ 12177}# - #{e\ 12178}# - #{w\ 12179}# - #{s\ 12180}# - #{mod\ 12181}#) - (if (memv #{type\ 12176}# + (lambda (#{type\ 1691}# + #{value\ 1692}# + #{e\ 1693}# + #{w\ 1694}# + #{s\ 1695}# + #{mod\ 1696}#) + (if (memv #{type\ 1691}# '(define-form)) - (let ((#{id\ 12191}# - (#{wrap\ 11220}# - #{value\ 12177}# - #{w\ 12179}# - #{mod\ 12181}#)) - (#{label\ 12192}# - (#{gen-label\ 11167}#))) - (let ((#{var\ 12194}# - (#{gen-var\ 11264}# - #{id\ 12191}#))) + (let ((#{id\ 1706}# + (#{wrap\ 735}# + #{value\ 1692}# + #{w\ 1694}# + #{mod\ 1696}#)) + (#{label\ 1707}# + (#{gen-label\ 682}#))) + (let ((#{var\ 1709}# + (#{gen-var\ 779}# + #{id\ 1706}#))) (begin - (#{extend-ribcage!\ 11196}# - #{ribcage\ 12149}# - #{id\ 12191}# - #{label\ 12192}#) - (#{parse\ 12161}# - (cdr #{body\ 12162}#) - (cons #{id\ 12191}# - #{ids\ 12163}#) - (cons #{label\ 12192}# - #{labels\ 12164}#) - (cons #{id\ 12191}# - #{var-ids\ 12165}#) - (cons #{var\ 12194}# - #{vars\ 12166}#) - (cons (cons #{er\ 12174}# - (#{wrap\ 11220}# - #{e\ 12178}# - #{w\ 12179}# - #{mod\ 12181}#)) - #{vals\ 12167}#) + (#{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}#) (cons (cons 'lexical - #{var\ 12194}#) - #{bindings\ 12168}#))))) - (if (memv #{type\ 12176}# + #{var\ 1709}#) + #{bindings\ 1683}#))))) + (if (memv #{type\ 1691}# '(define-syntax-form)) - (let ((#{id\ 12199}# - (#{wrap\ 11220}# - #{value\ 12177}# - #{w\ 12179}# - #{mod\ 12181}#)) - (#{label\ 12200}# - (#{gen-label\ 11167}#))) + (let ((#{id\ 1714}# + (#{wrap\ 735}# + #{value\ 1692}# + #{w\ 1694}# + #{mod\ 1696}#)) + (#{label\ 1715}# + (#{gen-label\ 682}#))) (begin - (#{extend-ribcage!\ 11196}# - #{ribcage\ 12149}# - #{id\ 12199}# - #{label\ 12200}#) - (#{parse\ 12161}# - (cdr #{body\ 12162}#) - (cons #{id\ 12199}# - #{ids\ 12163}#) - (cons #{label\ 12200}# - #{labels\ 12164}#) - #{var-ids\ 12165}# - #{vars\ 12166}# - #{vals\ 12167}# + (#{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}# (cons (cons 'macro - (cons #{er\ 12174}# - (#{wrap\ 11220}# - #{e\ 12178}# - #{w\ 12179}# - #{mod\ 12181}#))) - #{bindings\ 12168}#)))) - (if (memv #{type\ 12176}# + (cons #{er\ 1689}# + (#{wrap\ 735}# + #{e\ 1693}# + #{w\ 1694}# + #{mod\ 1696}#))) + #{bindings\ 1683}#)))) + (if (memv #{type\ 1691}# '(begin-form)) - ((lambda (#{tmp\ 12203}#) - ((lambda (#{tmp\ 12204}#) - (if #{tmp\ 12204}# - (apply (lambda (#{_\ 12207}# - #{e1\ 12208}#) - (#{parse\ 12161}# - (letrec ((#{f\ 12211}# - (lambda (#{forms\ 12212}#) - (if (null? #{forms\ 12212}#) - (cdr #{body\ 12162}#) - (cons (cons #{er\ 12174}# - (#{wrap\ 11220}# - (car #{forms\ 12212}#) - #{w\ 12179}# - #{mod\ 12181}#)) - (#{f\ 12211}# - (cdr #{forms\ 12212}#))))))) - (#{f\ 12211}# - #{e1\ 12208}#)) - #{ids\ 12163}# - #{labels\ 12164}# - #{var-ids\ 12165}# - #{vars\ 12166}# - #{vals\ 12167}# - #{bindings\ 12168}#)) - #{tmp\ 12204}#) + ((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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12203}#))) + #{tmp\ 1718}#))) ($sc-dispatch - #{tmp\ 12203}# + #{tmp\ 1718}# '(any . each-any)))) - #{e\ 12178}#) - (if (memv #{type\ 12176}# + #{e\ 1693}#) + (if (memv #{type\ 1691}# '(local-syntax-form)) - (#{chi-local-syntax\ 11246}# - #{value\ 12177}# - #{e\ 12178}# - #{er\ 12174}# - #{w\ 12179}# - #{s\ 12180}# - #{mod\ 12181}# - (lambda (#{forms\ 12215}# - #{er\ 12216}# - #{w\ 12217}# - #{s\ 12218}# - #{mod\ 12219}#) - (#{parse\ 12161}# - (letrec ((#{f\ 12227}# - (lambda (#{forms\ 12228}#) - (if (null? #{forms\ 12228}#) - (cdr #{body\ 12162}#) - (cons (cons #{er\ 12216}# - (#{wrap\ 11220}# - (car #{forms\ 12228}#) - #{w\ 12217}# - #{mod\ 12219}#)) - (#{f\ 12227}# - (cdr #{forms\ 12228}#))))))) - (#{f\ 12227}# - #{forms\ 12215}#)) - #{ids\ 12163}# - #{labels\ 12164}# - #{var-ids\ 12165}# - #{vars\ 12166}# - #{vals\ 12167}# - #{bindings\ 12168}#))) - (if (null? #{ids\ 12163}#) - (#{build-sequence\ 11103}# + (#{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}# #f - (map (lambda (#{x\ 12231}#) - (#{chi\ 11236}# - (cdr #{x\ 12231}#) - (car #{x\ 12231}#) + (map (lambda (#{x\ 1746}#) + (#{chi\ 751}# + (cdr #{x\ 1746}#) + (car #{x\ 1746}#) '(()) - #{mod\ 12181}#)) - (cons (cons #{er\ 12174}# - (#{source-wrap\ 11222}# - #{e\ 12178}# - #{w\ 12179}# - #{s\ 12180}# - #{mod\ 12181}#)) - (cdr #{body\ 12162}#)))) + #{mod\ 1696}#)) + (cons (cons #{er\ 1689}# + (#{source-wrap\ 737}# + #{e\ 1693}# + #{w\ 1694}# + #{s\ 1695}# + #{mod\ 1696}#)) + (cdr #{body\ 1677}#)))) (begin - (if (not (#{valid-bound-ids?\ 11214}# - #{ids\ 12163}#)) + (if (not (#{valid-bound-ids?\ 729}# + #{ids\ 1678}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 12136}#)) - (letrec ((#{loop\ 12238}# - (lambda (#{bs\ 12239}# - #{er-cache\ 12240}# - #{r-cache\ 12241}#) - (if (not (null? #{bs\ 12239}#)) - (let ((#{b\ 12244}# - (car #{bs\ 12239}#))) - (if (eq? (car #{b\ 12244}#) + #{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}#) 'macro) - (let ((#{er\ 12247}# - (cadr #{b\ 12244}#))) - (let ((#{r-cache\ 12249}# - (if (eq? #{er\ 12247}# - #{er-cache\ 12240}#) - #{r-cache\ 12241}# - (#{macros-only-env\ 11143}# - #{er\ 12247}#)))) + (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}#)))) (begin (set-cdr! - #{b\ 12244}# - (#{eval-local-transformer\ 11248}# - (#{chi\ 11236}# - (cddr #{b\ 12244}#) - #{r-cache\ 12249}# + #{b\ 1759}# + (#{eval-local-transformer\ 763}# + (#{chi\ 751}# + (cddr #{b\ 1759}#) + #{r-cache\ 1764}# '(()) - #{mod\ 12181}#) - #{mod\ 12181}#)) - (#{loop\ 12238}# - (cdr #{bs\ 12239}#) - #{er\ 12247}# - #{r-cache\ 12249}#)))) - (#{loop\ 12238}# - (cdr #{bs\ 12239}#) - #{er-cache\ 12240}# - #{r-cache\ 12241}#))))))) - (#{loop\ 12238}# - #{bindings\ 12168}# + #{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}# #f #f)) (set-cdr! - #{r\ 12147}# - (#{extend-env\ 11139}# - #{labels\ 12164}# - #{bindings\ 12168}# - (cdr #{r\ 12147}#))) - (#{build-letrec\ 11109}# + #{r\ 1662}# + (#{extend-env\ 654}# + #{labels\ 1679}# + #{bindings\ 1683}# + (cdr #{r\ 1662}#))) + (#{build-letrec\ 624}# #f (map syntax->datum - #{var-ids\ 12165}#) - #{vars\ 12166}# - (map (lambda (#{x\ 12252}#) - (#{chi\ 11236}# - (cdr #{x\ 12252}#) - (car #{x\ 12252}#) + #{var-ids\ 1680}#) + #{vars\ 1681}# + (map (lambda (#{x\ 1767}#) + (#{chi\ 751}# + (cdr #{x\ 1767}#) + (car #{x\ 1767}#) '(()) - #{mod\ 12181}#)) - #{vals\ 12167}#) - (#{build-sequence\ 11103}# + #{mod\ 1696}#)) + #{vals\ 1682}#) + (#{build-sequence\ 618}# #f - (map (lambda (#{x\ 12256}#) - (#{chi\ 11236}# - (cdr #{x\ 12256}#) - (car #{x\ 12256}#) + (map (lambda (#{x\ 1771}#) + (#{chi\ 751}# + (cdr #{x\ 1771}#) + (car #{x\ 1771}#) '(()) - #{mod\ 12181}#)) - (cons (cons #{er\ 12174}# - (#{source-wrap\ 11222}# - #{e\ 12178}# - #{w\ 12179}# - #{s\ 12180}# - #{mod\ 12181}#)) - (cdr #{body\ 12162}#)))))))))))))))))) - (#{parse\ 12161}# - (map (lambda (#{x\ 12169}#) - (cons #{r\ 12147}# - (#{wrap\ 11220}# - #{x\ 12169}# - #{w\ 12152}# - #{mod\ 12139}#))) - #{body\ 12135}#) + #{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}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 11242}# - (lambda (#{p\ 12259}# - #{e\ 12260}# - #{r\ 12261}# - #{w\ 12262}# - #{rib\ 12263}# - #{mod\ 12264}#) - (letrec ((#{rebuild-macro-output\ 12272}# - (lambda (#{x\ 12273}# #{m\ 12274}#) - (if (pair? #{x\ 12273}#) - (cons (#{rebuild-macro-output\ 12272}# - (car #{x\ 12273}#) - #{m\ 12274}#) - (#{rebuild-macro-output\ 12272}# - (cdr #{x\ 12273}#) - #{m\ 12274}#)) - (if (#{syntax-object?\ 11115}# #{x\ 12273}#) - (let ((#{w\ 12282}# - (#{syntax-object-wrap\ 11119}# - #{x\ 12273}#))) - (let ((#{ms\ 12285}# - (#{wrap-marks\ 11158}# #{w\ 12282}#)) - (#{s\ 12286}# - (#{wrap-subst\ 11160}# - #{w\ 12282}#))) - (if (if (pair? #{ms\ 12285}#) - (eq? (car #{ms\ 12285}#) #f) + (#{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) #f) - (#{make-syntax-object\ 11113}# - (#{syntax-object-expression\ 11117}# - #{x\ 12273}#) - (#{make-wrap\ 11156}# - (cdr #{ms\ 12285}#) - (if #{rib\ 12263}# - (cons #{rib\ 12263}# - (cdr #{s\ 12286}#)) - (cdr #{s\ 12286}#))) - (#{syntax-object-module\ 11121}# - #{x\ 12273}#)) - (#{make-syntax-object\ 11113}# - (#{syntax-object-expression\ 11117}# - #{x\ 12273}#) - (#{make-wrap\ 11156}# - (cons #{m\ 12274}# #{ms\ 12285}#) - (if #{rib\ 12263}# - (cons #{rib\ 12263}# + (#{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}# (cons 'shift - #{s\ 12286}#)) - (cons (quote shift) #{s\ 12286}#))) + #{s\ 1801}#)) + (cons (quote shift) #{s\ 1801}#))) (cons 'hygiene - (cdr #{p\ 12259}#)))))) - (if (vector? #{x\ 12273}#) - (let ((#{n\ 12294}# - (vector-length #{x\ 12273}#))) - (let ((#{v\ 12296}# - (make-vector #{n\ 12294}#))) - (letrec ((#{loop\ 12299}# - (lambda (#{i\ 12300}#) - (if (#{fx=\ 11056}# - #{i\ 12300}# - #{n\ 12294}#) + (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}#) (begin (if #f #f) - #{v\ 12296}#) + #{v\ 1811}#) (begin (vector-set! - #{v\ 12296}# - #{i\ 12300}# - (#{rebuild-macro-output\ 12272}# + #{v\ 1811}# + #{i\ 1815}# + (#{rebuild-macro-output\ 1787}# (vector-ref - #{x\ 12273}# - #{i\ 12300}#) - #{m\ 12274}#)) - (#{loop\ 12299}# - (#{fx+\ 11052}# - #{i\ 12300}# + #{x\ 1788}# + #{i\ 1815}#) + #{m\ 1789}#)) + (#{loop\ 1814}# + (#{fx+\ 567}# + #{i\ 1815}# 1))))))) - (#{loop\ 12299}# 0)))) - (if (symbol? #{x\ 12273}#) + (#{loop\ 1814}# 0)))) + (if (symbol? #{x\ 1788}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 11222}# - #{e\ 12260}# - #{w\ 12262}# - (#{wrap-subst\ 11160}# #{w\ 12262}#) - #{mod\ 12264}#) - #{x\ 12273}#) - #{x\ 12273}#))))))) - (#{rebuild-macro-output\ 12272}# - ((car #{p\ 12259}#) - (#{wrap\ 11220}# - #{e\ 12260}# - (#{anti-mark\ 11192}# #{w\ 12262}#) - #{mod\ 12264}#)) + (#{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}#)) (gensym "m"))))) - (#{chi-application\ 11240}# - (lambda (#{x\ 12307}# - #{e\ 12308}# - #{r\ 12309}# - #{w\ 12310}# - #{s\ 12311}# - #{mod\ 12312}#) - ((lambda (#{tmp\ 12319}#) - ((lambda (#{tmp\ 12320}#) - (if #{tmp\ 12320}# - (apply (lambda (#{e0\ 12323}# #{e1\ 12324}#) - (#{build-application\ 11073}# - #{s\ 12311}# - #{x\ 12307}# - (map (lambda (#{e\ 12325}#) - (#{chi\ 11236}# - #{e\ 12325}# - #{r\ 12309}# - #{w\ 12310}# - #{mod\ 12312}#)) - #{e1\ 12324}#))) - #{tmp\ 12320}#) + (#{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12319}#))) + #{tmp\ 1834}#))) ($sc-dispatch - #{tmp\ 12319}# + #{tmp\ 1834}# '(any . each-any)))) - #{e\ 12308}#))) - (#{chi-expr\ 11238}# - (lambda (#{type\ 12328}# - #{value\ 12329}# - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (lexical))) - (#{build-lexical-reference\ 11079}# + #{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}# 'value - #{s\ 12333}# - #{e\ 12330}# - #{value\ 12329}#) - (if (memv #{type\ 12328}# (quote (core core-form))) - (#{value\ 12329}# - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (module-ref))) + #{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))) (call-with-values (lambda () - (#{value\ 12329}# - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}#)) - (lambda (#{e\ 12345}# - #{r\ 12346}# - #{w\ 12347}# - #{s\ 12348}# - #{mod\ 12349}#) - (#{chi\ 11236}# - #{e\ 12345}# - #{r\ 12346}# - #{w\ 12347}# - #{mod\ 12349}#))) - (if (memv #{type\ 12328}# (quote (lexical-call))) - (#{chi-application\ 11240}# - (#{build-lexical-reference\ 11079}# + (#{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}# 'fun - (#{source-annotation\ 11130}# (car #{e\ 12330}#)) - (car #{e\ 12330}#) - #{value\ 12329}#) - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (global-call))) - (#{chi-application\ 11240}# - (#{build-global-reference\ 11085}# - (#{source-annotation\ 11130}# (car #{e\ 12330}#)) - (if (#{syntax-object?\ 11115}# #{value\ 12329}#) - (#{syntax-object-expression\ 11117}# - #{value\ 12329}#) - #{value\ 12329}#) - (if (#{syntax-object?\ 11115}# #{value\ 12329}#) - (#{syntax-object-module\ 11121}# - #{value\ 12329}#) - #{mod\ 12334}#)) - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (constant))) - (#{build-data\ 11101}# - #{s\ 12333}# - (#{strip\ 11262}# - (#{source-wrap\ 11222}# - #{e\ 12330}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) + (#{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}#) '(()))) - (if (memv #{type\ 12328}# (quote (global))) - (#{build-global-reference\ 11085}# - #{s\ 12333}# - #{value\ 12329}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (call))) - (#{chi-application\ 11240}# - (#{chi\ 11236}# - (car #{e\ 12330}#) - #{r\ 12331}# - #{w\ 12332}# - #{mod\ 12334}#) - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (if (memv #{type\ 12328}# (quote (begin-form))) - ((lambda (#{tmp\ 12362}#) - ((lambda (#{tmp\ 12363}#) - (if #{tmp\ 12363}# - (apply (lambda (#{_\ 12367}# - #{e1\ 12368}# - #{e2\ 12369}#) - (#{chi-sequence\ 11224}# - (cons #{e1\ 12368}# - #{e2\ 12369}#) - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#)) - #{tmp\ 12363}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12362}#))) + #{tmp\ 1877}#))) ($sc-dispatch - #{tmp\ 12362}# + #{tmp\ 1877}# '(any any . each-any)))) - #{e\ 12330}#) - (if (memv #{type\ 12328}# + #{e\ 1845}#) + (if (memv #{type\ 1843}# '(local-syntax-form)) - (#{chi-local-syntax\ 11246}# - #{value\ 12329}# - #{e\ 12330}# - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}# - #{chi-sequence\ 11224}#) - (if (memv #{type\ 12328}# + (#{chi-local-syntax\ 761}# + #{value\ 1844}# + #{e\ 1845}# + #{r\ 1846}# + #{w\ 1847}# + #{s\ 1848}# + #{mod\ 1849}# + #{chi-sequence\ 739}#) + (if (memv #{type\ 1843}# '(eval-when-form)) - ((lambda (#{tmp\ 12373}#) - ((lambda (#{tmp\ 12374}#) - (if #{tmp\ 12374}# - (apply (lambda (#{_\ 12379}# - #{x\ 12380}# - #{e1\ 12381}# - #{e2\ 12382}#) - (let ((#{when-list\ 12384}# - (#{chi-when-list\ 11230}# - #{e\ 12330}# - #{x\ 12380}# - #{w\ 12332}#))) + ((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}#))) (if (memq 'eval - #{when-list\ 12384}#) - (#{chi-sequence\ 11224}# - (cons #{e1\ 12381}# - #{e2\ 12382}#) - #{r\ 12331}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#) - (#{chi-void\ 11250}#)))) - #{tmp\ 12374}#) + #{when-list\ 1899}#) + (#{chi-sequence\ 739}# + (cons #{e1\ 1896}# + #{e2\ 1897}#) + #{r\ 1846}# + #{w\ 1847}# + #{s\ 1848}# + #{mod\ 1849}#) + (#{chi-void\ 765}#)))) + #{tmp\ 1889}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12373}#))) + #{tmp\ 1888}#))) ($sc-dispatch - #{tmp\ 12373}# + #{tmp\ 1888}# '(any each-any any . each-any)))) - #{e\ 12330}#) - (if (memv #{type\ 12328}# + #{e\ 1845}#) + (if (memv #{type\ 1843}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 12330}# - (#{wrap\ 11220}# - #{value\ 12329}# - #{w\ 12332}# - #{mod\ 12334}#)) - (if (memv #{type\ 12328}# + #{e\ 1845}# + (#{wrap\ 735}# + #{value\ 1844}# + #{w\ 1847}# + #{mod\ 1849}#)) + (if (memv #{type\ 1843}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 11222}# - #{e\ 12330}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#)) - (if (memv #{type\ 12328}# + (#{source-wrap\ 737}# + #{e\ 1845}# + #{w\ 1847}# + #{s\ 1848}# + #{mod\ 1849}#)) + (if (memv #{type\ 1843}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 11222}# - #{e\ 12330}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#)) + (#{source-wrap\ 737}# + #{e\ 1845}# + #{w\ 1847}# + #{s\ 1848}# + #{mod\ 1849}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 11222}# - #{e\ 12330}# - #{w\ 12332}# - #{s\ 12333}# - #{mod\ 12334}#)))))))))))))))))) - (#{chi\ 11236}# - (lambda (#{e\ 12391}# - #{r\ 12392}# - #{w\ 12393}# - #{mod\ 12394}#) + (#{source-wrap\ 737}# + #{e\ 1845}# + #{w\ 1847}# + #{s\ 1848}# + #{mod\ 1849}#)))))))))))))))))) + (#{chi\ 751}# + (lambda (#{e\ 1906}# + #{r\ 1907}# + #{w\ 1908}# + #{mod\ 1909}#) (call-with-values (lambda () - (#{syntax-type\ 11232}# - #{e\ 12391}# - #{r\ 12392}# - #{w\ 12393}# - (#{source-annotation\ 11130}# #{e\ 12391}#) + (#{syntax-type\ 747}# + #{e\ 1906}# + #{r\ 1907}# + #{w\ 1908}# + (#{source-annotation\ 645}# #{e\ 1906}#) #f - #{mod\ 12394}# + #{mod\ 1909}# #f)) - (lambda (#{type\ 12399}# - #{value\ 12400}# - #{e\ 12401}# - #{w\ 12402}# - #{s\ 12403}# - #{mod\ 12404}#) - (#{chi-expr\ 11238}# - #{type\ 12399}# - #{value\ 12400}# - #{e\ 12401}# - #{r\ 12392}# - #{w\ 12402}# - #{s\ 12403}# - #{mod\ 12404}#))))) - (#{chi-top\ 11234}# - (lambda (#{e\ 12411}# - #{r\ 12412}# - #{w\ 12413}# - #{m\ 12414}# - #{esew\ 12415}# - #{mod\ 12416}#) + (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}#) (call-with-values (lambda () - (#{syntax-type\ 11232}# - #{e\ 12411}# - #{r\ 12412}# - #{w\ 12413}# - (#{source-annotation\ 11130}# #{e\ 12411}#) + (#{syntax-type\ 747}# + #{e\ 1926}# + #{r\ 1927}# + #{w\ 1928}# + (#{source-annotation\ 645}# #{e\ 1926}#) #f - #{mod\ 12416}# + #{mod\ 1931}# #f)) - (lambda (#{type\ 12437}# - #{value\ 12438}# - #{e\ 12439}# - #{w\ 12440}# - #{s\ 12441}# - #{mod\ 12442}#) - (if (memv #{type\ 12437}# (quote (begin-form))) - ((lambda (#{tmp\ 12450}#) - ((lambda (#{tmp\ 12451}#) - (if #{tmp\ 12451}# - (apply (lambda (#{_\ 12453}#) - (#{chi-void\ 11250}#)) - #{tmp\ 12451}#) - ((lambda (#{tmp\ 12454}#) - (if #{tmp\ 12454}# - (apply (lambda (#{_\ 12458}# - #{e1\ 12459}# - #{e2\ 12460}#) - (#{chi-top-sequence\ 11226}# - (cons #{e1\ 12459}# #{e2\ 12460}#) - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# - #{m\ 12414}# - #{esew\ 12415}# - #{mod\ 12442}#)) - #{tmp\ 12454}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12450}#))) + #{tmp\ 1965}#))) ($sc-dispatch - #{tmp\ 12450}# + #{tmp\ 1965}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 12450}# (quote (any))))) - #{e\ 12439}#) - (if (memv #{type\ 12437}# - '(local-syntax-form)) - (#{chi-local-syntax\ 11246}# - #{value\ 12438}# - #{e\ 12439}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# - #{mod\ 12442}# - (lambda (#{body\ 12463}# - #{r\ 12464}# - #{w\ 12465}# - #{s\ 12466}# - #{mod\ 12467}#) - (#{chi-top-sequence\ 11226}# - #{body\ 12463}# - #{r\ 12464}# - #{w\ 12465}# - #{s\ 12466}# - #{m\ 12414}# - #{esew\ 12415}# - #{mod\ 12467}#))) - (if (memv #{type\ 12437}# (quote (eval-when-form))) - ((lambda (#{tmp\ 12474}#) - ((lambda (#{tmp\ 12475}#) - (if #{tmp\ 12475}# - (apply (lambda (#{_\ 12480}# - #{x\ 12481}# - #{e1\ 12482}# - #{e2\ 12483}#) - (let ((#{when-list\ 12486}# - (#{chi-when-list\ 11230}# - #{e\ 12439}# - #{x\ 12481}# - #{w\ 12440}#)) - (#{body\ 12487}# - (cons #{e1\ 12482}# - #{e2\ 12483}#))) - (if (eq? #{m\ 12414}# (quote e)) + ($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)) (if (memq 'eval - #{when-list\ 12486}#) - (#{chi-top-sequence\ 11226}# - #{body\ 12487}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# + #{when-list\ 2001}#) + (#{chi-top-sequence\ 741}# + #{body\ 2002}# + #{r\ 1927}# + #{w\ 1955}# + #{s\ 1956}# (if (memq 'expand - #{when-list\ 12486}#) + #{when-list\ 2001}#) 'c&e 'e) '(eval) - #{mod\ 12442}#) + #{mod\ 1957}#) (begin (if (memq 'expand - #{when-list\ 12486}#) - (#{top-level-eval-hook\ 11060}# - (#{chi-top-sequence\ 11226}# - #{body\ 12487}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# + #{when-list\ 2001}#) + (#{top-level-eval-hook\ 575}# + (#{chi-top-sequence\ 741}# + #{body\ 2002}# + #{r\ 1927}# + #{w\ 1955}# + #{s\ 1956}# 'e '(eval) - #{mod\ 12442}#) - #{mod\ 12442}#)) - (#{chi-void\ 11250}#))) + #{mod\ 1957}#) + #{mod\ 1957}#)) + (#{chi-void\ 765}#))) (if (memq 'load - #{when-list\ 12486}#) - (if (let ((#{t\ 12496}# + #{when-list\ 2001}#) + (if (let ((#{t\ 2011}# (memq 'compile - #{when-list\ 12486}#))) - (if #{t\ 12496}# - #{t\ 12496}# - (let ((#{t\ 12499}# + #{when-list\ 2001}#))) + (if #{t\ 2011}# + #{t\ 2011}# + (let ((#{t\ 2014}# (memq 'expand - #{when-list\ 12486}#))) - (if #{t\ 12499}# - #{t\ 12499}# - (if (eq? #{m\ 12414}# + #{when-list\ 2001}#))) + (if #{t\ 2014}# + #{t\ 2014}# + (if (eq? #{m\ 1929}# 'c&e) (memq 'eval - #{when-list\ 12486}#) + #{when-list\ 2001}#) #f))))) - (#{chi-top-sequence\ 11226}# - #{body\ 12487}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# + (#{chi-top-sequence\ 741}# + #{body\ 2002}# + #{r\ 1927}# + #{w\ 1955}# + #{s\ 1956}# 'c&e '(compile load) - #{mod\ 12442}#) - (if (memq #{m\ 12414}# + #{mod\ 1957}#) + (if (memq #{m\ 1929}# '(c c&e)) - (#{chi-top-sequence\ 11226}# - #{body\ 12487}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# + (#{chi-top-sequence\ 741}# + #{body\ 2002}# + #{r\ 1927}# + #{w\ 1955}# + #{s\ 1956}# 'c '(load) - #{mod\ 12442}#) - (#{chi-void\ 11250}#))) - (if (let ((#{t\ 12507}# + #{mod\ 1957}#) + (#{chi-void\ 765}#))) + (if (let ((#{t\ 2022}# (memq 'compile - #{when-list\ 12486}#))) - (if #{t\ 12507}# - #{t\ 12507}# - (let ((#{t\ 12510}# + #{when-list\ 2001}#))) + (if #{t\ 2022}# + #{t\ 2022}# + (let ((#{t\ 2025}# (memq 'expand - #{when-list\ 12486}#))) - (if #{t\ 12510}# - #{t\ 12510}# - (if (eq? #{m\ 12414}# + #{when-list\ 2001}#))) + (if #{t\ 2025}# + #{t\ 2025}# + (if (eq? #{m\ 1929}# 'c&e) (memq 'eval - #{when-list\ 12486}#) + #{when-list\ 2001}#) #f))))) (begin - (#{top-level-eval-hook\ 11060}# - (#{chi-top-sequence\ 11226}# - #{body\ 12487}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# + (#{top-level-eval-hook\ 575}# + (#{chi-top-sequence\ 741}# + #{body\ 2002}# + #{r\ 1927}# + #{w\ 1955}# + #{s\ 1956}# 'e '(eval) - #{mod\ 12442}#) - #{mod\ 12442}#) - (#{chi-void\ 11250}#)) - (#{chi-void\ 11250}#)))))) - #{tmp\ 12475}#) + #{mod\ 1957}#) + #{mod\ 1957}#) + (#{chi-void\ 765}#)) + (#{chi-void\ 765}#)))))) + #{tmp\ 1990}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12474}#))) + #{tmp\ 1989}#))) ($sc-dispatch - #{tmp\ 12474}# + #{tmp\ 1989}# '(any each-any any . each-any)))) - #{e\ 12439}#) - (if (memv #{type\ 12437}# + #{e\ 1954}#) + (if (memv #{type\ 1952}# '(define-syntax-form)) - (let ((#{n\ 12518}# - (#{id-var-name\ 11208}# - #{value\ 12438}# - #{w\ 12440}#)) - (#{r\ 12519}# - (#{macros-only-env\ 11143}# #{r\ 12412}#))) - (if (memv #{m\ 12414}# (quote (c))) - (if (memq (quote compile) #{esew\ 12415}#) - (let ((#{e\ 12522}# - (#{chi-install-global\ 11228}# - #{n\ 12518}# - (#{chi\ 11236}# - #{e\ 12439}# - #{r\ 12519}# - #{w\ 12440}# - #{mod\ 12442}#)))) + (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}#)))) (begin - (#{top-level-eval-hook\ 11060}# - #{e\ 12522}# - #{mod\ 12442}#) - (if (memq (quote load) #{esew\ 12415}#) - #{e\ 12522}# - (#{chi-void\ 11250}#)))) - (if (memq (quote load) #{esew\ 12415}#) - (#{chi-install-global\ 11228}# - #{n\ 12518}# - (#{chi\ 11236}# - #{e\ 12439}# - #{r\ 12519}# - #{w\ 12440}# - #{mod\ 12442}#)) - (#{chi-void\ 11250}#))) - (if (memv #{m\ 12414}# (quote (c&e))) - (let ((#{e\ 12525}# - (#{chi-install-global\ 11228}# - #{n\ 12518}# - (#{chi\ 11236}# - #{e\ 12439}# - #{r\ 12519}# - #{w\ 12440}# - #{mod\ 12442}#)))) + (#{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}#)))) (begin - (#{top-level-eval-hook\ 11060}# - #{e\ 12525}# - #{mod\ 12442}#) - #{e\ 12525}#)) + (#{top-level-eval-hook\ 575}# + #{e\ 2040}# + #{mod\ 1957}#) + #{e\ 2040}#)) (begin - (if (memq (quote eval) #{esew\ 12415}#) - (#{top-level-eval-hook\ 11060}# - (#{chi-install-global\ 11228}# - #{n\ 12518}# - (#{chi\ 11236}# - #{e\ 12439}# - #{r\ 12519}# - #{w\ 12440}# - #{mod\ 12442}#)) - #{mod\ 12442}#)) - (#{chi-void\ 11250}#))))) - (if (memv #{type\ 12437}# (quote (define-form))) - (let ((#{n\ 12530}# - (#{id-var-name\ 11208}# - #{value\ 12438}# - #{w\ 12440}#))) - (let ((#{type\ 12532}# - (#{binding-type\ 11134}# - (#{lookup\ 11145}# - #{n\ 12530}# - #{r\ 12412}# - #{mod\ 12442}#)))) - (if (memv #{type\ 12532}# + (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}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 12414}# - '(c c&e)) + (if (if (memq #{m\ 1929}# (quote (c c&e))) (if (not (module-local-variable (current-module) - #{n\ 12530}#)) + #{n\ 2045}#)) (current-module) #f) #f) - (let ((#{old\ 12538}# + (let ((#{old\ 2053}# (module-variable (current-module) - #{n\ 12530}#))) + #{n\ 2045}#))) (module-define! (current-module) - #{n\ 12530}# - (if (variable? #{old\ 12538}#) - (variable-ref #{old\ 12538}#) + #{n\ 2045}# + (if (variable? #{old\ 2053}#) + (variable-ref #{old\ 2053}#) #f)))) - (let ((#{x\ 12541}# - (#{build-global-definition\ 11091}# - #{s\ 12441}# - #{n\ 12530}# - (#{chi\ 11236}# - #{e\ 12439}# - #{r\ 12412}# - #{w\ 12440}# - #{mod\ 12442}#)))) + (let ((#{x\ 2056}# + (#{build-global-definition\ 606}# + #{s\ 1956}# + #{n\ 2045}# + (#{chi\ 751}# + #{e\ 1954}# + #{r\ 1927}# + #{w\ 1955}# + #{mod\ 1957}#)))) (begin - (if (eq? #{m\ 12414}# (quote c&e)) - (#{top-level-eval-hook\ 11060}# - #{x\ 12541}# - #{mod\ 12442}#)) - #{x\ 12541}#))) - (if (memv #{type\ 12532}# + (if (eq? #{m\ 1929}# (quote c&e)) + (#{top-level-eval-hook\ 575}# + #{x\ 2056}# + #{mod\ 1957}#)) + #{x\ 2056}#))) + (if (memv #{type\ 2047}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 12439}# - (#{wrap\ 11220}# - #{value\ 12438}# - #{w\ 12440}# - #{mod\ 12442}#)) + #{e\ 1954}# + (#{wrap\ 735}# + #{value\ 1953}# + #{w\ 1955}# + #{mod\ 1957}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 12439}# - (#{wrap\ 11220}# - #{value\ 12438}# - #{w\ 12440}# - #{mod\ 12442}#)))))) - (let ((#{x\ 12547}# - (#{chi-expr\ 11238}# - #{type\ 12437}# - #{value\ 12438}# - #{e\ 12439}# - #{r\ 12412}# - #{w\ 12440}# - #{s\ 12441}# - #{mod\ 12442}#))) + #{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}#))) (begin - (if (eq? #{m\ 12414}# (quote c&e)) - (#{top-level-eval-hook\ 11060}# - #{x\ 12547}# - #{mod\ 12442}#)) - #{x\ 12547}#))))))))))) - (#{syntax-type\ 11232}# - (lambda (#{e\ 12548}# - #{r\ 12549}# - #{w\ 12550}# - #{s\ 12551}# - #{rib\ 12552}# - #{mod\ 12553}# - #{for-car?\ 12554}#) - (if (symbol? #{e\ 12548}#) - (let ((#{n\ 12566}# - (#{id-var-name\ 11208}# - #{e\ 12548}# - #{w\ 12550}#))) - (let ((#{b\ 12568}# - (#{lookup\ 11145}# - #{n\ 12566}# - #{r\ 12549}# - #{mod\ 12553}#))) - (let ((#{type\ 12570}# - (#{binding-type\ 11134}# #{b\ 12568}#))) - (if (memv #{type\ 12570}# (quote (lexical))) + (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))) (values - #{type\ 12570}# - (#{binding-value\ 11136}# #{b\ 12568}#) - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{type\ 12570}# (quote (global))) + #{type\ 2085}# + (#{binding-value\ 651}# #{b\ 2083}#) + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{type\ 2085}# (quote (global))) (values - #{type\ 12570}# - #{n\ 12566}# - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{type\ 12570}# (quote (macro))) - (if #{for-car?\ 12554}# + #{type\ 2085}# + #{n\ 2081}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{type\ 2085}# (quote (macro))) + (if #{for-car?\ 2069}# (values - #{type\ 12570}# - (#{binding-value\ 11136}# #{b\ 12568}#) - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (#{syntax-type\ 11232}# - (#{chi-macro\ 11242}# - (#{binding-value\ 11136}# #{b\ 12568}#) - #{e\ 12548}# - #{r\ 12549}# - #{w\ 12550}# - #{rib\ 12552}# - #{mod\ 12553}#) - #{r\ 12549}# + #{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}# '(()) - #{s\ 12551}# - #{rib\ 12552}# - #{mod\ 12553}# + #{s\ 2066}# + #{rib\ 2067}# + #{mod\ 2068}# #f)) (values - #{type\ 12570}# - (#{binding-value\ 11136}# #{b\ 12568}#) - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#))))))) - (if (pair? #{e\ 12548}#) - (let ((#{first\ 12579}# (car #{e\ 12548}#))) + #{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}#))) (call-with-values (lambda () - (#{syntax-type\ 11232}# - #{first\ 12579}# - #{r\ 12549}# - #{w\ 12550}# - #{s\ 12551}# - #{rib\ 12552}# - #{mod\ 12553}# + (#{syntax-type\ 747}# + #{first\ 2094}# + #{r\ 2064}# + #{w\ 2065}# + #{s\ 2066}# + #{rib\ 2067}# + #{mod\ 2068}# #t)) - (lambda (#{ftype\ 12580}# - #{fval\ 12581}# - #{fe\ 12582}# - #{fw\ 12583}# - #{fs\ 12584}# - #{fmod\ 12585}#) - (if (memv #{ftype\ 12580}# (quote (lexical))) + (lambda (#{ftype\ 2095}# + #{fval\ 2096}# + #{fe\ 2097}# + #{fw\ 2098}# + #{fs\ 2099}# + #{fmod\ 2100}#) + (if (memv #{ftype\ 2095}# (quote (lexical))) (values 'lexical-call - #{fval\ 12581}# - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# (quote (global))) + #{fval\ 2096}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{ftype\ 2095}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 11113}# - #{fval\ 12581}# - #{w\ 12550}# - #{fmod\ 12585}#) - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# (quote (macro))) - (#{syntax-type\ 11232}# - (#{chi-macro\ 11242}# - #{fval\ 12581}# - #{e\ 12548}# - #{r\ 12549}# - #{w\ 12550}# - #{rib\ 12552}# - #{mod\ 12553}#) - #{r\ 12549}# + (#{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}# '(()) - #{s\ 12551}# - #{rib\ 12552}# - #{mod\ 12553}# - #{for-car?\ 12554}#) - (if (memv #{ftype\ 12580}# (quote (module-ref))) + #{s\ 2066}# + #{rib\ 2067}# + #{mod\ 2068}# + #{for-car?\ 2069}#) + (if (memv #{ftype\ 2095}# (quote (module-ref))) (call-with-values (lambda () - (#{fval\ 12581}# - #{e\ 12548}# - #{r\ 12549}# - #{w\ 12550}#)) - (lambda (#{e\ 12597}# - #{r\ 12598}# - #{w\ 12599}# - #{s\ 12600}# - #{mod\ 12601}#) - (#{syntax-type\ 11232}# - #{e\ 12597}# - #{r\ 12598}# - #{w\ 12599}# - #{s\ 12600}# - #{rib\ 12552}# - #{mod\ 12601}# - #{for-car?\ 12554}#))) - (if (memv #{ftype\ 12580}# (quote (core))) + (#{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))) (values 'core-form - #{fval\ 12581}# - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# + #{fval\ 2096}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{ftype\ 2095}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 12581}# - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# - '(begin)) + #{fval\ 2096}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{ftype\ 2095}# (quote (begin))) (values 'begin-form #f - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{ftype\ 2095}# '(eval-when)) (values 'eval-when-form #f - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) - (if (memv #{ftype\ 12580}# + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) + (if (memv #{ftype\ 2095}# '(define)) - ((lambda (#{tmp\ 12612}#) - ((lambda (#{tmp\ 12613}#) - (if (if #{tmp\ 12613}# - (apply (lambda (#{_\ 12617}# - #{name\ 12618}# - #{val\ 12619}#) - (#{id?\ 11151}# - #{name\ 12618}#)) - #{tmp\ 12613}#) + ((lambda (#{tmp\ 2127}#) + ((lambda (#{tmp\ 2128}#) + (if (if #{tmp\ 2128}# + (apply (lambda (#{_\ 2132}# + #{name\ 2133}# + #{val\ 2134}#) + (#{id?\ 666}# + #{name\ 2133}#)) + #{tmp\ 2128}#) #f) - (apply (lambda (#{_\ 12623}# - #{name\ 12624}# - #{val\ 12625}#) + (apply (lambda (#{_\ 2138}# + #{name\ 2139}# + #{val\ 2140}#) (values 'define-form - #{name\ 12624}# - #{val\ 12625}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#)) - #{tmp\ 12613}#) - ((lambda (#{tmp\ 12626}#) - (if (if #{tmp\ 12626}# - (apply (lambda (#{_\ 12632}# - #{name\ 12633}# - #{args\ 12634}# - #{e1\ 12635}# - #{e2\ 12636}#) - (if (#{id?\ 11151}# - #{name\ 12633}#) - (#{valid-bound-ids?\ 11214}# - (#{lambda-var-list\ 11266}# - #{args\ 12634}#)) + #{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}#)) #f)) - #{tmp\ 12626}#) + #{tmp\ 2141}#) #f) - (apply (lambda (#{_\ 12644}# - #{name\ 12645}# - #{args\ 12646}# - #{e1\ 12647}# - #{e2\ 12648}#) + (apply (lambda (#{_\ 2159}# + #{name\ 2160}# + #{args\ 2161}# + #{e1\ 2162}# + #{e2\ 2163}#) (values 'define-form - (#{wrap\ 11220}# - #{name\ 12645}# - #{w\ 12550}# - #{mod\ 12553}#) - (#{decorate-source\ 11069}# + (#{wrap\ 735}# + #{name\ 2160}# + #{w\ 2065}# + #{mod\ 2068}#) + (#{decorate-source\ 584}# (cons '#(syntax-object lambda ((top) @@ -3665,11 +3639,11 @@ (top) (top) (top)) - #("i12639" - "i12640" - "i12641" - "i12642" - "i12643")) + #("i2154" + "i2155" + "i2156" + "i2157" + "i2158")) #(ribcage () () @@ -3691,12 +3665,12 @@ (top) (top) (top)) - #("i12586" - "i12587" - "i12588" - "i12589" - "i12590" - "i12591")) + #("i2101" + "i2102" + "i2103" + "i2104" + "i2105" + "i2106")) #(ribcage () () @@ -3704,7 +3678,7 @@ #(ribcage #(first) #((top)) - #("i12578")) + #("i2093")) #(ribcage () () @@ -3732,13 +3706,13 @@ (top) (top) (top)) - #("i12555" - "i12556" - "i12557" - "i12558" - "i12559" - "i12560" - "i12561")) + #("i2070" + "i2071" + "i2072" + "i2073" + "i2074" + "i2075" + "i2076")) #(ribcage (lambda-var-list gen-var @@ -3974,159 +3948,159 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile)) - (#{wrap\ 11220}# - (cons #{args\ 12646}# - (cons #{e1\ 12647}# - #{e2\ 12648}#)) - #{w\ 12550}# - #{mod\ 12553}#)) - #{s\ 12551}#) + (#{wrap\ 735}# + (cons #{args\ 2161}# + (cons #{e1\ 2162}# + #{e2\ 2163}#)) + #{w\ 2065}# + #{mod\ 2068}#)) + #{s\ 2066}#) '(()) - #{s\ 12551}# - #{mod\ 12553}#)) - #{tmp\ 12626}#) - ((lambda (#{tmp\ 12651}#) - (if (if #{tmp\ 12651}# - (apply (lambda (#{_\ 12654}# - #{name\ 12655}#) - (#{id?\ 11151}# - #{name\ 12655}#)) - #{tmp\ 12651}#) + #{s\ 2066}# + #{mod\ 2068}#)) + #{tmp\ 2141}#) + ((lambda (#{tmp\ 2166}#) + (if (if #{tmp\ 2166}# + (apply (lambda (#{_\ 2169}# + #{name\ 2170}#) + (#{id?\ 666}# + #{name\ 2170}#)) + #{tmp\ 2166}#) #f) - (apply (lambda (#{_\ 12658}# - #{name\ 12659}#) + (apply (lambda (#{_\ 2173}# + #{name\ 2174}#) (values 'define-form - (#{wrap\ 11220}# - #{name\ 12659}# - #{w\ 12550}# - #{mod\ 12553}#) + (#{wrap\ 735}# + #{name\ 2174}# + #{w\ 2065}# + #{mod\ 2068}#) '(#(syntax-object if ((top) @@ -4135,8 +4109,8 @@ name) #((top) (top)) - #("i12656" - "i12657")) + #("i2171" + "i2172")) #(ribcage () () @@ -4158,12 +4132,12 @@ (top) (top) (top)) - #("i12586" - "i12587" - "i12588" - "i12589" - "i12590" - "i12591")) + #("i2101" + "i2102" + "i2103" + "i2104" + "i2105" + "i2106")) #(ribcage () () @@ -4171,7 +4145,7 @@ #(ribcage #(first) #((top)) - #("i12578")) + #("i2093")) #(ribcage () () @@ -4199,13 +4173,13 @@ (top) (top) (top)) - #("i12555" - "i12556" - "i12557" - "i12558" - "i12559" - "i12560" - "i12561")) + #("i2070" + "i2071" + "i2072" + "i2073" + "i2074" + "i2075" + "i2076")) #(ribcage (lambda-var-list gen-var @@ -4441,130 +4415,130 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile)) #(syntax-object @@ -4575,8 +4549,8 @@ name) #((top) (top)) - #("i12656" - "i12657")) + #("i2171" + "i2172")) #(ribcage () () @@ -4598,12 +4572,12 @@ (top) (top) (top)) - #("i12586" - "i12587" - "i12588" - "i12589" - "i12590" - "i12591")) + #("i2101" + "i2102" + "i2103" + "i2104" + "i2105" + "i2106")) #(ribcage () () @@ -4611,7 +4585,7 @@ #(ribcage #(first) #((top)) - #("i12578")) + #("i2093")) #(ribcage () () @@ -4639,13 +4613,13 @@ (top) (top) (top)) - #("i12555" - "i12556" - "i12557" - "i12558" - "i12559" - "i12560" - "i12561")) + #("i2070" + "i2071" + "i2072" + "i2073" + "i2074" + "i2075" + "i2076")) #(ribcage (lambda-var-list gen-var @@ -4881,130 +4855,130 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile)) #(syntax-object @@ -5015,8 +4989,8 @@ name) #((top) (top)) - #("i12656" - "i12657")) + #("i2171" + "i2172")) #(ribcage () () @@ -5038,12 +5012,12 @@ (top) (top) (top)) - #("i12586" - "i12587" - "i12588" - "i12589" - "i12590" - "i12591")) + #("i2101" + "i2102" + "i2103" + "i2104" + "i2105" + "i2106")) #(ribcage () () @@ -5051,7 +5025,7 @@ #(ribcage #(first) #((top)) - #("i12578")) + #("i2093")) #(ribcage () () @@ -5079,13 +5053,13 @@ (top) (top) (top)) - #("i12555" - "i12556" - "i12557" - "i12558" - "i12559" - "i12560" - "i12561")) + #("i2070" + "i2071" + "i2072" + "i2073" + "i2074" + "i2075" + "i2076")) #(ribcage (lambda-var-list gen-var @@ -5321,232 +5295,231 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" + "i465"))) (hygiene guile))) '(()) - #{s\ 12551}# - #{mod\ 12553}#)) - #{tmp\ 12651}#) + #{s\ 2066}# + #{mod\ 2068}#)) + #{tmp\ 2166}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12612}#))) + #{tmp\ 2127}#))) ($sc-dispatch - #{tmp\ 12612}# + #{tmp\ 2127}# '(any any))))) ($sc-dispatch - #{tmp\ 12612}# + #{tmp\ 2127}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 12612}# + #{tmp\ 2127}# '(any any any)))) - #{e\ 12548}#) - (if (memv #{ftype\ 12580}# + #{e\ 2063}#) + (if (memv #{ftype\ 2095}# '(define-syntax)) - ((lambda (#{tmp\ 12662}#) - ((lambda (#{tmp\ 12663}#) - (if (if #{tmp\ 12663}# - (apply (lambda (#{_\ 12667}# - #{name\ 12668}# - #{val\ 12669}#) - (#{id?\ 11151}# - #{name\ 12668}#)) - #{tmp\ 12663}#) + ((lambda (#{tmp\ 2177}#) + ((lambda (#{tmp\ 2178}#) + (if (if #{tmp\ 2178}# + (apply (lambda (#{_\ 2182}# + #{name\ 2183}# + #{val\ 2184}#) + (#{id?\ 666}# + #{name\ 2183}#)) + #{tmp\ 2178}#) #f) - (apply (lambda (#{_\ 12673}# - #{name\ 12674}# - #{val\ 12675}#) + (apply (lambda (#{_\ 2188}# + #{name\ 2189}# + #{val\ 2190}#) (values 'define-syntax-form - #{name\ 12674}# - #{val\ 12675}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#)) - #{tmp\ 12663}#) + #{name\ 2189}# + #{val\ 2190}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#)) + #{tmp\ 2178}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 12662}#))) + #{tmp\ 2177}#))) ($sc-dispatch - #{tmp\ 12662}# + #{tmp\ 2177}# '(any any any)))) - #{e\ 12548}#) + #{e\ 2063}#) (values 'call #f - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#)))))))))))))) - (if (#{syntax-object?\ 11115}# #{e\ 12548}#) - (#{syntax-type\ 11232}# - (#{syntax-object-expression\ 11117}# - #{e\ 12548}#) - #{r\ 12549}# - (#{join-wraps\ 11202}# - #{w\ 12550}# - (#{syntax-object-wrap\ 11119}# #{e\ 12548}#)) - #{s\ 12551}# - #{rib\ 12552}# - (let ((#{t\ 12681}# - (#{syntax-object-module\ 11121}# #{e\ 12548}#))) - (if #{t\ 12681}# #{t\ 12681}# #{mod\ 12553}#)) - #{for-car?\ 12554}#) - (if (self-evaluating? #{e\ 12548}#) + #{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}#) (values 'constant #f - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#) + #{e\ 2063}# + #{w\ 2065}# + #{s\ 2066}# + #{mod\ 2068}#) (values 'other #f - #{e\ 12548}# - #{w\ 12550}# - #{s\ 12551}# - #{mod\ 12553}#))))))) - (#{chi-when-list\ 11230}# - (lambda (#{e\ 12686}# #{when-list\ 12687}# #{w\ 12688}#) - (letrec ((#{f\ 12695}# - (lambda (#{when-list\ 12696}# #{situations\ 12697}#) - (if (null? #{when-list\ 12696}#) - #{situations\ 12697}# - (#{f\ 12695}# - (cdr #{when-list\ 12696}#) - (cons (let ((#{x\ 12699}# - (car #{when-list\ 12696}#))) - (if (#{free-id=?\ 11210}# - #{x\ 12699}# + #{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}# '#(syntax-object compile ((top) @@ -5556,21 +5529,17 @@ #(ribcage #(x) #((top)) - #("i12698")) + #("i2213")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i12692" - "i12693" - "i12694")) + #("i2207" "i2208" "i2209")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i12689" - "i12690" - "i12691")) + #("i2204" "i2205" "i2206")) #(ribcage (lambda-var-list gen-var @@ -5806,131 +5775,131 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 11210}# - #{x\ 12699}# + (if (#{free-id=?\ 725}# + #{x\ 2214}# '#(syntax-object load ((top) @@ -5940,21 +5909,21 @@ #(ribcage #(x) #((top)) - #("i12698")) + #("i2213")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i12692" - "i12693" - "i12694")) + #("i2207" + "i2208" + "i2209")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i12689" - "i12690" - "i12691")) + #("i2204" + "i2205" + "i2206")) #(ribcage (lambda-var-list gen-var @@ -6190,132 +6159,132 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile))) 'load - (if (#{free-id=?\ 11210}# - #{x\ 12699}# + (if (#{free-id=?\ 725}# + #{x\ 2214}# '#(syntax-object eval ((top) @@ -6325,23 +6294,23 @@ #(ribcage #(x) #((top)) - #("i12698")) + #("i2213")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i12692" - "i12693" - "i12694")) + #("i2207" + "i2208" + "i2209")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i12689" - "i12690" - "i12691")) + #("i2204" + "i2205" + "i2206")) #(ribcage (lambda-var-list gen-var @@ -6577,132 +6546,132 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 11210}# - #{x\ 12699}# + (if (#{free-id=?\ 725}# + #{x\ 2214}# '#(syntax-object expand ((top) @@ -6712,23 +6681,23 @@ #(ribcage #(x) #((top)) - #("i12698")) + #("i2213")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i12692" - "i12693" - "i12694")) + #("i2207" + "i2208" + "i2209")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i12689" - "i12690" - "i12691")) + #("i2204" + "i2205" + "i2206")) #(ribcage (lambda-var-list gen-var @@ -6964,2536 +6933,2465 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 12686}# - (#{wrap\ 11220}# - #{x\ 12699}# - #{w\ 12688}# + #{e\ 2201}# + (#{wrap\ 735}# + #{x\ 2214}# + #{w\ 2203}# #f))))))) - #{situations\ 12697}#)))))) - (#{f\ 12695}# #{when-list\ 12687}# (quote ()))))) - (#{chi-install-global\ 11228}# - (lambda (#{name\ 12709}# #{e\ 12710}#) - (#{build-global-definition\ 11091}# + #{situations\ 2212}#)))))) + (#{f\ 2210}# #{when-list\ 2202}# (quote ()))))) + (#{chi-install-global\ 743}# + (lambda (#{name\ 2224}# #{e\ 2225}#) + (#{build-global-definition\ 606}# #f - #{name\ 12709}# - (#{build-application\ 11073}# + #{name\ 2224}# + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f 'make-syntax-transformer) - (list (#{build-data\ 11101}# #f #{name\ 12709}#) - (#{build-data\ 11101}# #f (quote macro)) - (#{build-application\ 11073}# + (list (#{build-data\ 616}# #f #{name\ 2224}#) + (#{build-data\ 616}# #f (quote macro)) + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# #f (quote cons)) - (list #{e\ 12710}# - (#{build-application\ 11073}# + (#{build-primref\ 614}# #f (quote cons)) + (list #{e\ 2225}# + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f 'module-name) - (list (#{build-application\ 11073}# + (list (#{build-application\ 588}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 11226}# - (lambda (#{body\ 12724}# - #{r\ 12725}# - #{w\ 12726}# - #{s\ 12727}# - #{m\ 12728}# - #{esew\ 12729}# - #{mod\ 12730}#) - (#{build-sequence\ 11103}# - #{s\ 12727}# - (letrec ((#{dobody\ 12746}# - (lambda (#{body\ 12747}# - #{r\ 12748}# - #{w\ 12749}# - #{m\ 12750}# - #{esew\ 12751}# - #{mod\ 12752}# - #{out\ 12753}#) - (if (null? #{body\ 12747}#) - (reverse #{out\ 12753}#) - (#{dobody\ 12746}# - (cdr #{body\ 12747}#) - #{r\ 12748}# - #{w\ 12749}# - #{m\ 12750}# - #{esew\ 12751}# - #{mod\ 12752}# - (cons (#{chi-top\ 11234}# - (car #{body\ 12747}#) - #{r\ 12748}# - #{w\ 12749}# - #{m\ 12750}# - #{esew\ 12751}# - #{mod\ 12752}#) - #{out\ 12753}#)))))) - (#{dobody\ 12746}# - #{body\ 12724}# - #{r\ 12725}# - #{w\ 12726}# - #{m\ 12728}# - #{esew\ 12729}# - #{mod\ 12730}# + (#{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-sequence\ 11224}# - (lambda (#{body\ 12754}# - #{r\ 12755}# - #{w\ 12756}# - #{s\ 12757}# - #{mod\ 12758}#) - (#{build-sequence\ 11103}# - #{s\ 12757}# - (letrec ((#{dobody\ 12769}# - (lambda (#{body\ 12770}# - #{r\ 12771}# - #{w\ 12772}# - #{mod\ 12773}#) - (if (null? #{body\ 12770}#) + (#{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}#) '() - (let ((#{first\ 12775}# - (#{chi\ 11236}# - (car #{body\ 12770}#) - #{r\ 12771}# - #{w\ 12772}# - #{mod\ 12773}#))) - (cons #{first\ 12775}# - (#{dobody\ 12769}# - (cdr #{body\ 12770}#) - #{r\ 12771}# - #{w\ 12772}# - #{mod\ 12773}#))))))) - (#{dobody\ 12769}# - #{body\ 12754}# - #{r\ 12755}# - #{w\ 12756}# - #{mod\ 12758}#))))) - (#{source-wrap\ 11222}# - (lambda (#{x\ 12776}# - #{w\ 12777}# - #{s\ 12778}# - #{defmod\ 12779}#) - (#{wrap\ 11220}# - (#{decorate-source\ 11069}# - #{x\ 12776}# - #{s\ 12778}#) - #{w\ 12777}# - #{defmod\ 12779}#))) - (#{wrap\ 11220}# - (lambda (#{x\ 12784}# #{w\ 12785}# #{defmod\ 12786}#) - (if (if (null? (#{wrap-marks\ 11158}# #{w\ 12785}#)) - (null? (#{wrap-subst\ 11160}# #{w\ 12785}#)) + (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}#)) #f) - #{x\ 12784}# - (if (#{syntax-object?\ 11115}# #{x\ 12784}#) - (#{make-syntax-object\ 11113}# - (#{syntax-object-expression\ 11117}# - #{x\ 12784}#) - (#{join-wraps\ 11202}# - #{w\ 12785}# - (#{syntax-object-wrap\ 11119}# #{x\ 12784}#)) - (#{syntax-object-module\ 11121}# #{x\ 12784}#)) - (if (null? #{x\ 12784}#) - #{x\ 12784}# - (#{make-syntax-object\ 11113}# - #{x\ 12784}# - #{w\ 12785}# - #{defmod\ 12786}#)))))) - (#{bound-id-member?\ 11218}# - (lambda (#{x\ 12799}# #{list\ 12800}#) - (if (not (null? #{list\ 12800}#)) - (let ((#{t\ 12807}# - (#{bound-id=?\ 11212}# - #{x\ 12799}# - (car #{list\ 12800}#)))) - (if #{t\ 12807}# - #{t\ 12807}# - (#{bound-id-member?\ 11218}# - #{x\ 12799}# - (cdr #{list\ 12800}#)))) + #{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}#)))) #f))) - (#{distinct-bound-ids?\ 11216}# - (lambda (#{ids\ 12809}#) - (letrec ((#{distinct?\ 12813}# - (lambda (#{ids\ 12814}#) - (let ((#{t\ 12817}# (null? #{ids\ 12814}#))) - (if #{t\ 12817}# - #{t\ 12817}# - (if (not (#{bound-id-member?\ 11218}# - (car #{ids\ 12814}#) - (cdr #{ids\ 12814}#))) - (#{distinct?\ 12813}# (cdr #{ids\ 12814}#)) + (#{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}#)) #f)))))) - (#{distinct?\ 12813}# #{ids\ 12809}#)))) - (#{valid-bound-ids?\ 11214}# - (lambda (#{ids\ 12821}#) - (if (letrec ((#{all-ids?\ 12826}# - (lambda (#{ids\ 12827}#) - (let ((#{t\ 12830}# (null? #{ids\ 12827}#))) - (if #{t\ 12830}# - #{t\ 12830}# - (if (#{id?\ 11151}# (car #{ids\ 12827}#)) - (#{all-ids?\ 12826}# - (cdr #{ids\ 12827}#)) + (#{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}#)) #f)))))) - (#{all-ids?\ 12826}# #{ids\ 12821}#)) - (#{distinct-bound-ids?\ 11216}# #{ids\ 12821}#) + (#{all-ids?\ 2341}# #{ids\ 2336}#)) + (#{distinct-bound-ids?\ 731}# #{ids\ 2336}#) #f))) - (#{bound-id=?\ 11212}# - (lambda (#{i\ 12835}# #{j\ 12836}#) - (if (if (#{syntax-object?\ 11115}# #{i\ 12835}#) - (#{syntax-object?\ 11115}# #{j\ 12836}#) + (#{bound-id=?\ 727}# + (lambda (#{i\ 2350}# #{j\ 2351}#) + (if (if (#{syntax-object?\ 630}# #{i\ 2350}#) + (#{syntax-object?\ 630}# #{j\ 2351}#) #f) - (if (eq? (#{syntax-object-expression\ 11117}# - #{i\ 12835}#) - (#{syntax-object-expression\ 11117}# - #{j\ 12836}#)) - (#{same-marks?\ 11206}# - (#{wrap-marks\ 11158}# - (#{syntax-object-wrap\ 11119}# #{i\ 12835}#)) - (#{wrap-marks\ 11158}# - (#{syntax-object-wrap\ 11119}# #{j\ 12836}#))) + (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}#))) #f) - (eq? #{i\ 12835}# #{j\ 12836}#)))) - (#{free-id=?\ 11210}# - (lambda (#{i\ 12843}# #{j\ 12844}#) - (if (eq? (let ((#{x\ 12850}# #{i\ 12843}#)) - (if (#{syntax-object?\ 11115}# #{x\ 12850}#) - (#{syntax-object-expression\ 11117}# - #{x\ 12850}#) - #{x\ 12850}#)) - (let ((#{x\ 12853}# #{j\ 12844}#)) - (if (#{syntax-object?\ 11115}# #{x\ 12853}#) - (#{syntax-object-expression\ 11117}# - #{x\ 12853}#) - #{x\ 12853}#))) - (eq? (#{id-var-name\ 11208}# - #{i\ 12843}# - '(())) - (#{id-var-name\ 11208}# - #{j\ 12844}# - '(()))) + (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 (())))) #f))) - (#{id-var-name\ 11208}# - (lambda (#{id\ 12857}# #{w\ 12858}#) - (letrec ((#{search-vector-rib\ 12867}# - (lambda (#{sym\ 12879}# - #{subst\ 12880}# - #{marks\ 12881}# - #{symnames\ 12882}# - #{ribcage\ 12883}#) - (let ((#{n\ 12890}# - (vector-length #{symnames\ 12882}#))) - (letrec ((#{f\ 12893}# - (lambda (#{i\ 12894}#) - (if (#{fx=\ 11056}# - #{i\ 12894}# - #{n\ 12890}#) - (#{search\ 12863}# - #{sym\ 12879}# - (cdr #{subst\ 12880}#) - #{marks\ 12881}#) + (#{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}#) (if (if (eq? (vector-ref - #{symnames\ 12882}# - #{i\ 12894}#) - #{sym\ 12879}#) - (#{same-marks?\ 11206}# - #{marks\ 12881}# + #{symnames\ 2397}# + #{i\ 2409}#) + #{sym\ 2394}#) + (#{same-marks?\ 721}# + #{marks\ 2396}# (vector-ref - (#{ribcage-marks\ 11178}# - #{ribcage\ 12883}#) - #{i\ 12894}#)) + (#{ribcage-marks\ 693}# + #{ribcage\ 2398}#) + #{i\ 2409}#)) #f) (values (vector-ref - (#{ribcage-labels\ 11180}# - #{ribcage\ 12883}#) - #{i\ 12894}#) - #{marks\ 12881}#) - (#{f\ 12893}# - (#{fx+\ 11052}# - #{i\ 12894}# + (#{ribcage-labels\ 695}# + #{ribcage\ 2398}#) + #{i\ 2409}#) + #{marks\ 2396}#) + (#{f\ 2408}# + (#{fx+\ 567}# + #{i\ 2409}# 1))))))) - (#{f\ 12893}# 0))))) - (#{search-list-rib\ 12865}# - (lambda (#{sym\ 12902}# - #{subst\ 12903}# - #{marks\ 12904}# - #{symnames\ 12905}# - #{ribcage\ 12906}#) - (letrec ((#{f\ 12915}# - (lambda (#{symnames\ 12916}# - #{i\ 12917}#) - (if (null? #{symnames\ 12916}#) - (#{search\ 12863}# - #{sym\ 12902}# - (cdr #{subst\ 12903}#) - #{marks\ 12904}#) - (if (if (eq? (car #{symnames\ 12916}#) - #{sym\ 12902}#) - (#{same-marks?\ 11206}# - #{marks\ 12904}# + (#{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}# (list-ref - (#{ribcage-marks\ 11178}# - #{ribcage\ 12906}#) - #{i\ 12917}#)) + (#{ribcage-marks\ 693}# + #{ribcage\ 2421}#) + #{i\ 2432}#)) #f) (values (list-ref - (#{ribcage-labels\ 11180}# - #{ribcage\ 12906}#) - #{i\ 12917}#) - #{marks\ 12904}#) - (#{f\ 12915}# - (cdr #{symnames\ 12916}#) - (#{fx+\ 11052}# - #{i\ 12917}# + (#{ribcage-labels\ 695}# + #{ribcage\ 2421}#) + #{i\ 2432}#) + #{marks\ 2419}#) + (#{f\ 2430}# + (cdr #{symnames\ 2431}#) + (#{fx+\ 567}# + #{i\ 2432}# 1))))))) - (#{f\ 12915}# #{symnames\ 12905}# 0)))) - (#{search\ 12863}# - (lambda (#{sym\ 12925}# - #{subst\ 12926}# - #{marks\ 12927}#) - (if (null? #{subst\ 12926}#) - (values #f #{marks\ 12927}#) - (let ((#{fst\ 12932}# (car #{subst\ 12926}#))) - (if (eq? #{fst\ 12932}# (quote shift)) - (#{search\ 12863}# - #{sym\ 12925}# - (cdr #{subst\ 12926}#) - (cdr #{marks\ 12927}#)) - (let ((#{symnames\ 12934}# - (#{ribcage-symnames\ 11176}# - #{fst\ 12932}#))) - (if (vector? #{symnames\ 12934}#) - (#{search-vector-rib\ 12867}# - #{sym\ 12925}# - #{subst\ 12926}# - #{marks\ 12927}# - #{symnames\ 12934}# - #{fst\ 12932}#) - (#{search-list-rib\ 12865}# - #{sym\ 12925}# - #{subst\ 12926}# - #{marks\ 12927}# - #{symnames\ 12934}# - #{fst\ 12932}#))))))))) - (if (symbol? #{id\ 12857}#) - (let ((#{t\ 12937}# + (#{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}# (call-with-values (lambda () - (#{search\ 12863}# - #{id\ 12857}# - (#{wrap-subst\ 11160}# #{w\ 12858}#) - (#{wrap-marks\ 11158}# #{w\ 12858}#))) - (lambda (#{x\ 12939}# . #{ignore\ 12940}#) - #{x\ 12939}#)))) - (if #{t\ 12937}# #{t\ 12937}# #{id\ 12857}#)) - (if (#{syntax-object?\ 11115}# #{id\ 12857}#) - (let ((#{id\ 12948}# - (#{syntax-object-expression\ 11117}# - #{id\ 12857}#)) - (#{w1\ 12949}# - (#{syntax-object-wrap\ 11119}# #{id\ 12857}#))) - (let ((#{marks\ 12951}# - (#{join-marks\ 11204}# - (#{wrap-marks\ 11158}# #{w\ 12858}#) - (#{wrap-marks\ 11158}# #{w1\ 12949}#)))) + (#{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}#)))) (call-with-values (lambda () - (#{search\ 12863}# - #{id\ 12948}# - (#{wrap-subst\ 11160}# #{w\ 12858}#) - #{marks\ 12951}#)) - (lambda (#{new-id\ 12952}# #{marks\ 12953}#) - (let ((#{t\ 12958}# #{new-id\ 12952}#)) - (if #{t\ 12958}# - #{t\ 12958}# - (let ((#{t\ 12961}# + (#{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}# (call-with-values (lambda () - (#{search\ 12863}# - #{id\ 12948}# - (#{wrap-subst\ 11160}# - #{w1\ 12949}#) - #{marks\ 12953}#)) - (lambda (#{x\ 12963}# + (#{search\ 2378}# + #{id\ 2463}# + (#{wrap-subst\ 675}# + #{w1\ 2464}#) + #{marks\ 2468}#)) + (lambda (#{x\ 2478}# . - #{ignore\ 12964}#) - #{x\ 12963}#)))) - (if #{t\ 12961}# - #{t\ 12961}# - #{id\ 12948}#)))))))) + #{ignore\ 2479}#) + #{x\ 2478}#)))) + (if #{t\ 2476}# + #{t\ 2476}# + #{id\ 2463}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 12857}#)))))) - (#{same-marks?\ 11206}# - (lambda (#{x\ 12969}# #{y\ 12970}#) - (let ((#{t\ 12975}# (eq? #{x\ 12969}# #{y\ 12970}#))) - (if #{t\ 12975}# - #{t\ 12975}# - (if (not (null? #{x\ 12969}#)) - (if (not (null? #{y\ 12970}#)) - (if (eq? (car #{x\ 12969}#) (car #{y\ 12970}#)) - (#{same-marks?\ 11206}# - (cdr #{x\ 12969}#) - (cdr #{y\ 12970}#)) + #{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}#)) #f) #f) #f))))) - (#{join-marks\ 11204}# - (lambda (#{m1\ 12981}# #{m2\ 12982}#) - (#{smart-append\ 11200}# - #{m1\ 12981}# - #{m2\ 12982}#))) - (#{join-wraps\ 11202}# - (lambda (#{w1\ 12985}# #{w2\ 12986}#) - (let ((#{m1\ 12991}# - (#{wrap-marks\ 11158}# #{w1\ 12985}#)) - (#{s1\ 12992}# - (#{wrap-subst\ 11160}# #{w1\ 12985}#))) - (if (null? #{m1\ 12991}#) - (if (null? #{s1\ 12992}#) - #{w2\ 12986}# - (#{make-wrap\ 11156}# - (#{wrap-marks\ 11158}# #{w2\ 12986}#) - (#{smart-append\ 11200}# - #{s1\ 12992}# - (#{wrap-subst\ 11160}# #{w2\ 12986}#)))) - (#{make-wrap\ 11156}# - (#{smart-append\ 11200}# - #{m1\ 12991}# - (#{wrap-marks\ 11158}# #{w2\ 12986}#)) - (#{smart-append\ 11200}# - #{s1\ 12992}# - (#{wrap-subst\ 11160}# #{w2\ 12986}#))))))) - (#{smart-append\ 11200}# - (lambda (#{m1\ 12993}# #{m2\ 12994}#) - (if (null? #{m2\ 12994}#) - #{m1\ 12993}# - (append #{m1\ 12993}# #{m2\ 12994}#)))) - (#{make-binding-wrap\ 11198}# - (lambda (#{ids\ 12997}# #{labels\ 12998}# #{w\ 12999}#) - (if (null? #{ids\ 12997}#) - #{w\ 12999}# - (#{make-wrap\ 11156}# - (#{wrap-marks\ 11158}# #{w\ 12999}#) - (cons (let ((#{labelvec\ 13004}# - (list->vector #{labels\ 12998}#))) - (let ((#{n\ 13006}# - (vector-length #{labelvec\ 13004}#))) - (let ((#{symnamevec\ 13009}# - (make-vector #{n\ 13006}#)) - (#{marksvec\ 13010}# - (make-vector #{n\ 13006}#))) + (#{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}#))) (begin - (letrec ((#{f\ 13014}# - (lambda (#{ids\ 13015}# - #{i\ 13016}#) - (if (not (null? #{ids\ 13015}#)) + (letrec ((#{f\ 2529}# + (lambda (#{ids\ 2530}# #{i\ 2531}#) + (if (not (null? #{ids\ 2530}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 11154}# - (car #{ids\ 13015}#) - #{w\ 12999}#)) - (lambda (#{symname\ 13017}# - #{marks\ 13018}#) + (#{id-sym-name&marks\ 669}# + (car #{ids\ 2530}#) + #{w\ 2514}#)) + (lambda (#{symname\ 2532}# + #{marks\ 2533}#) (begin (vector-set! - #{symnamevec\ 13009}# - #{i\ 13016}# - #{symname\ 13017}#) + #{symnamevec\ 2524}# + #{i\ 2531}# + #{symname\ 2532}#) (vector-set! - #{marksvec\ 13010}# - #{i\ 13016}# - #{marks\ 13018}#) - (#{f\ 13014}# - (cdr #{ids\ 13015}#) - (#{fx+\ 11052}# - #{i\ 13016}# + #{marksvec\ 2525}# + #{i\ 2531}# + #{marks\ 2533}#) + (#{f\ 2529}# + (cdr #{ids\ 2530}#) + (#{fx+\ 567}# + #{i\ 2531}# 1))))))))) - (#{f\ 13014}# #{ids\ 12997}# 0)) - (#{make-ribcage\ 11172}# - #{symnamevec\ 13009}# - #{marksvec\ 13010}# - #{labelvec\ 13004}#))))) - (#{wrap-subst\ 11160}# #{w\ 12999}#)))))) - (#{extend-ribcage!\ 11196}# - (lambda (#{ribcage\ 13021}# - #{id\ 13022}# - #{label\ 13023}#) + (#{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}#) (begin - (#{set-ribcage-symnames!\ 11182}# - #{ribcage\ 13021}# - (cons (#{syntax-object-expression\ 11117}# - #{id\ 13022}#) - (#{ribcage-symnames\ 11176}# #{ribcage\ 13021}#))) - (#{set-ribcage-marks!\ 11184}# - #{ribcage\ 13021}# - (cons (#{wrap-marks\ 11158}# - (#{syntax-object-wrap\ 11119}# #{id\ 13022}#)) - (#{ribcage-marks\ 11178}# #{ribcage\ 13021}#))) - (#{set-ribcage-labels!\ 11186}# - #{ribcage\ 13021}# - (cons #{label\ 13023}# - (#{ribcage-labels\ 11180}# #{ribcage\ 13021}#)))))) - (#{anti-mark\ 11192}# - (lambda (#{w\ 13027}#) - (#{make-wrap\ 11156}# - (cons #f (#{wrap-marks\ 11158}# #{w\ 13027}#)) + (#{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}#)) (cons 'shift - (#{wrap-subst\ 11160}# #{w\ 13027}#))))) - (#{set-ribcage-labels!\ 11186}# - (lambda (#{x\ 13030}# #{update\ 13031}#) - (vector-set! #{x\ 13030}# 3 #{update\ 13031}#))) - (#{set-ribcage-marks!\ 11184}# - (lambda (#{x\ 13034}# #{update\ 13035}#) - (vector-set! #{x\ 13034}# 2 #{update\ 13035}#))) - (#{set-ribcage-symnames!\ 11182}# - (lambda (#{x\ 13038}# #{update\ 13039}#) - (vector-set! #{x\ 13038}# 1 #{update\ 13039}#))) - (#{ribcage-labels\ 11180}# - (lambda (#{x\ 13042}#) - (vector-ref #{x\ 13042}# 3))) - (#{ribcage-marks\ 11178}# - (lambda (#{x\ 13044}#) - (vector-ref #{x\ 13044}# 2))) - (#{ribcage-symnames\ 11176}# - (lambda (#{x\ 13046}#) - (vector-ref #{x\ 13046}# 1))) - (#{ribcage?\ 11174}# - (lambda (#{x\ 13048}#) - (if (vector? #{x\ 13048}#) - (if (= (vector-length #{x\ 13048}#) 4) - (eq? (vector-ref #{x\ 13048}# 0) (quote ribcage)) + (#{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)) #f) #f))) - (#{make-ribcage\ 11172}# - (lambda (#{symnames\ 13053}# - #{marks\ 13054}# - #{labels\ 13055}#) + (#{make-ribcage\ 687}# + (lambda (#{symnames\ 2568}# + #{marks\ 2569}# + #{labels\ 2570}#) (vector 'ribcage - #{symnames\ 13053}# - #{marks\ 13054}# - #{labels\ 13055}#))) - (#{gen-labels\ 11169}# - (lambda (#{ls\ 13059}#) - (if (null? #{ls\ 13059}#) + #{symnames\ 2568}# + #{marks\ 2569}# + #{labels\ 2570}#))) + (#{gen-labels\ 684}# + (lambda (#{ls\ 2574}#) + (if (null? #{ls\ 2574}#) '() - (cons (#{gen-label\ 11167}#) - (#{gen-labels\ 11169}# (cdr #{ls\ 13059}#)))))) - (#{gen-label\ 11167}# + (cons (#{gen-label\ 682}#) + (#{gen-labels\ 684}# (cdr #{ls\ 2574}#)))))) + (#{gen-label\ 682}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 11160}# cdr) - (#{wrap-marks\ 11158}# car) - (#{make-wrap\ 11156}# cons) - (#{id-sym-name&marks\ 11154}# - (lambda (#{x\ 13061}# #{w\ 13062}#) - (if (#{syntax-object?\ 11115}# #{x\ 13061}#) + (#{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}#) (values - (#{syntax-object-expression\ 11117}# - #{x\ 13061}#) - (#{join-marks\ 11204}# - (#{wrap-marks\ 11158}# #{w\ 13062}#) - (#{wrap-marks\ 11158}# - (#{syntax-object-wrap\ 11119}# #{x\ 13061}#)))) + (#{syntax-object-expression\ 632}# #{x\ 2576}#) + (#{join-marks\ 719}# + (#{wrap-marks\ 673}# #{w\ 2577}#) + (#{wrap-marks\ 673}# + (#{syntax-object-wrap\ 634}# #{x\ 2576}#)))) (values - #{x\ 13061}# - (#{wrap-marks\ 11158}# #{w\ 13062}#))))) - (#{id?\ 11151}# - (lambda (#{x\ 13065}#) - (if (symbol? #{x\ 13065}#) + #{x\ 2576}# + (#{wrap-marks\ 673}# #{w\ 2577}#))))) + (#{id?\ 666}# + (lambda (#{x\ 2580}#) + (if (symbol? #{x\ 2580}#) #t - (if (#{syntax-object?\ 11115}# #{x\ 13065}#) + (if (#{syntax-object?\ 630}# #{x\ 2580}#) (symbol? - (#{syntax-object-expression\ 11117}# - #{x\ 13065}#)) + (#{syntax-object-expression\ 632}# #{x\ 2580}#)) #f)))) - (#{nonsymbol-id?\ 11149}# - (lambda (#{x\ 13072}#) - (if (#{syntax-object?\ 11115}# #{x\ 13072}#) + (#{nonsymbol-id?\ 664}# + (lambda (#{x\ 2587}#) + (if (#{syntax-object?\ 630}# #{x\ 2587}#) (symbol? - (#{syntax-object-expression\ 11117}# - #{x\ 13072}#)) + (#{syntax-object-expression\ 632}# #{x\ 2587}#)) #f))) - (#{global-extend\ 11147}# - (lambda (#{type\ 13076}# #{sym\ 13077}# #{val\ 13078}#) - (#{put-global-definition-hook\ 11065}# - #{sym\ 13077}# - #{type\ 13076}# - #{val\ 13078}#))) - (#{lookup\ 11145}# - (lambda (#{x\ 13082}# #{r\ 13083}# #{mod\ 13084}#) - (let ((#{t\ 13090}# (assq #{x\ 13082}# #{r\ 13083}#))) - (if #{t\ 13090}# - (cdr #{t\ 13090}#) - (if (symbol? #{x\ 13082}#) - (let ((#{t\ 13096}# - (#{get-global-definition-hook\ 11067}# - #{x\ 13082}# - #{mod\ 13084}#))) - (if #{t\ 13096}# #{t\ 13096}# (quote (global)))) + (#{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)))) '(displaced-lexical)))))) - (#{macros-only-env\ 11143}# - (lambda (#{r\ 13101}#) - (if (null? #{r\ 13101}#) + (#{macros-only-env\ 658}# + (lambda (#{r\ 2616}#) + (if (null? #{r\ 2616}#) '() - (let ((#{a\ 13104}# (car #{r\ 13101}#))) - (if (eq? (cadr #{a\ 13104}#) (quote macro)) - (cons #{a\ 13104}# - (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#))) - (#{macros-only-env\ 11143}# (cdr #{r\ 13101}#))))))) - (#{extend-var-env\ 11141}# - (lambda (#{labels\ 13105}# #{vars\ 13106}# #{r\ 13107}#) - (if (null? #{labels\ 13105}#) - #{r\ 13107}# - (#{extend-var-env\ 11141}# - (cdr #{labels\ 13105}#) - (cdr #{vars\ 13106}#) - (cons (cons (car #{labels\ 13105}#) - (cons (quote lexical) (car #{vars\ 13106}#))) - #{r\ 13107}#))))) - (#{extend-env\ 11139}# - (lambda (#{labels\ 13112}# - #{bindings\ 13113}# - #{r\ 13114}#) - (if (null? #{labels\ 13112}#) - #{r\ 13114}# - (#{extend-env\ 11139}# - (cdr #{labels\ 13112}#) - (cdr #{bindings\ 13113}#) - (cons (cons (car #{labels\ 13112}#) - (car #{bindings\ 13113}#)) - #{r\ 13114}#))))) - (#{binding-value\ 11136}# cdr) - (#{binding-type\ 11134}# car) - (#{source-annotation\ 11130}# - (lambda (#{x\ 13118}#) - (if (#{syntax-object?\ 11115}# #{x\ 13118}#) - (#{source-annotation\ 11130}# - (#{syntax-object-expression\ 11117}# - #{x\ 13118}#)) - (if (pair? #{x\ 13118}#) - (let ((#{props\ 13125}# - (source-properties #{x\ 13118}#))) - (if (pair? #{props\ 13125}#) #{props\ 13125}# #f)) + (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)) #f)))) - (#{set-syntax-object-module!\ 11127}# - (lambda (#{x\ 13127}# #{update\ 13128}#) - (vector-set! #{x\ 13127}# 3 #{update\ 13128}#))) - (#{set-syntax-object-wrap!\ 11125}# - (lambda (#{x\ 13131}# #{update\ 13132}#) - (vector-set! #{x\ 13131}# 2 #{update\ 13132}#))) - (#{set-syntax-object-expression!\ 11123}# - (lambda (#{x\ 13135}# #{update\ 13136}#) - (vector-set! #{x\ 13135}# 1 #{update\ 13136}#))) - (#{syntax-object-module\ 11121}# - (lambda (#{x\ 13139}#) - (vector-ref #{x\ 13139}# 3))) - (#{syntax-object-wrap\ 11119}# - (lambda (#{x\ 13141}#) - (vector-ref #{x\ 13141}# 2))) - (#{syntax-object-expression\ 11117}# - (lambda (#{x\ 13143}#) - (vector-ref #{x\ 13143}# 1))) - (#{syntax-object?\ 11115}# - (lambda (#{x\ 13145}#) - (if (vector? #{x\ 13145}#) - (if (= (vector-length #{x\ 13145}#) 4) - (eq? (vector-ref #{x\ 13145}# 0) + (#{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) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 11113}# - (lambda (#{expression\ 13150}# - #{wrap\ 13151}# - #{module\ 13152}#) + (#{make-syntax-object\ 628}# + (lambda (#{expression\ 2665}# + #{wrap\ 2666}# + #{module\ 2667}#) (vector 'syntax-object - #{expression\ 13150}# - #{wrap\ 13151}# - #{module\ 13152}#))) - (#{build-letrec\ 11109}# - (lambda (#{src\ 13156}# - #{ids\ 13157}# - #{vars\ 13158}# - #{val-exps\ 13159}# - #{body-exp\ 13160}#) - (if (null? #{vars\ 13158}#) - #{body-exp\ 13160}# - (let ((#{atom-key\ 13168}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13168}# (quote (c))) + #{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))) (begin (for-each - #{maybe-name-value!\ 11089}# - #{ids\ 13157}# - #{val-exps\ 13159}#) + #{maybe-name-value!\ 604}# + #{ids\ 2672}# + #{val-exps\ 2674}#) ((@ (language tree-il) make-letrec) - #{src\ 13156}# - #{ids\ 13157}# - #{vars\ 13158}# - #{val-exps\ 13159}# - #{body-exp\ 13160}#)) - (#{decorate-source\ 11069}# + #{src\ 2671}# + #{ids\ 2672}# + #{vars\ 2673}# + #{val-exps\ 2674}# + #{body-exp\ 2675}#)) + (#{decorate-source\ 584}# (list 'letrec - (map list #{vars\ 13158}# #{val-exps\ 13159}#) - #{body-exp\ 13160}#) - #{src\ 13156}#)))))) - (#{build-named-let\ 11107}# - (lambda (#{src\ 13172}# - #{ids\ 13173}# - #{vars\ 13174}# - #{val-exps\ 13175}# - #{body-exp\ 13176}#) - (let ((#{f\ 13186}# (car #{vars\ 13174}#)) - (#{f-name\ 13187}# (car #{ids\ 13173}#)) - (#{vars\ 13188}# (cdr #{vars\ 13174}#)) - (#{ids\ 13189}# (cdr #{ids\ 13173}#))) - (let ((#{atom-key\ 13192}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13192}# (quote (c))) - (let ((#{proc\ 13195}# - (#{build-simple-lambda\ 11093}# - #{src\ 13172}# - #{ids\ 13189}# + (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}# #f - #{vars\ 13188}# + #{vars\ 2703}# '() - #{body-exp\ 13176}#))) + #{body-exp\ 2691}#))) (begin - (#{maybe-name-value!\ 11089}# - #{f-name\ 13187}# - #{proc\ 13195}#) + (#{maybe-name-value!\ 604}# + #{f-name\ 2702}# + #{proc\ 2710}#) (for-each - #{maybe-name-value!\ 11089}# - #{ids\ 13189}# - #{val-exps\ 13175}#) + #{maybe-name-value!\ 604}# + #{ids\ 2704}# + #{val-exps\ 2690}#) ((@ (language tree-il) make-letrec) - #{src\ 13172}# - (list #{f-name\ 13187}#) - (list #{f\ 13186}#) - (list #{proc\ 13195}#) - (#{build-application\ 11073}# - #{src\ 13172}# - (#{build-lexical-reference\ 11079}# + #{src\ 2687}# + (list #{f-name\ 2702}#) + (list #{f\ 2701}#) + (list #{proc\ 2710}#) + (#{build-application\ 588}# + #{src\ 2687}# + (#{build-lexical-reference\ 594}# 'fun - #{src\ 13172}# - #{f-name\ 13187}# - #{f\ 13186}#) - #{val-exps\ 13175}#)))) - (#{decorate-source\ 11069}# + #{src\ 2687}# + #{f-name\ 2702}# + #{f\ 2701}#) + #{val-exps\ 2690}#)))) + (#{decorate-source\ 584}# (list 'letrec - (list (list #{f\ 13186}# + (list (list #{f\ 2701}# (list 'lambda - #{vars\ 13188}# - #{body-exp\ 13176}#))) - (cons #{f\ 13186}# #{val-exps\ 13175}#)) - #{src\ 13172}#)))))) - (#{build-let\ 11105}# - (lambda (#{src\ 13198}# - #{ids\ 13199}# - #{vars\ 13200}# - #{val-exps\ 13201}# - #{body-exp\ 13202}#) - (if (null? #{vars\ 13200}#) - #{body-exp\ 13202}# - (let ((#{atom-key\ 13210}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13210}# (quote (c))) + #{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))) (begin (for-each - #{maybe-name-value!\ 11089}# - #{ids\ 13199}# - #{val-exps\ 13201}#) + #{maybe-name-value!\ 604}# + #{ids\ 2714}# + #{val-exps\ 2716}#) ((@ (language tree-il) make-let) - #{src\ 13198}# - #{ids\ 13199}# - #{vars\ 13200}# - #{val-exps\ 13201}# - #{body-exp\ 13202}#)) - (#{decorate-source\ 11069}# + #{src\ 2713}# + #{ids\ 2714}# + #{vars\ 2715}# + #{val-exps\ 2716}# + #{body-exp\ 2717}#)) + (#{decorate-source\ 584}# (list 'let - (map list #{vars\ 13200}# #{val-exps\ 13201}#) - #{body-exp\ 13202}#) - #{src\ 13198}#)))))) - (#{build-sequence\ 11103}# - (lambda (#{src\ 13214}# #{exps\ 13215}#) - (if (null? (cdr #{exps\ 13215}#)) - (car #{exps\ 13215}#) - (let ((#{atom-key\ 13220}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13220}# (quote (c))) + (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\ 13214}# - #{exps\ 13215}#) - (#{decorate-source\ 11069}# - (cons (quote begin) #{exps\ 13215}#) - #{src\ 13214}#)))))) - (#{build-data\ 11101}# - (lambda (#{src\ 13224}# #{exp\ 13225}#) - (let ((#{atom-key\ 13230}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13230}# (quote (c))) + #{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\ 13224}# - #{exp\ 13225}#) - (#{decorate-source\ 11069}# - (if (if (self-evaluating? #{exp\ 13225}#) - (not (vector? #{exp\ 13225}#)) + #{src\ 2739}# + #{exp\ 2740}#) + (#{decorate-source\ 584}# + (if (if (self-evaluating? #{exp\ 2740}#) + (not (vector? #{exp\ 2740}#)) #f) - #{exp\ 13225}# - (list (quote quote) #{exp\ 13225}#)) - #{src\ 13224}#))))) - (#{build-primref\ 11099}# - (lambda (#{src\ 13235}# #{name\ 13236}#) + #{exp\ 2740}# + (list (quote quote) #{exp\ 2740}#)) + #{src\ 2739}#))))) + (#{build-primref\ 614}# + (lambda (#{src\ 2750}# #{name\ 2751}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 13241}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13241}# (quote (c))) + (let ((#{atom-key\ 2756}# (fluid-ref #{*mode*\ 565}#))) + (if (memv #{atom-key\ 2756}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 13235}# - #{name\ 13236}#) - (#{decorate-source\ 11069}# - #{name\ 13236}# - #{src\ 13235}#))) - (let ((#{atom-key\ 13246}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13246}# (quote (c))) + #{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\ 13235}# + #{src\ 2750}# '(guile) - #{name\ 13236}# + #{name\ 2751}# #f) - (#{decorate-source\ 11069}# - (list (quote @@) (quote (guile)) #{name\ 13236}#) - #{src\ 13235}#)))))) - (#{build-lambda-case\ 11097}# - (lambda (#{src\ 13250}# - #{req\ 13251}# - #{opt\ 13252}# - #{rest\ 13253}# - #{kw\ 13254}# - #{inits\ 13255}# - #{vars\ 13256}# - #{body\ 13257}# - #{else-case\ 13258}#) - (let ((#{atom-key\ 13270}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13270}# (quote (c))) + (#{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\ 13250}# - #{req\ 13251}# - #{opt\ 13252}# - #{rest\ 13253}# - #{kw\ 13254}# - #{inits\ 13255}# - #{vars\ 13256}# - #{body\ 13257}# - #{else-case\ 13258}#) - (let ((#{nreq\ 13275}# (length #{req\ 13251}#))) - (let ((#{nopt\ 13277}# - (if #{opt\ 13252}# (length #{opt\ 13252}#) 0))) - (let ((#{rest-idx\ 13279}# - (if #{rest\ 13253}# - (+ #{nreq\ 13275}# #{nopt\ 13277}#) + #{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}#) #f))) - (let ((#{allow-other-keys?\ 13283}# - (if #{kw\ 13254}# (car #{kw\ 13254}#) #f))) - (let ((#{kw-indices\ 13285}# - (map (lambda (#{x\ 13286}#) - (cons (car #{x\ 13286}#) + (let ((#{allow-other-keys?\ 2798}# + (if #{kw\ 2769}# (car #{kw\ 2769}#) #f))) + (let ((#{kw-indices\ 2800}# + (map (lambda (#{x\ 2801}#) + (cons (car #{x\ 2801}#) (list-index - #{vars\ 13256}# - (caddr #{x\ 13286}#)))) - (if #{kw\ 13254}# - (cdr #{kw\ 13254}#) + #{vars\ 2771}# + (caddr #{x\ 2801}#)))) + (if #{kw\ 2769}# + (cdr #{kw\ 2769}#) '())))) - (let ((#{nargs\ 13289}# + (let ((#{nargs\ 2804}# (apply max - (+ #{nreq\ 13275}# - #{nopt\ 13277}# - (if #{rest\ 13253}# 1 0)) + (+ #{nreq\ 2790}# + #{nopt\ 2792}# + (if #{rest\ 2768}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 13285}#))))) + #{kw-indices\ 2800}#))))) (begin - (let ((#{t\ 13292}# - (= #{nargs\ 13289}# - (length #{vars\ 13256}#) - (+ #{nreq\ 13275}# - (length #{inits\ 13255}#) - (if #{rest\ 13253}# 1 0))))) - (if #{t\ 13292}# - #{t\ 13292}# + (let ((#{t\ 2807}# + (= #{nargs\ 2804}# + (length #{vars\ 2771}#) + (+ #{nreq\ 2790}# + (length #{inits\ 2770}#) + (if #{rest\ 2768}# 1 0))))) + (if #{t\ 2807}# + #{t\ 2807}# (error "something went wrong" - #{req\ 13251}# - #{opt\ 13252}# - #{rest\ 13253}# - #{kw\ 13254}# - #{inits\ 13255}# - #{vars\ 13256}# - #{nreq\ 13275}# - #{nopt\ 13277}# - #{kw-indices\ 13285}# - #{nargs\ 13289}#))) - (#{decorate-source\ 11069}# - (cons (list (cons '(@@ (ice-9 optargs) - parse-lambda-case) - (cons (list 'quote - (list #{nreq\ 13275}# - #{nopt\ 13277}# - #{rest-idx\ 13279}# - #{nargs\ 13289}# - #{allow-other-keys?\ 13283}# - #{kw-indices\ 13285}#)) - (cons (cons 'list - (map (lambda (#{i\ 13295}#) - (list 'lambda - #{vars\ 13256}# - #{i\ 13295}#)) - #{inits\ 13255}#)) - '(%%args)))) - '=> - (list 'lambda - '(%%args) - (cons 'apply - (cons (list 'lambda - #{vars\ 13256}# - #{body\ 13257}#) - '(%%args))))) - (let ((#{t\ 13300}# - #{else-case\ 13258}#)) - (if #{t\ 13300}# - #{t\ 13300}# - '((%%args - (scm-error - 'wrong-number-of-args - #f - "Wrong number of arguments" - '() - %%args)))))) - #{src\ 13250}#)))))))))))) - (#{build-case-lambda\ 11095}# - (lambda (#{src\ 13303}# #{meta\ 13304}# #{body\ 13305}#) - (let ((#{atom-key\ 13311}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13311}# (quote (c))) + #{req\ 2766}# + #{opt\ 2767}# + #{rest\ 2768}# + #{kw\ 2769}# + #{inits\ 2770}# + #{vars\ 2771}# + #{nreq\ 2790}# + #{nopt\ 2792}# + #{kw-indices\ 2800}# + #{nargs\ 2804}#))) + (#{decorate-source\ 584}# + (cons (list (append + (list-head + #{vars\ 2771}# + #{nreq\ 2790}#) + (append + (if #{opt\ 2767}# + (cons #:optional + (map list + (list-head + (list-tail + #{vars\ 2771}# + #{nreq\ 2790}#) + #{nopt\ 2792}#) + (list-head + #{inits\ 2770}# + #{nopt\ 2792}#))) + '()) + (append + (if #{kw\ 2769}# + (cons #:key + (map (lambda (#{x\ 2812}# + #{init\ 2813}#) + (list (caddr #{x\ 2812}#) + #{init\ 2813}# + (car #{x\ 2812}#))) + (cdr #{kw\ 2769}#) + (list-tail + #{inits\ 2770}# + #{nopt\ 2792}#))) + '()) + (append + (if #{allow-other-keys?\ 2798}# + '(#:allow-other-keys) + '()) + (if #{rest\ 2768}# + (list-ref + #{vars\ 2771}# + #{rest-idx\ 2794}#) + '()))))) + #{body\ 2772}#) + (let ((#{t\ 2818}# + #{else-case\ 2773}#)) + (if #{t\ 2818}# + #{t\ 2818}# + '()))) + #{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\ 13303}# - #{meta\ 13304}# - #{body\ 13305}#) - (#{decorate-source\ 11069}# - (list 'lambda - '%%args - (cons (quote cond) #{body\ 13305}#)) - #{src\ 13303}#))))) - (#{build-simple-lambda\ 11093}# - (lambda (#{src\ 13315}# - #{req\ 13316}# - #{rest\ 13317}# - #{vars\ 13318}# - #{meta\ 13319}# - #{exp\ 13320}#) - (let ((#{atom-key\ 13329}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13329}# (quote (c))) + #{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\ 13315}# - #{meta\ 13319}# + #{src\ 2832}# + #{meta\ 2836}# ((@ (language tree-il) make-lambda-case) - #{src\ 13315}# - #{req\ 13316}# + #{src\ 2832}# + #{req\ 2833}# #f - #{rest\ 13317}# + #{rest\ 2834}# #f '() - #{vars\ 13318}# - #{exp\ 13320}# + #{vars\ 2835}# + #{exp\ 2837}# #f)) - (#{decorate-source\ 11069}# + (#{decorate-source\ 584}# (list 'lambda - (if #{rest\ 13317}# - (apply cons* #{vars\ 13318}#) - #{vars\ 13318}#) - #{exp\ 13320}#) - #{src\ 13315}#))))) - (#{build-global-definition\ 11091}# - (lambda (#{source\ 13333}# #{var\ 13334}# #{exp\ 13335}#) - (let ((#{atom-key\ 13341}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13341}# (quote (c))) + (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))) (begin - (#{maybe-name-value!\ 11089}# - #{var\ 13334}# - #{exp\ 13335}#) + (#{maybe-name-value!\ 604}# + #{var\ 2851}# + #{exp\ 2852}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 13333}# - #{var\ 13334}# - #{exp\ 13335}#)) - (#{decorate-source\ 11069}# - (list 'define - #{var\ 13334}# - #{exp\ 13335}#) - #{source\ 13333}#))))) - (#{maybe-name-value!\ 11089}# - (lambda (#{name\ 13345}# #{val\ 13346}#) - (if ((@ (language tree-il) lambda?) #{val\ 13346}#) - (let ((#{meta\ 13352}# + #{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}# ((@ (language tree-il) lambda-meta) - #{val\ 13346}#))) - (if (not (assq (quote name) #{meta\ 13352}#)) + #{val\ 2863}#))) + (if (not (assq (quote name) #{meta\ 2869}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 13346}# + #{val\ 2863}# (acons 'name - #{name\ 13345}# - #{meta\ 13352}#))))))) - (#{build-global-assignment\ 11087}# - (lambda (#{source\ 13353}# - #{var\ 13354}# - #{exp\ 13355}# - #{mod\ 13356}#) - (#{analyze-variable\ 11083}# - #{mod\ 13356}# - #{var\ 13354}# - (lambda (#{mod\ 13361}# - #{var\ 13362}# - #{public?\ 13363}#) - (let ((#{atom-key\ 13369}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13369}# (quote (c))) + #{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\ 13353}# - #{mod\ 13361}# - #{var\ 13362}# - #{public?\ 13363}# - #{exp\ 13355}#) - (#{decorate-source\ 11069}# + #{source\ 2870}# + #{mod\ 2878}# + #{var\ 2879}# + #{public?\ 2880}# + #{exp\ 2872}#) + (#{decorate-source\ 584}# (list 'set! - (list (if #{public?\ 13363}# + (list (if #{public?\ 2880}# '@ '@@) - #{mod\ 13361}# - #{var\ 13362}#) - #{exp\ 13355}#) - #{source\ 13353}#)))) - (lambda (#{var\ 13373}#) - (let ((#{atom-key\ 13377}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13377}# (quote (c))) + #{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\ 13353}# - #{var\ 13373}# - #{exp\ 13355}#) - (#{decorate-source\ 11069}# - (list (quote set!) #{var\ 13373}# #{exp\ 13355}#) - #{source\ 13353}#))))))) - (#{build-global-reference\ 11085}# - (lambda (#{source\ 13381}# #{var\ 13382}# #{mod\ 13383}#) - (#{analyze-variable\ 11083}# - #{mod\ 13383}# - #{var\ 13382}# - (lambda (#{mod\ 13387}# - #{var\ 13388}# - #{public?\ 13389}#) - (let ((#{atom-key\ 13395}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13395}# (quote (c))) + #{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\ 13381}# - #{mod\ 13387}# - #{var\ 13388}# - #{public?\ 13389}#) - (#{decorate-source\ 11069}# - (list (if #{public?\ 13389}# (quote @) (quote @@)) - #{mod\ 13387}# - #{var\ 13388}#) - #{source\ 13381}#)))) - (lambda (#{var\ 13398}#) - (let ((#{atom-key\ 13402}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13402}# (quote (c))) + #{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\ 13381}# - #{var\ 13398}#) - (#{decorate-source\ 11069}# - #{var\ 13398}# - #{source\ 13381}#))))))) - (#{analyze-variable\ 11083}# - (lambda (#{mod\ 13405}# - #{var\ 13406}# - #{modref-cont\ 13407}# - #{bare-cont\ 13408}#) - (if (not #{mod\ 13405}#) - (#{bare-cont\ 13408}# #{var\ 13406}#) - (let ((#{kind\ 13415}# (car #{mod\ 13405}#)) - (#{mod\ 13416}# (cdr #{mod\ 13405}#))) - (if (memv #{kind\ 13415}# (quote (public))) - (#{modref-cont\ 13407}# - #{mod\ 13416}# - #{var\ 13406}# + #{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}# #t) - (if (memv #{kind\ 13415}# (quote (private))) + (if (memv #{kind\ 2932}# (quote (private))) (if (not (equal? - #{mod\ 13416}# + #{mod\ 2933}# (module-name (current-module)))) - (#{modref-cont\ 13407}# - #{mod\ 13416}# - #{var\ 13406}# + (#{modref-cont\ 2924}# + #{mod\ 2933}# + #{var\ 2923}# #f) - (#{bare-cont\ 13408}# #{var\ 13406}#)) - (if (memv #{kind\ 13415}# (quote (bare))) - (#{bare-cont\ 13408}# #{var\ 13406}#) - (if (memv #{kind\ 13415}# (quote (hygiene))) + (#{bare-cont\ 2925}# #{var\ 2923}#)) + (if (memv #{kind\ 2932}# (quote (bare))) + (#{bare-cont\ 2925}# #{var\ 2923}#) + (if (memv #{kind\ 2932}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 13416}# + #{mod\ 2933}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 13416}#) - #{var\ 13406}#) + (resolve-module #{mod\ 2933}#) + #{var\ 2923}#) #f) - (#{modref-cont\ 13407}# - #{mod\ 13416}# - #{var\ 13406}# + (#{modref-cont\ 2924}# + #{mod\ 2933}# + #{var\ 2923}# #f) - (#{bare-cont\ 13408}# #{var\ 13406}#)) + (#{bare-cont\ 2925}# #{var\ 2923}#)) (syntax-violation #f "bad module kind" - #{var\ 13406}# - #{mod\ 13416}#))))))))) - (#{build-lexical-assignment\ 11081}# - (lambda (#{source\ 13424}# - #{name\ 13425}# - #{var\ 13426}# - #{exp\ 13427}#) - (let ((#{atom-key\ 13434}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13434}# (quote (c))) + #{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\ 13424}# - #{name\ 13425}# - #{var\ 13426}# - #{exp\ 13427}#) - (#{decorate-source\ 11069}# - (list (quote set!) #{var\ 13426}# #{exp\ 13427}#) - #{source\ 13424}#))))) - (#{build-lexical-reference\ 11079}# - (lambda (#{type\ 13438}# - #{source\ 13439}# - #{name\ 13440}# - #{var\ 13441}#) - (let ((#{atom-key\ 13448}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13448}# (quote (c))) + #{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\ 13439}# - #{name\ 13440}# - #{var\ 13441}#) - (#{decorate-source\ 11069}# - #{var\ 13441}# - #{source\ 13439}#))))) - (#{build-dynlet\ 11077}# - (lambda (#{source\ 13451}# - #{fluids\ 13452}# - #{vals\ 13453}# - #{body\ 13454}#) - (let ((#{atom-key\ 13461}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13461}# (quote (c))) + #{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\ 13451}# - #{fluids\ 13452}# - #{vals\ 13453}# - #{body\ 13454}#) - (#{decorate-source\ 11069}# + #{source\ 2968}# + #{fluids\ 2969}# + #{vals\ 2970}# + #{body\ 2971}#) + (#{decorate-source\ 584}# (list 'with-fluids - (map list #{fluids\ 13452}# #{vals\ 13453}#) - #{body\ 13454}#) - #{source\ 13451}#))))) - (#{build-conditional\ 11075}# - (lambda (#{source\ 13465}# - #{test-exp\ 13466}# - #{then-exp\ 13467}# - #{else-exp\ 13468}#) - (let ((#{atom-key\ 13475}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13475}# (quote (c))) + (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\ 13465}# - #{test-exp\ 13466}# - #{then-exp\ 13467}# - #{else-exp\ 13468}#) - (#{decorate-source\ 11069}# - (if (equal? #{else-exp\ 13468}# (quote (if #f #f))) + #{source\ 2982}# + #{test-exp\ 2983}# + #{then-exp\ 2984}# + #{else-exp\ 2985}#) + (#{decorate-source\ 584}# + (if (equal? #{else-exp\ 2985}# (quote (if #f #f))) (list 'if - #{test-exp\ 13466}# - #{then-exp\ 13467}#) + #{test-exp\ 2983}# + #{then-exp\ 2984}#) (list 'if - #{test-exp\ 13466}# - #{then-exp\ 13467}# - #{else-exp\ 13468}#)) - #{source\ 13465}#))))) - (#{build-application\ 11073}# - (lambda (#{source\ 13480}# - #{fun-exp\ 13481}# - #{arg-exps\ 13482}#) - (let ((#{atom-key\ 13488}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13488}# (quote (c))) + #{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\ 13480}# - #{fun-exp\ 13481}# - #{arg-exps\ 13482}#) - (#{decorate-source\ 11069}# - (cons #{fun-exp\ 13481}# #{arg-exps\ 13482}#) - #{source\ 13480}#))))) - (#{build-void\ 11071}# - (lambda (#{source\ 13492}#) - (let ((#{atom-key\ 13496}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13496}# (quote (c))) + #{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\ 13492}#) - (#{decorate-source\ 11069}# + #{source\ 3009}#) + (#{decorate-source\ 584}# '(if #f #f) - #{source\ 13492}#))))) - (#{decorate-source\ 11069}# - (lambda (#{e\ 13499}# #{s\ 13500}#) + #{source\ 3009}#))))) + (#{decorate-source\ 584}# + (lambda (#{e\ 3016}# #{s\ 3017}#) (begin - (if (if (pair? #{e\ 13499}#) #{s\ 13500}# #f) - (set-source-properties! - #{e\ 13499}# - #{s\ 13500}#)) - #{e\ 13499}#))) - (#{get-global-definition-hook\ 11067}# - (lambda (#{symbol\ 13505}# #{module\ 13506}#) + (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}#) (begin - (if (if (not #{module\ 13506}#) (current-module) #f) + (if (if (not #{module\ 3023}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 13505}#)) - (let ((#{v\ 13512}# + #{symbol\ 3022}#)) + (let ((#{v\ 3029}# (module-variable - (if #{module\ 13506}# - (resolve-module (cdr #{module\ 13506}#)) + (if #{module\ 3023}# + (resolve-module (cdr #{module\ 3023}#)) (current-module)) - #{symbol\ 13505}#))) - (if #{v\ 13512}# - (if (variable-bound? #{v\ 13512}#) - (let ((#{val\ 13517}# (variable-ref #{v\ 13512}#))) - (if (macro? #{val\ 13517}#) - (if (macro-type #{val\ 13517}#) - (cons (macro-type #{val\ 13517}#) - (macro-binding #{val\ 13517}#)) + #{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}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 11065}# - (lambda (#{symbol\ 13521}# - #{type\ 13522}# - #{val\ 13523}#) + (#{put-global-definition-hook\ 580}# + (lambda (#{symbol\ 3038}# #{type\ 3039}# #{val\ 3040}#) (module-define! (current-module) - #{symbol\ 13521}# + #{symbol\ 3038}# (make-syntax-transformer - #{symbol\ 13521}# - #{type\ 13522}# - #{val\ 13523}#)))) - (#{local-eval-hook\ 11062}# - (lambda (#{x\ 13527}# #{mod\ 13528}#) + #{symbol\ 3038}# + #{type\ 3039}# + #{val\ 3040}#)))) + (#{local-eval-hook\ 577}# + (lambda (#{x\ 3044}# #{mod\ 3045}#) (primitive-eval (memoize-expression - (let ((#{atom-key\ 13533}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13533}# (quote (c))) + (let ((#{atom-key\ 3050}# (fluid-ref #{*mode*\ 565}#))) + (if (memv #{atom-key\ 3050}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 13527}#) - #{x\ 13527}#)))))) - (#{top-level-eval-hook\ 11060}# - (lambda (#{x\ 13536}# #{mod\ 13537}#) + #{x\ 3044}#) + #{x\ 3044}#)))))) + (#{top-level-eval-hook\ 575}# + (lambda (#{x\ 3053}# #{mod\ 3054}#) (primitive-eval (memoize-expression - (let ((#{atom-key\ 13542}# - (fluid-ref #{*mode*\ 11050}#))) - (if (memv #{atom-key\ 13542}# (quote (c))) + (let ((#{atom-key\ 3059}# (fluid-ref #{*mode*\ 565}#))) + (if (memv #{atom-key\ 3059}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 13536}#) - #{x\ 13536}#)))))) - (#{fx<\ 11058}# <) - (#{fx=\ 11056}# =) - (#{fx-\ 11054}# -) - (#{fx+\ 11052}# +) - (#{*mode*\ 11050}# (make-fluid))) + #{x\ 3053}#) + #{x\ 3053}#)))))) + (#{fx<\ 573}# <) + (#{fx=\ 571}# =) + (#{fx-\ 569}# -) + (#{fx+\ 567}# +) + (#{*mode*\ 565}# (make-fluid))) (begin - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'core 'fluid-let-syntax - (lambda (#{e\ 13545}# - #{r\ 13546}# - #{w\ 13547}# - #{s\ 13548}# - #{mod\ 13549}#) - ((lambda (#{tmp\ 13555}#) - ((lambda (#{tmp\ 13556}#) - (if (if #{tmp\ 13556}# - (apply (lambda (#{_\ 13562}# - #{var\ 13563}# - #{val\ 13564}# - #{e1\ 13565}# - #{e2\ 13566}#) - (#{valid-bound-ids?\ 11214}# #{var\ 13563}#)) - #{tmp\ 13556}#) + (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}#) #f) - (apply (lambda (#{_\ 13573}# - #{var\ 13574}# - #{val\ 13575}# - #{e1\ 13576}# - #{e2\ 13577}#) - (let ((#{names\ 13579}# - (map (lambda (#{x\ 13580}#) - (#{id-var-name\ 11208}# - #{x\ 13580}# - #{w\ 13547}#)) - #{var\ 13574}#))) + (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}#))) (begin (for-each - (lambda (#{id\ 13583}# #{n\ 13584}#) - (let ((#{atom-key\ 13589}# - (#{binding-type\ 11134}# - (#{lookup\ 11145}# - #{n\ 13584}# - #{r\ 13546}# - #{mod\ 13549}#)))) - (if (memv #{atom-key\ 13589}# + (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}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 13545}# - (#{source-wrap\ 11222}# - #{id\ 13583}# - #{w\ 13547}# - #{s\ 13548}# - #{mod\ 13549}#))))) - #{var\ 13574}# - #{names\ 13579}#) - (#{chi-body\ 11244}# - (cons #{e1\ 13576}# #{e2\ 13577}#) - (#{source-wrap\ 11222}# - #{e\ 13545}# - #{w\ 13547}# - #{s\ 13548}# - #{mod\ 13549}#) - (#{extend-env\ 11139}# - #{names\ 13579}# - (let ((#{trans-r\ 13594}# - (#{macros-only-env\ 11143}# - #{r\ 13546}#))) - (map (lambda (#{x\ 13595}#) + #{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}#) (cons 'macro - (#{eval-local-transformer\ 11248}# - (#{chi\ 11236}# - #{x\ 13595}# - #{trans-r\ 13594}# - #{w\ 13547}# - #{mod\ 13549}#) - #{mod\ 13549}#))) - #{val\ 13575}#)) - #{r\ 13546}#) - #{w\ 13547}# - #{mod\ 13549}#)))) - #{tmp\ 13556}#) - ((lambda (#{_\ 13600}#) + (#{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}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 11222}# - #{e\ 13545}# - #{w\ 13547}# - #{s\ 13548}# - #{mod\ 13549}#))) - #{tmp\ 13555}#))) + (#{source-wrap\ 737}# + #{e\ 3062}# + #{w\ 3064}# + #{s\ 3065}# + #{mod\ 3066}#))) + #{tmp\ 3072}#))) ($sc-dispatch - #{tmp\ 13555}# + #{tmp\ 3072}# '(any #(each (any any)) any . each-any)))) - #{e\ 13545}#))) - (#{global-extend\ 11147}# + #{e\ 3062}#))) + (#{global-extend\ 662}# 'core 'quote - (lambda (#{e\ 13601}# - #{r\ 13602}# - #{w\ 13603}# - #{s\ 13604}# - #{mod\ 13605}#) - ((lambda (#{tmp\ 13611}#) - ((lambda (#{tmp\ 13612}#) - (if #{tmp\ 13612}# - (apply (lambda (#{_\ 13615}# #{e\ 13616}#) - (#{build-data\ 11101}# - #{s\ 13604}# - (#{strip\ 11262}# #{e\ 13616}# #{w\ 13603}#))) - #{tmp\ 13612}#) - ((lambda (#{_\ 13618}#) + (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}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 11222}# - #{e\ 13601}# - #{w\ 13603}# - #{s\ 13604}# - #{mod\ 13605}#))) - #{tmp\ 13611}#))) - ($sc-dispatch #{tmp\ 13611}# (quote (any any))))) - #{e\ 13601}#))) - (#{global-extend\ 11147}# + (#{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}# 'core 'syntax - (letrec ((#{regen\ 13634}# - (lambda (#{x\ 13635}#) - (let ((#{atom-key\ 13639}# (car #{x\ 13635}#))) - (if (memv #{atom-key\ 13639}# (quote (ref))) - (#{build-lexical-reference\ 11079}# + (letrec ((#{regen\ 3151}# + (lambda (#{x\ 3152}#) + (let ((#{atom-key\ 3156}# (car #{x\ 3152}#))) + (if (memv #{atom-key\ 3156}# (quote (ref))) + (#{build-lexical-reference\ 594}# 'value #f - (cadr #{x\ 13635}#) - (cadr #{x\ 13635}#)) - (if (memv #{atom-key\ 13639}# (quote (primitive))) - (#{build-primref\ 11099}# #f (cadr #{x\ 13635}#)) - (if (memv #{atom-key\ 13639}# (quote (quote))) - (#{build-data\ 11101}# #f (cadr #{x\ 13635}#)) - (if (memv #{atom-key\ 13639}# (quote (lambda))) - (if (list? (cadr #{x\ 13635}#)) - (#{build-simple-lambda\ 11093}# + (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}# #f - (cadr #{x\ 13635}#) + (cadr #{x\ 3152}#) #f - (cadr #{x\ 13635}#) + (cadr #{x\ 3152}#) '() - (#{regen\ 13634}# (caddr #{x\ 13635}#))) - (error "how did we get here" #{x\ 13635}#)) - (#{build-application\ 11073}# + (#{regen\ 3151}# (caddr #{x\ 3152}#))) + (error "how did we get here" #{x\ 3152}#)) + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# - #f - (car #{x\ 13635}#)) - (map #{regen\ 13634}# - (cdr #{x\ 13635}#)))))))))) - (#{gen-vector\ 13632}# - (lambda (#{x\ 13651}#) - (if (eq? (car #{x\ 13651}#) (quote list)) - (cons (quote vector) (cdr #{x\ 13651}#)) - (if (eq? (car #{x\ 13651}#) (quote quote)) + (#{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)) (list 'quote - (list->vector (cadr #{x\ 13651}#))) - (list (quote list->vector) #{x\ 13651}#))))) - (#{gen-append\ 13630}# - (lambda (#{x\ 13661}# #{y\ 13662}#) - (if (equal? #{y\ 13662}# (quote (quote ()))) - #{x\ 13661}# - (list (quote append) #{x\ 13661}# #{y\ 13662}#)))) - (#{gen-cons\ 13628}# - (lambda (#{x\ 13666}# #{y\ 13667}#) - (let ((#{atom-key\ 13672}# (car #{y\ 13667}#))) - (if (memv #{atom-key\ 13672}# (quote (quote))) - (if (eq? (car #{x\ 13666}#) (quote 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 'quote - (cons (cadr #{x\ 13666}#) - (cadr #{y\ 13667}#))) - (if (eq? (cadr #{y\ 13667}#) (quote ())) - (list (quote list) #{x\ 13666}#) - (list (quote cons) #{x\ 13666}# #{y\ 13667}#))) - (if (memv #{atom-key\ 13672}# (quote (list))) + (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 'list - (cons #{x\ 13666}# (cdr #{y\ 13667}#))) - (list (quote cons) #{x\ 13666}# #{y\ 13667}#)))))) - (#{gen-map\ 13626}# - (lambda (#{e\ 13681}# #{map-env\ 13682}#) - (let ((#{formals\ 13687}# (map cdr #{map-env\ 13682}#)) - (#{actuals\ 13688}# - (map (lambda (#{x\ 13689}#) - (list (quote ref) (car #{x\ 13689}#))) - #{map-env\ 13682}#))) - (if (eq? (car #{e\ 13681}#) (quote ref)) - (car #{actuals\ 13688}#) + (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}#) (if (and-map - (lambda (#{x\ 13696}#) - (if (eq? (car #{x\ 13696}#) (quote ref)) - (memq (cadr #{x\ 13696}#) - #{formals\ 13687}#) + (lambda (#{x\ 3213}#) + (if (eq? (car #{x\ 3213}#) (quote ref)) + (memq (cadr #{x\ 3213}#) #{formals\ 3204}#) #f)) - (cdr #{e\ 13681}#)) + (cdr #{e\ 3198}#)) (cons 'map (cons (list 'primitive - (car #{e\ 13681}#)) - (map (let ((#{r\ 13702}# + (car #{e\ 3198}#)) + (map (let ((#{r\ 3219}# (map cons - #{formals\ 13687}# - #{actuals\ 13688}#))) - (lambda (#{x\ 13703}#) - (cdr (assq (cadr #{x\ 13703}#) - #{r\ 13702}#)))) - (cdr #{e\ 13681}#)))) + #{formals\ 3204}# + #{actuals\ 3205}#))) + (lambda (#{x\ 3220}#) + (cdr (assq (cadr #{x\ 3220}#) + #{r\ 3219}#)))) + (cdr #{e\ 3198}#)))) (cons 'map (cons (list 'lambda - #{formals\ 13687}# - #{e\ 13681}#) - #{actuals\ 13688}#))))))) - (#{gen-mappend\ 13624}# - (lambda (#{e\ 13707}# #{map-env\ 13708}#) + #{formals\ 3204}# + #{e\ 3198}#) + #{actuals\ 3205}#))))))) + (#{gen-mappend\ 3141}# + (lambda (#{e\ 3224}# #{map-env\ 3225}#) (list 'apply '(primitive append) - (#{gen-map\ 13626}# - #{e\ 13707}# - #{map-env\ 13708}#)))) - (#{gen-ref\ 13622}# - (lambda (#{src\ 13712}# - #{var\ 13713}# - #{level\ 13714}# - #{maps\ 13715}#) - (if (#{fx=\ 11056}# #{level\ 13714}# 0) - (values #{var\ 13713}# #{maps\ 13715}#) - (if (null? #{maps\ 13715}#) + (#{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}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 13712}#) + #{src\ 3229}#) (call-with-values (lambda () - (#{gen-ref\ 13622}# - #{src\ 13712}# - #{var\ 13713}# - (#{fx-\ 11054}# #{level\ 13714}# 1) - (cdr #{maps\ 13715}#))) - (lambda (#{outer-var\ 13720}# #{outer-maps\ 13721}#) - (let ((#{b\ 13725}# - (assq #{outer-var\ 13720}# - (car #{maps\ 13715}#)))) - (if #{b\ 13725}# - (values (cdr #{b\ 13725}#) #{maps\ 13715}#) - (let ((#{inner-var\ 13727}# - (#{gen-var\ 11264}# (quote tmp)))) + (#{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)))) (values - #{inner-var\ 13727}# - (cons (cons (cons #{outer-var\ 13720}# - #{inner-var\ 13727}#) - (car #{maps\ 13715}#)) - #{outer-maps\ 13721}#))))))))))) - (#{gen-syntax\ 13620}# - (lambda (#{src\ 13728}# - #{e\ 13729}# - #{r\ 13730}# - #{maps\ 13731}# - #{ellipsis?\ 13732}# - #{mod\ 13733}#) - (if (#{id?\ 11151}# #{e\ 13729}#) - (let ((#{label\ 13741}# - (#{id-var-name\ 11208}# - #{e\ 13729}# + #{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}# '(())))) - (let ((#{b\ 13744}# - (#{lookup\ 11145}# - #{label\ 13741}# - #{r\ 13730}# - #{mod\ 13733}#))) - (if (eq? (#{binding-type\ 11134}# #{b\ 13744}#) + (let ((#{b\ 3261}# + (#{lookup\ 660}# + #{label\ 3258}# + #{r\ 3247}# + #{mod\ 3250}#))) + (if (eq? (#{binding-type\ 649}# #{b\ 3261}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 13746}# - (#{binding-value\ 11136}# - #{b\ 13744}#))) - (#{gen-ref\ 13622}# - #{src\ 13728}# - (car #{var.lev\ 13746}#) - (cdr #{var.lev\ 13746}#) - #{maps\ 13731}#))) - (lambda (#{var\ 13747}# #{maps\ 13748}#) + (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}#) (values - (list (quote ref) #{var\ 13747}#) - #{maps\ 13748}#))) - (if (#{ellipsis?\ 13732}# #{e\ 13729}#) + (list (quote ref) #{var\ 3264}#) + #{maps\ 3265}#))) + (if (#{ellipsis?\ 3249}# #{e\ 3246}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 13728}#) + #{src\ 3245}#) (values - (list (quote quote) #{e\ 13729}#) - #{maps\ 13731}#))))) - ((lambda (#{tmp\ 13753}#) - ((lambda (#{tmp\ 13754}#) - (if (if #{tmp\ 13754}# - (apply (lambda (#{dots\ 13757}# - #{e\ 13758}#) - (#{ellipsis?\ 13732}# - #{dots\ 13757}#)) - #{tmp\ 13754}#) + (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}#) #f) - (apply (lambda (#{dots\ 13761}# #{e\ 13762}#) - (#{gen-syntax\ 13620}# - #{src\ 13728}# - #{e\ 13762}# - #{r\ 13730}# - #{maps\ 13731}# - (lambda (#{x\ 13763}#) #f) - #{mod\ 13733}#)) - #{tmp\ 13754}#) - ((lambda (#{tmp\ 13765}#) - (if (if #{tmp\ 13765}# - (apply (lambda (#{x\ 13769}# - #{dots\ 13770}# - #{y\ 13771}#) - (#{ellipsis?\ 13732}# - #{dots\ 13770}#)) - #{tmp\ 13765}#) + (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}#) #f) - (apply (lambda (#{x\ 13775}# - #{dots\ 13776}# - #{y\ 13777}#) - (letrec ((#{f\ 13781}# - (lambda (#{y\ 13782}# - #{k\ 13783}#) - ((lambda (#{tmp\ 13790}#) - ((lambda (#{tmp\ 13791}#) - (if (if #{tmp\ 13791}# - (apply (lambda (#{dots\ 13794}# - #{y\ 13795}#) - (#{ellipsis?\ 13732}# - #{dots\ 13794}#)) - #{tmp\ 13791}#) + (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}#) #f) - (apply (lambda (#{dots\ 13798}# - #{y\ 13799}#) - (#{f\ 13781}# - #{y\ 13799}# - (lambda (#{maps\ 13800}#) + (apply (lambda (#{dots\ 3315}# + #{y\ 3316}#) + (#{f\ 3298}# + #{y\ 3316}# + (lambda (#{maps\ 3317}#) (call-with-values (lambda () - (#{k\ 13783}# + (#{k\ 3300}# (cons '() - #{maps\ 13800}#))) - (lambda (#{x\ 13802}# - #{maps\ 13803}#) - (if (null? (car #{maps\ 13803}#)) + #{maps\ 3317}#))) + (lambda (#{x\ 3319}# + #{maps\ 3320}#) + (if (null? (car #{maps\ 3320}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 13728}#) + #{src\ 3245}#) (values - (#{gen-mappend\ 13624}# - #{x\ 13802}# - (car #{maps\ 13803}#)) - (cdr #{maps\ 13803}#)))))))) - #{tmp\ 13791}#) - ((lambda (#{_\ 13807}#) + (#{gen-mappend\ 3141}# + #{x\ 3319}# + (car #{maps\ 3320}#)) + (cdr #{maps\ 3320}#)))))))) + #{tmp\ 3308}#) + ((lambda (#{_\ 3324}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{src\ 13728}# - #{y\ 13782}# - #{r\ 13730}# - #{maps\ 13731}# - #{ellipsis?\ 13732}# - #{mod\ 13733}#)) - (lambda (#{y\ 13808}# - #{maps\ 13809}#) + (#{gen-syntax\ 3137}# + #{src\ 3245}# + #{y\ 3299}# + #{r\ 3247}# + #{maps\ 3248}# + #{ellipsis?\ 3249}# + #{mod\ 3250}#)) + (lambda (#{y\ 3325}# + #{maps\ 3326}#) (call-with-values (lambda () - (#{k\ 13783}# - #{maps\ 13809}#)) - (lambda (#{x\ 13812}# - #{maps\ 13813}#) + (#{k\ 3300}# + #{maps\ 3326}#)) + (lambda (#{x\ 3329}# + #{maps\ 3330}#) (values - (#{gen-append\ 13630}# - #{x\ 13812}# - #{y\ 13808}#) - #{maps\ 13813}#)))))) - #{tmp\ 13790}#))) + (#{gen-append\ 3147}# + #{x\ 3329}# + #{y\ 3325}#) + #{maps\ 3330}#)))))) + #{tmp\ 3307}#))) ($sc-dispatch - #{tmp\ 13790}# + #{tmp\ 3307}# '(any . any)))) - #{y\ 13782}#)))) - (#{f\ 13781}# - #{y\ 13777}# - (lambda (#{maps\ 13784}#) + #{y\ 3299}#)))) + (#{f\ 3298}# + #{y\ 3294}# + (lambda (#{maps\ 3301}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{src\ 13728}# - #{x\ 13775}# - #{r\ 13730}# + (#{gen-syntax\ 3137}# + #{src\ 3245}# + #{x\ 3292}# + #{r\ 3247}# (cons '() - #{maps\ 13784}#) - #{ellipsis?\ 13732}# - #{mod\ 13733}#)) - (lambda (#{x\ 13786}# - #{maps\ 13787}#) - (if (null? (car #{maps\ 13787}#)) + #{maps\ 3301}#) + #{ellipsis?\ 3249}# + #{mod\ 3250}#)) + (lambda (#{x\ 3303}# + #{maps\ 3304}#) + (if (null? (car #{maps\ 3304}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 13728}#) + #{src\ 3245}#) (values - (#{gen-map\ 13626}# - #{x\ 13786}# - (car #{maps\ 13787}#)) - (cdr #{maps\ 13787}#))))))))) - #{tmp\ 13765}#) - ((lambda (#{tmp\ 13816}#) - (if #{tmp\ 13816}# - (apply (lambda (#{x\ 13819}# - #{y\ 13820}#) + (#{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}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{src\ 13728}# - #{x\ 13819}# - #{r\ 13730}# - #{maps\ 13731}# - #{ellipsis?\ 13732}# - #{mod\ 13733}#)) - (lambda (#{x\ 13821}# - #{maps\ 13822}#) + (#{gen-syntax\ 3137}# + #{src\ 3245}# + #{x\ 3336}# + #{r\ 3247}# + #{maps\ 3248}# + #{ellipsis?\ 3249}# + #{mod\ 3250}#)) + (lambda (#{x\ 3338}# + #{maps\ 3339}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{src\ 13728}# - #{y\ 13820}# - #{r\ 13730}# - #{maps\ 13822}# - #{ellipsis?\ 13732}# - #{mod\ 13733}#)) - (lambda (#{y\ 13825}# - #{maps\ 13826}#) + (#{gen-syntax\ 3137}# + #{src\ 3245}# + #{y\ 3337}# + #{r\ 3247}# + #{maps\ 3339}# + #{ellipsis?\ 3249}# + #{mod\ 3250}#)) + (lambda (#{y\ 3342}# + #{maps\ 3343}#) (values - (#{gen-cons\ 13628}# - #{x\ 13821}# - #{y\ 13825}#) - #{maps\ 13826}#)))))) - #{tmp\ 13816}#) - ((lambda (#{tmp\ 13829}#) - (if #{tmp\ 13829}# - (apply (lambda (#{e1\ 13832}# - #{e2\ 13833}#) + (#{gen-cons\ 3145}# + #{x\ 3338}# + #{y\ 3342}#) + #{maps\ 3343}#)))))) + #{tmp\ 3333}#) + ((lambda (#{tmp\ 3346}#) + (if #{tmp\ 3346}# + (apply (lambda (#{e1\ 3349}# + #{e2\ 3350}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{src\ 13728}# - (cons #{e1\ 13832}# - #{e2\ 13833}#) - #{r\ 13730}# - #{maps\ 13731}# - #{ellipsis?\ 13732}# - #{mod\ 13733}#)) - (lambda (#{e\ 13835}# - #{maps\ 13836}#) + (#{gen-syntax\ 3137}# + #{src\ 3245}# + (cons #{e1\ 3349}# + #{e2\ 3350}#) + #{r\ 3247}# + #{maps\ 3248}# + #{ellipsis?\ 3249}# + #{mod\ 3250}#)) + (lambda (#{e\ 3352}# + #{maps\ 3353}#) (values - (#{gen-vector\ 13632}# - #{e\ 13835}#) - #{maps\ 13836}#)))) - #{tmp\ 13829}#) - ((lambda (#{_\ 13840}#) + (#{gen-vector\ 3149}# + #{e\ 3352}#) + #{maps\ 3353}#)))) + #{tmp\ 3346}#) + ((lambda (#{_\ 3357}#) (values (list 'quote - #{e\ 13729}#) - #{maps\ 13731}#)) - #{tmp\ 13753}#))) + #{e\ 3246}#) + #{maps\ 3248}#)) + #{tmp\ 3270}#))) ($sc-dispatch - #{tmp\ 13753}# + #{tmp\ 3270}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 13753}# + #{tmp\ 3270}# '(any . any))))) ($sc-dispatch - #{tmp\ 13753}# + #{tmp\ 3270}# '(any any . any))))) - ($sc-dispatch #{tmp\ 13753}# (quote (any any))))) - #{e\ 13729}#))))) - (lambda (#{e\ 13842}# - #{r\ 13843}# - #{w\ 13844}# - #{s\ 13845}# - #{mod\ 13846}#) - (let ((#{e\ 13853}# - (#{source-wrap\ 11222}# - #{e\ 13842}# - #{w\ 13844}# - #{s\ 13845}# - #{mod\ 13846}#))) - ((lambda (#{tmp\ 13854}#) - ((lambda (#{tmp\ 13855}#) - (if #{tmp\ 13855}# - (apply (lambda (#{_\ 13858}# #{x\ 13859}#) + ($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}#) (call-with-values (lambda () - (#{gen-syntax\ 13620}# - #{e\ 13853}# - #{x\ 13859}# - #{r\ 13843}# + (#{gen-syntax\ 3137}# + #{e\ 3370}# + #{x\ 3376}# + #{r\ 3360}# '() - #{ellipsis?\ 11252}# - #{mod\ 13846}#)) - (lambda (#{e\ 13860}# #{maps\ 13861}#) - (#{regen\ 13634}# #{e\ 13860}#)))) - #{tmp\ 13855}#) - ((lambda (#{_\ 13865}#) + #{ellipsis?\ 767}# + #{mod\ 3363}#)) + (lambda (#{e\ 3377}# #{maps\ 3378}#) + (#{regen\ 3151}# #{e\ 3377}#)))) + #{tmp\ 3372}#) + ((lambda (#{_\ 3382}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 13853}#)) - #{tmp\ 13854}#))) - ($sc-dispatch #{tmp\ 13854}# (quote (any any))))) - #{e\ 13853}#))))) - (#{global-extend\ 11147}# + #{e\ 3370}#)) + #{tmp\ 3371}#))) + ($sc-dispatch #{tmp\ 3371}# (quote (any any))))) + #{e\ 3370}#))))) + (#{global-extend\ 662}# 'core 'lambda - (lambda (#{e\ 13866}# - #{r\ 13867}# - #{w\ 13868}# - #{s\ 13869}# - #{mod\ 13870}#) - ((lambda (#{tmp\ 13876}#) - ((lambda (#{tmp\ 13877}#) - (if #{tmp\ 13877}# - (apply (lambda (#{_\ 13882}# - #{args\ 13883}# - #{e1\ 13884}# - #{e2\ 13885}#) + (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}#) (call-with-values (lambda () - (#{lambda-formals\ 11254}# #{args\ 13883}#)) - (lambda (#{req\ 13886}# - #{opt\ 13887}# - #{rest\ 13888}# - #{kw\ 13889}#) - (letrec ((#{lp\ 13897}# - (lambda (#{body\ 13898}# - #{meta\ 13899}#) - ((lambda (#{tmp\ 13901}#) - ((lambda (#{tmp\ 13902}#) - (if (if #{tmp\ 13902}# - (apply (lambda (#{docstring\ 13906}# - #{e1\ 13907}# - #{e2\ 13908}#) + (#{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}#) (string? (syntax->datum - #{docstring\ 13906}#))) - #{tmp\ 13902}#) + #{docstring\ 3423}#))) + #{tmp\ 3419}#) #f) - (apply (lambda (#{docstring\ 13912}# - #{e1\ 13913}# - #{e2\ 13914}#) - (#{lp\ 13897}# - (cons #{e1\ 13913}# - #{e2\ 13914}#) + (apply (lambda (#{docstring\ 3429}# + #{e1\ 3430}# + #{e2\ 3431}#) + (#{lp\ 3414}# + (cons #{e1\ 3430}# + #{e2\ 3431}#) (append - #{meta\ 13899}# + #{meta\ 3416}# (list (cons 'documentation (syntax->datum - #{docstring\ 13912}#)))))) - #{tmp\ 13902}#) - ((lambda (#{tmp\ 13917}#) - (if #{tmp\ 13917}# - (apply (lambda (#{k\ 13922}# - #{v\ 13923}# - #{e1\ 13924}# - #{e2\ 13925}#) - (#{lp\ 13897}# - (cons #{e1\ 13924}# - #{e2\ 13925}#) + #{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}#) (append - #{meta\ 13899}# + #{meta\ 3416}# (syntax->datum (map cons - #{k\ 13922}# - #{v\ 13923}#))))) - #{tmp\ 13917}#) - ((lambda (#{_\ 13930}#) - (#{chi-simple-lambda\ 11256}# - #{e\ 13866}# - #{r\ 13867}# - #{w\ 13868}# - #{s\ 13869}# - #{mod\ 13870}# - #{req\ 13886}# - #{rest\ 13888}# - #{meta\ 13899}# - #{body\ 13898}#)) - #{tmp\ 13901}#))) + #{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}#))) ($sc-dispatch - #{tmp\ 13901}# + #{tmp\ 3418}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 13901}# + #{tmp\ 3418}# '(any any . each-any)))) - #{body\ 13898}#)))) - (#{lp\ 13897}# - (cons #{e1\ 13884}# #{e2\ 13885}#) + #{body\ 3415}#)))) + (#{lp\ 3414}# + (cons #{e1\ 3401}# #{e2\ 3402}#) '()))))) - #{tmp\ 13877}#) - ((lambda (#{_\ 13932}#) + #{tmp\ 3394}#) + ((lambda (#{_\ 3449}#) (syntax-violation 'lambda "bad lambda" - #{e\ 13866}#)) - #{tmp\ 13876}#))) + #{e\ 3383}#)) + #{tmp\ 3393}#))) ($sc-dispatch - #{tmp\ 13876}# + #{tmp\ 3393}# '(any any any . each-any)))) - #{e\ 13866}#))) - (#{global-extend\ 11147}# + #{e\ 3383}#))) + (#{global-extend\ 662}# 'core 'lambda* - (lambda (#{e\ 13933}# - #{r\ 13934}# - #{w\ 13935}# - #{s\ 13936}# - #{mod\ 13937}#) - ((lambda (#{tmp\ 13943}#) - ((lambda (#{tmp\ 13944}#) - (if #{tmp\ 13944}# - (apply (lambda (#{_\ 13949}# - #{args\ 13950}# - #{e1\ 13951}# - #{e2\ 13952}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 11260}# - #{e\ 13933}# - #{r\ 13934}# - #{w\ 13935}# - #{s\ 13936}# - #{mod\ 13937}# - #{lambda*-formals\ 11258}# - (list (cons #{args\ 13950}# - (cons #{e1\ 13951}# - #{e2\ 13952}#))))) - (lambda (#{meta\ 13954}# #{lcase\ 13955}#) - (#{build-case-lambda\ 11095}# - #{s\ 13936}# - #{meta\ 13954}# - #{lcase\ 13955}#)))) - #{tmp\ 13944}#) - ((lambda (#{_\ 13959}#) + (#{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}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 13933}#)) - #{tmp\ 13943}#))) + #{e\ 3450}#)) + #{tmp\ 3460}#))) ($sc-dispatch - #{tmp\ 13943}# + #{tmp\ 3460}# '(any any any . each-any)))) - #{e\ 13933}#))) - (#{global-extend\ 11147}# + #{e\ 3450}#))) + (#{global-extend\ 662}# 'core 'case-lambda - (lambda (#{e\ 13960}# - #{r\ 13961}# - #{w\ 13962}# - #{s\ 13963}# - #{mod\ 13964}#) - ((lambda (#{tmp\ 13970}#) - ((lambda (#{tmp\ 13971}#) - (if #{tmp\ 13971}# - (apply (lambda (#{_\ 13979}# - #{args\ 13980}# - #{e1\ 13981}# - #{e2\ 13982}# - #{args*\ 13983}# - #{e1*\ 13984}# - #{e2*\ 13985}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 11260}# - #{e\ 13960}# - #{r\ 13961}# - #{w\ 13962}# - #{s\ 13963}# - #{mod\ 13964}# - #{lambda-formals\ 11254}# - (cons (cons #{args\ 13980}# - (cons #{e1\ 13981}# - #{e2\ 13982}#)) - (map (lambda (#{tmp\ 13989}# - #{tmp\ 13988}# - #{tmp\ 13987}#) - (cons #{tmp\ 13987}# - (cons #{tmp\ 13988}# - #{tmp\ 13989}#))) - #{e2*\ 13985}# - #{e1*\ 13984}# - #{args*\ 13983}#)))) - (lambda (#{meta\ 13991}# #{lcase\ 13992}#) - (#{build-case-lambda\ 11095}# - #{s\ 13963}# - #{meta\ 13991}# - #{lcase\ 13992}#)))) - #{tmp\ 13971}#) - ((lambda (#{_\ 13996}#) + (#{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}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 13960}#)) - #{tmp\ 13970}#))) + #{e\ 3477}#)) + #{tmp\ 3487}#))) ($sc-dispatch - #{tmp\ 13970}# + #{tmp\ 3487}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 13960}#))) - (#{global-extend\ 11147}# + #{e\ 3477}#))) + (#{global-extend\ 662}# 'core 'case-lambda* - (lambda (#{e\ 13997}# - #{r\ 13998}# - #{w\ 13999}# - #{s\ 14000}# - #{mod\ 14001}#) - ((lambda (#{tmp\ 14007}#) - ((lambda (#{tmp\ 14008}#) - (if #{tmp\ 14008}# - (apply (lambda (#{_\ 14016}# - #{args\ 14017}# - #{e1\ 14018}# - #{e2\ 14019}# - #{args*\ 14020}# - #{e1*\ 14021}# - #{e2*\ 14022}#) + (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}#) (call-with-values (lambda () - (#{chi-lambda-case\ 11260}# - #{e\ 13997}# - #{r\ 13998}# - #{w\ 13999}# - #{s\ 14000}# - #{mod\ 14001}# - #{lambda*-formals\ 11258}# - (cons (cons #{args\ 14017}# - (cons #{e1\ 14018}# - #{e2\ 14019}#)) - (map (lambda (#{tmp\ 14026}# - #{tmp\ 14025}# - #{tmp\ 14024}#) - (cons #{tmp\ 14024}# - (cons #{tmp\ 14025}# - #{tmp\ 14026}#))) - #{e2*\ 14022}# - #{e1*\ 14021}# - #{args*\ 14020}#)))) - (lambda (#{meta\ 14028}# #{lcase\ 14029}#) - (#{build-case-lambda\ 11095}# - #{s\ 14000}# - #{meta\ 14028}# - #{lcase\ 14029}#)))) - #{tmp\ 14008}#) - ((lambda (#{_\ 14033}#) + (#{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}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 13997}#)) - #{tmp\ 14007}#))) + #{e\ 3514}#)) + #{tmp\ 3524}#))) ($sc-dispatch - #{tmp\ 14007}# + #{tmp\ 3524}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 13997}#))) - (#{global-extend\ 11147}# + #{e\ 3514}#))) + (#{global-extend\ 662}# 'core 'let - (letrec ((#{chi-let\ 14035}# - (lambda (#{e\ 14036}# - #{r\ 14037}# - #{w\ 14038}# - #{s\ 14039}# - #{mod\ 14040}# - #{constructor\ 14041}# - #{ids\ 14042}# - #{vals\ 14043}# - #{exps\ 14044}#) - (if (not (#{valid-bound-ids?\ 11214}# #{ids\ 14042}#)) + (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}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 14036}#) - (let ((#{labels\ 14056}# - (#{gen-labels\ 11169}# #{ids\ 14042}#)) - (#{new-vars\ 14057}# - (map #{gen-var\ 11264}# #{ids\ 14042}#))) - (let ((#{nw\ 14060}# - (#{make-binding-wrap\ 11198}# - #{ids\ 14042}# - #{labels\ 14056}# - #{w\ 14038}#)) - (#{nr\ 14061}# - (#{extend-var-env\ 11141}# - #{labels\ 14056}# - #{new-vars\ 14057}# - #{r\ 14037}#))) - (#{constructor\ 14041}# - #{s\ 14039}# - (map syntax->datum #{ids\ 14042}#) - #{new-vars\ 14057}# - (map (lambda (#{x\ 14062}#) - (#{chi\ 11236}# - #{x\ 14062}# - #{r\ 14037}# - #{w\ 14038}# - #{mod\ 14040}#)) - #{vals\ 14043}#) - (#{chi-body\ 11244}# - #{exps\ 14044}# - (#{source-wrap\ 11222}# - #{e\ 14036}# - #{nw\ 14060}# - #{s\ 14039}# - #{mod\ 14040}#) - #{nr\ 14061}# - #{nw\ 14060}# - #{mod\ 14040}#)))))))) - (lambda (#{e\ 14064}# - #{r\ 14065}# - #{w\ 14066}# - #{s\ 14067}# - #{mod\ 14068}#) - ((lambda (#{tmp\ 14074}#) - ((lambda (#{tmp\ 14075}#) - (if (if #{tmp\ 14075}# - (apply (lambda (#{_\ 14081}# - #{id\ 14082}# - #{val\ 14083}# - #{e1\ 14084}# - #{e2\ 14085}#) - (and-map #{id?\ 11151}# #{id\ 14082}#)) - #{tmp\ 14075}#) + #{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}#) #f) - (apply (lambda (#{_\ 14092}# - #{id\ 14093}# - #{val\ 14094}# - #{e1\ 14095}# - #{e2\ 14096}#) - (#{chi-let\ 14035}# - #{e\ 14064}# - #{r\ 14065}# - #{w\ 14066}# - #{s\ 14067}# - #{mod\ 14068}# - #{build-let\ 11105}# - #{id\ 14093}# - #{val\ 14094}# - (cons #{e1\ 14095}# #{e2\ 14096}#))) - #{tmp\ 14075}#) - ((lambda (#{tmp\ 14100}#) - (if (if #{tmp\ 14100}# - (apply (lambda (#{_\ 14107}# - #{f\ 14108}# - #{id\ 14109}# - #{val\ 14110}# - #{e1\ 14111}# - #{e2\ 14112}#) - (if (#{id?\ 11151}# #{f\ 14108}#) - (and-map #{id?\ 11151}# #{id\ 14109}#) + (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}#) #f)) - #{tmp\ 14100}#) + #{tmp\ 3617}#) #f) - (apply (lambda (#{_\ 14122}# - #{f\ 14123}# - #{id\ 14124}# - #{val\ 14125}# - #{e1\ 14126}# - #{e2\ 14127}#) - (#{chi-let\ 14035}# - #{e\ 14064}# - #{r\ 14065}# - #{w\ 14066}# - #{s\ 14067}# - #{mod\ 14068}# - #{build-named-let\ 11107}# - (cons #{f\ 14123}# #{id\ 14124}#) - #{val\ 14125}# - (cons #{e1\ 14126}# #{e2\ 14127}#))) - #{tmp\ 14100}#) - ((lambda (#{_\ 14132}#) + (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}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 11222}# - #{e\ 14064}# - #{w\ 14066}# - #{s\ 14067}# - #{mod\ 14068}#))) - #{tmp\ 14074}#))) + (#{source-wrap\ 737}# + #{e\ 3581}# + #{w\ 3583}# + #{s\ 3584}# + #{mod\ 3585}#))) + #{tmp\ 3591}#))) ($sc-dispatch - #{tmp\ 14074}# + #{tmp\ 3591}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 14074}# + #{tmp\ 3591}# '(any #(each (any any)) any . each-any)))) - #{e\ 14064}#)))) - (#{global-extend\ 11147}# + #{e\ 3581}#)))) + (#{global-extend\ 662}# 'core 'letrec - (lambda (#{e\ 14133}# - #{r\ 14134}# - #{w\ 14135}# - #{s\ 14136}# - #{mod\ 14137}#) - ((lambda (#{tmp\ 14143}#) - ((lambda (#{tmp\ 14144}#) - (if (if #{tmp\ 14144}# - (apply (lambda (#{_\ 14150}# - #{id\ 14151}# - #{val\ 14152}# - #{e1\ 14153}# - #{e2\ 14154}#) - (and-map #{id?\ 11151}# #{id\ 14151}#)) - #{tmp\ 14144}#) + (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}#) #f) - (apply (lambda (#{_\ 14161}# - #{id\ 14162}# - #{val\ 14163}# - #{e1\ 14164}# - #{e2\ 14165}#) - (let ((#{ids\ 14167}# #{id\ 14162}#)) - (if (not (#{valid-bound-ids?\ 11214}# - #{ids\ 14167}#)) + (apply (lambda (#{_\ 3678}# + #{id\ 3679}# + #{val\ 3680}# + #{e1\ 3681}# + #{e2\ 3682}#) + (let ((#{ids\ 3684}# #{id\ 3679}#)) + (if (not (#{valid-bound-ids?\ 729}# + #{ids\ 3684}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 14133}#) - (let ((#{labels\ 14171}# - (#{gen-labels\ 11169}# #{ids\ 14167}#)) - (#{new-vars\ 14172}# - (map #{gen-var\ 11264}# - #{ids\ 14167}#))) - (let ((#{w\ 14175}# - (#{make-binding-wrap\ 11198}# - #{ids\ 14167}# - #{labels\ 14171}# - #{w\ 14135}#)) - (#{r\ 14176}# - (#{extend-var-env\ 11141}# - #{labels\ 14171}# - #{new-vars\ 14172}# - #{r\ 14134}#))) - (#{build-letrec\ 11109}# - #{s\ 14136}# - (map syntax->datum #{ids\ 14167}#) - #{new-vars\ 14172}# - (map (lambda (#{x\ 14177}#) - (#{chi\ 11236}# - #{x\ 14177}# - #{r\ 14176}# - #{w\ 14175}# - #{mod\ 14137}#)) - #{val\ 14163}#) - (#{chi-body\ 11244}# - (cons #{e1\ 14164}# #{e2\ 14165}#) - (#{source-wrap\ 11222}# - #{e\ 14133}# - #{w\ 14175}# - #{s\ 14136}# - #{mod\ 14137}#) - #{r\ 14176}# - #{w\ 14175}# - #{mod\ 14137}#))))))) - #{tmp\ 14144}#) - ((lambda (#{_\ 14182}#) + #{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}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 11222}# - #{e\ 14133}# - #{w\ 14135}# - #{s\ 14136}# - #{mod\ 14137}#))) - #{tmp\ 14143}#))) + (#{source-wrap\ 737}# + #{e\ 3650}# + #{w\ 3652}# + #{s\ 3653}# + #{mod\ 3654}#))) + #{tmp\ 3660}#))) ($sc-dispatch - #{tmp\ 14143}# + #{tmp\ 3660}# '(any #(each (any any)) any . each-any)))) - #{e\ 14133}#))) - (#{global-extend\ 11147}# + #{e\ 3650}#))) + (#{global-extend\ 662}# 'core 'set! - (lambda (#{e\ 14183}# - #{r\ 14184}# - #{w\ 14185}# - #{s\ 14186}# - #{mod\ 14187}#) - ((lambda (#{tmp\ 14193}#) - ((lambda (#{tmp\ 14194}#) - (if (if #{tmp\ 14194}# - (apply (lambda (#{_\ 14198}# - #{id\ 14199}# - #{val\ 14200}#) - (#{id?\ 11151}# #{id\ 14199}#)) - #{tmp\ 14194}#) + (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}#) #f) - (apply (lambda (#{_\ 14204}# #{id\ 14205}# #{val\ 14206}#) - (let ((#{val\ 14209}# - (#{chi\ 11236}# - #{val\ 14206}# - #{r\ 14184}# - #{w\ 14185}# - #{mod\ 14187}#)) - (#{n\ 14210}# - (#{id-var-name\ 11208}# - #{id\ 14205}# - #{w\ 14185}#))) - (let ((#{b\ 14212}# - (#{lookup\ 11145}# - #{n\ 14210}# - #{r\ 14184}# - #{mod\ 14187}#))) - (let ((#{atom-key\ 14215}# - (#{binding-type\ 11134}# #{b\ 14212}#))) - (if (memv #{atom-key\ 14215}# + (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}# '(lexical)) - (#{build-lexical-assignment\ 11081}# - #{s\ 14186}# - (syntax->datum #{id\ 14205}#) - (#{binding-value\ 11136}# #{b\ 14212}#) - #{val\ 14209}#) - (if (memv #{atom-key\ 14215}# + (#{build-lexical-assignment\ 596}# + #{s\ 3703}# + (syntax->datum #{id\ 3722}#) + (#{binding-value\ 651}# #{b\ 3729}#) + #{val\ 3726}#) + (if (memv #{atom-key\ 3732}# '(global)) - (#{build-global-assignment\ 11087}# - #{s\ 14186}# - #{n\ 14210}# - #{val\ 14209}# - #{mod\ 14187}#) - (if (memv #{atom-key\ 14215}# + (#{build-global-assignment\ 602}# + #{s\ 3703}# + #{n\ 3727}# + #{val\ 3726}# + #{mod\ 3704}#) + (if (memv #{atom-key\ 3732}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 11220}# - #{id\ 14205}# - #{w\ 14185}# - #{mod\ 14187}#)) + (#{wrap\ 735}# + #{id\ 3722}# + #{w\ 3702}# + #{mod\ 3704}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 11222}# - #{e\ 14183}# - #{w\ 14185}# - #{s\ 14186}# - #{mod\ 14187}#))))))))) - #{tmp\ 14194}#) - ((lambda (#{tmp\ 14220}#) - (if #{tmp\ 14220}# - (apply (lambda (#{_\ 14225}# - #{head\ 14226}# - #{tail\ 14227}# - #{val\ 14228}#) + (#{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}#) (call-with-values (lambda () - (#{syntax-type\ 11232}# - #{head\ 14226}# - #{r\ 14184}# + (#{syntax-type\ 747}# + #{head\ 3743}# + #{r\ 3701}# '(()) #f #f - #{mod\ 14187}# + #{mod\ 3704}# #t)) - (lambda (#{type\ 14231}# - #{value\ 14232}# - #{ee\ 14233}# - #{ww\ 14234}# - #{ss\ 14235}# - #{modmod\ 14236}#) - (if (memv #{type\ 14231}# + (lambda (#{type\ 3748}# + #{value\ 3749}# + #{ee\ 3750}# + #{ww\ 3751}# + #{ss\ 3752}# + #{modmod\ 3753}#) + (if (memv #{type\ 3748}# '(module-ref)) - (let ((#{val\ 14245}# - (#{chi\ 11236}# - #{val\ 14228}# - #{r\ 14184}# - #{w\ 14185}# - #{mod\ 14187}#))) + (let ((#{val\ 3762}# + (#{chi\ 751}# + #{val\ 3745}# + #{r\ 3701}# + #{w\ 3702}# + #{mod\ 3704}#))) (call-with-values (lambda () - (#{value\ 14232}# - (cons #{head\ 14226}# - #{tail\ 14227}#) - #{r\ 14184}# - #{w\ 14185}#)) - (lambda (#{e\ 14247}# - #{r\ 14248}# - #{w\ 14249}# - #{s*\ 14250}# - #{mod\ 14251}#) - ((lambda (#{tmp\ 14257}#) - ((lambda (#{tmp\ 14258}#) - (if (if #{tmp\ 14258}# - (apply (lambda (#{e\ 14260}#) - (#{id?\ 11151}# - #{e\ 14260}#)) - #{tmp\ 14258}#) + (#{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}#) #f) - (apply (lambda (#{e\ 14262}#) - (#{build-global-assignment\ 11087}# - #{s\ 14186}# + (apply (lambda (#{e\ 3779}#) + (#{build-global-assignment\ 602}# + #{s\ 3703}# (syntax->datum - #{e\ 14262}#) - #{val\ 14245}# - #{mod\ 14251}#)) - #{tmp\ 14258}#) + #{e\ 3779}#) + #{val\ 3762}# + #{mod\ 3768}#)) + #{tmp\ 3775}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14257}#))) - (list #{tmp\ 14257}#))) - #{e\ 14247}#)))) - (#{build-application\ 11073}# - #{s\ 14186}# - (#{chi\ 11236}# + #{tmp\ 3774}#))) + (list #{tmp\ 3774}#))) + #{e\ 3764}#)))) + (#{build-application\ 588}# + #{s\ 3703}# + (#{chi\ 751}# (list '#(syntax-object setter ((top) @@ -9512,22 +9410,22 @@ (top) (top) (top)) - #("i14237" - "i14238" - "i14239" - "i14240" - "i14241" - "i14242")) + #("i3754" + "i3755" + "i3756" + "i3757" + "i3758" + "i3759")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i14221" - "i14222" - "i14223" - "i14224")) + #("i3738" + "i3739" + "i3740" + "i3741")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9536,11 +9434,11 @@ (top) (top) (top)) - #("i14188" - "i14189" - "i14190" - "i14191" - "i14192")) + #("i3705" + "i3706" + "i3707" + "i3708" + "i3709")) #(ribcage (lambda-var-list gen-var @@ -9776,180 +9674,178 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile)) - #{head\ 14226}#) - #{r\ 14184}# - #{w\ 14185}# - #{mod\ 14187}#) - (map (lambda (#{e\ 14264}#) - (#{chi\ 11236}# - #{e\ 14264}# - #{r\ 14184}# - #{w\ 14185}# - #{mod\ 14187}#)) + #{head\ 3743}#) + #{r\ 3701}# + #{w\ 3702}# + #{mod\ 3704}#) + (map (lambda (#{e\ 3781}#) + (#{chi\ 751}# + #{e\ 3781}# + #{r\ 3701}# + #{w\ 3702}# + #{mod\ 3704}#)) (append - #{tail\ 14227}# - (list #{val\ 14228}#)))))))) - #{tmp\ 14220}#) - ((lambda (#{_\ 14268}#) + #{tail\ 3744}# + (list #{val\ 3745}#)))))))) + #{tmp\ 3737}#) + ((lambda (#{_\ 3785}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 11222}# - #{e\ 14183}# - #{w\ 14185}# - #{s\ 14186}# - #{mod\ 14187}#))) - #{tmp\ 14193}#))) + (#{source-wrap\ 737}# + #{e\ 3700}# + #{w\ 3702}# + #{s\ 3703}# + #{mod\ 3704}#))) + #{tmp\ 3710}#))) ($sc-dispatch - #{tmp\ 14193}# + #{tmp\ 3710}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 14193}# + #{tmp\ 3710}# '(any any any)))) - #{e\ 14183}#))) - (#{global-extend\ 11147}# + #{e\ 3700}#))) + (#{global-extend\ 662}# 'module-ref '@ - (lambda (#{e\ 14269}# #{r\ 14270}# #{w\ 14271}#) - ((lambda (#{tmp\ 14275}#) - ((lambda (#{tmp\ 14276}#) - (if (if #{tmp\ 14276}# - (apply (lambda (#{_\ 14280}# - #{mod\ 14281}# - #{id\ 14282}#) - (if (and-map #{id?\ 11151}# #{mod\ 14281}#) - (#{id?\ 11151}# #{id\ 14282}#) + (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}#) #f)) - #{tmp\ 14276}#) + #{tmp\ 3793}#) #f) - (apply (lambda (#{_\ 14289}# #{mod\ 14290}# #{id\ 14291}#) + (apply (lambda (#{_\ 3806}# #{mod\ 3807}# #{id\ 3808}#) (values - (syntax->datum #{id\ 14291}#) - #{r\ 14270}# - #{w\ 14271}# + (syntax->datum #{id\ 3808}#) + #{r\ 3787}# + #{w\ 3788}# #f (syntax->datum (cons '#(syntax-object @@ -9958,12 +9854,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i14286" "i14287" "i14288")) + #("i3803" "i3804" "i3805")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i14272" "i14273" "i14274")) + #("i3789" "i3790" "i3791")) #(ribcage (lambda-var-list gen-var @@ -10199,194 +10095,193 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile)) - #{mod\ 14290}#)))) - #{tmp\ 14276}#) + #{mod\ 3807}#)))) + #{tmp\ 3793}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14275}#))) + #{tmp\ 3792}#))) ($sc-dispatch - #{tmp\ 14275}# + #{tmp\ 3792}# '(any each-any any)))) - #{e\ 14269}#))) - (#{global-extend\ 11147}# + #{e\ 3786}#))) + (#{global-extend\ 662}# 'module-ref '@@ - (lambda (#{e\ 14293}# #{r\ 14294}# #{w\ 14295}#) - (letrec ((#{remodulate\ 14300}# - (lambda (#{x\ 14301}# #{mod\ 14302}#) - (if (pair? #{x\ 14301}#) - (cons (#{remodulate\ 14300}# - (car #{x\ 14301}#) - #{mod\ 14302}#) - (#{remodulate\ 14300}# - (cdr #{x\ 14301}#) - #{mod\ 14302}#)) - (if (#{syntax-object?\ 11115}# #{x\ 14301}#) - (#{make-syntax-object\ 11113}# - (#{remodulate\ 14300}# - (#{syntax-object-expression\ 11117}# - #{x\ 14301}#) - #{mod\ 14302}#) - (#{syntax-object-wrap\ 11119}# #{x\ 14301}#) - #{mod\ 14302}#) - (if (vector? #{x\ 14301}#) - (let ((#{n\ 14313}# (vector-length #{x\ 14301}#))) - (let ((#{v\ 14315}# (make-vector #{n\ 14313}#))) - (letrec ((#{loop\ 14318}# - (lambda (#{i\ 14319}#) - (if (#{fx=\ 11056}# - #{i\ 14319}# - #{n\ 14313}#) - (begin (if #f #f) #{v\ 14315}#) + (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}#) (begin (vector-set! - #{v\ 14315}# - #{i\ 14319}# - (#{remodulate\ 14300}# + #{v\ 3832}# + #{i\ 3836}# + (#{remodulate\ 3817}# (vector-ref - #{x\ 14301}# - #{i\ 14319}#) - #{mod\ 14302}#)) - (#{loop\ 14318}# - (#{fx+\ 11052}# - #{i\ 14319}# + #{x\ 3818}# + #{i\ 3836}#) + #{mod\ 3819}#)) + (#{loop\ 3835}# + (#{fx+\ 567}# + #{i\ 3836}# 1))))))) - (#{loop\ 14318}# 0)))) - #{x\ 14301}#)))))) - ((lambda (#{tmp\ 14323}#) - ((lambda (#{tmp\ 14324}#) - (if (if #{tmp\ 14324}# - (apply (lambda (#{_\ 14328}# - #{mod\ 14329}# - #{exp\ 14330}#) - (and-map #{id?\ 11151}# #{mod\ 14329}#)) - #{tmp\ 14324}#) + (#{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}#) #f) - (apply (lambda (#{_\ 14335}# #{mod\ 14336}# #{exp\ 14337}#) - (let ((#{mod\ 14339}# + (apply (lambda (#{_\ 3852}# #{mod\ 3853}# #{exp\ 3854}#) + (let ((#{mod\ 3856}# (syntax->datum (cons '#(syntax-object private @@ -10394,19 +10289,15 @@ #(ribcage #(_ mod exp) #((top) (top) (top)) - #("i14332" - "i14333" - "i14334")) + #("i3849" "i3850" "i3851")) #(ribcage (remodulate) ((top)) - ("i14299")) + ("i3816")) #(ribcage #(e r w) #((top) (top) (top)) - #("i14296" - "i14297" - "i14298")) + #("i3813" "i3814" "i3815")) #(ribcage (lambda-var-list gen-var @@ -10642,312 +10533,311 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" "i10950"))) + ("i467" "i465"))) (hygiene guile)) - #{mod\ 14336}#)))) + #{mod\ 3853}#)))) (values - (#{remodulate\ 14300}# - #{exp\ 14337}# - #{mod\ 14339}#) - #{r\ 14294}# - #{w\ 14295}# - (#{source-annotation\ 11130}# #{exp\ 14337}#) - #{mod\ 14339}#))) - #{tmp\ 14324}#) + (#{remodulate\ 3817}# + #{exp\ 3854}# + #{mod\ 3856}#) + #{r\ 3811}# + #{w\ 3812}# + (#{source-annotation\ 645}# #{exp\ 3854}#) + #{mod\ 3856}#))) + #{tmp\ 3841}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14323}#))) + #{tmp\ 3840}#))) ($sc-dispatch - #{tmp\ 14323}# + #{tmp\ 3840}# '(any each-any any)))) - #{e\ 14293}#)))) - (#{global-extend\ 11147}# + #{e\ 3810}#)))) + (#{global-extend\ 662}# 'core 'if - (lambda (#{e\ 14341}# - #{r\ 14342}# - #{w\ 14343}# - #{s\ 14344}# - #{mod\ 14345}#) - ((lambda (#{tmp\ 14351}#) - ((lambda (#{tmp\ 14352}#) - (if #{tmp\ 14352}# - (apply (lambda (#{_\ 14356}# #{test\ 14357}# #{then\ 14358}#) - (#{build-conditional\ 11075}# - #{s\ 14344}# - (#{chi\ 11236}# - #{test\ 14357}# - #{r\ 14342}# - #{w\ 14343}# - #{mod\ 14345}#) - (#{chi\ 11236}# - #{then\ 14358}# - #{r\ 14342}# - #{w\ 14343}# - #{mod\ 14345}#) - (#{build-void\ 11071}# #f))) - #{tmp\ 14352}#) - ((lambda (#{tmp\ 14360}#) - (if #{tmp\ 14360}# - (apply (lambda (#{_\ 14365}# - #{test\ 14366}# - #{then\ 14367}# - #{else\ 14368}#) - (#{build-conditional\ 11075}# - #{s\ 14344}# - (#{chi\ 11236}# - #{test\ 14366}# - #{r\ 14342}# - #{w\ 14343}# - #{mod\ 14345}#) - (#{chi\ 11236}# - #{then\ 14367}# - #{r\ 14342}# - #{w\ 14343}# - #{mod\ 14345}#) - (#{chi\ 11236}# - #{else\ 14368}# - #{r\ 14342}# - #{w\ 14343}# - #{mod\ 14345}#))) - #{tmp\ 14360}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14351}#))) + #{tmp\ 3868}#))) ($sc-dispatch - #{tmp\ 14351}# + #{tmp\ 3868}# '(any any any any))))) ($sc-dispatch - #{tmp\ 14351}# + #{tmp\ 3868}# '(any any any)))) - #{e\ 14341}#))) - (#{global-extend\ 11147}# + #{e\ 3858}#))) + (#{global-extend\ 662}# 'core 'with-fluids - (lambda (#{e\ 14369}# - #{r\ 14370}# - #{w\ 14371}# - #{s\ 14372}# - #{mod\ 14373}#) - ((lambda (#{tmp\ 14379}#) - ((lambda (#{tmp\ 14380}#) - (if #{tmp\ 14380}# - (apply (lambda (#{_\ 14386}# - #{fluid\ 14387}# - #{val\ 14388}# - #{b\ 14389}# - #{b*\ 14390}#) - (#{build-dynlet\ 11077}# - #{s\ 14372}# - (map (lambda (#{x\ 14391}#) - (#{chi\ 11236}# - #{x\ 14391}# - #{r\ 14370}# - #{w\ 14371}# - #{mod\ 14373}#)) - #{fluid\ 14387}#) - (map (lambda (#{x\ 14394}#) - (#{chi\ 11236}# - #{x\ 14394}# - #{r\ 14370}# - #{w\ 14371}# - #{mod\ 14373}#)) - #{val\ 14388}#) - (#{chi-body\ 11244}# - (cons #{b\ 14389}# #{b*\ 14390}#) - (#{source-wrap\ 11222}# - #{e\ 14369}# - #{w\ 14371}# - #{s\ 14372}# - #{mod\ 14373}#) - #{r\ 14370}# - #{w\ 14371}# - #{mod\ 14373}#))) - #{tmp\ 14380}#) + (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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14379}#))) + #{tmp\ 3896}#))) ($sc-dispatch - #{tmp\ 14379}# + #{tmp\ 3896}# '(any #(each (any any)) any . each-any)))) - #{e\ 14369}#))) - (#{global-extend\ 11147}# + #{e\ 3886}#))) + (#{global-extend\ 662}# 'begin 'begin '()) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'define 'define '()) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'eval-when 'eval-when '()) - (#{global-extend\ 11147}# + (#{global-extend\ 662}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 14405}# - (lambda (#{x\ 14406}# - #{keys\ 14407}# - #{clauses\ 14408}# - #{r\ 14409}# - #{mod\ 14410}#) - (if (null? #{clauses\ 14408}#) - (#{build-application\ 11073}# + (letrec ((#{gen-syntax-case\ 3922}# + (lambda (#{x\ 3923}# + #{keys\ 3924}# + #{clauses\ 3925}# + #{r\ 3926}# + #{mod\ 3927}#) + (if (null? #{clauses\ 3925}#) + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f 'syntax-violation) - (list (#{build-data\ 11101}# #f #f) - (#{build-data\ 11101}# + (list (#{build-data\ 616}# #f #f) + (#{build-data\ 616}# #f "source expression failed to match any pattern") - #{x\ 14406}#)) - ((lambda (#{tmp\ 14420}#) - ((lambda (#{tmp\ 14421}#) - (if #{tmp\ 14421}# - (apply (lambda (#{pat\ 14424}# #{exp\ 14425}#) - (if (if (#{id?\ 11151}# #{pat\ 14424}#) + #{x\ 3923}#)) + ((lambda (#{tmp\ 3937}#) + ((lambda (#{tmp\ 3938}#) + (if #{tmp\ 3938}# + (apply (lambda (#{pat\ 3941}# #{exp\ 3942}#) + (if (if (#{id?\ 666}# #{pat\ 3941}#) (and-map - (lambda (#{x\ 14428}#) - (not (#{free-id=?\ 11210}# - #{pat\ 14424}# - #{x\ 14428}#))) + (lambda (#{x\ 3945}#) + (not (#{free-id=?\ 725}# + #{pat\ 3941}# + #{x\ 3945}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i14422" - "i14423")) + #("i3939" "i3940")) #(ribcage () () ()) #(ribcage #(x @@ -10960,11 +10850,11 @@ (top) (top) (top)) - #("i14411" - "i14412" - "i14413" - "i14414" - "i14415")) + #("i3928" + "i3929" + "i3930" + "i3931" + "i3932")) #(ribcage (gen-syntax-case gen-clause @@ -10974,10 +10864,10 @@ (top) (top) (top)) - ("i14404" - "i14402" - "i14400" - "i14398")) + ("i3921" + "i3919" + "i3917" + "i3915")) #(ribcage (lambda-var-list gen-var @@ -11213,1042 +11103,1031 @@ (top) (top) (top)) - ("i11265" - "i11263" - "i11261" - "i11259" - "i11257" - "i11255" - "i11253" - "i11251" - "i11249" - "i11247" - "i11245" - "i11243" - "i11241" - "i11239" - "i11237" - "i11235" - "i11233" - "i11231" - "i11229" - "i11227" - "i11225" - "i11223" - "i11221" - "i11219" - "i11217" - "i11215" - "i11213" - "i11211" - "i11209" - "i11207" - "i11205" - "i11203" - "i11201" - "i11199" - "i11197" - "i11195" - "i11194" - "i11193" - "i11191" - "i11190" - "i11189" - "i11188" - "i11187" - "i11185" - "i11183" - "i11181" - "i11179" - "i11177" - "i11175" - "i11173" - "i11171" - "i11168" - "i11166" - "i11165" - "i11164" - "i11163" - "i11162" - "i11161" - "i11159" - "i11157" - "i11155" - "i11153" - "i11152" - "i11150" - "i11148" - "i11146" - "i11144" - "i11142" - "i11140" - "i11138" - "i11137" - "i11135" - "i11133" - "i11132" - "i11131" - "i11129" - "i11128" - "i11126" - "i11124" - "i11122" - "i11120" - "i11118" - "i11116" - "i11114" - "i11112" - "i11110" - "i11108" - "i11106" - "i11104" - "i11102" - "i11100" - "i11098" - "i11096" - "i11094" - "i11092" - "i11090" - "i11088" - "i11086" - "i11084" - "i11082" - "i11080" - "i11078" - "i11076" - "i11074" - "i11072" - "i11070" - "i11068" - "i11066" - "i11064" - "i11063" - "i11061" - "i11059" - "i11057" - "i11055" - "i11053" - "i11051" - "i11049")) + ("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")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i10952" - "i10950"))) + ("i467" "i465"))) (hygiene guile)) - #{keys\ 14407}#)) + #{keys\ 3924}#)) #f) - (let ((#{labels\ 14432}# - (list (#{gen-label\ 11167}#))) - (#{var\ 14433}# - (#{gen-var\ 11264}# - #{pat\ 14424}#))) - (#{build-application\ 11073}# + (let ((#{labels\ 3949}# + (list (#{gen-label\ 682}#))) + (#{var\ 3950}# + (#{gen-var\ 779}# + #{pat\ 3941}#))) + (#{build-application\ 588}# #f - (#{build-simple-lambda\ 11093}# + (#{build-simple-lambda\ 608}# #f (list (syntax->datum - #{pat\ 14424}#)) + #{pat\ 3941}#)) #f - (list #{var\ 14433}#) + (list #{var\ 3950}#) '() - (#{chi\ 11236}# - #{exp\ 14425}# - (#{extend-env\ 11139}# - #{labels\ 14432}# + (#{chi\ 751}# + #{exp\ 3942}# + (#{extend-env\ 654}# + #{labels\ 3949}# (list (cons 'syntax - (cons #{var\ 14433}# + (cons #{var\ 3950}# 0))) - #{r\ 14409}#) - (#{make-binding-wrap\ 11198}# - (list #{pat\ 14424}#) - #{labels\ 14432}# + #{r\ 3926}#) + (#{make-binding-wrap\ 713}# + (list #{pat\ 3941}#) + #{labels\ 3949}# '(())) - #{mod\ 14410}#)) - (list #{x\ 14406}#))) - (#{gen-clause\ 14403}# - #{x\ 14406}# - #{keys\ 14407}# - (cdr #{clauses\ 14408}#) - #{r\ 14409}# - #{pat\ 14424}# + #{mod\ 3927}#)) + (list #{x\ 3923}#))) + (#{gen-clause\ 3920}# + #{x\ 3923}# + #{keys\ 3924}# + (cdr #{clauses\ 3925}#) + #{r\ 3926}# + #{pat\ 3941}# #t - #{exp\ 14425}# - #{mod\ 14410}#))) - #{tmp\ 14421}#) - ((lambda (#{tmp\ 14439}#) - (if #{tmp\ 14439}# - (apply (lambda (#{pat\ 14443}# - #{fender\ 14444}# - #{exp\ 14445}#) - (#{gen-clause\ 14403}# - #{x\ 14406}# - #{keys\ 14407}# - (cdr #{clauses\ 14408}#) - #{r\ 14409}# - #{pat\ 14443}# - #{fender\ 14444}# - #{exp\ 14445}# - #{mod\ 14410}#)) - #{tmp\ 14439}#) - ((lambda (#{_\ 14447}#) + #{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}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 14408}#))) - #{tmp\ 14420}#))) + (car #{clauses\ 3925}#))) + #{tmp\ 3937}#))) ($sc-dispatch - #{tmp\ 14420}# + #{tmp\ 3937}# '(any any any))))) - ($sc-dispatch #{tmp\ 14420}# (quote (any any))))) - (car #{clauses\ 14408}#))))) - (#{gen-clause\ 14403}# - (lambda (#{x\ 14448}# - #{keys\ 14449}# - #{clauses\ 14450}# - #{r\ 14451}# - #{pat\ 14452}# - #{fender\ 14453}# - #{exp\ 14454}# - #{mod\ 14455}#) + ($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}#) (call-with-values (lambda () - (#{convert-pattern\ 14399}# - #{pat\ 14452}# - #{keys\ 14449}#)) - (lambda (#{p\ 14464}# #{pvars\ 14465}#) - (if (not (#{distinct-bound-ids?\ 11216}# - (map car #{pvars\ 14465}#))) + (#{convert-pattern\ 3916}# + #{pat\ 3969}# + #{keys\ 3966}#)) + (lambda (#{p\ 3981}# #{pvars\ 3982}#) + (if (not (#{distinct-bound-ids?\ 731}# + (map car #{pvars\ 3982}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 14452}#) + #{pat\ 3969}#) (if (not (and-map - (lambda (#{x\ 14472}#) - (not (#{ellipsis?\ 11252}# - (car #{x\ 14472}#)))) - #{pvars\ 14465}#)) + (lambda (#{x\ 3989}#) + (not (#{ellipsis?\ 767}# + (car #{x\ 3989}#)))) + #{pvars\ 3982}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 14452}#) - (let ((#{y\ 14476}# - (#{gen-var\ 11264}# (quote tmp)))) - (#{build-application\ 11073}# + #{pat\ 3969}#) + (let ((#{y\ 3993}# + (#{gen-var\ 779}# (quote tmp)))) + (#{build-application\ 588}# #f - (#{build-simple-lambda\ 11093}# + (#{build-simple-lambda\ 608}# #f (list (quote tmp)) #f - (list #{y\ 14476}#) + (list #{y\ 3993}#) '() - (let ((#{y\ 14480}# - (#{build-lexical-reference\ 11079}# + (let ((#{y\ 3997}# + (#{build-lexical-reference\ 594}# 'value #f 'tmp - #{y\ 14476}#))) - (#{build-conditional\ 11075}# + #{y\ 3993}#))) + (#{build-conditional\ 590}# #f - ((lambda (#{tmp\ 14483}#) - ((lambda (#{tmp\ 14484}#) - (if #{tmp\ 14484}# - (apply (lambda () #{y\ 14480}#) - #{tmp\ 14484}#) - ((lambda (#{_\ 14486}#) - (#{build-conditional\ 11075}# + ((lambda (#{tmp\ 4000}#) + ((lambda (#{tmp\ 4001}#) + (if #{tmp\ 4001}# + (apply (lambda () #{y\ 3997}#) + #{tmp\ 4001}#) + ((lambda (#{_\ 4003}#) + (#{build-conditional\ 590}# #f - #{y\ 14480}# - (#{build-dispatch-call\ 14401}# - #{pvars\ 14465}# - #{fender\ 14453}# - #{y\ 14480}# - #{r\ 14451}# - #{mod\ 14455}#) - (#{build-data\ 11101}# + #{y\ 3997}# + (#{build-dispatch-call\ 3918}# + #{pvars\ 3982}# + #{fender\ 3970}# + #{y\ 3997}# + #{r\ 3968}# + #{mod\ 3972}#) + (#{build-data\ 616}# #f #f))) - #{tmp\ 14483}#))) + #{tmp\ 4000}#))) ($sc-dispatch - #{tmp\ 14483}# + #{tmp\ 4000}# '#(atom #t)))) - #{fender\ 14453}#) - (#{build-dispatch-call\ 14401}# - #{pvars\ 14465}# - #{exp\ 14454}# - #{y\ 14480}# - #{r\ 14451}# - #{mod\ 14455}#) - (#{gen-syntax-case\ 14405}# - #{x\ 14448}# - #{keys\ 14449}# - #{clauses\ 14450}# - #{r\ 14451}# - #{mod\ 14455}#)))) - (list (if (eq? #{p\ 14464}# (quote any)) - (#{build-application\ 11073}# + #{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}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f 'list) - (list #{x\ 14448}#)) - (#{build-application\ 11073}# + (list #{x\ 3965}#)) + (#{build-application\ 588}# #f - (#{build-primref\ 11099}# + (#{build-primref\ 614}# #f '$sc-dispatch) - (list #{x\ 14448}# - (#{build-data\ 11101}# + (list #{x\ 3965}# + (#{build-data\ 616}# #f - #{p\ 14464}#))))))))))))) - (#{build-dispatch-call\ 14401}# - (lambda (#{pvars\ 14494}# - #{exp\ 14495}# - #{y\ 14496}# - #{r\ 14497}# - #{mod\ 14498}#) - (let ((#{ids\ 14506}# (map car #{pvars\ 14494}#)) - (#{levels\ 14507}# (map cdr #{pvars\ 14494}#))) - (let ((#{labels\ 14510}# - (#{gen-labels\ 11169}# #{ids\ 14506}#)) - (#{new-vars\ 14511}# - (map #{gen-var\ 11264}# #{ids\ 14506}#))) - (#{build-application\ 11073}# + #{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}# #f - (#{build-primref\ 11099}# #f (quote apply)) - (list (#{build-simple-lambda\ 11093}# + (#{build-primref\ 614}# #f (quote apply)) + (list (#{build-simple-lambda\ 608}# #f - (map syntax->datum #{ids\ 14506}#) + (map syntax->datum #{ids\ 4023}#) #f - #{new-vars\ 14511}# + #{new-vars\ 4028}# '() - (#{chi\ 11236}# - #{exp\ 14495}# - (#{extend-env\ 11139}# - #{labels\ 14510}# - (map (lambda (#{var\ 14515}# - #{level\ 14516}#) + (#{chi\ 751}# + #{exp\ 4012}# + (#{extend-env\ 654}# + #{labels\ 4027}# + (map (lambda (#{var\ 4032}# + #{level\ 4033}#) (cons 'syntax - (cons #{var\ 14515}# - #{level\ 14516}#))) - #{new-vars\ 14511}# - (map cdr #{pvars\ 14494}#)) - #{r\ 14497}#) - (#{make-binding-wrap\ 11198}# - #{ids\ 14506}# - #{labels\ 14510}# + (cons #{var\ 4032}# + #{level\ 4033}#))) + #{new-vars\ 4028}# + (map cdr #{pvars\ 4011}#)) + #{r\ 4014}#) + (#{make-binding-wrap\ 713}# + #{ids\ 4023}# + #{labels\ 4027}# '(())) - #{mod\ 14498}#)) - #{y\ 14496}#)))))) - (#{convert-pattern\ 14399}# - (lambda (#{pattern\ 14522}# #{keys\ 14523}#) - (letrec ((#{cvt\ 14529}# - (lambda (#{p\ 14530}# - #{n\ 14531}# - #{ids\ 14532}#) - (if (#{id?\ 11151}# #{p\ 14530}#) - (if (#{bound-id-member?\ 11218}# - #{p\ 14530}# - #{keys\ 14523}#) + #{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}#) (values - (vector (quote free-id) #{p\ 14530}#) - #{ids\ 14532}#) + (vector (quote free-id) #{p\ 4047}#) + #{ids\ 4049}#) (values 'any - (cons (cons #{p\ 14530}# #{n\ 14531}#) - #{ids\ 14532}#))) - ((lambda (#{tmp\ 14536}#) - ((lambda (#{tmp\ 14537}#) - (if (if #{tmp\ 14537}# - (apply (lambda (#{x\ 14540}# - #{dots\ 14541}#) - (#{ellipsis?\ 11252}# - #{dots\ 14541}#)) - #{tmp\ 14537}#) + (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}#) #f) - (apply (lambda (#{x\ 14544}# - #{dots\ 14545}#) + (apply (lambda (#{x\ 4061}# + #{dots\ 4062}#) (call-with-values (lambda () - (#{cvt\ 14529}# - #{x\ 14544}# - (#{fx+\ 11052}# - #{n\ 14531}# + (#{cvt\ 4046}# + #{x\ 4061}# + (#{fx+\ 567}# + #{n\ 4048}# 1) - #{ids\ 14532}#)) - (lambda (#{p\ 14546}# - #{ids\ 14547}#) + #{ids\ 4049}#)) + (lambda (#{p\ 4063}# + #{ids\ 4064}#) (values - (if (eq? #{p\ 14546}# + (if (eq? #{p\ 4063}# 'any) 'each-any (vector 'each - #{p\ 14546}#)) - #{ids\ 14547}#)))) - #{tmp\ 14537}#) - ((lambda (#{tmp\ 14550}#) - (if (if #{tmp\ 14550}# - (apply (lambda (#{x\ 14554}# - #{dots\ 14555}# - #{ys\ 14556}#) - (#{ellipsis?\ 11252}# - #{dots\ 14555}#)) - #{tmp\ 14550}#) + #{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}#) #f) - (apply (lambda (#{x\ 14560}# - #{dots\ 14561}# - #{ys\ 14562}#) + (apply (lambda (#{x\ 4077}# + #{dots\ 4078}# + #{ys\ 4079}#) (call-with-values (lambda () - (#{cvt*\ 14527}# - #{ys\ 14562}# - #{n\ 14531}# - #{ids\ 14532}#)) - (lambda (#{ys\ 14564}# - #{ids\ 14565}#) + (#{cvt*\ 4044}# + #{ys\ 4079}# + #{n\ 4048}# + #{ids\ 4049}#)) + (lambda (#{ys\ 4081}# + #{ids\ 4082}#) (call-with-values (lambda () - (#{cvt\ 14529}# - #{x\ 14560}# - (+ #{n\ 14531}# + (#{cvt\ 4046}# + #{x\ 4077}# + (+ #{n\ 4048}# 1) - #{ids\ 14565}#)) - (lambda (#{x\ 14568}# - #{ids\ 14569}#) + #{ids\ 4082}#)) + (lambda (#{x\ 4085}# + #{ids\ 4086}#) (values (list->vector (cons 'each+ - (cons #{x\ 14568}# + (cons #{x\ 4085}# (cons (reverse - #{ys\ 14564}#) + #{ys\ 4081}#) '(()))))) - #{ids\ 14569}#)))))) - #{tmp\ 14550}#) - ((lambda (#{tmp\ 14573}#) - (if #{tmp\ 14573}# - (apply (lambda (#{x\ 14576}# - #{y\ 14577}#) + #{ids\ 4086}#)))))) + #{tmp\ 4067}#) + ((lambda (#{tmp\ 4090}#) + (if #{tmp\ 4090}# + (apply (lambda (#{x\ 4093}# + #{y\ 4094}#) (call-with-values (lambda () - (#{cvt\ 14529}# - #{y\ 14577}# - #{n\ 14531}# - #{ids\ 14532}#)) - (lambda (#{y\ 14578}# - #{ids\ 14579}#) + (#{cvt\ 4046}# + #{y\ 4094}# + #{n\ 4048}# + #{ids\ 4049}#)) + (lambda (#{y\ 4095}# + #{ids\ 4096}#) (call-with-values (lambda () - (#{cvt\ 14529}# - #{x\ 14576}# - #{n\ 14531}# - #{ids\ 14579}#)) - (lambda (#{x\ 14582}# - #{ids\ 14583}#) + (#{cvt\ 4046}# + #{x\ 4093}# + #{n\ 4048}# + #{ids\ 4096}#)) + (lambda (#{x\ 4099}# + #{ids\ 4100}#) (values - (cons #{x\ 14582}# - #{y\ 14578}#) - #{ids\ 14583}#)))))) - #{tmp\ 14573}#) - ((lambda (#{tmp\ 14586}#) - (if #{tmp\ 14586}# + (cons #{x\ 4099}# + #{y\ 4095}#) + #{ids\ 4100}#)))))) + #{tmp\ 4090}#) + ((lambda (#{tmp\ 4103}#) + (if #{tmp\ 4103}# (apply (lambda () (values '() - #{ids\ 14532}#)) - #{tmp\ 14586}#) - ((lambda (#{tmp\ 14587}#) - (if #{tmp\ 14587}# - (apply (lambda (#{x\ 14589}#) + #{ids\ 4049}#)) + #{tmp\ 4103}#) + ((lambda (#{tmp\ 4104}#) + (if #{tmp\ 4104}# + (apply (lambda (#{x\ 4106}#) (call-with-values (lambda () - (#{cvt\ 14529}# - #{x\ 14589}# - #{n\ 14531}# - #{ids\ 14532}#)) - (lambda (#{p\ 14591}# - #{ids\ 14592}#) + (#{cvt\ 4046}# + #{x\ 4106}# + #{n\ 4048}# + #{ids\ 4049}#)) + (lambda (#{p\ 4108}# + #{ids\ 4109}#) (values (vector 'vector - #{p\ 14591}#) - #{ids\ 14592}#)))) - #{tmp\ 14587}#) - ((lambda (#{x\ 14596}#) + #{p\ 4108}#) + #{ids\ 4109}#)))) + #{tmp\ 4104}#) + ((lambda (#{x\ 4113}#) (values (vector 'atom - (#{strip\ 11262}# - #{p\ 14530}# + (#{strip\ 777}# + #{p\ 4047}# '(()))) - #{ids\ 14532}#)) - #{tmp\ 14536}#))) + #{ids\ 4049}#)) + #{tmp\ 4053}#))) ($sc-dispatch - #{tmp\ 14536}# + #{tmp\ 4053}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 14536}# + #{tmp\ 4053}# '())))) ($sc-dispatch - #{tmp\ 14536}# + #{tmp\ 4053}# '(any . any))))) ($sc-dispatch - #{tmp\ 14536}# + #{tmp\ 4053}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 14536}# + #{tmp\ 4053}# '(any any)))) - #{p\ 14530}#)))) - (#{cvt*\ 14527}# - (lambda (#{p*\ 14598}# - #{n\ 14599}# - #{ids\ 14600}#) - (if (null? #{p*\ 14598}#) - (values (quote ()) #{ids\ 14600}#) + #{p\ 4047}#)))) + (#{cvt*\ 4044}# + (lambda (#{p*\ 4115}# + #{n\ 4116}# + #{ids\ 4117}#) + (if (null? #{p*\ 4115}#) + (values (quote ()) #{ids\ 4117}#) (call-with-values (lambda () - (#{cvt*\ 14527}# - (cdr #{p*\ 14598}#) - #{n\ 14599}# - #{ids\ 14600}#)) - (lambda (#{y\ 14604}# #{ids\ 14605}#) + (#{cvt*\ 4044}# + (cdr #{p*\ 4115}#) + #{n\ 4116}# + #{ids\ 4117}#)) + (lambda (#{y\ 4121}# #{ids\ 4122}#) (call-with-values (lambda () - (#{cvt\ 14529}# - (car #{p*\ 14598}#) - #{n\ 14599}# - #{ids\ 14605}#)) - (lambda (#{x\ 14608}# #{ids\ 14609}#) + (#{cvt\ 4046}# + (car #{p*\ 4115}#) + #{n\ 4116}# + #{ids\ 4122}#)) + (lambda (#{x\ 4125}# #{ids\ 4126}#) (values - (cons #{x\ 14608}# #{y\ 14604}#) - #{ids\ 14609}#))))))))) - (#{cvt\ 14529}# #{pattern\ 14522}# 0 (quote ())))))) - (lambda (#{e\ 14612}# - #{r\ 14613}# - #{w\ 14614}# - #{s\ 14615}# - #{mod\ 14616}#) - (let ((#{e\ 14623}# - (#{source-wrap\ 11222}# - #{e\ 14612}# - #{w\ 14614}# - #{s\ 14615}# - #{mod\ 14616}#))) - ((lambda (#{tmp\ 14624}#) - ((lambda (#{tmp\ 14625}#) - (if #{tmp\ 14625}# - (apply (lambda (#{_\ 14630}# - #{val\ 14631}# - #{key\ 14632}# - #{m\ 14633}#) + (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}#) (if (and-map - (lambda (#{x\ 14634}#) - (if (#{id?\ 11151}# #{x\ 14634}#) - (not (#{ellipsis?\ 11252}# - #{x\ 14634}#)) + (lambda (#{x\ 4151}#) + (if (#{id?\ 666}# #{x\ 4151}#) + (not (#{ellipsis?\ 767}# #{x\ 4151}#)) #f)) - #{key\ 14632}#) - (let ((#{x\ 14640}# - (#{gen-var\ 11264}# (quote tmp)))) - (#{build-application\ 11073}# - #{s\ 14615}# - (#{build-simple-lambda\ 11093}# + #{key\ 4149}#) + (let ((#{x\ 4157}# + (#{gen-var\ 779}# (quote tmp)))) + (#{build-application\ 588}# + #{s\ 4132}# + (#{build-simple-lambda\ 608}# #f (list (quote tmp)) #f - (list #{x\ 14640}#) + (list #{x\ 4157}#) '() - (#{gen-syntax-case\ 14405}# - (#{build-lexical-reference\ 11079}# + (#{gen-syntax-case\ 3922}# + (#{build-lexical-reference\ 594}# 'value #f 'tmp - #{x\ 14640}#) - #{key\ 14632}# - #{m\ 14633}# - #{r\ 14613}# - #{mod\ 14616}#)) - (list (#{chi\ 11236}# - #{val\ 14631}# - #{r\ 14613}# + #{x\ 4157}#) + #{key\ 4149}# + #{m\ 4150}# + #{r\ 4130}# + #{mod\ 4133}#)) + (list (#{chi\ 751}# + #{val\ 4148}# + #{r\ 4130}# '(()) - #{mod\ 14616}#)))) + #{mod\ 4133}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 14623}#))) - #{tmp\ 14625}#) + #{e\ 4140}#))) + #{tmp\ 4142}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14624}#))) + #{tmp\ 4141}#))) ($sc-dispatch - #{tmp\ 14624}# + #{tmp\ 4141}# '(any any each-any . each-any)))) - #{e\ 14623}#))))) + #{e\ 4140}#))))) (set! macroexpand - (lambda (#{x\ 14646}# . #{rest\ 14647}#) - (let ((#{m\ 14653}# - (if (null? #{rest\ 14647}#) + (lambda (#{x\ 4163}# . #{rest\ 4164}#) + (let ((#{m\ 4170}# + (if (null? #{rest\ 4164}#) 'e - (car #{rest\ 14647}#))) - (#{esew\ 14654}# - (if (let ((#{t\ 14658}# (null? #{rest\ 14647}#))) - (if #{t\ 14658}# - #{t\ 14658}# - (null? (cdr #{rest\ 14647}#)))) + (car #{rest\ 4164}#))) + (#{esew\ 4171}# + (if (let ((#{t\ 4175}# (null? #{rest\ 4164}#))) + (if #{t\ 4175}# + #{t\ 4175}# + (null? (cdr #{rest\ 4164}#)))) '(eval) - (cadr #{rest\ 14647}#))) - (#{mod\ 14655}# + (cadr #{rest\ 4164}#))) + (#{mod\ 4172}# (cons 'hygiene (module-name (current-module))))) (with-fluids - ((#{*mode*\ 11050}# #{m\ 14653}#)) - (if (eq? #{m\ 14653}# (quote e)) + ((#{*mode*\ 565}# #{m\ 4170}#)) + (if (eq? #{m\ 4170}# (quote e)) (memoize-expression - (#{chi-top\ 11234}# - #{x\ 14646}# + (#{chi-top\ 749}# + #{x\ 4163}# '() '((top)) - #{m\ 14653}# - #{esew\ 14654}# - #{mod\ 14655}#)) - (#{chi-top\ 11234}# - #{x\ 14646}# + #{m\ 4170}# + #{esew\ 4171}# + #{mod\ 4172}#)) + (#{chi-top\ 749}# + #{x\ 4163}# '() '((top)) - #{m\ 14653}# - #{esew\ 14654}# - #{mod\ 14655}#)))))) + #{m\ 4170}# + #{esew\ 4171}# + #{mod\ 4172}#)))))) (set! identifier? - (lambda (#{x\ 14664}#) - (#{nonsymbol-id?\ 11149}# #{x\ 14664}#))) + (lambda (#{x\ 4181}#) + (#{nonsymbol-id?\ 664}# #{x\ 4181}#))) (set! datum->syntax - (lambda (#{id\ 14666}# #{datum\ 14667}#) - (#{make-syntax-object\ 11113}# - #{datum\ 14667}# - (#{syntax-object-wrap\ 11119}# #{id\ 14666}#) + (lambda (#{id\ 4183}# #{datum\ 4184}#) + (#{make-syntax-object\ 628}# + #{datum\ 4184}# + (#{syntax-object-wrap\ 634}# #{id\ 4183}#) #f))) (set! syntax->datum - (lambda (#{x\ 14670}#) - (#{strip\ 11262}# #{x\ 14670}# (quote (()))))) + (lambda (#{x\ 4187}#) + (#{strip\ 777}# #{x\ 4187}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 14673}#) + (lambda (#{ls\ 4190}#) (begin - (let ((#{x\ 14677}# #{ls\ 14673}#)) - (if (not (list? #{x\ 14677}#)) + (let ((#{x\ 4194}# #{ls\ 4190}#)) + (if (not (list? #{x\ 4194}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 14677}#))) - (map (lambda (#{x\ 14678}#) - (#{wrap\ 11220}# (gensym) (quote ((top))) #f)) - #{ls\ 14673}#)))) + #{x\ 4194}#))) + (map (lambda (#{x\ 4195}#) + (#{wrap\ 735}# (gensym) (quote ((top))) #f)) + #{ls\ 4190}#)))) (set! free-identifier=? - (lambda (#{x\ 14682}# #{y\ 14683}#) + (lambda (#{x\ 4199}# #{y\ 4200}#) (begin - (let ((#{x\ 14688}# #{x\ 14682}#)) - (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14688}#)) + (let ((#{x\ 4205}# #{x\ 4199}#)) + (if (not (#{nonsymbol-id?\ 664}# #{x\ 4205}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 14688}#))) - (let ((#{x\ 14691}# #{y\ 14683}#)) - (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14691}#)) + #{x\ 4205}#))) + (let ((#{x\ 4208}# #{y\ 4200}#)) + (if (not (#{nonsymbol-id?\ 664}# #{x\ 4208}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 14691}#))) - (#{free-id=?\ 11210}# #{x\ 14682}# #{y\ 14683}#)))) + #{x\ 4208}#))) + (#{free-id=?\ 725}# #{x\ 4199}# #{y\ 4200}#)))) (set! bound-identifier=? - (lambda (#{x\ 14692}# #{y\ 14693}#) + (lambda (#{x\ 4209}# #{y\ 4210}#) (begin - (let ((#{x\ 14698}# #{x\ 14692}#)) - (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14698}#)) + (let ((#{x\ 4215}# #{x\ 4209}#)) + (if (not (#{nonsymbol-id?\ 664}# #{x\ 4215}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 14698}#))) - (let ((#{x\ 14701}# #{y\ 14693}#)) - (if (not (#{nonsymbol-id?\ 11149}# #{x\ 14701}#)) + #{x\ 4215}#))) + (let ((#{x\ 4218}# #{y\ 4210}#)) + (if (not (#{nonsymbol-id?\ 664}# #{x\ 4218}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 14701}#))) - (#{bound-id=?\ 11212}# #{x\ 14692}# #{y\ 14693}#)))) + #{x\ 4218}#))) + (#{bound-id=?\ 727}# #{x\ 4209}# #{y\ 4210}#)))) (set! syntax-violation - (lambda (#{who\ 14702}# - #{message\ 14703}# - #{form\ 14704}# + (lambda (#{who\ 4219}# + #{message\ 4220}# + #{form\ 4221}# . - #{subform\ 14705}#) + #{subform\ 4222}#) (begin - (let ((#{x\ 14712}# #{who\ 14702}#)) - (if (not ((lambda (#{x\ 14713}#) - (let ((#{t\ 14717}# (not #{x\ 14713}#))) - (if #{t\ 14717}# - #{t\ 14717}# - (let ((#{t\ 14720}# (string? #{x\ 14713}#))) - (if #{t\ 14720}# - #{t\ 14720}# - (symbol? #{x\ 14713}#)))))) - #{x\ 14712}#)) + (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}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 14712}#))) - (let ((#{x\ 14724}# #{message\ 14703}#)) - (if (not (string? #{x\ 14724}#)) + #{x\ 4229}#))) + (let ((#{x\ 4241}# #{message\ 4220}#)) + (if (not (string? #{x\ 4241}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 14724}#))) + #{x\ 4241}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 14702}# "~a: " "") + (if #{who\ 4219}# "~a: " "") "~a " - (if (null? #{subform\ 14705}#) + (if (null? #{subform\ 4222}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 14726}# - (cons #{message\ 14703}# - (map (lambda (#{x\ 14727}#) - (#{strip\ 11262}# - #{x\ 14727}# - '(()))) + (let ((#{tail\ 4243}# + (cons #{message\ 4220}# + (map (lambda (#{x\ 4244}#) + (#{strip\ 777}# #{x\ 4244}# (quote (())))) (append - #{subform\ 14705}# - (list #{form\ 14704}#)))))) - (if #{who\ 14702}# - (cons #{who\ 14702}# #{tail\ 14726}#) - #{tail\ 14726}#)) + #{subform\ 4222}# + (list #{form\ 4221}#)))))) + (if #{who\ 4219}# + (cons #{who\ 4219}# #{tail\ 4243}#) + #{tail\ 4243}#)) #f)))) - (letrec ((#{match\ 14743}# - (lambda (#{e\ 14744}# - #{p\ 14745}# - #{w\ 14746}# - #{r\ 14747}# - #{mod\ 14748}#) - (if (not #{r\ 14747}#) + (letrec ((#{match\ 4260}# + (lambda (#{e\ 4261}# + #{p\ 4262}# + #{w\ 4263}# + #{r\ 4264}# + #{mod\ 4265}#) + (if (not #{r\ 4264}#) #f - (if (eq? #{p\ 14745}# (quote any)) - (cons (#{wrap\ 11220}# - #{e\ 14744}# - #{w\ 14746}# - #{mod\ 14748}#) - #{r\ 14747}#) - (if (#{syntax-object?\ 11115}# #{e\ 14744}#) - (#{match*\ 14741}# - (#{syntax-object-expression\ 11117}# - #{e\ 14744}#) - #{p\ 14745}# - (#{join-wraps\ 11202}# - #{w\ 14746}# - (#{syntax-object-wrap\ 11119}# #{e\ 14744}#)) - #{r\ 14747}# - (#{syntax-object-module\ 11121}# #{e\ 14744}#)) - (#{match*\ 14741}# - #{e\ 14744}# - #{p\ 14745}# - #{w\ 14746}# - #{r\ 14747}# - #{mod\ 14748}#)))))) - (#{match*\ 14741}# - (lambda (#{e\ 14761}# - #{p\ 14762}# - #{w\ 14763}# - #{r\ 14764}# - #{mod\ 14765}#) - (if (null? #{p\ 14762}#) - (if (null? #{e\ 14761}#) #{r\ 14764}# #f) - (if (pair? #{p\ 14762}#) - (if (pair? #{e\ 14761}#) - (#{match\ 14743}# - (car #{e\ 14761}#) - (car #{p\ 14762}#) - #{w\ 14763}# - (#{match\ 14743}# - (cdr #{e\ 14761}#) - (cdr #{p\ 14762}#) - #{w\ 14763}# - #{r\ 14764}# - #{mod\ 14765}#) - #{mod\ 14765}#) + (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}#) #f) - (if (eq? #{p\ 14762}# (quote each-any)) - (let ((#{l\ 14782}# - (#{match-each-any\ 14735}# - #{e\ 14761}# - #{w\ 14763}# - #{mod\ 14765}#))) - (if #{l\ 14782}# - (cons #{l\ 14782}# #{r\ 14764}#) + (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}#) #f)) - (let ((#{atom-key\ 14788}# - (vector-ref #{p\ 14762}# 0))) - (if (memv #{atom-key\ 14788}# (quote (each))) - (if (null? #{e\ 14761}#) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14762}# 1) - #{r\ 14764}#) - (let ((#{l\ 14791}# - (#{match-each\ 14731}# - #{e\ 14761}# - (vector-ref #{p\ 14762}# 1) - #{w\ 14763}# - #{mod\ 14765}#))) - (if #{l\ 14791}# - (letrec ((#{collect\ 14796}# - (lambda (#{l\ 14797}#) - (if (null? (car #{l\ 14797}#)) - #{r\ 14764}# - (cons (map car #{l\ 14797}#) - (#{collect\ 14796}# + (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}# (map cdr - #{l\ 14797}#))))))) - (#{collect\ 14796}# #{l\ 14791}#)) + #{l\ 4314}#))))))) + (#{collect\ 4313}# #{l\ 4308}#)) #f))) - (if (memv #{atom-key\ 14788}# (quote (each+))) + (if (memv #{atom-key\ 4305}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 14733}# - #{e\ 14761}# - (vector-ref #{p\ 14762}# 1) - (vector-ref #{p\ 14762}# 2) - (vector-ref #{p\ 14762}# 3) - #{w\ 14763}# - #{r\ 14764}# - #{mod\ 14765}#)) - (lambda (#{xr*\ 14799}# - #{y-pat\ 14800}# - #{r\ 14801}#) - (if #{r\ 14801}# - (if (null? #{y-pat\ 14800}#) - (if (null? #{xr*\ 14799}#) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14762}# 1) - #{r\ 14801}#) - (#{combine\ 14739}# - #{xr*\ 14799}# - #{r\ 14801}#)) + (#{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}#)) #f) #f))) - (if (memv #{atom-key\ 14788}# (quote (free-id))) - (if (#{id?\ 11151}# #{e\ 14761}#) - (if (#{free-id=?\ 11210}# - (#{wrap\ 11220}# - #{e\ 14761}# - #{w\ 14763}# - #{mod\ 14765}#) - (vector-ref #{p\ 14762}# 1)) - #{r\ 14764}# + (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}# #f) #f) - (if (memv #{atom-key\ 14788}# (quote (atom))) + (if (memv #{atom-key\ 4305}# (quote (atom))) (if (equal? - (vector-ref #{p\ 14762}# 1) - (#{strip\ 11262}# - #{e\ 14761}# - #{w\ 14763}#)) - #{r\ 14764}# + (vector-ref #{p\ 4279}# 1) + (#{strip\ 777}# + #{e\ 4278}# + #{w\ 4280}#)) + #{r\ 4281}# #f) - (if (memv #{atom-key\ 14788}# + (if (memv #{atom-key\ 4305}# '(vector)) - (if (vector? #{e\ 14761}#) - (#{match\ 14743}# - (vector->list #{e\ 14761}#) - (vector-ref #{p\ 14762}# 1) - #{w\ 14763}# - #{r\ 14764}# - #{mod\ 14765}#) + (if (vector? #{e\ 4278}#) + (#{match\ 4260}# + (vector->list #{e\ 4278}#) + (vector-ref #{p\ 4279}# 1) + #{w\ 4280}# + #{r\ 4281}# + #{mod\ 4282}#) #f)))))))))))) - (#{combine\ 14739}# - (lambda (#{r*\ 14818}# #{r\ 14819}#) - (if (null? (car #{r*\ 14818}#)) - #{r\ 14819}# - (cons (map car #{r*\ 14818}#) - (#{combine\ 14739}# - (map cdr #{r*\ 14818}#) - #{r\ 14819}#))))) - (#{match-empty\ 14737}# - (lambda (#{p\ 14822}# #{r\ 14823}#) - (if (null? #{p\ 14822}#) - #{r\ 14823}# - (if (eq? #{p\ 14822}# (quote any)) - (cons (quote ()) #{r\ 14823}#) - (if (pair? #{p\ 14822}#) - (#{match-empty\ 14737}# - (car #{p\ 14822}#) - (#{match-empty\ 14737}# - (cdr #{p\ 14822}#) - #{r\ 14823}#)) - (if (eq? #{p\ 14822}# (quote each-any)) - (cons (quote ()) #{r\ 14823}#) - (let ((#{atom-key\ 14837}# - (vector-ref #{p\ 14822}# 0))) - (if (memv #{atom-key\ 14837}# (quote (each))) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14822}# 1) - #{r\ 14823}#) - (if (memv #{atom-key\ 14837}# (quote (each+))) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14822}# 1) - (#{match-empty\ 14737}# - (reverse (vector-ref #{p\ 14822}# 2)) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14822}# 3) - #{r\ 14823}#))) - (if (memv #{atom-key\ 14837}# + (#{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}# '(free-id atom)) - #{r\ 14823}# - (if (memv #{atom-key\ 14837}# + #{r\ 4340}# + (if (memv #{atom-key\ 4354}# '(vector)) - (#{match-empty\ 14737}# - (vector-ref #{p\ 14822}# 1) - #{r\ 14823}#)))))))))))) - (#{match-each-any\ 14735}# - (lambda (#{e\ 14842}# #{w\ 14843}# #{mod\ 14844}#) - (if (pair? #{e\ 14842}#) - (let ((#{l\ 14851}# - (#{match-each-any\ 14735}# - (cdr #{e\ 14842}#) - #{w\ 14843}# - #{mod\ 14844}#))) - (if #{l\ 14851}# - (cons (#{wrap\ 11220}# - (car #{e\ 14842}#) - #{w\ 14843}# - #{mod\ 14844}#) - #{l\ 14851}#) + (#{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}#) #f)) - (if (null? #{e\ 14842}#) + (if (null? #{e\ 4359}#) '() - (if (#{syntax-object?\ 11115}# #{e\ 14842}#) - (#{match-each-any\ 14735}# - (#{syntax-object-expression\ 11117}# - #{e\ 14842}#) - (#{join-wraps\ 11202}# - #{w\ 14843}# - (#{syntax-object-wrap\ 11119}# #{e\ 14842}#)) - #{mod\ 14844}#) + (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}#) #f))))) - (#{match-each+\ 14733}# - (lambda (#{e\ 14859}# - #{x-pat\ 14860}# - #{y-pat\ 14861}# - #{z-pat\ 14862}# - #{w\ 14863}# - #{r\ 14864}# - #{mod\ 14865}#) - (letrec ((#{f\ 14876}# - (lambda (#{e\ 14877}# #{w\ 14878}#) - (if (pair? #{e\ 14877}#) + (#{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}#) (call-with-values (lambda () - (#{f\ 14876}# - (cdr #{e\ 14877}#) - #{w\ 14878}#)) - (lambda (#{xr*\ 14881}# - #{y-pat\ 14882}# - #{r\ 14883}#) - (if #{r\ 14883}# - (if (null? #{y-pat\ 14882}#) - (let ((#{xr\ 14888}# - (#{match\ 14743}# - (car #{e\ 14877}#) - #{x-pat\ 14860}# - #{w\ 14878}# + (#{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}# '() - #{mod\ 14865}#))) - (if #{xr\ 14888}# + #{mod\ 4382}#))) + (if #{xr\ 4405}# (values - (cons #{xr\ 14888}# - #{xr*\ 14881}#) - #{y-pat\ 14882}# - #{r\ 14883}#) + (cons #{xr\ 4405}# + #{xr*\ 4398}#) + #{y-pat\ 4399}# + #{r\ 4400}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 14882}#) - (#{match\ 14743}# - (car #{e\ 14877}#) - (car #{y-pat\ 14882}#) - #{w\ 14878}# - #{r\ 14883}# - #{mod\ 14865}#))) + (cdr #{y-pat\ 4399}#) + (#{match\ 4260}# + (car #{e\ 4394}#) + (car #{y-pat\ 4399}#) + #{w\ 4395}# + #{r\ 4400}# + #{mod\ 4382}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 11115}# #{e\ 14877}#) - (#{f\ 14876}# - (#{syntax-object-expression\ 11117}# - #{e\ 14877}#) - (#{join-wraps\ 11202}# - #{w\ 14878}# - #{e\ 14877}#)) + (if (#{syntax-object?\ 630}# #{e\ 4394}#) + (#{f\ 4393}# + (#{syntax-object-expression\ 632}# + #{e\ 4394}#) + (#{join-wraps\ 717}# + #{w\ 4395}# + #{e\ 4394}#)) (values '() - #{y-pat\ 14861}# - (#{match\ 14743}# - #{e\ 14877}# - #{z-pat\ 14862}# - #{w\ 14878}# - #{r\ 14864}# - #{mod\ 14865}#))))))) - (#{f\ 14876}# #{e\ 14859}# #{w\ 14863}#)))) - (#{match-each\ 14731}# - (lambda (#{e\ 14892}# - #{p\ 14893}# - #{w\ 14894}# - #{mod\ 14895}#) - (if (pair? #{e\ 14892}#) - (let ((#{first\ 14903}# - (#{match\ 14743}# - (car #{e\ 14892}#) - #{p\ 14893}# - #{w\ 14894}# + #{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}# '() - #{mod\ 14895}#))) - (if #{first\ 14903}# - (let ((#{rest\ 14907}# - (#{match-each\ 14731}# - (cdr #{e\ 14892}#) - #{p\ 14893}# - #{w\ 14894}# - #{mod\ 14895}#))) - (if #{rest\ 14907}# - (cons #{first\ 14903}# #{rest\ 14907}#) + #{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}#) #f)) #f)) - (if (null? #{e\ 14892}#) + (if (null? #{e\ 4409}#) '() - (if (#{syntax-object?\ 11115}# #{e\ 14892}#) - (#{match-each\ 14731}# - (#{syntax-object-expression\ 11117}# - #{e\ 14892}#) - #{p\ 14893}# - (#{join-wraps\ 11202}# - #{w\ 14894}# - (#{syntax-object-wrap\ 11119}# #{e\ 14892}#)) - (#{syntax-object-module\ 11121}# #{e\ 14892}#)) + (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}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 14915}# #{p\ 14916}#) - (if (eq? #{p\ 14916}# (quote any)) - (list #{e\ 14915}#) - (if (#{syntax-object?\ 11115}# #{e\ 14915}#) - (#{match*\ 14741}# - (#{syntax-object-expression\ 11117}# - #{e\ 14915}#) - #{p\ 14916}# - (#{syntax-object-wrap\ 11119}# #{e\ 14915}#) + (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}#) '() - (#{syntax-object-module\ 11121}# #{e\ 14915}#)) - (#{match*\ 14741}# - #{e\ 14915}# - #{p\ 14916}# + (#{syntax-object-module\ 636}# #{e\ 4432}#)) + (#{match*\ 4258}# + #{e\ 4432}# + #{p\ 4433}# '(()) '() #f))))))))) @@ -12257,50 +12136,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 14925}#) - ((lambda (#{tmp\ 14927}#) - ((lambda (#{tmp\ 14928}#) - (if #{tmp\ 14928}# - (apply (lambda (#{_\ 14932}# #{e1\ 14933}# #{e2\ 14934}#) + (cons (lambda (#{x\ 4442}#) + ((lambda (#{tmp\ 4444}#) + ((lambda (#{tmp\ 4445}#) + (if #{tmp\ 4445}# + (apply (lambda (#{_\ 4449}# #{e1\ 4450}# #{e2\ 4451}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i14929" "i14930" "i14931")) + #("i4446" "i4447" "i4448")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i14926"))) + #(ribcage #(x) #((top)) #("i4443"))) (hygiene guile)) - (cons #{e1\ 14933}# #{e2\ 14934}#))) - #{tmp\ 14928}#) - ((lambda (#{tmp\ 14936}#) - (if #{tmp\ 14936}# - (apply (lambda (#{_\ 14942}# - #{out\ 14943}# - #{in\ 14944}# - #{e1\ 14945}# - #{e2\ 14946}#) + (cons #{e1\ 4450}# #{e2\ 4451}#))) + #{tmp\ 4445}#) + ((lambda (#{tmp\ 4453}#) + (if #{tmp\ 4453}# + (apply (lambda (#{_\ 4459}# + #{out\ 4460}# + #{in\ 4461}# + #{e1\ 4462}# + #{e2\ 4463}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i14937" - "i14938" - "i14939" - "i14940" - "i14941")) + #("i4454" + "i4455" + "i4456" + "i4457" + "i4458")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14926"))) + #("i4443"))) (hygiene guile)) - #{in\ 14944}# + #{in\ 4461}# '() - (list #{out\ 14943}# + (list #{out\ 4460}# (cons '#(syntax-object begin ((top) @@ -12311,27 +12190,27 @@ (top) (top) (top)) - #("i14937" - "i14938" - "i14939" - "i14940" - "i14941")) + #("i4454" + "i4455" + "i4456" + "i4457" + "i4458")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14926"))) + #("i4443"))) (hygiene guile)) - (cons #{e1\ 14945}# - #{e2\ 14946}#))))) - #{tmp\ 14936}#) - ((lambda (#{tmp\ 14948}#) - (if #{tmp\ 14948}# - (apply (lambda (#{_\ 14954}# - #{out\ 14955}# - #{in\ 14956}# - #{e1\ 14957}# - #{e2\ 14958}#) + (cons #{e1\ 4462}# + #{e2\ 4463}#))))) + #{tmp\ 4453}#) + ((lambda (#{tmp\ 4465}#) + (if #{tmp\ 4465}# + (apply (lambda (#{_\ 4471}# + #{out\ 4472}# + #{in\ 4473}# + #{e1\ 4474}# + #{e2\ 4475}#) (list '#(syntax-object syntax-case ((top) @@ -12342,16 +12221,16 @@ (top) (top) (top)) - #("i14949" - "i14950" - "i14951" - "i14952" - "i14953")) + #("i4466" + "i4467" + "i4468" + "i4469" + "i4470")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14926"))) + #("i4443"))) (hygiene guile)) (cons '#(syntax-object list @@ -12363,20 +12242,20 @@ (top) (top) (top)) - #("i14949" - "i14950" - "i14951" - "i14952" - "i14953")) + #("i4466" + "i4467" + "i4468" + "i4469" + "i4470")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14926"))) + #("i4443"))) (hygiene guile)) - #{in\ 14956}#) + #{in\ 4473}#) '() - (list #{out\ 14955}# + (list #{out\ 4472}# (cons '#(syntax-object begin ((top) @@ -12391,11 +12270,11 @@ (top) (top) (top)) - #("i14949" - "i14950" - "i14951" - "i14952" - "i14953")) + #("i4466" + "i4467" + "i4468" + "i4469" + "i4470")) #(ribcage () () @@ -12403,53 +12282,53 @@ #(ribcage #(x) #((top)) - #("i14926"))) + #("i4443"))) (hygiene guile)) - (cons #{e1\ 14957}# - #{e2\ 14958}#))))) - #{tmp\ 14948}#) + (cons #{e1\ 4474}# + #{e2\ 4475}#))))) + #{tmp\ 4465}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14927}#))) + #{tmp\ 4444}#))) ($sc-dispatch - #{tmp\ 14927}# + #{tmp\ 4444}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 14927}# + #{tmp\ 4444}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 14927}# + #{tmp\ 4444}# '(any () any . each-any)))) - #{x\ 14925}#)) + #{x\ 4442}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 14962}#) - ((lambda (#{tmp\ 14964}#) - ((lambda (#{tmp\ 14965}#) - (if #{tmp\ 14965}# - (apply (lambda (#{_\ 14971}# - #{k\ 14972}# - #{keyword\ 14973}# - #{pattern\ 14974}# - #{template\ 14975}#) + (cons (lambda (#{x\ 4479}#) + ((lambda (#{tmp\ 4481}#) + ((lambda (#{tmp\ 4482}#) + (if #{tmp\ 4482}# + (apply (lambda (#{_\ 4488}# + #{k\ 4489}# + #{keyword\ 4490}# + #{pattern\ 4491}# + #{template\ 4492}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i14963"))) + #(ribcage #(x) #((top)) #("i4480"))) (hygiene guile)) '(#(syntax-object x @@ -12457,13 +12336,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i14963"))) + #(ribcage #(x) #((top)) #("i4480"))) (hygiene guile))) (vector '(#(syntax-object @@ -12472,13 +12351,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i14963"))) + #(ribcage #(x) #((top)) #("i4480"))) (hygiene guile)) . #(syntax-object @@ -12487,13 +12366,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i14963"))) + #(ribcage #(x) #((top)) #("i4480"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12509,34 +12388,34 @@ (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14963"))) + #("i4480"))) (hygiene guile)) - #{pattern\ 14974}#)) + #{pattern\ 4491}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14963"))) + #("i4480"))) (hygiene guile)) (cons '#(syntax-object x @@ -12552,20 +12431,20 @@ (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14963"))) + #("i4480"))) (hygiene guile)) - (cons #{k\ 14972}# - (map (lambda (#{tmp\ 14979}# - #{tmp\ 14978}#) + (cons #{k\ 4489}# + (map (lambda (#{tmp\ 4496}# + #{tmp\ 4495}#) (list (cons '#(syntax-object dummy ((top) @@ -12580,11 +12459,11 @@ (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () @@ -12592,10 +12471,10 @@ #(ribcage #(x) #((top)) - #("i14963"))) + #("i4480"))) (hygiene guile)) - #{tmp\ 14978}#) + #{tmp\ 4495}#) (list '#(syntax-object syntax ((top) @@ -12610,11 +12489,11 @@ (top) (top) (top)) - #("i14966" - "i14967" - "i14968" - "i14969" - "i14970")) + #("i4483" + "i4484" + "i4485" + "i4486" + "i4487")) #(ribcage () () @@ -12622,47 +12501,47 @@ #(ribcage #(x) #((top)) - #("i14963"))) + #("i4480"))) (hygiene guile)) - #{tmp\ 14979}#))) - #{template\ 14975}# - #{pattern\ 14974}#)))))) - #{tmp\ 14965}#) + #{tmp\ 4496}#))) + #{template\ 4492}# + #{pattern\ 4491}#)))))) + #{tmp\ 4482}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14964}#))) + #{tmp\ 4481}#))) ($sc-dispatch - #{tmp\ 14964}# + #{tmp\ 4481}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 14962}#)) + #{x\ 4479}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 14980}#) - ((lambda (#{tmp\ 14982}#) - ((lambda (#{tmp\ 14983}#) - (if (if #{tmp\ 14983}# - (apply (lambda (#{let*\ 14989}# - #{x\ 14990}# - #{v\ 14991}# - #{e1\ 14992}# - #{e2\ 14993}#) - (and-map identifier? #{x\ 14990}#)) - #{tmp\ 14983}#) + (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}#) #f) - (apply (lambda (#{let*\ 15000}# - #{x\ 15001}# - #{v\ 15002}# - #{e1\ 15003}# - #{e2\ 15004}#) - (letrec ((#{f\ 15007}# - (lambda (#{bindings\ 15008}#) - (if (null? #{bindings\ 15008}#) + (apply (lambda (#{let*\ 4517}# + #{x\ 4518}# + #{v\ 4519}# + #{e1\ 4520}# + #{e2\ 4521}#) + (letrec ((#{f\ 4524}# + (lambda (#{bindings\ 4525}#) + (if (null? #{bindings\ 4525}#) (cons '#(syntax-object let ((top) @@ -12670,7 +12549,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i15005" "i15006")) + #("i4522" "i4523")) #(ribcage #(let* x v e1 e2) #((top) @@ -12678,25 +12557,25 @@ (top) (top) (top)) - #("i14995" - "i14996" - "i14997" - "i14998" - "i14999")) + #("i4512" + "i4513" + "i4514" + "i4515" + "i4516")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i14981"))) + #("i4498"))) (hygiene guile)) (cons '() - (cons #{e1\ 15003}# - #{e2\ 15004}#))) - ((lambda (#{tmp\ 15013}#) - ((lambda (#{tmp\ 15014}#) - (if #{tmp\ 15014}# - (apply (lambda (#{body\ 15017}# - #{binding\ 15018}#) + (cons #{e1\ 4520}# + #{e2\ 4521}#))) + ((lambda (#{tmp\ 4530}#) + ((lambda (#{tmp\ 4531}#) + (if #{tmp\ 4531}# + (apply (lambda (#{body\ 4534}# + #{binding\ 4535}#) (list '#(syntax-object let ((top) @@ -12705,8 +12584,8 @@ binding) #((top) (top)) - #("i15015" - "i15016")) + #("i4532" + "i4533")) #(ribcage () () @@ -12716,8 +12595,8 @@ bindings) #((top) (top)) - #("i15005" - "i15006")) + #("i4522" + "i4523")) #(ribcage #(let* x @@ -12729,11 +12608,11 @@ (top) (top) (top)) - #("i14995" - "i14996" - "i14997" - "i14998" - "i14999")) + #("i4512" + "i4513" + "i4514" + "i4515" + "i4516")) #(ribcage () () @@ -12741,57 +12620,57 @@ #(ribcage #(x) #((top)) - #("i14981"))) + #("i4498"))) (hygiene guile)) - (list #{binding\ 15018}#) - #{body\ 15017}#)) - #{tmp\ 15014}#) + (list #{binding\ 4535}#) + #{body\ 4534}#)) + #{tmp\ 4531}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15013}#))) + #{tmp\ 4530}#))) ($sc-dispatch - #{tmp\ 15013}# + #{tmp\ 4530}# '(any any)))) - (list (#{f\ 15007}# - (cdr #{bindings\ 15008}#)) - (car #{bindings\ 15008}#))))))) - (#{f\ 15007}# - (map list #{x\ 15001}# #{v\ 15002}#)))) - #{tmp\ 14983}#) + (list (#{f\ 4524}# + (cdr #{bindings\ 4525}#)) + (car #{bindings\ 4525}#))))))) + (#{f\ 4524}# + (map list #{x\ 4518}# #{v\ 4519}#)))) + #{tmp\ 4500}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 14982}#))) + #{tmp\ 4499}#))) ($sc-dispatch - #{tmp\ 14982}# + #{tmp\ 4499}# '(any #(each (any any)) any . each-any)))) - #{x\ 14980}#)) + #{x\ 4497}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 15019}#) - ((lambda (#{tmp\ 15021}#) - ((lambda (#{tmp\ 15022}#) - (if #{tmp\ 15022}# - (apply (lambda (#{_\ 15030}# - #{var\ 15031}# - #{init\ 15032}# - #{step\ 15033}# - #{e0\ 15034}# - #{e1\ 15035}# - #{c\ 15036}#) - ((lambda (#{tmp\ 15038}#) - ((lambda (#{tmp\ 15039}#) - (if #{tmp\ 15039}# - (apply (lambda (#{step\ 15041}#) - ((lambda (#{tmp\ 15042}#) - ((lambda (#{tmp\ 15043}#) - (if #{tmp\ 15043}# + (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}# (apply (lambda () (list '#(syntax-object let @@ -12799,7 +12678,7 @@ #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -12815,13 +12694,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -12829,7 +12708,7 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) '#(syntax-object @@ -12838,7 +12717,7 @@ #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -12854,13 +12733,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -12868,19 +12747,19 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) (map list - #{var\ 15031}# - #{init\ 15032}#) + #{var\ 4548}# + #{init\ 4549}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -12896,13 +12775,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -12910,7 +12789,7 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) (list '#(syntax-object @@ -12919,7 +12798,7 @@ #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -12935,13 +12814,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -12949,17 +12828,17 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) - #{e0\ 15034}#) + #{e0\ 4551}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -12975,13 +12854,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -12989,18 +12868,18 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) (append - #{c\ 15036}# + #{c\ 4553}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13016,13 +12895,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13030,15 +12909,15 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) - #{step\ 15041}#))))))) - #{tmp\ 15043}#) - ((lambda (#{tmp\ 15048}#) - (if #{tmp\ 15048}# - (apply (lambda (#{e1\ 15051}# - #{e2\ 15052}#) + #{step\ 4558}#))))))) + #{tmp\ 4560}#) + ((lambda (#{tmp\ 4565}#) + (if #{tmp\ 4565}# + (apply (lambda (#{e1\ 4568}# + #{e2\ 4569}#) (list '#(syntax-object let ((top) @@ -13047,12 +12926,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13068,13 +12947,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13082,7 +12961,7 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) '#(syntax-object @@ -13093,12 +12972,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13114,13 +12993,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13128,12 +13007,12 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) (map list - #{var\ 15031}# - #{init\ 15032}#) + #{var\ 4548}# + #{init\ 4549}#) (list '#(syntax-object if ((top) @@ -13142,12 +13021,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13163,13 +13042,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13177,10 +13056,10 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) - #{e0\ 15034}# + #{e0\ 4551}# (cons '#(syntax-object begin ((top) @@ -13189,12 +13068,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13210,13 +13089,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13224,11 +13103,11 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) - (cons #{e1\ 15051}# - #{e2\ 15052}#)) + (cons #{e1\ 4568}# + #{e2\ 4569}#)) (cons '#(syntax-object begin ((top) @@ -13237,12 +13116,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13258,13 +13137,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13272,11 +13151,11 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) (append - #{c\ 15036}# + #{c\ 4553}# (list (cons '#(syntax-object doloop ((top) @@ -13285,12 +13164,12 @@ e2) #((top) (top)) - #("i15049" - "i15050")) + #("i4566" + "i4567")) #(ribcage #(step) #((top)) - #("i15040")) + #("i4557")) #(ribcage #(_ var @@ -13306,13 +13185,13 @@ (top) (top) (top)) - #("i15023" - "i15024" - "i15025" - "i15026" - "i15027" - "i15028" - "i15029")) + #("i4540" + "i4541" + "i4542" + "i4543" + "i4544" + "i4545" + "i4546")) #(ribcage () () @@ -13320,107 +13199,107 @@ #(ribcage #(orig-x) #((top)) - #("i15020"))) + #("i4537"))) (hygiene guile)) - #{step\ 15041}#))))))) - #{tmp\ 15048}#) + #{step\ 4558}#))))))) + #{tmp\ 4565}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15042}#))) + #{tmp\ 4559}#))) ($sc-dispatch - #{tmp\ 15042}# + #{tmp\ 4559}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 15042}# + #{tmp\ 4559}# '()))) - #{e1\ 15035}#)) - #{tmp\ 15039}#) + #{e1\ 4552}#)) + #{tmp\ 4556}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15038}#))) + #{tmp\ 4555}#))) ($sc-dispatch - #{tmp\ 15038}# + #{tmp\ 4555}# 'each-any))) - (map (lambda (#{v\ 15059}# #{s\ 15060}#) - ((lambda (#{tmp\ 15063}#) - ((lambda (#{tmp\ 15064}#) - (if #{tmp\ 15064}# - (apply (lambda () #{v\ 15059}#) - #{tmp\ 15064}#) - ((lambda (#{tmp\ 15065}#) - (if #{tmp\ 15065}# - (apply (lambda (#{e\ 15067}#) - #{e\ 15067}#) - #{tmp\ 15065}#) - ((lambda (#{_\ 15069}#) + (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}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 15019}# - #{s\ 15060}#)) - #{tmp\ 15063}#))) + #{orig-x\ 4536}# + #{s\ 4577}#)) + #{tmp\ 4580}#))) ($sc-dispatch - #{tmp\ 15063}# + #{tmp\ 4580}# '(any))))) ($sc-dispatch - #{tmp\ 15063}# + #{tmp\ 4580}# '()))) - #{s\ 15060}#)) - #{var\ 15031}# - #{step\ 15033}#))) - #{tmp\ 15022}#) + #{s\ 4577}#)) + #{var\ 4548}# + #{step\ 4550}#))) + #{tmp\ 4539}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15021}#))) + #{tmp\ 4538}#))) ($sc-dispatch - #{tmp\ 15021}# + #{tmp\ 4538}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 15019}#)) + #{orig-x\ 4536}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 15076}# - (lambda (#{x\ 15080}# #{y\ 15081}#) - ((lambda (#{tmp\ 15085}#) - ((lambda (#{tmp\ 15086}#) - (if #{tmp\ 15086}# - (apply (lambda (#{x\ 15089}# #{y\ 15090}#) - ((lambda (#{tmp\ 15091}#) - ((lambda (#{tmp\ 15092}#) - (if #{tmp\ 15092}# - (apply (lambda (#{dy\ 15094}#) - ((lambda (#{tmp\ 15095}#) - ((lambda (#{tmp\ 15096}#) - (if #{tmp\ 15096}# - (apply (lambda (#{dx\ 15098}#) + (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}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i15097")) + #("i4614")) #(ribcage #(dy) #((top)) - #("i15093")) + #("i4610")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13434,8 +13313,8 @@ y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13445,35 +13324,35 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - (cons #{dx\ 15098}# - #{dy\ 15094}#))) - #{tmp\ 15096}#) - ((lambda (#{_\ 15100}#) - (if (null? #{dy\ 15094}#) + (cons #{dx\ 4615}# + #{dy\ 4611}#))) + #{tmp\ 4613}#) + ((lambda (#{_\ 4617}#) + (if (null? #{dy\ 4611}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i15099")) + #("i4616")) #(ribcage #(dy) #((top)) - #("i15093")) + #("i4610")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13487,8 +13366,8 @@ y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13498,31 +13377,31 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15089}#) + #{x\ 4606}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i15099")) + #("i4616")) #(ribcage #(dy) #((top)) - #("i15093")) + #("i4610")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13536,8 +13415,8 @@ y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13547,17 +13426,17 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15089}# - #{y\ 15090}#))) - #{tmp\ 15095}#))) + #{x\ 4606}# + #{y\ 4607}#))) + #{tmp\ 4612}#))) ($sc-dispatch - #{tmp\ 15095}# + #{tmp\ 4612}# '(#(free-id #(syntax-object quote @@ -13565,13 +13444,13 @@ #(ribcage #(dy) #((top)) - #("i15093")) + #("i4610")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13584,8 +13463,8 @@ #(x y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13595,32 +13474,32 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) any)))) - #{x\ 15089}#)) - #{tmp\ 15092}#) - ((lambda (#{tmp\ 15101}#) - (if #{tmp\ 15101}# - (apply (lambda (#{stuff\ 15103}#) + #{x\ 4606}#)) + #{tmp\ 4609}#) + ((lambda (#{tmp\ 4618}#) + (if #{tmp\ 4618}# + (apply (lambda (#{stuff\ 4620}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i15102")) + #("i4619")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13634,8 +13513,8 @@ y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13645,29 +13524,29 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - (cons #{x\ 15089}# - #{stuff\ 15103}#))) - #{tmp\ 15101}#) - ((lambda (#{else\ 15105}#) + (cons #{x\ 4606}# + #{stuff\ 4620}#))) + #{tmp\ 4618}#) + ((lambda (#{else\ 4622}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i15104")) + #("i4621")) #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" + "i4605")) #(ribcage () () @@ -13680,8 +13559,8 @@ #(x y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" + "i4600")) #(ribcage #(quasicons quasiappend @@ -13691,17 +13570,17 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15089}# - #{y\ 15090}#)) - #{tmp\ 15091}#))) + #{x\ 4606}# + #{y\ 4607}#)) + #{tmp\ 4608}#))) ($sc-dispatch - #{tmp\ 15091}# + #{tmp\ 4608}# '(#(free-id #(syntax-object list @@ -13709,15 +13588,13 @@ #(ribcage #(x y) #((top) (top)) - #("i15087" - "i15088")) + #("i4604" "i4605")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i15082" - "i15083")) + #("i4599" "i4600")) #(ribcage #(quasicons quasiappend @@ -13727,15 +13604,15 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 15091}# + #{tmp\ 4608}# '(#(free-id #(syntax-object quote @@ -13743,13 +13620,13 @@ #(ribcage #(x y) #((top) (top)) - #("i15087" "i15088")) + #("i4604" "i4605")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i15082" "i15083")) + #("i4599" "i4600")) #(ribcage #(quasicons quasiappend @@ -13759,44 +13636,44 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) any)))) - #{y\ 15090}#)) - #{tmp\ 15086}#) + #{y\ 4607}#)) + #{tmp\ 4603}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15085}#))) - ($sc-dispatch #{tmp\ 15085}# (quote (any any))))) - (list #{x\ 15080}# #{y\ 15081}#)))) - (#{quasiappend\ 15077}# - (lambda (#{x\ 15106}# #{y\ 15107}#) - ((lambda (#{tmp\ 15111}#) - ((lambda (#{tmp\ 15112}#) - (if #{tmp\ 15112}# - (apply (lambda (#{x\ 15115}# #{y\ 15116}#) - ((lambda (#{tmp\ 15117}#) - ((lambda (#{tmp\ 15118}#) - (if #{tmp\ 15118}# - (apply (lambda () #{x\ 15115}#) - #{tmp\ 15118}#) - ((lambda (#{_\ 15120}#) + #{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}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i15119")) + #("i4636")) #(ribcage #(x y) #((top) (top)) - #("i15113" - "i15114")) + #("i4630" + "i4631")) #(ribcage () () @@ -13808,8 +13685,8 @@ #(ribcage #(x y) #((top) (top)) - #("i15108" - "i15109")) + #("i4625" + "i4626")) #(ribcage #(quasicons quasiappend @@ -13819,16 +13696,16 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15115}# - #{y\ 15116}#)) - #{tmp\ 15117}#))) + #{x\ 4632}# + #{y\ 4633}#)) + #{tmp\ 4634}#))) ($sc-dispatch - #{tmp\ 15117}# + #{tmp\ 4634}# '(#(free-id #(syntax-object quote @@ -13836,13 +13713,13 @@ #(ribcage #(x y) #((top) (top)) - #("i15113" "i15114")) + #("i4630" "i4631")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i15108" "i15109")) + #("i4625" "i4626")) #(ribcage #(quasicons quasiappend @@ -13852,45 +13729,45 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) ())))) - #{y\ 15116}#)) - #{tmp\ 15112}#) + #{y\ 4633}#)) + #{tmp\ 4629}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15111}#))) - ($sc-dispatch #{tmp\ 15111}# (quote (any any))))) - (list #{x\ 15106}# #{y\ 15107}#)))) - (#{quasivector\ 15078}# - (lambda (#{x\ 15121}#) - ((lambda (#{tmp\ 15124}#) - ((lambda (#{x\ 15126}#) - ((lambda (#{tmp\ 15127}#) - ((lambda (#{tmp\ 15128}#) - (if #{tmp\ 15128}# - (apply (lambda (#{x\ 15130}#) + #{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}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i15129")) + #("i4646")) #(ribcage #(x) #((top)) - #("i15125")) + #("i4642")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15122")) + #("i4639")) #(ribcage #(quasicons quasiappend @@ -13900,28 +13777,28 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) (list->vector - #{x\ 15130}#))) - #{tmp\ 15128}#) - ((lambda (#{tmp\ 15132}#) - (if #{tmp\ 15132}# - (apply (lambda (#{x\ 15134}#) + #{x\ 4647}#))) + #{tmp\ 4645}#) + ((lambda (#{tmp\ 4649}#) + (if #{tmp\ 4649}# + (apply (lambda (#{x\ 4651}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i15133")) + #("i4650")) #(ribcage #(x) #((top)) - #("i15125")) + #("i4642")) #(ribcage () () @@ -13933,7 +13810,7 @@ #(ribcage #(x) #((top)) - #("i15122")) + #("i4639")) #(ribcage #(quasicons quasiappend @@ -13943,31 +13820,31 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15134}#)) - #{tmp\ 15132}#) - ((lambda (#{_\ 15137}#) + #{x\ 4651}#)) + #{tmp\ 4649}#) + ((lambda (#{_\ 4654}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i15136")) + #("i4653")) #(ribcage #(x) #((top)) - #("i15125")) + #("i4642")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15122")) + #("i4639")) #(ribcage #(quasicons quasiappend @@ -13977,15 +13854,15 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{x\ 15126}#)) - #{tmp\ 15127}#))) + #{x\ 4643}#)) + #{tmp\ 4644}#))) ($sc-dispatch - #{tmp\ 15127}# + #{tmp\ 4644}# '(#(free-id #(syntax-object list @@ -13993,82 +13870,82 @@ #(ribcage #(x) #((top)) - #("i15125")) + #("i4642")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15122")) + #("i4639")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 15127}# + #{tmp\ 4644}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i15125")) + #(ribcage #(x) #((top)) #("i4642")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15122")) + #(ribcage #(x) #((top)) #("i4639")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) each-any)))) - #{x\ 15126}#)) - #{tmp\ 15124}#)) - #{x\ 15121}#))) - (#{quasi\ 15079}# - (lambda (#{p\ 15138}# #{lev\ 15139}#) - ((lambda (#{tmp\ 15142}#) - ((lambda (#{tmp\ 15143}#) - (if #{tmp\ 15143}# - (apply (lambda (#{p\ 15145}#) - (if (= #{lev\ 15139}# 0) - #{p\ 15145}# - (#{quasicons\ 15076}# + #{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}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i15144")) + #("i4661")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) #(syntax-object unquote @@ -14076,51 +13953,50 @@ #(ribcage #(p) #((top)) - #("i15144")) + #("i4661")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) - (#{quasi\ 15079}# - (list #{p\ 15145}#) - (- #{lev\ 15139}# 1))))) - #{tmp\ 15143}#) - ((lambda (#{tmp\ 15146}#) - (if (if #{tmp\ 15146}# - (apply (lambda (#{args\ 15148}#) - (= #{lev\ 15139}# 0)) - #{tmp\ 15146}#) + (#{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}#) #f) - (apply (lambda (#{args\ 15150}#) + (apply (lambda (#{args\ 4667}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 15138}# + #{p\ 4655}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i15149")) + #("i4666")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend @@ -14130,33 +14006,33 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{args\ 15150}#))) - #{tmp\ 15146}#) - ((lambda (#{tmp\ 15151}#) - (if #{tmp\ 15151}# - (apply (lambda (#{p\ 15154}# - #{q\ 15155}#) - (if (= #{lev\ 15139}# 0) - (#{quasiappend\ 15077}# - #{p\ 15154}# - (#{quasi\ 15079}# - #{q\ 15155}# - #{lev\ 15139}#)) - (#{quasicons\ 15076}# - (#{quasicons\ 15076}# + #{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}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i15152" - "i15153")) + #("i4669" + "i4670")) #(ribcage () () @@ -14164,8 +14040,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14175,10 +14051,10 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14186,8 +14062,8 @@ #(ribcage #(p q) #((top) (top)) - #("i15152" - "i15153")) + #("i4669" + "i4670")) #(ribcage () () @@ -14195,8 +14071,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14206,33 +14082,31 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) - (#{quasi\ 15079}# - (list #{p\ 15154}#) - (- #{lev\ 15139}# - 1))) - (#{quasi\ 15079}# - #{q\ 15155}# - #{lev\ 15139}#)))) - #{tmp\ 15151}#) - ((lambda (#{tmp\ 15156}#) - (if (if #{tmp\ 15156}# - (apply (lambda (#{args\ 15159}# - #{q\ 15160}#) - (= #{lev\ 15139}# - 0)) - #{tmp\ 15156}#) + (#{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}#) #f) - (apply (lambda (#{args\ 15163}# - #{q\ 15164}#) + (apply (lambda (#{args\ 4680}# + #{q\ 4681}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 15138}# + #{p\ 4655}# (cons '#(syntax-object unquote-splicing ((top) @@ -14240,8 +14114,8 @@ #(args q) #((top) (top)) - #("i15161" - "i15162")) + #("i4678" + "i4679")) #(ribcage () () @@ -14250,8 +14124,8 @@ #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14261,25 +14135,25 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{args\ 15163}#))) - #{tmp\ 15156}#) - ((lambda (#{tmp\ 15165}#) - (if #{tmp\ 15165}# - (apply (lambda (#{p\ 15167}#) - (#{quasicons\ 15076}# + #{args\ 4680}#))) + #{tmp\ 4673}#) + ((lambda (#{tmp\ 4682}#) + (if #{tmp\ 4682}# + (apply (lambda (#{p\ 4684}#) + (#{quasicons\ 4593}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i15166")) + #("i4683")) #(ribcage () () @@ -14288,8 +14162,8 @@ #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14299,10 +14173,10 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) #(syntax-object @@ -14311,7 +14185,7 @@ #(ribcage #(p) #((top)) - #("i15166")) + #("i4683")) #(ribcage () () @@ -14320,8 +14194,8 @@ #(p lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14331,45 +14205,45 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) - (#{quasi\ 15079}# - (list #{p\ 15167}#) - (+ #{lev\ 15139}# + (#{quasi\ 4596}# + (list #{p\ 4684}#) + (+ #{lev\ 4656}# 1)))) - #{tmp\ 15165}#) - ((lambda (#{tmp\ 15168}#) - (if #{tmp\ 15168}# - (apply (lambda (#{p\ 15171}# - #{q\ 15172}#) - (#{quasicons\ 15076}# - (#{quasi\ 15079}# - #{p\ 15171}# - #{lev\ 15139}#) - (#{quasi\ 15079}# - #{q\ 15172}# - #{lev\ 15139}#))) - #{tmp\ 15168}#) - ((lambda (#{tmp\ 15173}#) - (if #{tmp\ 15173}# - (apply (lambda (#{x\ 15175}#) - (#{quasivector\ 15078}# - (#{quasi\ 15079}# - #{x\ 15175}# - #{lev\ 15139}#))) - #{tmp\ 15173}#) - ((lambda (#{p\ 15178}#) + #{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}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i15177")) + #("i4694")) #(ribcage () () @@ -14379,8 +14253,8 @@ lev) #((top) (top)) - #("i15140" - "i15141")) + #("i4657" + "i4658")) #(ribcage #(quasicons quasiappend @@ -14390,23 +14264,23 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile)) - #{p\ 15178}#)) - #{tmp\ 15142}#))) + #{p\ 4695}#)) + #{tmp\ 4659}#))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '(any . any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '(#(free-id #(syntax-object quasiquote @@ -14415,7 +14289,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend @@ -14425,14 +14299,14 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '((#(free-id #(syntax-object unquote-splicing @@ -14441,7 +14315,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend @@ -14451,17 +14325,17 @@ (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '((#(free-id #(syntax-object unquote-splicing @@ -14470,23 +14344,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" + "i4590" + "i4591" + "i4592"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '(#(free-id #(syntax-object unquote @@ -14495,22 +14369,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" - "i15073" - "i15074" - "i15075"))) + #("i4589" "i4590" "i4591" "i4592"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 15142}# + #{tmp\ 4659}# '(#(free-id #(syntax-object unquote @@ -14519,244 +14390,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i15140" "i15141")) + #("i4657" "i4658")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i15072" "i15073" "i15074" "i15075"))) + #("i4589" "i4590" "i4591" "i4592"))) (hygiene guile))) any)))) - #{p\ 15138}#)))) - (lambda (#{x\ 15179}#) - ((lambda (#{tmp\ 15181}#) - ((lambda (#{tmp\ 15182}#) - (if #{tmp\ 15182}# - (apply (lambda (#{_\ 15185}# #{e\ 15186}#) - (#{quasi\ 15079}# #{e\ 15186}# 0)) - #{tmp\ 15182}#) + #{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}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15181}#))) - ($sc-dispatch #{tmp\ 15181}# (quote (any any))))) - #{x\ 15179}#))) + #{tmp\ 4698}#))) + ($sc-dispatch #{tmp\ 4698}# (quote (any any))))) + #{x\ 4696}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 15187}#) - (letrec ((#{read-file\ 15190}# - (lambda (#{fn\ 15191}# #{k\ 15192}#) - (let ((#{p\ 15196}# (open-input-file #{fn\ 15191}#))) - (letrec ((#{f\ 15200}# - (lambda (#{x\ 15201}# #{result\ 15202}#) - (if (eof-object? #{x\ 15201}#) + (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}#) (begin - (close-input-port #{p\ 15196}#) - (reverse #{result\ 15202}#)) - (#{f\ 15200}# - (read #{p\ 15196}#) + (close-input-port #{p\ 4713}#) + (reverse #{result\ 4719}#)) + (#{f\ 4717}# + (read #{p\ 4713}#) (cons (datum->syntax - #{k\ 15192}# - #{x\ 15201}#) - #{result\ 15202}#)))))) - (#{f\ 15200}# (read #{p\ 15196}#) (quote ()))))))) - ((lambda (#{tmp\ 15203}#) - ((lambda (#{tmp\ 15204}#) - (if #{tmp\ 15204}# - (apply (lambda (#{k\ 15207}# #{filename\ 15208}#) - (let ((#{fn\ 15210}# - (syntax->datum #{filename\ 15208}#))) - ((lambda (#{tmp\ 15212}#) - ((lambda (#{tmp\ 15213}#) - (if #{tmp\ 15213}# - (apply (lambda (#{exp\ 15215}#) + #{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}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i15214")) + #("i4731")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i15209")) + #("i4726")) #(ribcage #(k filename) #((top) (top)) - #("i15205" - "i15206")) + #("i4722" + "i4723")) #(ribcage (read-file) ((top)) - ("i15189")) + ("i4706")) #(ribcage #(x) #((top)) - #("i15188"))) + #("i4705"))) (hygiene guile)) - #{exp\ 15215}#)) - #{tmp\ 15213}#) + #{exp\ 4732}#)) + #{tmp\ 4730}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15212}#))) + #{tmp\ 4729}#))) ($sc-dispatch - #{tmp\ 15212}# + #{tmp\ 4729}# 'each-any))) - (#{read-file\ 15190}# - #{fn\ 15210}# - #{k\ 15207}#)))) - #{tmp\ 15204}#) + (#{read-file\ 4707}# + #{fn\ 4727}# + #{k\ 4724}#)))) + #{tmp\ 4721}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15203}#))) - ($sc-dispatch #{tmp\ 15203}# (quote (any any))))) - #{x\ 15187}#))) + #{tmp\ 4720}#))) + ($sc-dispatch #{tmp\ 4720}# (quote (any any))))) + #{x\ 4704}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 15217}#) - ((lambda (#{tmp\ 15219}#) - ((lambda (#{tmp\ 15220}#) - (if #{tmp\ 15220}# - (apply (lambda (#{k\ 15223}# #{filename\ 15224}#) - (let ((#{fn\ 15226}# - (syntax->datum #{filename\ 15224}#))) - ((lambda (#{tmp\ 15228}#) - ((lambda (#{fn\ 15230}#) + (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}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i15229")) + #("i4746")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i15225")) + #("i4742")) #(ribcage #(k filename) #((top) (top)) - #("i15221" "i15222")) + #("i4738" "i4739")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15218"))) + #("i4735"))) (hygiene guile)) - #{fn\ 15230}#)) - #{tmp\ 15228}#)) - (let ((#{t\ 15233}# - (%search-load-path #{fn\ 15226}#))) - (if #{t\ 15233}# - #{t\ 15233}# + #{fn\ 4747}#)) + #{tmp\ 4745}#)) + (let ((#{t\ 4750}# + (%search-load-path #{fn\ 4743}#))) + (if #{t\ 4750}# + #{t\ 4750}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 15217}# - #{filename\ 15224}#)))))) - #{tmp\ 15220}#) + #{x\ 4734}# + #{filename\ 4741}#)))))) + #{tmp\ 4737}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15219}#))) - ($sc-dispatch #{tmp\ 15219}# (quote (any any))))) - #{x\ 15217}#)) + #{tmp\ 4736}#))) + ($sc-dispatch #{tmp\ 4736}# (quote (any any))))) + #{x\ 4734}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 15235}#) - ((lambda (#{tmp\ 15237}#) - ((lambda (#{tmp\ 15238}#) - (if #{tmp\ 15238}# - (apply (lambda (#{_\ 15241}# #{e\ 15242}#) + (cons (lambda (#{x\ 4752}#) + ((lambda (#{tmp\ 4754}#) + ((lambda (#{tmp\ 4755}#) + (if #{tmp\ 4755}# + (apply (lambda (#{_\ 4758}# #{e\ 4759}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 15235}#)) - #{tmp\ 15238}#) + #{x\ 4752}#)) + #{tmp\ 4755}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15237}#))) - ($sc-dispatch #{tmp\ 15237}# (quote (any any))))) - #{x\ 15235}#)) + #{tmp\ 4754}#))) + ($sc-dispatch #{tmp\ 4754}# (quote (any any))))) + #{x\ 4752}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 15243}#) - ((lambda (#{tmp\ 15245}#) - ((lambda (#{tmp\ 15246}#) - (if #{tmp\ 15246}# - (apply (lambda (#{_\ 15249}# #{e\ 15250}#) + (cons (lambda (#{x\ 4760}#) + ((lambda (#{tmp\ 4762}#) + ((lambda (#{tmp\ 4763}#) + (if #{tmp\ 4763}# + (apply (lambda (#{_\ 4766}# #{e\ 4767}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 15243}#)) - #{tmp\ 15246}#) + #{x\ 4760}#)) + #{tmp\ 4763}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15245}#))) - ($sc-dispatch #{tmp\ 15245}# (quote (any any))))) - #{x\ 15243}#)) + #{tmp\ 4762}#))) + ($sc-dispatch #{tmp\ 4762}# (quote (any any))))) + #{x\ 4760}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 15251}#) - ((lambda (#{tmp\ 15253}#) - ((lambda (#{tmp\ 15254}#) - (if #{tmp\ 15254}# - (apply (lambda (#{_\ 15259}# - #{e\ 15260}# - #{m1\ 15261}# - #{m2\ 15262}#) - ((lambda (#{tmp\ 15264}#) - ((lambda (#{body\ 15266}#) + (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}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i15265")) + #("i4782")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14764,35 +14635,35 @@ #(ribcage #(body) #((top)) - #("i15265")) + #("i4782")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - #{e\ 15260}#)) - #{body\ 15266}#)) - #{tmp\ 15264}#)) - (letrec ((#{f\ 15270}# - (lambda (#{clause\ 15271}# - #{clauses\ 15272}#) - (if (null? #{clauses\ 15272}#) - ((lambda (#{tmp\ 15274}#) - ((lambda (#{tmp\ 15275}#) - (if #{tmp\ 15275}# - (apply (lambda (#{e1\ 15278}# - #{e2\ 15279}#) + #{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}#) (cons '#(syntax-object begin ((top) @@ -14801,8 +14672,8 @@ e2) #((top) (top)) - #("i15276" - "i15277")) + #("i4793" + "i4794")) #(ribcage () () @@ -14814,9 +14685,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -14826,10 +14697,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -14837,17 +14708,17 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - (cons #{e1\ 15278}# - #{e2\ 15279}#))) - #{tmp\ 15275}#) - ((lambda (#{tmp\ 15281}#) - (if #{tmp\ 15281}# - (apply (lambda (#{k\ 15285}# - #{e1\ 15286}# - #{e2\ 15287}#) + (cons #{e1\ 4795}# + #{e2\ 4796}#))) + #{tmp\ 4792}#) + ((lambda (#{tmp\ 4798}#) + (if #{tmp\ 4798}# + (apply (lambda (#{k\ 4802}# + #{e1\ 4803}# + #{e2\ 4804}#) (list '#(syntax-object if ((top) @@ -14858,9 +14729,9 @@ #((top) (top) (top)) - #("i15282" - "i15283" - "i15284")) + #("i4799" + "i4800" + "i4801")) #(ribcage () () @@ -14872,9 +14743,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -14884,10 +14755,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -14895,7 +14766,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) (list '#(syntax-object @@ -14908,9 +14779,9 @@ #((top) (top) (top)) - #("i15282" - "i15283" - "i15284")) + #("i4799" + "i4800" + "i4801")) #(ribcage () () @@ -14922,9 +14793,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -14934,10 +14805,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -14945,7 +14816,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) '#(syntax-object @@ -14958,9 +14829,9 @@ #((top) (top) (top)) - #("i15282" - "i15283" - "i15284")) + #("i4799" + "i4800" + "i4801")) #(ribcage () () @@ -14972,9 +14843,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -14984,10 +14855,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -14995,7 +14866,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) (list '#(syntax-object @@ -15008,9 +14879,9 @@ #((top) (top) (top)) - #("i15282" - "i15283" - "i15284")) + #("i4799" + "i4800" + "i4801")) #(ribcage () () @@ -15022,9 +14893,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15034,10 +14905,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15045,10 +14916,10 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - #{k\ 15285}#)) + #{k\ 4802}#)) (cons '#(syntax-object begin ((top) @@ -15059,9 +14930,9 @@ #((top) (top) (top)) - #("i15282" - "i15283" - "i15284")) + #("i4799" + "i4800" + "i4801")) #(ribcage () () @@ -15073,9 +14944,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15085,10 +14956,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15096,27 +14967,27 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - (cons #{e1\ 15286}# - #{e2\ 15287}#)))) - #{tmp\ 15281}#) - ((lambda (#{_\ 15291}#) + (cons #{e1\ 4803}# + #{e2\ 4804}#)))) + #{tmp\ 4798}#) + ((lambda (#{_\ 4808}#) (syntax-violation 'case "bad clause" - #{x\ 15251}# - #{clause\ 15271}#)) - #{tmp\ 15274}#))) + #{x\ 4768}# + #{clause\ 4788}#)) + #{tmp\ 4791}#))) ($sc-dispatch - #{tmp\ 15274}# + #{tmp\ 4791}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 15274}# + #{tmp\ 4791}# '(#(free-id #(syntax-object else @@ -15127,37 +14998,37 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile))) any . each-any)))) - #{clause\ 15271}#) - ((lambda (#{tmp\ 15293}#) - ((lambda (#{rest\ 15295}#) - ((lambda (#{tmp\ 15296}#) - ((lambda (#{tmp\ 15297}#) - (if #{tmp\ 15297}# - (apply (lambda (#{k\ 15301}# - #{e1\ 15302}# - #{e2\ 15303}#) + #{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}#) (list '#(syntax-object if ((top) @@ -15168,13 +15039,13 @@ #((top) (top) (top)) - #("i15298" - "i15299" - "i15300")) + #("i4815" + "i4816" + "i4817")) #(ribcage #(rest) #((top)) - #("i15294")) + #("i4811")) #(ribcage () () @@ -15186,9 +15057,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15198,10 +15069,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15209,7 +15080,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) (list '#(syntax-object @@ -15222,13 +15093,13 @@ #((top) (top) (top)) - #("i15298" - "i15299" - "i15300")) + #("i4815" + "i4816" + "i4817")) #(ribcage #(rest) #((top)) - #("i15294")) + #("i4811")) #(ribcage () () @@ -15240,9 +15111,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15252,10 +15123,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15263,7 +15134,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) '#(syntax-object @@ -15276,13 +15147,13 @@ #((top) (top) (top)) - #("i15298" - "i15299" - "i15300")) + #("i4815" + "i4816" + "i4817")) #(ribcage #(rest) #((top)) - #("i15294")) + #("i4811")) #(ribcage () () @@ -15294,9 +15165,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15306,10 +15177,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15317,7 +15188,7 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) (list '#(syntax-object @@ -15330,13 +15201,13 @@ #((top) (top) (top)) - #("i15298" - "i15299" - "i15300")) + #("i4815" + "i4816" + "i4817")) #(ribcage #(rest) #((top)) - #("i15294")) + #("i4811")) #(ribcage () () @@ -15348,9 +15219,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15360,10 +15231,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15371,10 +15242,10 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - #{k\ 15301}#)) + #{k\ 4818}#)) (cons '#(syntax-object begin ((top) @@ -15385,13 +15256,13 @@ #((top) (top) (top)) - #("i15298" - "i15299" - "i15300")) + #("i4815" + "i4816" + "i4817")) #(ribcage #(rest) #((top)) - #("i15294")) + #("i4811")) #(ribcage () () @@ -15403,9 +15274,9 @@ #((top) (top) (top)) - #("i15267" - "i15268" - "i15269")) + #("i4784" + "i4785" + "i4786")) #(ribcage #(_ e @@ -15415,10 +15286,10 @@ (top) (top) (top)) - #("i15255" - "i15256" - "i15257" - "i15258")) + #("i4772" + "i4773" + "i4774" + "i4775")) #(ribcage () () @@ -15426,61 +15297,61 @@ #(ribcage #(x) #((top)) - #("i15252"))) + #("i4769"))) (hygiene guile)) - (cons #{e1\ 15302}# - #{e2\ 15303}#)) - #{rest\ 15295}#)) - #{tmp\ 15297}#) - ((lambda (#{_\ 15307}#) + (cons #{e1\ 4819}# + #{e2\ 4820}#)) + #{rest\ 4812}#)) + #{tmp\ 4814}#) + ((lambda (#{_\ 4824}#) (syntax-violation 'case "bad clause" - #{x\ 15251}# - #{clause\ 15271}#)) - #{tmp\ 15296}#))) + #{x\ 4768}# + #{clause\ 4788}#)) + #{tmp\ 4813}#))) ($sc-dispatch - #{tmp\ 15296}# + #{tmp\ 4813}# '(each-any any . each-any)))) - #{clause\ 15271}#)) - #{tmp\ 15293}#)) - (#{f\ 15270}# - (car #{clauses\ 15272}#) - (cdr #{clauses\ 15272}#))))))) - (#{f\ 15270}# #{m1\ 15261}# #{m2\ 15262}#)))) - #{tmp\ 15254}#) + #{clause\ 4788}#)) + #{tmp\ 4810}#)) + (#{f\ 4787}# + (car #{clauses\ 4789}#) + (cdr #{clauses\ 4789}#))))))) + (#{f\ 4787}# #{m1\ 4778}# #{m2\ 4779}#)))) + #{tmp\ 4771}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15253}#))) + #{tmp\ 4770}#))) ($sc-dispatch - #{tmp\ 15253}# + #{tmp\ 4770}# '(any any any . each-any)))) - #{x\ 15251}#)) + #{x\ 4768}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 15308}#) - ((lambda (#{tmp\ 15310}#) - ((lambda (#{tmp\ 15311}#) - (if #{tmp\ 15311}# - (apply (lambda (#{_\ 15314}# #{e\ 15315}#) + (cons (lambda (#{x\ 4825}#) + ((lambda (#{tmp\ 4827}#) + ((lambda (#{tmp\ 4828}#) + (if #{tmp\ 4828}# + (apply (lambda (#{_\ 4831}# #{e\ 4832}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15309"))) + #(ribcage #(x) #((top)) #("i4826"))) (hygiene guile)) '(#(syntax-object x @@ -15488,9 +15359,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15309"))) + #(ribcage #(x) #((top)) #("i4826"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -15498,9 +15369,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15309"))) + #(ribcage #(x) #((top)) #("i4826"))) (hygiene guile)) . #(syntax-object @@ -15509,9 +15380,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15309"))) + #(ribcage #(x) #((top)) #("i4826"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15519,12 +15390,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) '#(syntax-object x @@ -15532,12 +15403,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) '() (list '#(syntax-object @@ -15546,12 +15417,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15559,12 +15430,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) (#(syntax-object syntax @@ -15572,12 +15443,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) #(syntax-object id @@ -15585,12 +15456,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15598,29 +15469,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) - #{e\ 15315}#)) - (list (cons #{_\ 15314}# + #{e\ 4832}#)) + (list (cons #{_\ 4831}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) #(syntax-object ... @@ -15628,13 +15497,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15642,15 +15510,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" "i4830")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) - (cons #{e\ 15315}# + (cons #{e\ 4832}# '(#(syntax-object x ((top) @@ -15658,8 +15525,8 @@ #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" + "i4830")) #(ribcage () () @@ -15667,7 +15534,7 @@ #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile)) #(syntax-object ... @@ -15676,8 +15543,8 @@ #(_ e) #((top) (top)) - #("i15312" - "i15313")) + #("i4829" + "i4830")) #(ribcage () () @@ -15685,72 +15552,72 @@ #(ribcage #(x) #((top)) - #("i15309"))) + #("i4826"))) (hygiene guile))))))))) - #{tmp\ 15311}#) + #{tmp\ 4828}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15310}#))) - ($sc-dispatch #{tmp\ 15310}# (quote (any any))))) - #{x\ 15308}#)) + #{tmp\ 4827}#))) + ($sc-dispatch #{tmp\ 4827}# (quote (any any))))) + #{x\ 4825}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 15316}#) - ((lambda (#{tmp\ 15318}#) - ((lambda (#{tmp\ 15319}#) - (if #{tmp\ 15319}# - (apply (lambda (#{_\ 15325}# - #{id\ 15326}# - #{args\ 15327}# - #{b0\ 15328}# - #{b1\ 15329}#) + (cons (lambda (#{x\ 4833}#) + ((lambda (#{tmp\ 4835}#) + ((lambda (#{tmp\ 4836}#) + (if #{tmp\ 4836}# + (apply (lambda (#{_\ 4842}# + #{id\ 4843}# + #{args\ 4844}# + #{b0\ 4845}# + #{b1\ 4846}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i15320" - "i15321" - "i15322" - "i15323" - "i15324")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i15317"))) + #(ribcage #(x) #((top)) #("i4834"))) (hygiene guile)) - #{id\ 15326}# + #{id\ 4843}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i15320" - "i15321" - "i15322" - "i15323" - "i15324")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15317"))) + #("i4834"))) (hygiene guile)) - (cons #{args\ 15327}# - (cons #{b0\ 15328}# - #{b1\ 15329}#))))) - #{tmp\ 15319}#) - ((lambda (#{tmp\ 15331}#) - (if (if #{tmp\ 15331}# - (apply (lambda (#{_\ 15335}# - #{id\ 15336}# - #{val\ 15337}#) + (cons #{args\ 4844}# + (cons #{b0\ 4845}# + #{b1\ 4846}#))))) + #{tmp\ 4836}#) + ((lambda (#{tmp\ 4848}#) + (if (if #{tmp\ 4848}# + (apply (lambda (#{_\ 4852}# + #{id\ 4853}# + #{val\ 4854}#) (identifier? '#(syntax-object x @@ -15758,44 +15625,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i15332" "i15333" "i15334")) + #("i4849" "i4850" "i4851")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15317"))) + #("i4834"))) (hygiene guile)))) - #{tmp\ 15331}#) + #{tmp\ 4848}#) #f) - (apply (lambda (#{_\ 15341}# - #{id\ 15342}# - #{val\ 15343}#) + (apply (lambda (#{_\ 4858}# + #{id\ 4859}# + #{val\ 4860}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i15338" "i15339" "i15340")) + #("i4855" "i4856" "i4857")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i15317"))) + #("i4834"))) (hygiene guile)) - #{id\ 15342}# - #{val\ 15343}#)) - #{tmp\ 15331}#) + #{id\ 4859}# + #{val\ 4860}#)) + #{tmp\ 4848}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 15318}#))) + #{tmp\ 4835}#))) ($sc-dispatch - #{tmp\ 15318}# + #{tmp\ 4835}# '(any any any))))) ($sc-dispatch - #{tmp\ 15318}# + #{tmp\ 4835}# '(any (any . any) any . each-any)))) - #{x\ 15316}#)) + #{x\ 4833}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 66201583b..877269c58 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -471,16 +471,14 @@ meta body)) (else (decorate-source - ;; really gross hack - `(lambda %%args - (cond ,@body)) + `(case-lambda* ,@body) src))))) (define build-lambda-case ;; req := (name ...) ;; opt := (name ...) | #f ;; rest := name | #f - ;; kw := (allow-other-keys? (keyword name var [init]) ...) | #f + ;; kw := (allow-other-keys? (keyword name var) ...) | #f ;; inits: (init ...) ;; vars: (sym ...) ;; vars map to named arguments in the following order: @@ -510,15 +508,24 @@ (error "something went wrong" req opt rest kw inits vars nreq nopt kw-indices nargs)) (decorate-source - `((((@@ (ice-9 optargs) parse-lambda-case) - '(,nreq ,nopt ,rest-idx ,nargs ,allow-other-keys? ,kw-indices) - (list ,@(map (lambda (i) `(lambda ,vars ,i)) inits)) - %%args) - => (lambda (%%args) (apply (lambda ,vars ,body) %%args))) - ,@(or else-case - `((%%args (scm-error 'wrong-number-of-args #f - "Wrong number of arguments" '() - %%args))))) + `(((,@(list-head vars nreq) + ,@(if opt + `(#:optional ,@(map list + (list-head (list-tail vars nreq) nopt) + (list-head inits nopt))) + '()) + ,@(if kw + `(#:key ,@(map (lambda (x init) + (list (caddr x) + init + (car x))) + (cdr kw) + (list-tail inits nopt))) + '()) + ,@(if allow-other-keys? '(#:allow-other-keys) '()) + ,@(if rest (list-ref vars rest-idx) '())) + ,body) + ,@(or else-case '())) src)))))) (define build-primref