diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 30c77510d..de8320943 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,19504 +2,1299 @@ (if #f #f) (letrec* - ((#{make-void 208}# - (lambda (#{src 779}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #{src 779}#))) - (#{make-const 210}# - (lambda (#{src 781}# #{exp 782}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #{src 781}# - #{exp 782}#))) - (#{make-lexical-ref 214}# - (lambda (#{src 789}# #{name 790}# #{gensym 791}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #{src 789}# - #{name 790}# - #{gensym 791}#))) - (#{make-lexical-set 216}# - (lambda (#{src 795}# - #{name 796}# - #{gensym 797}# - #{exp 798}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 4) - #{src 795}# - #{name 796}# - #{gensym 797}# - #{exp 798}#))) - (#{make-module-ref 218}# - (lambda (#{src 803}# - #{mod 804}# - #{name 805}# - #{public? 806}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #{src 803}# - #{mod 804}# - #{name 805}# - #{public? 806}#))) - (#{make-module-set 220}# - (lambda (#{src 811}# - #{mod 812}# - #{name 813}# - #{public? 814}# - #{exp 815}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 6) - #{src 811}# - #{mod 812}# - #{name 813}# - #{public? 814}# - #{exp 815}#))) - (#{make-toplevel-ref 222}# - (lambda (#{src 821}# #{name 822}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #{src 821}# - #{name 822}#))) - (#{make-toplevel-set 224}# - (lambda (#{src 825}# #{name 826}# #{exp 827}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 8) - #{src 825}# - #{name 826}# - #{exp 827}#))) - (#{make-toplevel-define 226}# - (lambda (#{src 831}# #{name 832}# #{exp 833}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 9) - #{src 831}# - #{name 832}# - #{exp 833}#))) - (#{make-conditional 228}# - (lambda (#{src 837}# - #{test 838}# - #{consequent 839}# - #{alternate 840}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 10) - #{src 837}# - #{test 838}# - #{consequent 839}# - #{alternate 840}#))) - (#{make-application 230}# - (lambda (#{src 845}# #{proc 846}# #{args 847}#) + ((#{top-level-eval-hook 4273}# + (lambda (#{x 28142}# #{mod 28143}#) + (primitive-eval #{x 28142}#))) + (#{maybe-name-value! 4278}# + (lambda (#{name 16638}# #{val 16639}#) + (if (if (struct? #{val 16639}#) + (eq? (struct-vtable #{val 16639}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 16646}# (struct-ref #{val 16639}# 1))) + (if (not (assq 'name #{meta 16646}#)) + (let ((#{v 16651}# + (cons (cons 'name #{name 16638}#) #{meta 16646}#))) + (struct-set! #{val 16639}# 1 #{v 16651}#))))))) + (#{build-application 4280}# + (lambda (#{source 16363}# + #{fun-exp 16364}# + #{arg-exps 16365}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 845}# - #{proc 846}# - #{args 847}#))) - (#{make-sequence 232}# - (lambda (#{src 851}# #{exps 852}#) + #{source 16363}# + #{fun-exp 16364}# + #{arg-exps 16365}#))) + (#{build-conditional 4281}# + (lambda (#{source 16371}# + #{test-exp 16372}# + #{then-exp 16373}# + #{else-exp 16374}#) (make-struct/no-tail - (vector-ref %expanded-vtables 12) - #{src 851}# - #{exps 852}#))) - (#{make-lambda 234}# - (lambda (#{src 855}# #{meta 856}# #{body 857}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{src 855}# - #{meta 856}# - #{body 857}#))) - (#{make-lambda-case 236}# - (lambda (#{src 861}# - #{req 862}# - #{opt 863}# - #{rest 864}# - #{kw 865}# - #{inits 866}# - #{gensyms 867}# - #{body 868}# - #{alternate 869}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #{src 861}# - #{req 862}# - #{opt 863}# - #{rest 864}# - #{kw 865}# - #{inits 866}# - #{gensyms 867}# - #{body 868}# - #{alternate 869}#))) - (#{make-let 238}# - (lambda (#{src 879}# - #{names 880}# - #{gensyms 881}# - #{vals 882}# - #{body 883}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 15) - #{src 879}# - #{names 880}# - #{gensyms 881}# - #{vals 882}# - #{body 883}#))) - (#{make-letrec 240}# - (lambda (#{src 889}# - #{in-order? 890}# - #{names 891}# - #{gensyms 892}# - #{vals 893}# - #{body 894}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 16) - #{src 889}# - #{in-order? 890}# - #{names 891}# - #{gensyms 892}# - #{vals 893}# - #{body 894}#))) - (#{make-dynlet 242}# - (lambda (#{src 901}# - #{fluids 902}# - #{vals 903}# - #{body 904}#) + (vector-ref %expanded-vtables 10) + #{source 16371}# + #{test-exp 16372}# + #{then-exp 16373}# + #{else-exp 16374}#))) + (#{build-dynlet 4282}# + (lambda (#{source 16381}# + #{fluids 16382}# + #{vals 16383}# + #{body 16384}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 901}# - #{fluids 902}# - #{vals 903}# - #{body 904}#))) - (#{lambda? 245}# - (lambda (#{x 909}#) - (if (struct? #{x 909}#) - (eq? (struct-vtable #{x 909}#) - (vector-ref %expanded-vtables 13)) - #f))) - (#{lambda-meta 247}# - (lambda (#{x 913}#) (struct-ref #{x 913}# 1))) - (#{set-lambda-meta! 249}# - (lambda (#{x 915}# #{v 916}#) - (struct-set! #{x 915}# 1 #{v 916}#))) - (#{top-level-eval-hook 255}# - (lambda (#{x 919}# #{mod 920}#) - (primitive-eval #{x 919}#))) - (#{local-eval-hook 257}# - (lambda (#{x 923}# #{mod 924}#) - (primitive-eval #{x 923}#))) - (#{put-global-definition-hook 261}# - (lambda (#{symbol 927}# #{type 928}# #{val 929}#) - (module-define! - (current-module) - #{symbol 927}# - (make-syntax-transformer - #{symbol 927}# - #{type 928}# - #{val 929}#)))) - (#{get-global-definition-hook 263}# - (lambda (#{symbol 933}# #{module 934}#) + #{source 16381}# + #{fluids 16382}# + #{vals 16383}# + #{body 16384}#))) + (#{build-lexical-reference 4283}# + (lambda (#{type 28144}# + #{source 28145}# + #{name 28146}# + #{var 28147}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{source 28145}# + #{name 28146}# + #{var 28147}#))) + (#{build-lexical-assignment 4284}# + (lambda (#{source 16391}# + #{name 16392}# + #{var 16393}# + #{exp 16394}#) (begin - (if (if (not #{module 934}#) (current-module) #f) - (warn "module system is booted, we should have a module" - #{symbol 933}#)) - (let ((#{v 940}# (module-variable - (if #{module 934}# - (resolve-module (cdr #{module 934}#)) - (current-module)) - #{symbol 933}#))) - (if #{v 940}# - (if (variable-bound? #{v 940}#) - (let ((#{val 945}# (variable-ref #{v 940}#))) - (if (macro? #{val 945}#) - (if (macro-type #{val 945}#) - (cons (macro-type #{val 945}#) - (macro-binding #{val 945}#)) - #f) - #f)) + (if (if (struct? #{exp 16394}#) + (eq? (struct-vtable #{exp 16394}#) + (vector-ref %expanded-vtables 13)) #f) - #f))))) - (#{decorate-source 265}# - (lambda (#{e 949}# #{s 950}#) - (begin - (if (if (pair? #{e 949}#) #{s 950}# #f) - (set-source-properties! #{e 949}# #{s 950}#)) - #{e 949}#))) - (#{maybe-name-value! 267}# - (lambda (#{name 955}# #{val 956}#) - (if (#{lambda? 245}# #{val 956}#) - (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#))) - (if (not (assq 'name #{meta 960}#)) - (#{set-lambda-meta! 249}# - #{val 956}# - (cons (cons 'name #{name 955}#) #{meta 960}#))))))) - (#{build-void 269}# - (lambda (#{source 961}#) - (#{make-void 208}# #{source 961}#))) - (#{build-application 271}# - (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#) - (#{make-application 230}# - #{source 963}# - #{fun-exp 964}# - #{arg-exps 965}#))) - (#{build-conditional 273}# - (lambda (#{source 969}# - #{test-exp 970}# - #{then-exp 971}# - #{else-exp 972}#) - (#{make-conditional 228}# - #{source 969}# - #{test-exp 970}# - #{then-exp 971}# - #{else-exp 972}#))) - (#{build-lexical-reference 277}# - (lambda (#{type 985}# - #{source 986}# - #{name 987}# - #{var 988}#) - (#{make-lexical-ref 214}# - #{source 986}# - #{name 987}# - #{var 988}#))) - (#{analyze-variable 281}# - (lambda (#{mod 1001}# - #{var 1002}# - #{modref-cont 1003}# - #{bare-cont 1004}#) - (if (not #{mod 1001}#) - (#{bare-cont 1004}# #{var 1002}#) - (let ((#{kind 1011}# (car #{mod 1001}#)) - (#{mod 1012}# (cdr #{mod 1001}#))) - (if (memv #{kind 1011}# '(public)) - (#{modref-cont 1003}# - #{mod 1012}# - #{var 1002}# + (let ((#{meta 16410}# (struct-ref #{exp 16394}# 1))) + (if (not (assq 'name #{meta 16410}#)) + (let ((#{v 16417}# + (cons (cons 'name #{name 16392}#) #{meta 16410}#))) + (struct-set! #{exp 16394}# 1 #{v 16417}#))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 4) + #{source 16391}# + #{name 16392}# + #{var 16393}# + #{exp 16394}#)))) + (#{analyze-variable 4285}# + (lambda (#{mod 28153}# + #{var 28154}# + #{modref-cont 28155}# + #{bare-cont 28156}#) + (if (not #{mod 28153}#) + (#{bare-cont 28156}# #{var 28154}#) + (let ((#{kind 28157}# (car #{mod 28153}#)) + (#{mod 28158}# (cdr #{mod 28153}#))) + (if (eqv? #{kind 28157}# 'public) + (#{modref-cont 28155}# + #{mod 28158}# + #{var 28154}# #t) - (if (memv #{kind 1011}# '(private)) + (if (eqv? #{kind 28157}# 'private) (if (not (equal? - #{mod 1012}# + #{mod 28158}# (module-name (current-module)))) - (#{modref-cont 1003}# - #{mod 1012}# - #{var 1002}# + (#{modref-cont 28155}# + #{mod 28158}# + #{var 28154}# #f) - (#{bare-cont 1004}# #{var 1002}#)) - (if (memv #{kind 1011}# '(bare)) - (#{bare-cont 1004}# #{var 1002}#) - (if (memv #{kind 1011}# '(hygiene)) + (#{bare-cont 28156}# #{var 28154}#)) + (if (eqv? #{kind 28157}# 'bare) + (#{bare-cont 28156}# #{var 28154}#) + (if (eqv? #{kind 28157}# 'hygiene) (if (if (not (equal? - #{mod 1012}# + #{mod 28158}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 1012}#) - #{var 1002}#) + (resolve-module #{mod 28158}#) + #{var 28154}#) #f) - (#{modref-cont 1003}# - #{mod 1012}# - #{var 1002}# + (#{modref-cont 28155}# + #{mod 28158}# + #{var 28154}# #f) - (#{bare-cont 1004}# #{var 1002}#)) + (#{bare-cont 28156}# #{var 28154}#)) (syntax-violation #f "bad module kind" - #{var 1002}# - #{mod 1012}#))))))))) - (#{build-global-reference 283}# - (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#) - (#{analyze-variable 281}# - #{mod 1022}# - #{var 1021}# - (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#) - (#{make-module-ref 218}# - #{source 1020}# - #{mod 1026}# - #{var 1027}# - #{public? 1028}#)) - (lambda (#{var 1032}#) - (#{make-toplevel-ref 222}# - #{source 1020}# - #{var 1032}#))))) - (#{build-global-assignment 285}# - (lambda (#{source 1034}# - #{var 1035}# - #{exp 1036}# - #{mod 1037}#) + #{var 28154}# + #{mod 28158}#))))))))) + (#{build-global-reference 4286}# + (lambda (#{source 28173}# #{var 28174}# #{mod 28175}#) + (#{analyze-variable 4285}# + #{mod 28175}# + #{var 28174}# + (lambda (#{mod 28178}# #{var 28179}# #{public? 28180}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #{source 28173}# + #{mod 28178}# + #{var 28179}# + #{public? 28180}#)) + (lambda (#{var 28188}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #{source 28173}# + #{var 28188}#))))) + (#{build-global-assignment 4287}# + (lambda (#{source 16426}# + #{var 16427}# + #{exp 16428}# + #{mod 16429}#) (begin - (#{maybe-name-value! 267}# - #{var 1035}# - #{exp 1036}#) - (#{analyze-variable 281}# - #{mod 1037}# - #{var 1035}# - (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#) - (#{make-module-set 220}# - #{source 1034}# - #{mod 1042}# - #{var 1043}# - #{public? 1044}# - #{exp 1036}#)) - (lambda (#{var 1048}#) - (#{make-toplevel-set 224}# - #{source 1034}# - #{var 1048}# - #{exp 1036}#)))))) - (#{build-global-definition 287}# - (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#) + (if (if (struct? #{exp 16428}#) + (eq? (struct-vtable #{exp 16428}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 16445}# (struct-ref #{exp 16428}# 1))) + (if (not (assq 'name #{meta 16445}#)) + (let ((#{v 16452}# + (cons (cons 'name #{var 16427}#) #{meta 16445}#))) + (struct-set! #{exp 16428}# 1 #{v 16452}#))))) + (#{analyze-variable 4285}# + #{mod 16429}# + #{var 16427}# + (lambda (#{mod 16457}# #{var 16458}# #{public? 16459}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 6) + #{source 16426}# + #{mod 16457}# + #{var 16458}# + #{public? 16459}# + #{exp 16428}#)) + (lambda (#{var 16467}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 8) + #{source 16426}# + #{var 16467}# + #{exp 16428}#)))))) + (#{build-global-definition 4288}# + (lambda (#{source 28194}# #{var 28195}# #{exp 28196}#) (begin - (#{maybe-name-value! 267}# - #{var 1051}# - #{exp 1052}#) - (#{make-toplevel-define 226}# - #{source 1050}# - #{var 1051}# - #{exp 1052}#)))) - (#{build-simple-lambda 289}# - (lambda (#{src 1056}# - #{req 1057}# - #{rest 1058}# - #{vars 1059}# - #{meta 1060}# - #{exp 1061}#) - (#{make-lambda 234}# - #{src 1056}# - #{meta 1060}# - (#{make-lambda-case 236}# - #{src 1056}# - #{req 1057}# - #f - #{rest 1058}# - #f - '() - #{vars 1059}# - #{exp 1061}# - #f)))) - (#{build-lambda-case 293}# - (lambda (#{src 1074}# - #{req 1075}# - #{opt 1076}# - #{rest 1077}# - #{kw 1078}# - #{inits 1079}# - #{vars 1080}# - #{body 1081}# - #{else-case 1082}#) - (#{make-lambda-case 236}# - #{src 1074}# - #{req 1075}# - #{opt 1076}# - #{rest 1077}# - #{kw 1078}# - #{inits 1079}# - #{vars 1080}# - #{body 1081}# - #{else-case 1082}#))) - (#{build-primref 295}# - (lambda (#{src 1092}# #{name 1093}#) - (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref 222}# - #{src 1092}# - #{name 1093}#) - (#{make-module-ref 218}# - #{src 1092}# - '(guile) - #{name 1093}# - #f)))) - (#{build-data 297}# - (lambda (#{src 1096}# #{exp 1097}#) - (#{make-const 210}# #{src 1096}# #{exp 1097}#))) - (#{build-sequence 299}# - (lambda (#{src 1100}# #{exps 1101}#) - (if (null? (cdr #{exps 1101}#)) - (car #{exps 1101}#) - (#{make-sequence 232}# - #{src 1100}# - #{exps 1101}#)))) - (#{build-letrec 305}# - (lambda (#{src 1134}# - #{in-order? 1135}# - #{ids 1136}# - #{vars 1137}# - #{val-exps 1138}# - #{body-exp 1139}#) - (if (null? #{vars 1137}#) - #{body-exp 1139}# + (if (if (struct? #{exp 28196}#) + (eq? (struct-vtable #{exp 28196}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 28212}# (struct-ref #{exp 28196}# 1))) + (if (not (assq 'name #{meta 28212}#)) + (let ((#{v 28219}# + (cons (cons 'name #{var 28195}#) #{meta 28212}#))) + (struct-set! #{exp 28196}# 1 #{v 28219}#))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 9) + #{source 28194}# + #{var 28195}# + #{exp 28196}#)))) + (#{build-simple-lambda 4289}# + (lambda (#{src 16473}# + #{req 16474}# + #{rest 16475}# + #{vars 16476}# + #{meta 16477}# + #{exp 16478}#) + (let ((#{body 16484}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{src 16473}# + #{req 16474}# + #f + #{rest 16475}# + #f + '() + #{vars 16476}# + #{exp 16478}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{src 16473}# + #{meta 16477}# + #{body 16484}#)))) + (#{build-sequence 4294}# + (lambda (#{src 28227}# #{exps 28228}#) + (if (null? (cdr #{exps 28228}#)) + (car #{exps 28228}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 12) + #{src 28227}# + #{exps 28228}#)))) + (#{build-let 4295}# + (lambda (#{src 16496}# + #{ids 16497}# + #{vars 16498}# + #{val-exps 16499}# + #{body-exp 16500}#) + (begin + (for-each + #{maybe-name-value! 4278}# + #{ids 16497}# + #{val-exps 16499}#) + (if (null? #{vars 16498}#) + #{body-exp 16500}# + (make-struct/no-tail + (vector-ref %expanded-vtables 15) + #{src 16496}# + #{ids 16497}# + #{vars 16498}# + #{val-exps 16499}# + #{body-exp 16500}#))))) + (#{build-named-let 4296}# + (lambda (#{src 16524}# + #{ids 16525}# + #{vars 16526}# + #{val-exps 16527}# + #{body-exp 16528}#) + (let ((#{f 16529}# (car #{vars 16526}#)) + (#{f-name 16530}# (car #{ids 16525}#)) + (#{vars 16531}# (cdr #{vars 16526}#)) + (#{ids 16532}# (cdr #{ids 16525}#))) + (let ((#{proc 16533}# + (let ((#{body 16553}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{src 16524}# + #{ids 16532}# + #f + #f + #f + '() + #{vars 16531}# + #{body-exp 16528}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{src 16524}# + '() + #{body 16553}#)))) + (begin + (if (if (struct? #{proc 16533}#) + (eq? (struct-vtable #{proc 16533}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 16577}# (struct-ref #{proc 16533}# 1))) + (if (not (assq 'name #{meta 16577}#)) + (let ((#{v 16584}# + (cons (cons 'name #{f-name 16530}#) + #{meta 16577}#))) + (struct-set! #{proc 16533}# 1 #{v 16584}#))))) + (for-each + #{maybe-name-value! 4278}# + #{ids 16532}# + #{val-exps 16527}#) + (let ((#{names 16608}# (list #{f-name 16530}#)) + (#{gensyms 16609}# (list #{f 16529}#)) + (#{vals 16610}# (list #{proc 16533}#)) + (#{body 16611}# + (let ((#{fun-exp 16615}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{src 16524}# + #{f-name 16530}# + #{f 16529}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #{src 16524}# + #{fun-exp 16615}# + #{val-exps 16527}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 16) + #{src 16524}# + #f + #{names 16608}# + #{gensyms 16609}# + #{vals 16610}# + #{body 16611}#))))))) + (#{build-letrec 4297}# + (lambda (#{src 16631}# + #{in-order? 16632}# + #{ids 16633}# + #{vars 16634}# + #{val-exps 16635}# + #{body-exp 16636}#) + (if (null? #{vars 16634}#) + #{body-exp 16636}# (begin (for-each - #{maybe-name-value! 267}# - #{ids 1136}# - #{val-exps 1138}#) - (#{make-letrec 240}# - #{src 1134}# - #{in-order? 1135}# - #{ids 1136}# - #{vars 1137}# - #{val-exps 1138}# - #{body-exp 1139}#))))) - (#{make-syntax-object 310}# - (lambda (#{expression 1146}# - #{wrap 1147}# - #{module 1148}#) - (vector - 'syntax-object - #{expression 1146}# - #{wrap 1147}# - #{module 1148}#))) - (#{syntax-object? 312}# - (lambda (#{x 1152}#) - (if (vector? #{x 1152}#) - (if (= (vector-length #{x 1152}#) 4) - (eq? (vector-ref #{x 1152}# 0) 'syntax-object) - #f) - #f))) - (#{syntax-object-expression 314}# - (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1))) - (#{syntax-object-wrap 316}# - (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2))) - (#{syntax-object-module 318}# - (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3))) - (#{source-annotation 327}# - (lambda (#{x 1175}#) - (if (#{syntax-object? 312}# #{x 1175}#) - (#{source-annotation 327}# - (#{syntax-object-expression 314}# #{x 1175}#)) - (if (pair? #{x 1175}#) - (let ((#{props 1182}# (source-properties #{x 1175}#))) - (if (pair? #{props 1182}#) #{props 1182}# #f)) + #{maybe-name-value! 4278}# + #{ids 16633}# + #{val-exps 16635}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 16) + #{src 16631}# + #{in-order? 16632}# + #{ids 16633}# + #{vars 16634}# + #{val-exps 16635}# + #{body-exp 16636}#))))) + (#{source-annotation 4306}# + (lambda (#{x 16662}#) + (if (if (vector? #{x 16662}#) + (if (= (vector-length #{x 16662}#) 4) + (eq? (vector-ref #{x 16662}# 0) 'syntax-object) + #f) + #f) + (#{source-annotation 4306}# + (vector-ref #{x 16662}# 1)) + (if (pair? #{x 16662}#) + (let ((#{props 16677}# (source-properties #{x 16662}#))) + (if (pair? #{props 16677}#) #{props 16677}# #f)) #f)))) - (#{extend-env 337}# - (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#) - (if (null? #{labels 1184}#) - #{r 1186}# - (#{extend-env 337}# - (cdr #{labels 1184}#) - (cdr #{bindings 1185}#) - (cons (cons (car #{labels 1184}#) - (car #{bindings 1185}#)) - #{r 1186}#))))) - (#{extend-var-env 339}# - (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#) - (if (null? #{labels 1190}#) - #{r 1192}# - (#{extend-var-env 339}# - (cdr #{labels 1190}#) - (cdr #{vars 1191}#) - (cons (cons (car #{labels 1190}#) - (cons 'lexical (car #{vars 1191}#))) - #{r 1192}#))))) - (#{macros-only-env 341}# - (lambda (#{r 1197}#) - (if (null? #{r 1197}#) + (#{extend-env 4307}# + (lambda (#{labels 16679}# #{bindings 16680}# #{r 16681}#) + (if (null? #{labels 16679}#) + #{r 16681}# + (#{extend-env 4307}# + (cdr #{labels 16679}#) + (cdr #{bindings 16680}#) + (cons (cons (car #{labels 16679}#) + (car #{bindings 16680}#)) + #{r 16681}#))))) + (#{extend-var-env 4308}# + (lambda (#{labels 16682}# #{vars 16683}# #{r 16684}#) + (if (null? #{labels 16682}#) + #{r 16684}# + (#{extend-var-env 4308}# + (cdr #{labels 16682}#) + (cdr #{vars 16683}#) + (cons (cons (car #{labels 16682}#) + (cons 'lexical (car #{vars 16683}#))) + #{r 16684}#))))) + (#{macros-only-env 4309}# + (lambda (#{r 16685}#) + (if (null? #{r 16685}#) '() - (let ((#{a 1200}# (car #{r 1197}#))) - (if (eq? (car (cdr #{a 1200}#)) 'macro) - (cons #{a 1200}# - (#{macros-only-env 341}# (cdr #{r 1197}#))) - (#{macros-only-env 341}# (cdr #{r 1197}#))))))) - (#{lookup 343}# - (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#) - (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#))) - (if #{t 1209}# - (cdr #{t 1209}#) - (if (symbol? #{x 1201}#) - (let ((#{t 1215}# - (#{get-global-definition-hook 263}# - #{x 1201}# - #{mod 1203}#))) - (if #{t 1215}# #{t 1215}# '(global))) - '(displaced-lexical)))))) - (#{global-extend 345}# - (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#) - (#{put-global-definition-hook 261}# - #{sym 1221}# - #{type 1220}# - #{val 1222}#))) - (#{nonsymbol-id? 347}# - (lambda (#{x 1226}#) - (if (#{syntax-object? 312}# #{x 1226}#) - (symbol? - (#{syntax-object-expression 314}# #{x 1226}#)) - #f))) - (#{id? 349}# - (lambda (#{x 1230}#) - (if (symbol? #{x 1230}#) + (let ((#{a 16686}# (car #{r 16685}#))) + (if (eq? (car (cdr #{a 16686}#)) 'macro) + (cons #{a 16686}# + (#{macros-only-env 4309}# (cdr #{r 16685}#))) + (#{macros-only-env 4309}# (cdr #{r 16685}#))))))) + (#{global-extend 4311}# + (lambda (#{type 16688}# #{sym 16689}# #{val 16690}#) + (module-define! + (current-module) + #{sym 16689}# + (make-syntax-transformer + #{sym 16689}# + #{type 16688}# + #{val 16690}#)))) + (#{id? 4313}# + (lambda (#{x 10546}#) + (if (symbol? #{x 10546}#) #t - (if (#{syntax-object? 312}# #{x 1230}#) - (symbol? - (#{syntax-object-expression 314}# #{x 1230}#)) + (if (if (vector? #{x 10546}#) + (if (= (vector-length #{x 10546}#) 4) + (eq? (vector-ref #{x 10546}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 10546}# 1)) #f)))) - (#{id-sym-name&marks 353}# - (lambda (#{x 1237}# #{w 1238}#) - (if (#{syntax-object? 312}# #{x 1237}#) - (values - (#{syntax-object-expression 314}# #{x 1237}#) - (#{join-marks 407}# - (car #{w 1238}#) - (car (#{syntax-object-wrap 316}# #{x 1237}#)))) - (values #{x 1237}# (car #{w 1238}#))))) - (#{gen-label 367}# - (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 369}# - (lambda (#{ls 1244}#) - (if (null? #{ls 1244}#) + (#{gen-labels 4316}# + (lambda (#{ls 16700}#) + (if (null? #{ls 16700}#) '() - (cons (#{gen-label 367}#) - (#{gen-labels 369}# (cdr #{ls 1244}#)))))) - (#{make-ribcage 372}# - (lambda (#{symnames 1246}# - #{marks 1247}# - #{labels 1248}#) - (vector - 'ribcage - #{symnames 1246}# - #{marks 1247}# - #{labels 1248}#))) - (#{ribcage-symnames 376}# - (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1))) - (#{ribcage-marks 378}# - (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2))) - (#{ribcage-labels 380}# - (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3))) - (#{set-ribcage-symnames! 382}# - (lambda (#{x 1263}# #{update 1264}#) - (vector-set! #{x 1263}# 1 #{update 1264}#))) - (#{set-ribcage-marks! 384}# - (lambda (#{x 1267}# #{update 1268}#) - (vector-set! #{x 1267}# 2 #{update 1268}#))) - (#{set-ribcage-labels! 386}# - (lambda (#{x 1271}# #{update 1272}#) - (vector-set! #{x 1271}# 3 #{update 1272}#))) - (#{anti-mark 393}# - (lambda (#{w 1275}#) - (cons (cons #f (car #{w 1275}#)) - (cons 'shift (cdr #{w 1275}#))))) - (#{extend-ribcage! 399}# - (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#) - (begin - (#{set-ribcage-symnames! 382}# - #{ribcage 1281}# - (cons (#{syntax-object-expression 314}# #{id 1282}#) - (#{ribcage-symnames 376}# #{ribcage 1281}#))) - (#{set-ribcage-marks! 384}# - #{ribcage 1281}# - (cons (car (#{syntax-object-wrap 316}# #{id 1282}#)) - (#{ribcage-marks 378}# #{ribcage 1281}#))) - (#{set-ribcage-labels! 386}# - #{ribcage 1281}# - (cons #{label 1283}# - (#{ribcage-labels 380}# #{ribcage 1281}#)))))) - (#{make-binding-wrap 401}# - (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#) - (if (null? #{ids 1288}#) - #{w 1290}# - (cons (car #{w 1290}#) - (cons (let ((#{labelvec 1297}# - (list->vector #{labels 1289}#))) - (let ((#{n 1299}# (vector-length #{labelvec 1297}#))) - (let ((#{symnamevec 1302}# (make-vector #{n 1299}#)) - (#{marksvec 1303}# (make-vector #{n 1299}#))) + (cons (symbol->string (gensym "i")) + (#{gen-labels 4316}# (cdr #{ls 16700}#)))))) + (#{make-binding-wrap 4327}# + (lambda (#{ids 16704}# #{labels 16705}# #{w 16706}#) + (if (null? #{ids 16704}#) + #{w 16706}# + (cons (car #{w 16706}#) + (cons (let ((#{labelvec 16707}# + (list->vector #{labels 16705}#))) + (let ((#{n 16708}# (vector-length #{labelvec 16707}#))) + (let ((#{symnamevec 16709}# (make-vector #{n 16708}#)) + (#{marksvec 16710}# (make-vector #{n 16708}#))) (begin (letrec* - ((#{f 1307}# - (lambda (#{ids 1308}# #{i 1309}#) - (if (not (null? #{ids 1308}#)) + ((#{f 16711}# + (lambda (#{ids 16714}# #{i 16715}#) + (if (not (null? #{ids 16714}#)) (call-with-values (lambda () - (#{id-sym-name&marks 353}# - (car #{ids 1308}#) - #{w 1290}#)) - (lambda (#{symname 1310}# - #{marks 1311}#) + (let ((#{x 16718}# + (car #{ids 16714}#))) + (if (if (vector? #{x 16718}#) + (if (= (vector-length + #{x 16718}#) + 4) + (eq? (vector-ref + #{x 16718}# + 0) + 'syntax-object) + #f) + #f) + (values + (vector-ref #{x 16718}# 1) + (let ((#{m1 16734}# + (car #{w 16706}#)) + (#{m2 16735}# + (car (vector-ref + #{x 16718}# + 2)))) + (if (null? #{m2 16735}#) + #{m1 16734}# + (append + #{m1 16734}# + #{m2 16735}#)))) + (values + #{x 16718}# + (car #{w 16706}#))))) + (lambda (#{symname 16755}# + #{marks 16756}#) (begin (vector-set! - #{symnamevec 1302}# - #{i 1309}# - #{symname 1310}#) + #{symnamevec 16709}# + #{i 16715}# + #{symname 16755}#) (vector-set! - #{marksvec 1303}# - #{i 1309}# - #{marks 1311}#) - (#{f 1307}# - (cdr #{ids 1308}#) - (#{1+}# #{i 1309}#))))))))) - (#{f 1307}# #{ids 1288}# 0)) - (#{make-ribcage 372}# - #{symnamevec 1302}# - #{marksvec 1303}# - #{labelvec 1297}#))))) - (cdr #{w 1290}#)))))) - (#{smart-append 403}# - (lambda (#{m1 1316}# #{m2 1317}#) - (if (null? #{m2 1317}#) - #{m1 1316}# - (append #{m1 1316}# #{m2 1317}#)))) - (#{join-wraps 405}# - (lambda (#{w1 1320}# #{w2 1321}#) - (let ((#{m1 1326}# (car #{w1 1320}#)) - (#{s1 1327}# (cdr #{w1 1320}#))) - (if (null? #{m1 1326}#) - (if (null? #{s1 1327}#) - #{w2 1321}# - (cons (car #{w2 1321}#) - (#{smart-append 403}# - #{s1 1327}# - (cdr #{w2 1321}#)))) - (cons (#{smart-append 403}# - #{m1 1326}# - (car #{w2 1321}#)) - (#{smart-append 403}# - #{s1 1327}# - (cdr #{w2 1321}#))))))) - (#{join-marks 407}# - (lambda (#{m1 1336}# #{m2 1337}#) - (#{smart-append 403}# #{m1 1336}# #{m2 1337}#))) - (#{same-marks? 409}# - (lambda (#{x 1340}# #{y 1341}#) - (if (eq? #{x 1340}# #{y 1341}#) - (eq? #{x 1340}# #{y 1341}#) - (if (not (null? #{x 1340}#)) - (if (not (null? #{y 1341}#)) - (if (eq? (car #{x 1340}#) (car #{y 1341}#)) - (#{same-marks? 409}# - (cdr #{x 1340}#) - (cdr #{y 1341}#)) + #{marksvec 16710}# + #{i 16715}# + #{marks 16756}#) + (#{f 16711}# + (cdr #{ids 16714}#) + (#{1+}# #{i 16715}#))))))))) + (#{f 16711}# #{ids 16704}# 0)) + (vector + 'ribcage + #{symnamevec 16709}# + #{marksvec 16710}# + #{labelvec 16707}#))))) + (cdr #{w 16706}#)))))) + (#{join-wraps 4329}# + (lambda (#{w1 16765}# #{w2 16766}#) + (let ((#{m1 16767}# (car #{w1 16765}#)) + (#{s1 16768}# (cdr #{w1 16765}#))) + (if (null? #{m1 16767}#) + (if (null? #{s1 16768}#) + #{w2 16766}# + (cons (car #{w2 16766}#) + (let ((#{m2 16775}# (cdr #{w2 16766}#))) + (if (null? #{m2 16775}#) + #{s1 16768}# + (append #{s1 16768}# #{m2 16775}#))))) + (cons (let ((#{m2 16784}# (car #{w2 16766}#))) + (if (null? #{m2 16784}#) + #{m1 16767}# + (append #{m1 16767}# #{m2 16784}#))) + (let ((#{m2 16793}# (cdr #{w2 16766}#))) + (if (null? #{m2 16793}#) + #{s1 16768}# + (append #{s1 16768}# #{m2 16793}#)))))))) + (#{same-marks? 4331}# + (lambda (#{x 16798}# #{y 16799}#) + (if (eq? #{x 16798}# #{y 16799}#) + (eq? #{x 16798}# #{y 16799}#) + (if (not (null? #{x 16798}#)) + (if (not (null? #{y 16799}#)) + (if (eq? (car #{x 16798}#) (car #{y 16799}#)) + (#{same-marks? 4331}# + (cdr #{x 16798}#) + (cdr #{y 16799}#)) #f) #f) #f)))) - (#{id-var-name 411}# - (lambda (#{id 1352}# #{w 1353}#) + (#{id-var-name 4332}# + (lambda (#{id 16807}# #{w 16808}#) (letrec* - ((#{search 1359}# - (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#) - (if (null? #{subst 1376}#) - (values #f #{marks 1377}#) - (let ((#{fst 1382}# (car #{subst 1376}#))) - (if (eq? #{fst 1382}# 'shift) - (#{search 1359}# - #{sym 1375}# - (cdr #{subst 1376}#) - (cdr #{marks 1377}#)) - (let ((#{symnames 1384}# - (#{ribcage-symnames 376}# #{fst 1382}#))) - (if (vector? #{symnames 1384}#) - (#{search-vector-rib 1363}# - #{sym 1375}# - #{subst 1376}# - #{marks 1377}# - #{symnames 1384}# - #{fst 1382}#) - (#{search-list-rib 1361}# - #{sym 1375}# - #{subst 1376}# - #{marks 1377}# - #{symnames 1384}# - #{fst 1382}#)))))))) - (#{search-list-rib 1361}# - (lambda (#{sym 1385}# - #{subst 1386}# - #{marks 1387}# - #{symnames 1388}# - #{ribcage 1389}#) - (letrec* - ((#{f 1398}# - (lambda (#{symnames 1399}# #{i 1400}#) - (if (null? #{symnames 1399}#) - (#{search 1359}# - #{sym 1385}# - (cdr #{subst 1386}#) - #{marks 1387}#) - (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#) - (#{same-marks? 409}# - #{marks 1387}# - (list-ref - (#{ribcage-marks 378}# #{ribcage 1389}#) - #{i 1400}#)) - #f) - (values - (list-ref - (#{ribcage-labels 380}# #{ribcage 1389}#) - #{i 1400}#) - #{marks 1387}#) - (#{f 1398}# - (cdr #{symnames 1399}#) - (#{1+}# #{i 1400}#))))))) - (#{f 1398}# #{symnames 1388}# 0)))) - (#{search-vector-rib 1363}# - (lambda (#{sym 1409}# - #{subst 1410}# - #{marks 1411}# - #{symnames 1412}# - #{ribcage 1413}#) - (let ((#{n 1420}# (vector-length #{symnames 1412}#))) - (letrec* - ((#{f 1423}# - (lambda (#{i 1424}#) - (if (= #{i 1424}# #{n 1420}#) - (#{search 1359}# - #{sym 1409}# - (cdr #{subst 1410}#) - #{marks 1411}#) - (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#) - #{sym 1409}#) - (#{same-marks? 409}# - #{marks 1411}# - (vector-ref - (#{ribcage-marks 378}# #{ribcage 1413}#) - #{i 1424}#)) - #f) - (values - (vector-ref - (#{ribcage-labels 380}# #{ribcage 1413}#) - #{i 1424}#) - #{marks 1411}#) - (#{f 1423}# (#{1+}# #{i 1424}#))))))) - (#{f 1423}# 0)))))) - (if (symbol? #{id 1352}#) - (let ((#{t 1436}# - (#{search 1359}# - #{id 1352}# - (cdr #{w 1353}#) - (car #{w 1353}#)))) - (if #{t 1436}# #{t 1436}# #{id 1352}#)) - (if (#{syntax-object? 312}# #{id 1352}#) - (let ((#{id 1445}# - (#{syntax-object-expression 314}# #{id 1352}#)) - (#{w1 1446}# - (#{syntax-object-wrap 316}# #{id 1352}#))) - (let ((#{marks 1448}# - (#{join-marks 407}# - (car #{w 1353}#) - (car #{w1 1446}#)))) + ((#{search 16809}# + (lambda (#{sym 16870}# #{subst 16871}# #{marks 16872}#) + (if (null? #{subst 16871}#) + (values #f #{marks 16872}#) + (let ((#{fst 16873}# (car #{subst 16871}#))) + (if (eq? #{fst 16873}# 'shift) + (#{search 16809}# + #{sym 16870}# + (cdr #{subst 16871}#) + (cdr #{marks 16872}#)) + (let ((#{symnames 16875}# (vector-ref #{fst 16873}# 1))) + (if (vector? #{symnames 16875}#) + (let ((#{n 16887}# (vector-length #{symnames 16875}#))) + (letrec* + ((#{f 16888}# + (lambda (#{i 16890}#) + (if (= #{i 16890}# #{n 16887}#) + (#{search 16809}# + #{sym 16870}# + (cdr #{subst 16871}#) + #{marks 16872}#) + (if (if (eq? (vector-ref + #{symnames 16875}# + #{i 16890}#) + #{sym 16870}#) + (#{same-marks? 4331}# + #{marks 16872}# + (vector-ref + (vector-ref #{fst 16873}# 2) + #{i 16890}#)) + #f) + (values + (vector-ref + (vector-ref #{fst 16873}# 3) + #{i 16890}#) + #{marks 16872}#) + (#{f 16888}# (#{1+}# #{i 16890}#))))))) + (#{f 16888}# 0))) + (letrec* + ((#{f 16923}# + (lambda (#{symnames 16925}# #{i 16926}#) + (if (null? #{symnames 16925}#) + (#{search 16809}# + #{sym 16870}# + (cdr #{subst 16871}#) + #{marks 16872}#) + (if (if (eq? (car #{symnames 16925}#) + #{sym 16870}#) + (#{same-marks? 4331}# + #{marks 16872}# + (list-ref + (vector-ref #{fst 16873}# 2) + #{i 16926}#)) + #f) + (values + (list-ref + (vector-ref #{fst 16873}# 3) + #{i 16926}#) + #{marks 16872}#) + (#{f 16923}# + (cdr #{symnames 16925}#) + (#{1+}# #{i 16926}#))))))) + (#{f 16923}# #{symnames 16875}# 0)))))))))) + (if (symbol? #{id 16807}#) + (let ((#{t 16812}# + (#{search 16809}# + #{id 16807}# + (cdr #{w 16808}#) + (car #{w 16808}#)))) + (if #{t 16812}# #{t 16812}# #{id 16807}#)) + (if (if (vector? #{id 16807}#) + (if (= (vector-length #{id 16807}#) 4) + (eq? (vector-ref #{id 16807}# 0) 'syntax-object) + #f) + #f) + (let ((#{id 16827}# (vector-ref #{id 16807}# 1)) + (#{w1 16828}# (vector-ref #{id 16807}# 2))) + (let ((#{marks 16829}# + (let ((#{m1 16839}# (car #{w 16808}#)) + (#{m2 16840}# (car #{w1 16828}#))) + (if (null? #{m2 16840}#) + #{m1 16839}# + (append #{m1 16839}# #{m2 16840}#))))) (call-with-values (lambda () - (#{search 1359}# - #{id 1445}# - (cdr #{w 1353}#) - #{marks 1448}#)) - (lambda (#{new-id 1452}# #{marks 1453}#) - (if #{new-id 1452}# - #{new-id 1452}# - (let ((#{t 1461}# - (#{search 1359}# - #{id 1445}# - (cdr #{w1 1446}#) - #{marks 1453}#))) - (if #{t 1461}# #{t 1461}# #{id 1445}#))))))) + (#{search 16809}# + #{id 16827}# + (cdr #{w 16808}#) + #{marks 16829}#)) + (lambda (#{new-id 16856}# #{marks 16857}#) + (if #{new-id 16856}# + #{new-id 16856}# + (let ((#{t 16865}# + (#{search 16809}# + #{id 16827}# + (cdr #{w1 16828}#) + #{marks 16857}#))) + (if #{t 16865}# #{t 16865}# #{id 16827}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id 1352}#)))))) - (#{free-id=? 413}# - (lambda (#{i 1466}# #{j 1467}#) - (if (eq? (if (#{syntax-object? 312}# #{i 1466}#) - (#{syntax-object-expression 314}# #{i 1466}#) - #{i 1466}#) - (if (#{syntax-object? 312}# #{j 1467}#) - (#{syntax-object-expression 314}# #{j 1467}#) - #{j 1467}#)) - (eq? (#{id-var-name 411}# #{i 1466}# '(())) - (#{id-var-name 411}# #{j 1467}# '(()))) - #f))) - (#{bound-id=? 415}# - (lambda (#{i 1480}# #{j 1481}#) - (if (if (#{syntax-object? 312}# #{i 1480}#) - (#{syntax-object? 312}# #{j 1481}#) - #f) - (if (eq? (#{syntax-object-expression 314}# #{i 1480}#) - (#{syntax-object-expression 314}# #{j 1481}#)) - (#{same-marks? 409}# - (car (#{syntax-object-wrap 316}# #{i 1480}#)) - (car (#{syntax-object-wrap 316}# #{j 1481}#))) - #f) - (eq? #{i 1480}# #{j 1481}#)))) - (#{valid-bound-ids? 417}# - (lambda (#{ids 1490}#) + #{id 16807}#)))))) + (#{valid-bound-ids? 4335}# + (lambda (#{ids 16948}#) (if (letrec* - ((#{all-ids? 1495}# - (lambda (#{ids 1496}#) - (if (null? #{ids 1496}#) - (null? #{ids 1496}#) - (if (#{id? 349}# (car #{ids 1496}#)) - (#{all-ids? 1495}# (cdr #{ids 1496}#)) + ((#{all-ids? 16949}# + (lambda (#{ids 17111}#) + (if (null? #{ids 17111}#) + (null? #{ids 17111}#) + (if (let ((#{x 17122}# (car #{ids 17111}#))) + (if (symbol? #{x 17122}#) + #t + (if (if (vector? #{x 17122}#) + (if (= (vector-length #{x 17122}#) 4) + (eq? (vector-ref #{x 17122}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 17122}# 1)) + #f))) + (#{all-ids? 16949}# (cdr #{ids 17111}#)) #f))))) - (#{all-ids? 1495}# #{ids 1490}#)) - (#{distinct-bound-ids? 419}# #{ids 1490}#) + (#{all-ids? 16949}# #{ids 16948}#)) + (#{distinct-bound-ids? 4336}# #{ids 16948}#) #f))) - (#{distinct-bound-ids? 419}# - (lambda (#{ids 1504}#) + (#{distinct-bound-ids? 4336}# + (lambda (#{ids 17254}#) (letrec* - ((#{distinct? 1508}# - (lambda (#{ids 1509}#) - (if (null? #{ids 1509}#) - (null? #{ids 1509}#) - (if (not (#{bound-id-member? 421}# - (car #{ids 1509}#) - (cdr #{ids 1509}#))) - (#{distinct? 1508}# (cdr #{ids 1509}#)) + ((#{distinct? 17255}# + (lambda (#{ids 17371}#) + (if (null? #{ids 17371}#) + (null? #{ids 17371}#) + (if (not (#{bound-id-member? 4337}# + (car #{ids 17371}#) + (cdr #{ids 17371}#))) + (#{distinct? 17255}# (cdr #{ids 17371}#)) #f))))) - (#{distinct? 1508}# #{ids 1504}#)))) - (#{bound-id-member? 421}# - (lambda (#{x 1516}# #{list 1517}#) - (if (not (null? #{list 1517}#)) - (let ((#{t 1524}# - (#{bound-id=? 415}# - #{x 1516}# - (car #{list 1517}#)))) - (if #{t 1524}# - #{t 1524}# - (#{bound-id-member? 421}# - #{x 1516}# - (cdr #{list 1517}#)))) + (#{distinct? 17255}# #{ids 17254}#)))) + (#{bound-id-member? 4337}# + (lambda (#{x 17591}# #{list 17592}#) + (if (not (null? #{list 17592}#)) + (let ((#{t 17593}# + (let ((#{j 17674}# (car #{list 17592}#))) + (if (if (if (vector? #{x 17591}#) + (if (= (vector-length #{x 17591}#) 4) + (eq? (vector-ref #{x 17591}# 0) 'syntax-object) + #f) + #f) + (if (vector? #{j 17674}#) + (if (= (vector-length #{j 17674}#) 4) + (eq? (vector-ref #{j 17674}# 0) 'syntax-object) + #f) + #f) + #f) + (if (eq? (vector-ref #{x 17591}# 1) + (vector-ref #{j 17674}# 1)) + (#{same-marks? 4331}# + (car (vector-ref #{x 17591}# 2)) + (car (vector-ref #{j 17674}# 2))) + #f) + (eq? #{x 17591}# #{j 17674}#))))) + (if #{t 17593}# + #{t 17593}# + (#{bound-id-member? 4337}# + #{x 17591}# + (cdr #{list 17592}#)))) #f))) - (#{wrap 423}# - (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#) - (if (if (null? (car #{w 1527}#)) - (null? (cdr #{w 1527}#)) + (#{wrap 4338}# + (lambda (#{x 17718}# #{w 17719}# #{defmod 17720}#) + (if (if (null? (car #{w 17719}#)) + (null? (cdr #{w 17719}#)) #f) - #{x 1526}# - (if (#{syntax-object? 312}# #{x 1526}#) - (#{make-syntax-object 310}# - (#{syntax-object-expression 314}# #{x 1526}#) - (#{join-wraps 405}# - #{w 1527}# - (#{syntax-object-wrap 316}# #{x 1526}#)) - (#{syntax-object-module 318}# #{x 1526}#)) - (if (null? #{x 1526}#) - #{x 1526}# - (#{make-syntax-object 310}# - #{x 1526}# - #{w 1527}# - #{defmod 1528}#)))))) - (#{source-wrap 425}# - (lambda (#{x 1543}# - #{w 1544}# - #{s 1545}# - #{defmod 1546}#) - (#{wrap 423}# - (#{decorate-source 265}# #{x 1543}# #{s 1545}#) - #{w 1544}# - #{defmod 1546}#))) - (#{chi-sequence 427}# - (lambda (#{body 1551}# - #{r 1552}# - #{w 1553}# - #{s 1554}# - #{mod 1555}#) - (#{build-sequence 299}# - #{s 1554}# + #{x 17718}# + (if (if (vector? #{x 17718}#) + (if (= (vector-length #{x 17718}#) 4) + (eq? (vector-ref #{x 17718}# 0) 'syntax-object) + #f) + #f) + (let ((#{expression 17734}# (vector-ref #{x 17718}# 1)) + (#{wrap 17735}# + (#{join-wraps 4329}# + #{w 17719}# + (vector-ref #{x 17718}# 2))) + (#{module 17736}# (vector-ref #{x 17718}# 3))) + (vector + 'syntax-object + #{expression 17734}# + #{wrap 17735}# + #{module 17736}#)) + (if (null? #{x 17718}#) + #{x 17718}# + (vector + 'syntax-object + #{x 17718}# + #{w 17719}# + #{defmod 17720}#)))))) + (#{source-wrap 4339}# + (lambda (#{x 17753}# + #{w 17754}# + #{s 17755}# + #{defmod 17756}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{x 17753}#) #{s 17755}# #f) + (set-source-properties! #{x 17753}# #{s 17755}#)) + #{x 17753}#) + #{w 17754}# + #{defmod 17756}#))) + (#{chi-sequence 4340}# + (lambda (#{body 28233}# + #{r 28234}# + #{w 28235}# + #{s 28236}# + #{mod 28237}#) + (#{build-sequence 4294}# + #{s 28236}# (letrec* - ((#{dobody 1566}# - (lambda (#{body 1567}# - #{r 1568}# - #{w 1569}# - #{mod 1570}#) - (if (null? #{body 1567}#) + ((#{dobody 28322}# + (lambda (#{body 28402}# + #{r 28403}# + #{w 28404}# + #{mod 28405}#) + (if (null? #{body 28402}#) '() - (let ((#{first 1572}# - (#{chi 437}# - (car #{body 1567}#) - #{r 1568}# - #{w 1569}# - #{mod 1570}#))) - (cons #{first 1572}# - (#{dobody 1566}# - (cdr #{body 1567}#) - #{r 1568}# - #{w 1569}# - #{mod 1570}#))))))) - (#{dobody 1566}# - #{body 1551}# - #{r 1552}# - #{w 1553}# - #{mod 1555}#))))) - (#{chi-top-sequence 429}# - (lambda (#{body 1573}# - #{r 1574}# - #{w 1575}# - #{s 1576}# - #{m 1577}# - #{esew 1578}# - #{mod 1579}#) + (let ((#{first 28406}# + (#{chi 4345}# + (car #{body 28402}#) + #{r 28403}# + #{w 28404}# + #{mod 28405}#))) + (cons #{first 28406}# + (#{dobody 28322}# + (cdr #{body 28402}#) + #{r 28403}# + #{w 28404}# + #{mod 28405}#))))))) + (#{dobody 28322}# + #{body 28233}# + #{r 28234}# + #{w 28235}# + #{mod 28237}#))))) + (#{chi-top-sequence 4341}# + (lambda (#{body 17774}# + #{r 17775}# + #{w 17776}# + #{s 17777}# + #{m 17778}# + #{esew 17779}# + #{mod 17780}#) (letrec* - ((#{scan 1588}# - (lambda (#{body 1589}# - #{r 1590}# - #{w 1591}# - #{s 1592}# - #{m 1593}# - #{esew 1594}# - #{mod 1595}# - #{exps 1596}#) - (if (null? #{body 1589}#) - #{exps 1596}# + ((#{scan 17781}# + (lambda (#{body 17912}# + #{r 17913}# + #{w 17914}# + #{s 17915}# + #{m 17916}# + #{esew 17917}# + #{mod 17918}# + #{exps 17919}#) + (if (null? #{body 17912}#) + #{exps 17919}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 1609}# (car #{body 1589}#))) - (#{syntax-type 435}# - #{e 1609}# - #{r 1590}# - #{w 1591}# - (let ((#{t 1612}# - (#{source-annotation 327}# #{e 1609}#))) - (if #{t 1612}# #{t 1612}# #{s 1592}#)) + (let ((#{e 17920}# (car #{body 17912}#))) + (#{syntax-type 4344}# + #{e 17920}# + #{r 17913}# + #{w 17914}# + (let ((#{t 17924}# + (#{source-annotation 4306}# #{e 17920}#))) + (if #{t 17924}# #{t 17924}# #{s 17915}#)) #f - #{mod 1595}# + #{mod 17918}# #f))) - (lambda (#{type 1614}# - #{value 1615}# - #{e 1616}# - #{w 1617}# - #{s 1618}# - #{mod 1619}#) - (if (memv #{type 1614}# '(begin-form)) - (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_)))) - (if #{tmp 1628}# - (@apply (lambda () #{exps 1596}#) #{tmp 1628}#) - (let ((#{tmp 1629}# + (lambda (#{type 18184}# + #{value 18185}# + #{e 18186}# + #{w 18187}# + #{s 18188}# + #{mod 18189}#) + (if (eqv? #{type 18184}# 'begin-form) + (let ((#{tmp 18194}# + ($sc-dispatch #{e 18186}# '(_)))) + (if #{tmp 18194}# + (@apply (lambda () #{exps 17919}#) #{tmp 18194}#) + (let ((#{tmp 18198}# ($sc-dispatch - #{e 1616}# + #{e 18186}# '(_ any . each-any)))) - (if #{tmp 1629}# + (if #{tmp 18198}# (@apply - (lambda (#{e1 1632}# #{e2 1633}#) - (#{scan 1588}# - (cons #{e1 1632}# #{e2 1633}#) - #{r 1590}# - #{w 1617}# - #{s 1618}# - #{m 1593}# - #{esew 1594}# - #{mod 1619}# - #{exps 1596}#)) - #{tmp 1629}#) + (lambda (#{e1 18202}# #{e2 18203}#) + (#{scan 17781}# + (cons #{e1 18202}# #{e2 18203}#) + #{r 17913}# + #{w 18187}# + #{s 18188}# + #{m 17916}# + #{esew 17917}# + #{mod 18189}# + #{exps 17919}#)) + #{tmp 18198}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 1616}#))))) - (if (memv #{type 1614}# '(local-syntax-form)) - (#{chi-local-syntax 447}# - #{value 1615}# - #{e 1616}# - #{r 1590}# - #{w 1617}# - #{s 1618}# - #{mod 1619}# - (lambda (#{body 1636}# - #{r 1637}# - #{w 1638}# - #{s 1639}# - #{mod 1640}#) - (#{scan 1588}# - #{body 1636}# - #{r 1637}# - #{w 1638}# - #{s 1639}# - #{m 1593}# - #{esew 1594}# - #{mod 1640}# - #{exps 1596}#))) - (if (memv #{type 1614}# '(eval-when-form)) - (let ((#{tmp 1648}# + #{e 18186}#))))) + (if (eqv? #{type 18184}# 'local-syntax-form) + (#{chi-local-syntax 4350}# + #{value 18185}# + #{e 18186}# + #{r 17913}# + #{w 18187}# + #{s 18188}# + #{mod 18189}# + (lambda (#{body 18218}# + #{r 18219}# + #{w 18220}# + #{s 18221}# + #{mod 18222}#) + (#{scan 17781}# + #{body 18218}# + #{r 18219}# + #{w 18220}# + #{s 18221}# + #{m 17916}# + #{esew 17917}# + #{mod 18222}# + #{exps 17919}#))) + (if (eqv? #{type 18184}# 'eval-when-form) + (let ((#{tmp 18227}# ($sc-dispatch - #{e 1616}# + #{e 18186}# '(_ each-any any . each-any)))) - (if #{tmp 1648}# + (if #{tmp 18227}# (@apply - (lambda (#{x 1652}# - #{e1 1653}# - #{e2 1654}#) - (let ((#{when-list 1657}# - (#{chi-when-list 433}# - #{e 1616}# - #{x 1652}# - #{w 1617}#)) - (#{body 1658}# - (cons #{e1 1653}# #{e2 1654}#))) - (if (eq? #{m 1593}# 'e) - (if (memq 'eval #{when-list 1657}#) - (#{scan 1588}# - #{body 1658}# - #{r 1590}# - #{w 1617}# - #{s 1618}# + (lambda (#{x 18231}# + #{e1 18232}# + #{e2 18233}#) + (let ((#{when-list 18234}# + (#{chi-when-list 4343}# + #{e 18186}# + #{x 18231}# + #{w 18187}#)) + (#{body 18235}# + (cons #{e1 18232}# + #{e2 18233}#))) + (if (eq? #{m 17916}# 'e) + (if (memq 'eval #{when-list 18234}#) + (#{scan 17781}# + #{body 18235}# + #{r 17913}# + #{w 18187}# + #{s 18188}# (if (memq 'expand - #{when-list 1657}#) + #{when-list 18234}#) 'c&e 'e) '(eval) - #{mod 1619}# - #{exps 1596}#) + #{mod 18189}# + #{exps 17919}#) (begin (if (memq 'expand - #{when-list 1657}#) - (#{top-level-eval-hook 255}# - (#{chi-top-sequence 429}# - #{body 1658}# - #{r 1590}# - #{w 1617}# - #{s 1618}# - 'e - '(eval) - #{mod 1619}#) - #{mod 1619}#)) - (values #{exps 1596}#))) - (if (memq 'load #{when-list 1657}#) - (if (let ((#{t 1667}# + #{when-list 18234}#) + (let ((#{x 18242}# + (#{chi-top-sequence 4341}# + #{body 18235}# + #{r 17913}# + #{w 18187}# + #{s 18188}# + 'e + '(eval) + #{mod 18189}#))) + (primitive-eval + #{x 18242}#))) + (values #{exps 17919}#))) + (if (memq 'load #{when-list 18234}#) + (if (let ((#{t 18244}# (memq 'compile - #{when-list 1657}#))) - (if #{t 1667}# - #{t 1667}# - (let ((#{t 1670}# + #{when-list 18234}#))) + (if #{t 18244}# + #{t 18244}# + (let ((#{t 18246}# (memq 'expand - #{when-list 1657}#))) - (if #{t 1670}# - #{t 1670}# - (if (eq? #{m 1593}# + #{when-list 18234}#))) + (if #{t 18246}# + #{t 18246}# + (if (eq? #{m 17916}# 'c&e) (memq 'eval - #{when-list 1657}#) + #{when-list 18234}#) #f))))) - (#{scan 1588}# - #{body 1658}# - #{r 1590}# - #{w 1617}# - #{s 1618}# + (#{scan 17781}# + #{body 18235}# + #{r 17913}# + #{w 18187}# + #{s 18188}# 'c&e '(compile load) - #{mod 1619}# - #{exps 1596}#) - (if (memq #{m 1593}# '(c c&e)) - (#{scan 1588}# - #{body 1658}# - #{r 1590}# - #{w 1617}# - #{s 1618}# + #{mod 18189}# + #{exps 17919}#) + (if (if (eq? #{m 17916}# 'c) + #t + (eq? #{m 17916}# 'c&e)) + (#{scan 17781}# + #{body 18235}# + #{r 17913}# + #{w 18187}# + #{s 18188}# 'c '(load) - #{mod 1619}# - #{exps 1596}#) - (values #{exps 1596}#))) - (if (let ((#{t 1678}# + #{mod 18189}# + #{exps 17919}#) + (values #{exps 17919}#))) + (if (let ((#{t 18256}# (memq 'compile - #{when-list 1657}#))) - (if #{t 1678}# - #{t 1678}# - (let ((#{t 1681}# + #{when-list 18234}#))) + (if #{t 18256}# + #{t 18256}# + (let ((#{t 18258}# (memq 'expand - #{when-list 1657}#))) - (if #{t 1681}# - #{t 1681}# - (if (eq? #{m 1593}# + #{when-list 18234}#))) + (if #{t 18258}# + #{t 18258}# + (if (eq? #{m 17916}# 'c&e) (memq 'eval - #{when-list 1657}#) + #{when-list 18234}#) #f))))) (begin - (#{top-level-eval-hook 255}# - (#{chi-top-sequence 429}# - #{body 1658}# - #{r 1590}# - #{w 1617}# - #{s 1618}# - 'e - '(eval) - #{mod 1619}#) - #{mod 1619}#) - (values #{exps 1596}#)) - (values #{exps 1596}#)))))) - #{tmp 1648}#) + (let ((#{x 18263}# + (#{chi-top-sequence 4341}# + #{body 18235}# + #{r 17913}# + #{w 18187}# + #{s 18188}# + 'e + '(eval) + #{mod 18189}#))) + (primitive-eval #{x 18263}#)) + (values #{exps 17919}#)) + (values #{exps 17919}#)))))) + #{tmp 18227}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 1616}#))) - (if (memv #{type 1614}# '(define-syntax-form)) - (let ((#{n 1689}# - (#{id-var-name 411}# - #{value 1615}# - #{w 1617}#)) - (#{r 1690}# - (#{macros-only-env 341}# #{r 1590}#))) - (if (memv #{m 1593}# '(c)) - (if (memq 'compile #{esew 1594}#) - (let ((#{e 1693}# - (#{chi-install-global 431}# - #{n 1689}# - (#{chi 437}# - #{e 1616}# - #{r 1690}# - #{w 1617}# - #{mod 1619}#)))) + #{e 18186}#))) + (if (eqv? #{type 18184}# 'define-syntax-form) + (let ((#{n 18274}# + (#{id-var-name 4332}# + #{value 18185}# + #{w 18187}#)) + (#{r 18275}# + (#{macros-only-env 4309}# + #{r 17913}#))) + (if (eqv? #{m 17916}# 'c) + (if (memq 'compile #{esew 17917}#) + (let ((#{e 18279}# + (#{chi-install-global 4342}# + #{n 18274}# + (#{chi 4345}# + #{e 18186}# + #{r 18275}# + #{w 18187}# + #{mod 18189}#)))) (begin - (#{top-level-eval-hook 255}# - #{e 1693}# - #{mod 1619}#) - (if (memq 'load #{esew 1594}#) + (#{top-level-eval-hook 4273}# + #{e 18279}# + #{mod 18189}#) + (if (memq 'load #{esew 17917}#) (values - (cons #{e 1693}# #{exps 1596}#)) - (values #{exps 1596}#)))) - (if (memq 'load #{esew 1594}#) + (cons #{e 18279}# + #{exps 17919}#)) + (values #{exps 17919}#)))) + (if (memq 'load #{esew 17917}#) (values - (cons (#{chi-install-global 431}# - #{n 1689}# - (#{chi 437}# - #{e 1616}# - #{r 1690}# - #{w 1617}# - #{mod 1619}#)) - #{exps 1596}#)) - (values #{exps 1596}#))) - (if (memv #{m 1593}# '(c&e)) - (let ((#{e 1696}# - (#{chi-install-global 431}# - #{n 1689}# - (#{chi 437}# - #{e 1616}# - #{r 1690}# - #{w 1617}# - #{mod 1619}#)))) + (cons (#{chi-install-global 4342}# + #{n 18274}# + (#{chi 4345}# + #{e 18186}# + #{r 18275}# + #{w 18187}# + #{mod 18189}#)) + #{exps 17919}#)) + (values #{exps 17919}#))) + (if (eqv? #{m 17916}# 'c&e) + (let ((#{e 18736}# + (#{chi-install-global 4342}# + #{n 18274}# + (#{chi 4345}# + #{e 18186}# + #{r 18275}# + #{w 18187}# + #{mod 18189}#)))) (begin - (#{top-level-eval-hook 255}# - #{e 1696}# - #{mod 1619}#) + (#{top-level-eval-hook 4273}# + #{e 18736}# + #{mod 18189}#) (values - (cons #{e 1696}# #{exps 1596}#)))) + (cons #{e 18736}# + #{exps 17919}#)))) (begin - (if (memq 'eval #{esew 1594}#) - (#{top-level-eval-hook 255}# - (#{chi-install-global 431}# - #{n 1689}# - (#{chi 437}# - #{e 1616}# - #{r 1690}# - #{w 1617}# - #{mod 1619}#)) - #{mod 1619}#)) - (values #{exps 1596}#))))) - (if (memv #{type 1614}# '(define-form)) - (let ((#{n 1701}# - (#{id-var-name 411}# - #{value 1615}# - #{w 1617}#))) - (let ((#{type 1703}# - (car (#{lookup 343}# - #{n 1701}# - #{r 1590}# - #{mod 1619}#)))) - (if (memv #{type 1703}# - '(global - core - macro - module-ref)) + (if (memq 'eval #{esew 17917}#) + (#{top-level-eval-hook 4273}# + (#{chi-install-global 4342}# + #{n 18274}# + (#{chi 4345}# + #{e 18186}# + #{r 18275}# + #{w 18187}# + #{mod 18189}#)) + #{mod 18189}#)) + (values #{exps 17919}#))))) + (if (eqv? #{type 18184}# 'define-form) + (let ((#{n 19386}# + (#{id-var-name 4332}# + #{value 18185}# + #{w 18187}#))) + (let ((#{type 19387}# + (car (let ((#{t 20156}# + (assq #{n 19386}# + #{r 17913}#))) + (if #{t 20156}# + (cdr #{t 20156}#) + (if (symbol? #{n 19386}#) + (let ((#{t 20161}# + (begin + (if (if (not #{mod 18189}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{n 19386}#)) + (let ((#{v 20198}# + (module-variable + (if #{mod 18189}# + (resolve-module + (cdr #{mod 18189}#)) + (current-module)) + #{n 19386}#))) + (if #{v 20198}# + (if (variable-bound? + #{v 20198}#) + (let ((#{val 20207}# + (variable-ref + #{v 20198}#))) + (if (macro? + #{val 20207}#) + (if (macro-type + #{val 20207}#) + (cons (macro-type + #{val 20207}#) + (macro-binding + #{val 20207}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 20161}# + #{t 20161}# + '(global))) + '(displaced-lexical))))))) + (if (let ((#{t 19421}# #{type 19387}#)) + (if (eqv? #{t 19421}# 'global) + #t + (if (eqv? #{t 19421}# 'core) + #t + (if (eqv? #{t 19421}# 'macro) + #t + (eqv? #{t 19421}# + 'module-ref))))) (begin - (if (if (memq #{m 1593}# '(c c&e)) + (if (if (if (eq? #{m 17916}# 'c) + #t + (eq? #{m 17916}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 1701}#)) + #{n 19386}#)) (current-module) #f) #f) - (let ((#{old 1710}# + (let ((#{old 19585}# (module-variable (current-module) - #{n 1701}#))) - (if (if (variable? #{old 1710}#) + #{n 19386}#))) + (if (if (variable? #{old 19585}#) (variable-bound? - #{old 1710}#) + #{old 19585}#) #f) (module-define! (current-module) - #{n 1701}# - (variable-ref #{old 1710}#)) + #{n 19386}# + (variable-ref #{old 19585}#)) (module-add! (current-module) - #{n 1701}# + #{n 19386}# (make-undefined-variable))))) (values - (cons (if (eq? #{m 1593}# 'c&e) - (let ((#{x 1714}# - (#{build-global-definition 287}# - #{s 1618}# - #{n 1701}# - (#{chi 437}# - #{e 1616}# - #{r 1590}# - #{w 1617}# - #{mod 1619}#)))) + (cons (if (eq? #{m 17916}# 'c&e) + (let ((#{x 19587}# + (#{build-global-definition 4288}# + #{s 18188}# + #{n 19386}# + (#{chi 4345}# + #{e 18186}# + #{r 17913}# + #{w 18187}# + #{mod 18189}#)))) (begin - (#{top-level-eval-hook 255}# - #{x 1714}# - #{mod 1619}#) - #{x 1714}#)) + (#{top-level-eval-hook 4273}# + #{x 19587}# + #{mod 18189}#) + #{x 19587}#)) (lambda () - (#{build-global-definition 287}# - #{s 1618}# - #{n 1701}# - (#{chi 437}# - #{e 1616}# - #{r 1590}# - #{w 1617}# - #{mod 1619}#)))) - #{exps 1596}#))) - (if (memv #{type 1703}# - '(displaced-lexical)) + (#{build-global-definition 4288}# + #{s 18188}# + #{n 19386}# + (#{chi 4345}# + #{e 18186}# + #{r 17913}# + #{w 18187}# + #{mod 18189}#)))) + #{exps 17919}#))) + (if (let ((#{t 20083}# #{type 19387}#)) + (eqv? #{t 20083}# + 'displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e 1616}# - (#{wrap 423}# - #{value 1615}# - #{w 1617}# - #{mod 1619}#)) + #{e 18186}# + (#{wrap 4338}# + #{value 18185}# + #{w 18187}# + #{mod 18189}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 1616}# - (#{wrap 423}# - #{value 1615}# - #{w 1617}# - #{mod 1619}#)))))) + #{e 18186}# + (#{wrap 4338}# + #{value 18185}# + #{w 18187}# + #{mod 18189}#)))))) (values - (cons (if (eq? #{m 1593}# 'c&e) - (let ((#{x 1719}# - (#{chi-expr 439}# - #{type 1614}# - #{value 1615}# - #{e 1616}# - #{r 1590}# - #{w 1617}# - #{s 1618}# - #{mod 1619}#))) + (cons (if (eq? #{m 17916}# 'c&e) + (let ((#{x 20218}# + (#{chi-expr 4346}# + #{type 18184}# + #{value 18185}# + #{e 18186}# + #{r 17913}# + #{w 18187}# + #{s 18188}# + #{mod 18189}#))) (begin - (#{top-level-eval-hook 255}# - #{x 1719}# - #{mod 1619}#) - #{x 1719}#)) + (primitive-eval #{x 20218}#) + #{x 20218}#)) (lambda () - (#{chi-expr 439}# - #{type 1614}# - #{value 1615}# - #{e 1616}# - #{r 1590}# - #{w 1617}# - #{s 1618}# - #{mod 1619}#))) - #{exps 1596}#)))))))))) - (lambda (#{exps 1720}#) - (#{scan 1588}# - (cdr #{body 1589}#) - #{r 1590}# - #{w 1591}# - #{s 1592}# - #{m 1593}# - #{esew 1594}# - #{mod 1595}# - #{exps 1720}#))))))) + (#{chi-expr 4346}# + #{type 18184}# + #{value 18185}# + #{e 18186}# + #{r 17913}# + #{w 18187}# + #{s 18188}# + #{mod 18189}#))) + #{exps 17919}#)))))))))) + (lambda (#{exps 20227}#) + (#{scan 17781}# + (cdr #{body 17912}#) + #{r 17913}# + #{w 17914}# + #{s 17915}# + #{m 17916}# + #{esew 17917}# + #{mod 17918}# + #{exps 20227}#))))))) (call-with-values (lambda () - (#{scan 1588}# - #{body 1573}# - #{r 1574}# - #{w 1575}# - #{s 1576}# - #{m 1577}# - #{esew 1578}# - #{mod 1579}# + (#{scan 17781}# + #{body 17774}# + #{r 17775}# + #{w 17776}# + #{s 17777}# + #{m 17778}# + #{esew 17779}# + #{mod 17780}# '())) - (lambda (#{exps 1722}#) - (if (null? #{exps 1722}#) - (#{build-void 269}# #{s 1576}#) - (#{build-sequence 299}# - #{s 1576}# + (lambda (#{exps 17784}#) + (if (null? #{exps 17784}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #{s 17777}#) + (#{build-sequence 4294}# + #{s 17777}# (letrec* - ((#{lp 1727}# - (lambda (#{in 1728}# #{out 1729}#) - (if (null? #{in 1728}#) - #{out 1729}# - (let ((#{e 1731}# (car #{in 1728}#))) - (#{lp 1727}# - (cdr #{in 1728}#) - (cons (if (procedure? #{e 1731}#) - (#{e 1731}#) - #{e 1731}#) - #{out 1729}#))))))) - (#{lp 1727}# #{exps 1722}# '()))))))))) - (#{chi-install-global 431}# - (lambda (#{name 1732}# #{e 1733}#) - (#{build-global-definition 287}# - #f - #{name 1732}# - (#{build-application 271}# - #f - (#{build-primref 295}# - #f - 'make-syntax-transformer) - (list (#{build-data 297}# #f #{name 1732}#) - (#{build-data 297}# #f 'macro) - #{e 1733}#))))) - (#{chi-when-list 433}# - (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#) - (letrec* - ((#{f 1750}# - (lambda (#{when-list 1751}# #{situations 1752}#) - (if (null? #{when-list 1751}#) - #{situations 1752}# - (#{f 1750}# - (cdr #{when-list 1751}#) - (cons (let ((#{x 1754}# (car #{when-list 1751}#))) - (if (#{free-id=? 413}# - #{x 1754}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1753")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1747" "i1748" "i1749")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1744" "i1745" "i1746")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - 'compile - (if (#{free-id=? 413}# - #{x 1754}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1753")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1747" "i1748" "i1749")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1744" "i1745" "i1746")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - 'load - (if (#{free-id=? 413}# - #{x 1754}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1753")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1747" "i1748" "i1749")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1744" "i1745" "i1746")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - 'eval - (if (#{free-id=? 413}# - #{x 1754}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1753")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1747" "i1748" "i1749")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1744" "i1745" "i1746")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - 'expand - (syntax-violation - 'eval-when - "invalid situation" - #{e 1741}# - (#{wrap 423}# - #{x 1754}# - #{w 1743}# - #f))))))) - #{situations 1752}#)))))) - (#{f 1750}# #{when-list 1742}# '())))) - (#{syntax-type 435}# - (lambda (#{e 1764}# - #{r 1765}# - #{w 1766}# - #{s 1767}# - #{rib 1768}# - #{mod 1769}# - #{for-car? 1770}#) - (if (symbol? #{e 1764}#) - (let ((#{n 1782}# - (#{id-var-name 411}# #{e 1764}# #{w 1766}#))) - (let ((#{b 1784}# - (#{lookup 343}# - #{n 1782}# - #{r 1765}# - #{mod 1769}#))) - (let ((#{type 1786}# (car #{b 1784}#))) - (if (memv #{type 1786}# '(lexical)) - (values - #{type 1786}# - (cdr #{b 1784}#) - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{type 1786}# '(global)) - (values - #{type 1786}# - #{n 1782}# - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{type 1786}# '(macro)) - (if #{for-car? 1770}# - (values - #{type 1786}# - (cdr #{b 1784}#) - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (#{syntax-type 435}# - (#{chi-macro 443}# - (cdr #{b 1784}#) - #{e 1764}# - #{r 1765}# - #{w 1766}# - #{s 1767}# - #{rib 1768}# - #{mod 1769}#) - #{r 1765}# - '(()) - #{s 1767}# - #{rib 1768}# - #{mod 1769}# - #f)) - (values - #{type 1786}# - (cdr #{b 1784}#) - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#))))))) - (if (pair? #{e 1764}#) - (let ((#{first 1800}# (car #{e 1764}#))) - (call-with-values - (lambda () - (#{syntax-type 435}# - #{first 1800}# - #{r 1765}# - #{w 1766}# - #{s 1767}# - #{rib 1768}# - #{mod 1769}# - #t)) - (lambda (#{ftype 1801}# - #{fval 1802}# - #{fe 1803}# - #{fw 1804}# - #{fs 1805}# - #{fmod 1806}#) - (if (memv #{ftype 1801}# '(lexical)) - (values - 'lexical-call - #{fval 1802}# - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(global)) - (values - 'global-call - (#{make-syntax-object 310}# - #{fval 1802}# - #{w 1766}# - #{fmod 1806}#) - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(macro)) - (#{syntax-type 435}# - (#{chi-macro 443}# - #{fval 1802}# - #{e 1764}# - #{r 1765}# - #{w 1766}# - #{s 1767}# - #{rib 1768}# - #{mod 1769}#) - #{r 1765}# - '(()) - #{s 1767}# - #{rib 1768}# - #{mod 1769}# - #{for-car? 1770}#) - (if (memv #{ftype 1801}# '(module-ref)) - (call-with-values - (lambda () - (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#)) - (lambda (#{e 1818}# - #{r 1819}# - #{w 1820}# - #{s 1821}# - #{mod 1822}#) - (#{syntax-type 435}# - #{e 1818}# - #{r 1819}# - #{w 1820}# - #{s 1821}# - #{rib 1768}# - #{mod 1822}# - #{for-car? 1770}#))) - (if (memv #{ftype 1801}# '(core)) - (values - 'core-form - #{fval 1802}# - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(local-syntax)) - (values - 'local-syntax-form - #{fval 1802}# - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(begin)) - (values - 'begin-form - #f - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(eval-when)) - (values - 'eval-when-form - #f - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (if (memv #{ftype 1801}# '(define)) - (let ((#{tmp 1834}# - ($sc-dispatch - #{e 1764}# - '(_ any any)))) - (if (if #{tmp 1834}# - (@apply - (lambda (#{name 1837}# - #{val 1838}#) - (#{id? 349}# #{name 1837}#)) - #{tmp 1834}#) - #f) - (@apply - (lambda (#{name 1841}# #{val 1842}#) - (values - 'define-form - #{name 1841}# - #{val 1842}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#)) - #{tmp 1834}#) - (let ((#{tmp 1843}# - ($sc-dispatch - #{e 1764}# - '(_ (any . any) - any - . - each-any)))) - (if (if #{tmp 1843}# - (@apply - (lambda (#{name 1848}# - #{args 1849}# - #{e1 1850}# - #{e2 1851}#) - (if (#{id? 349}# - #{name 1848}#) - (#{valid-bound-ids? 417}# - (#{lambda-var-list 467}# - #{args 1849}#)) - #f)) - #{tmp 1843}#) - #f) - (@apply - (lambda (#{name 1858}# - #{args 1859}# - #{e1 1860}# - #{e2 1861}#) - (values - 'define-form - (#{wrap 423}# - #{name 1858}# - #{w 1766}# - #{mod 1769}#) - (#{decorate-source 265}# - (cons '#(syntax-object - lambda - ((top) - #(ribcage - #(name - args - e1 - e2) - #((top) - (top) - (top) - (top)) - #("i1854" - "i1855" - "i1856" - "i1857")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1807" - "i1808" - "i1809" - "i1810" - "i1811" - "i1812")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1799")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - (#{wrap 423}# - (cons #{args 1859}# - (cons #{e1 1860}# - #{e2 1861}#)) - #{w 1766}# - #{mod 1769}#)) - #{s 1767}#) - '(()) - #{s 1767}# - #{mod 1769}#)) - #{tmp 1843}#) - (let ((#{tmp 1864}# - ($sc-dispatch - #{e 1764}# - '(_ any)))) - (if (if #{tmp 1864}# - (@apply - (lambda (#{name 1866}#) - (#{id? 349}# - #{name 1866}#)) - #{tmp 1864}#) - #f) - (@apply - (lambda (#{name 1868}#) - (values - 'define-form - (#{wrap 423}# - #{name 1868}# - #{w 1766}# - #{mod 1769}#) - '(#(syntax-object - if - ((top) - #(ribcage - #(name) - #((top)) - #("i1867")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1807" - "i1808" - "i1809" - "i1810" - "i1811" - "i1812")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1799")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1867")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1807" - "i1808" - "i1809" - "i1810" - "i1811" - "i1812")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1799")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1867")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1807" - "i1808" - "i1809" - "i1810" - "i1811" - "i1812")) - #(ribcage () () ()) - #(ribcage - #(first) - #((top)) - #("i1799")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1771" - "i1772" - "i1773" - "i1774" - "i1775" - "i1776" - "i1777")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile))) - '(()) - #{s 1767}# - #{mod 1769}#)) - #{tmp 1864}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1764}#))))))) - (if (memv #{ftype 1801}# '(define-syntax)) - (let ((#{tmp 1872}# - ($sc-dispatch - #{e 1764}# - '(_ any any)))) - (if (if #{tmp 1872}# - (@apply - (lambda (#{name 1875}# - #{val 1876}#) - (#{id? 349}# #{name 1875}#)) - #{tmp 1872}#) - #f) - (@apply - (lambda (#{name 1879}# #{val 1880}#) - (values - 'define-syntax-form - #{name 1879}# - #{val 1880}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#)) - #{tmp 1872}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1764}#))) - (values - 'call - #f - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#)))))))))))))) - (if (#{syntax-object? 312}# #{e 1764}#) - (#{syntax-type 435}# - (#{syntax-object-expression 314}# #{e 1764}#) - #{r 1765}# - (#{join-wraps 405}# - #{w 1766}# - (#{syntax-object-wrap 316}# #{e 1764}#)) - (let ((#{t 1886}# - (#{source-annotation 327}# #{e 1764}#))) - (if #{t 1886}# #{t 1886}# #{s 1767}#)) - #{rib 1768}# - (let ((#{t 1890}# - (#{syntax-object-module 318}# #{e 1764}#))) - (if #{t 1890}# #{t 1890}# #{mod 1769}#)) - #{for-car? 1770}#) - (if (self-evaluating? #{e 1764}#) - (values - 'constant - #f - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#) - (values - 'other - #f - #{e 1764}# - #{w 1766}# - #{s 1767}# - #{mod 1769}#))))))) - (#{chi 437}# - (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#) - (call-with-values - (lambda () - (#{syntax-type 435}# - #{e 1895}# - #{r 1896}# - #{w 1897}# - (#{source-annotation 327}# #{e 1895}#) - #f - #{mod 1898}# - #f)) - (lambda (#{type 1903}# - #{value 1904}# - #{e 1905}# - #{w 1906}# - #{s 1907}# - #{mod 1908}#) - (#{chi-expr 439}# - #{type 1903}# - #{value 1904}# - #{e 1905}# - #{r 1896}# - #{w 1906}# - #{s 1907}# - #{mod 1908}#))))) - (#{chi-expr 439}# - (lambda (#{type 1915}# - #{value 1916}# - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (if (memv #{type 1915}# '(lexical)) - (#{build-lexical-reference 277}# - 'value - #{s 1920}# - #{e 1917}# - #{value 1916}#) - (if (memv #{type 1915}# '(core core-form)) - (#{value 1916}# - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (if (memv #{type 1915}# '(module-ref)) - (call-with-values - (lambda () - (#{value 1916}# #{e 1917}# #{r 1918}# #{w 1919}#)) - (lambda (#{e 1932}# - #{r 1933}# - #{w 1934}# - #{s 1935}# - #{mod 1936}#) - (#{chi 437}# - #{e 1932}# - #{r 1933}# - #{w 1934}# - #{mod 1936}#))) - (if (memv #{type 1915}# '(lexical-call)) - (#{chi-application 441}# - (let ((#{id 1944}# (car #{e 1917}#))) - (#{build-lexical-reference 277}# - 'fun - (#{source-annotation 327}# #{id 1944}#) - (if (#{syntax-object? 312}# #{id 1944}#) - (syntax->datum #{id 1944}#) - #{id 1944}#) - #{value 1916}#)) - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (if (memv #{type 1915}# '(global-call)) - (#{chi-application 441}# - (#{build-global-reference 283}# - (#{source-annotation 327}# (car #{e 1917}#)) - (if (#{syntax-object? 312}# #{value 1916}#) - (#{syntax-object-expression 314}# #{value 1916}#) - #{value 1916}#) - (if (#{syntax-object? 312}# #{value 1916}#) - (#{syntax-object-module 318}# #{value 1916}#) - #{mod 1921}#)) - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (if (memv #{type 1915}# '(constant)) - (#{build-data 297}# - #{s 1920}# - (#{strip 463}# - (#{source-wrap 425}# - #{e 1917}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - '(()))) - (if (memv #{type 1915}# '(global)) - (#{build-global-reference 283}# - #{s 1920}# - #{value 1916}# - #{mod 1921}#) - (if (memv #{type 1915}# '(call)) - (#{chi-application 441}# - (#{chi 437}# - (car #{e 1917}#) - #{r 1918}# - #{w 1919}# - #{mod 1921}#) - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (if (memv #{type 1915}# '(begin-form)) - (let ((#{tmp 1952}# - ($sc-dispatch - #{e 1917}# - '(_ any . each-any)))) - (if #{tmp 1952}# - (@apply - (lambda (#{e1 1955}# #{e2 1956}#) - (#{chi-sequence 427}# - (cons #{e1 1955}# #{e2 1956}#) - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#)) - #{tmp 1952}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1917}#))) - (if (memv #{type 1915}# '(local-syntax-form)) - (#{chi-local-syntax 447}# - #{value 1916}# - #{e 1917}# - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}# - #{chi-sequence 427}#) - (if (memv #{type 1915}# '(eval-when-form)) - (let ((#{tmp 1961}# - ($sc-dispatch - #{e 1917}# - '(_ each-any any . each-any)))) - (if #{tmp 1961}# - (@apply - (lambda (#{x 1965}# #{e1 1966}# #{e2 1967}#) - (let ((#{when-list 1969}# - (#{chi-when-list 433}# - #{e 1917}# - #{x 1965}# - #{w 1919}#))) - (if (memq 'eval #{when-list 1969}#) - (#{chi-sequence 427}# - (cons #{e1 1966}# #{e2 1967}#) - #{r 1918}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#) - (#{chi-void 451}#)))) - #{tmp 1961}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1917}#))) - (if (memv #{type 1915}# - '(define-form define-syntax-form)) - (syntax-violation - #f - "definition in expression context" - #{e 1917}# - (#{wrap 423}# - #{value 1916}# - #{w 1919}# - #{mod 1921}#)) - (if (memv #{type 1915}# '(syntax)) - (syntax-violation - #f - "reference to pattern variable outside syntax form" - (#{source-wrap 425}# - #{e 1917}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#)) - (if (memv #{type 1915}# '(displaced-lexical)) - (syntax-violation - #f - "reference to identifier outside its scope" - (#{source-wrap 425}# - #{e 1917}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#)) - (syntax-violation - #f - "unexpected syntax" - (#{source-wrap 425}# - #{e 1917}# - #{w 1919}# - #{s 1920}# - #{mod 1921}#)))))))))))))))))) - (#{chi-application 441}# - (lambda (#{x 1976}# - #{e 1977}# - #{r 1978}# - #{w 1979}# - #{s 1980}# - #{mod 1981}#) - (let ((#{tmp 1989}# - ($sc-dispatch #{e 1977}# '(any . each-any)))) - (if #{tmp 1989}# - (@apply - (lambda (#{e0 1992}# #{e1 1993}#) - (#{build-application 271}# - #{s 1980}# - #{x 1976}# - (map (lambda (#{e 1994}#) - (#{chi 437}# - #{e 1994}# - #{r 1978}# - #{w 1979}# - #{mod 1981}#)) - #{e1 1993}#))) - #{tmp 1989}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 1977}#))))) - (#{chi-macro 443}# - (lambda (#{p 1997}# - #{e 1998}# - #{r 1999}# - #{w 2000}# - #{s 2001}# - #{rib 2002}# - #{mod 2003}#) - (letrec* - ((#{rebuild-macro-output 2012}# - (lambda (#{x 2013}# #{m 2014}#) - (if (pair? #{x 2013}#) - (#{decorate-source 265}# - (cons (#{rebuild-macro-output 2012}# - (car #{x 2013}#) - #{m 2014}#) - (#{rebuild-macro-output 2012}# - (cdr #{x 2013}#) - #{m 2014}#)) - #{s 2001}#) - (if (#{syntax-object? 312}# #{x 2013}#) - (let ((#{w 2022}# - (#{syntax-object-wrap 316}# #{x 2013}#))) - (let ((#{ms 2025}# (car #{w 2022}#)) - (#{s 2026}# (cdr #{w 2022}#))) - (if (if (pair? #{ms 2025}#) - (eq? (car #{ms 2025}#) #f) - #f) - (#{make-syntax-object 310}# - (#{syntax-object-expression 314}# #{x 2013}#) - (cons (cdr #{ms 2025}#) - (if #{rib 2002}# - (cons #{rib 2002}# (cdr #{s 2026}#)) - (cdr #{s 2026}#))) - (#{syntax-object-module 318}# #{x 2013}#)) - (#{make-syntax-object 310}# - (#{decorate-source 265}# - (#{syntax-object-expression 314}# #{x 2013}#) - #{s 2026}#) - (cons (cons #{m 2014}# #{ms 2025}#) - (if #{rib 2002}# - (cons #{rib 2002}# (cons 'shift #{s 2026}#)) - (cons 'shift #{s 2026}#))) - (#{syntax-object-module 318}# #{x 2013}#))))) - (if (vector? #{x 2013}#) - (let ((#{n 2038}# (vector-length #{x 2013}#))) - (let ((#{v 2040}# - (#{decorate-source 265}# - (make-vector #{n 2038}#) - #{x 2013}#))) - (letrec* - ((#{loop 2043}# - (lambda (#{i 2044}#) - (if (= #{i 2044}# #{n 2038}#) - #{v 2040}# - (begin - (vector-set! - #{v 2040}# - #{i 2044}# - (#{rebuild-macro-output 2012}# - (vector-ref #{x 2013}# #{i 2044}#) - #{m 2014}#)) - (#{loop 2043}# (#{1+}# #{i 2044}#))))))) - (#{loop 2043}# 0)))) - (if (symbol? #{x 2013}#) - (syntax-violation - #f - "encountered raw symbol in macro output" - (#{source-wrap 425}# - #{e 1998}# - #{w 2000}# - (cdr #{w 2000}#) - #{mod 2003}#) - #{x 2013}#) - (#{decorate-source 265}# #{x 2013}# #{s 2001}#)))))))) - (#{rebuild-macro-output 2012}# - (#{p 1997}# - (#{source-wrap 425}# - #{e 1998}# - (#{anti-mark 393}# #{w 2000}#) - #{s 2001}# - #{mod 2003}#)) - (gensym "m"))))) - (#{chi-body 445}# - (lambda (#{body 2054}# - #{outer-form 2055}# - #{r 2056}# - #{w 2057}# - #{mod 2058}#) - (let ((#{r 2066}# - (cons '("placeholder" placeholder) #{r 2056}#))) - (let ((#{ribcage 2068}# - (#{make-ribcage 372}# '() '() '()))) - (let ((#{w 2071}# - (cons (car #{w 2057}#) - (cons #{ribcage 2068}# (cdr #{w 2057}#))))) - (letrec* - ((#{parse 2083}# - (lambda (#{body 2084}# - #{ids 2085}# - #{labels 2086}# - #{var-ids 2087}# - #{vars 2088}# - #{vals 2089}# - #{bindings 2090}#) - (if (null? #{body 2084}#) - (syntax-violation - #f - "no expressions in body" - #{outer-form 2055}#) - (let ((#{e 2095}# (cdr (car #{body 2084}#))) - (#{er 2096}# (car (car #{body 2084}#)))) - (call-with-values - (lambda () - (#{syntax-type 435}# - #{e 2095}# - #{er 2096}# - '(()) - (#{source-annotation 327}# #{er 2096}#) - #{ribcage 2068}# - #{mod 2058}# - #f)) - (lambda (#{type 2098}# - #{value 2099}# - #{e 2100}# - #{w 2101}# - #{s 2102}# - #{mod 2103}#) - (if (memv #{type 2098}# '(define-form)) - (let ((#{id 2113}# - (#{wrap 423}# - #{value 2099}# - #{w 2101}# - #{mod 2103}#)) - (#{label 2114}# (#{gen-label 367}#))) - (let ((#{var 2116}# - (#{gen-var 465}# #{id 2113}#))) - (begin - (#{extend-ribcage! 399}# - #{ribcage 2068}# - #{id 2113}# - #{label 2114}#) - (#{parse 2083}# - (cdr #{body 2084}#) - (cons #{id 2113}# #{ids 2085}#) - (cons #{label 2114}# #{labels 2086}#) - (cons #{id 2113}# #{var-ids 2087}#) - (cons #{var 2116}# #{vars 2088}#) - (cons (cons #{er 2096}# - (#{wrap 423}# - #{e 2100}# - #{w 2101}# - #{mod 2103}#)) - #{vals 2089}#) - (cons (cons 'lexical #{var 2116}#) - #{bindings 2090}#))))) - (if (memv #{type 2098}# '(define-syntax-form)) - (let ((#{id 2121}# - (#{wrap 423}# - #{value 2099}# - #{w 2101}# - #{mod 2103}#)) - (#{label 2122}# (#{gen-label 367}#))) - (begin - (#{extend-ribcage! 399}# - #{ribcage 2068}# - #{id 2121}# - #{label 2122}#) - (#{parse 2083}# - (cdr #{body 2084}#) - (cons #{id 2121}# #{ids 2085}#) - (cons #{label 2122}# #{labels 2086}#) - #{var-ids 2087}# - #{vars 2088}# - #{vals 2089}# - (cons (cons 'macro - (cons #{er 2096}# - (#{wrap 423}# - #{e 2100}# - #{w 2101}# - #{mod 2103}#))) - #{bindings 2090}#)))) - (if (memv #{type 2098}# '(begin-form)) - (let ((#{tmp 2126}# - ($sc-dispatch - #{e 2100}# - '(_ . each-any)))) - (if #{tmp 2126}# - (@apply - (lambda (#{e1 2128}#) - (#{parse 2083}# - (letrec* - ((#{f 2131}# - (lambda (#{forms 2132}#) - (if (null? #{forms 2132}#) - (cdr #{body 2084}#) - (cons (cons #{er 2096}# - (#{wrap 423}# - (car #{forms 2132}#) - #{w 2101}# - #{mod 2103}#)) - (#{f 2131}# - (cdr #{forms 2132}#))))))) - (#{f 2131}# #{e1 2128}#)) - #{ids 2085}# - #{labels 2086}# - #{var-ids 2087}# - #{vars 2088}# - #{vals 2089}# - #{bindings 2090}#)) - #{tmp 2126}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 2100}#))) - (if (memv #{type 2098}# '(local-syntax-form)) - (#{chi-local-syntax 447}# - #{value 2099}# - #{e 2100}# - #{er 2096}# - #{w 2101}# - #{s 2102}# - #{mod 2103}# - (lambda (#{forms 2135}# - #{er 2136}# - #{w 2137}# - #{s 2138}# - #{mod 2139}#) - (#{parse 2083}# - (letrec* - ((#{f 2147}# - (lambda (#{forms 2148}#) - (if (null? #{forms 2148}#) - (cdr #{body 2084}#) - (cons (cons #{er 2136}# - (#{wrap 423}# - (car #{forms 2148}#) - #{w 2137}# - #{mod 2139}#)) - (#{f 2147}# - (cdr #{forms 2148}#))))))) - (#{f 2147}# #{forms 2135}#)) - #{ids 2085}# - #{labels 2086}# - #{var-ids 2087}# - #{vars 2088}# - #{vals 2089}# - #{bindings 2090}#))) - (if (null? #{ids 2085}#) - (#{build-sequence 299}# - #f - (map (lambda (#{x 2151}#) - (#{chi 437}# - (cdr #{x 2151}#) - (car #{x 2151}#) - '(()) - #{mod 2103}#)) - (cons (cons #{er 2096}# - (#{source-wrap 425}# - #{e 2100}# - #{w 2101}# - #{s 2102}# - #{mod 2103}#)) - (cdr #{body 2084}#)))) - (begin - (if (not (#{valid-bound-ids? 417}# - #{ids 2085}#)) - (syntax-violation - #f - "invalid or duplicate identifier in definition" - #{outer-form 2055}#)) - (letrec* - ((#{loop 2158}# - (lambda (#{bs 2159}# - #{er-cache 2160}# - #{r-cache 2161}#) - (if (not (null? #{bs 2159}#)) - (let ((#{b 2164}# - (car #{bs 2159}#))) - (if (eq? (car #{b 2164}#) - 'macro) - (let ((#{er 2167}# - (car (cdr #{b 2164}#)))) - (let ((#{r-cache 2169}# - (if (eq? #{er 2167}# - #{er-cache 2160}#) - #{r-cache 2161}# - (#{macros-only-env 341}# - #{er 2167}#)))) - (begin - (set-cdr! - #{b 2164}# - (#{eval-local-transformer 449}# - (#{chi 437}# - (cdr (cdr #{b 2164}#)) - #{r-cache 2169}# - '(()) - #{mod 2103}#) - #{mod 2103}#)) - (#{loop 2158}# - (cdr #{bs 2159}#) - #{er 2167}# - #{r-cache 2169}#)))) - (#{loop 2158}# - (cdr #{bs 2159}#) - #{er-cache 2160}# - #{r-cache 2161}#))))))) - (#{loop 2158}# - #{bindings 2090}# - #f - #f)) - (set-cdr! - #{r 2066}# - (#{extend-env 337}# - #{labels 2086}# - #{bindings 2090}# - (cdr #{r 2066}#))) - (#{build-letrec 305}# - #f - #t - (reverse - (map syntax->datum - #{var-ids 2087}#)) - (reverse #{vars 2088}#) - (map (lambda (#{x 2172}#) - (#{chi 437}# - (cdr #{x 2172}#) - (car #{x 2172}#) - '(()) - #{mod 2103}#)) - (reverse #{vals 2089}#)) - (#{build-sequence 299}# - #f - (map (lambda (#{x 2176}#) - (#{chi 437}# - (cdr #{x 2176}#) - (car #{x 2176}#) - '(()) - #{mod 2103}#)) - (cons (cons #{er 2096}# - (#{source-wrap 425}# - #{e 2100}# - #{w 2101}# - #{s 2102}# - #{mod 2103}#)) - (cdr #{body 2084}#)))))))))))))))))) - (#{parse 2083}# - (map (lambda (#{x 2091}#) - (cons #{r 2066}# - (#{wrap 423}# - #{x 2091}# - #{w 2071}# - #{mod 2058}#))) - #{body 2054}#) - '() - '() - '() - '() - '() - '()))))))) - (#{chi-local-syntax 447}# - (lambda (#{rec? 2179}# - #{e 2180}# - #{r 2181}# - #{w 2182}# - #{s 2183}# - #{mod 2184}# - #{k 2185}#) - (let ((#{tmp 2194}# - ($sc-dispatch - #{e 2180}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2194}# - (@apply - (lambda (#{id 2199}# - #{val 2200}# - #{e1 2201}# - #{e2 2202}#) - (if (not (#{valid-bound-ids? 417}# #{id 2199}#)) - (syntax-violation - #f - "duplicate bound keyword" - #{e 2180}#) - (let ((#{labels 2207}# - (#{gen-labels 369}# #{id 2199}#))) - (let ((#{new-w 2209}# - (#{make-binding-wrap 401}# - #{id 2199}# - #{labels 2207}# - #{w 2182}#))) - (#{k 2185}# - (cons #{e1 2201}# #{e2 2202}#) - (#{extend-env 337}# - #{labels 2207}# - (let ((#{trans-r 2214}# - (#{macros-only-env 341}# #{r 2181}#))) - (begin - (if #{rec? 2179}# (if #f #f)) - (map (lambda (#{x 2215}#) - (cons 'macro - (#{eval-local-transformer 449}# - (#{chi 437}# - #{x 2215}# - #{trans-r 2214}# - (if #{rec? 2179}# - #{new-w 2209}# - #{w 2182}#) - #{mod 2184}#) - #{mod 2184}#))) - #{val 2200}#))) - #{r 2181}#) - #{new-w 2209}# - #{s 2183}# - #{mod 2184}#))))) - #{tmp 2194}#) - (syntax-violation - #f - "bad local syntax definition" - (#{source-wrap 425}# - #{e 2180}# - #{w 2182}# - #{s 2183}# - #{mod 2184}#)))))) - (#{eval-local-transformer 449}# - (lambda (#{expanded 2221}# #{mod 2222}#) - (let ((#{p 2226}# - (#{local-eval-hook 257}# - #{expanded 2221}# - #{mod 2222}#))) - (if (procedure? #{p 2226}#) - #{p 2226}# - (syntax-violation - #f - "nonprocedure transformer" - #{p 2226}#))))) - (#{chi-void 451}# - (lambda () (#{build-void 269}# #f))) - (#{ellipsis? 453}# - (lambda (#{x 2228}#) - (if (#{nonsymbol-id? 347}# #{x 2228}#) - (#{free-id=? 413}# - #{x 2228}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - #f))) - (#{lambda-formals 455}# - (lambda (#{orig-args 2232}#) - (letrec* - ((#{req 2235}# - (lambda (#{args 2238}# #{rreq 2239}#) - (let ((#{tmp 2243}# ($sc-dispatch #{args 2238}# '()))) - (if #{tmp 2243}# - (@apply - (lambda () - (#{check 2237}# (reverse #{rreq 2239}#) #f)) - #{tmp 2243}#) - (let ((#{tmp 2244}# - ($sc-dispatch #{args 2238}# '(any . any)))) - (if (if #{tmp 2244}# - (@apply - (lambda (#{a 2247}# #{b 2248}#) - (#{id? 349}# #{a 2247}#)) - #{tmp 2244}#) - #f) - (@apply - (lambda (#{a 2251}# #{b 2252}#) - (#{req 2235}# - #{b 2252}# - (cons #{a 2251}# #{rreq 2239}#))) - #{tmp 2244}#) - (let ((#{tmp 2253}# (list #{args 2238}#))) - (if (if #{tmp 2253}# - (@apply - (lambda (#{r 2255}#) (#{id? 349}# #{r 2255}#)) - #{tmp 2253}#) - #f) - (@apply - (lambda (#{r 2257}#) - (#{check 2237}# - (reverse #{rreq 2239}#) - #{r 2257}#)) - #{tmp 2253}#) - (syntax-violation - 'lambda - "invalid argument list" - #{orig-args 2232}# - #{args 2238}#))))))))) - (#{check 2237}# - (lambda (#{req 2260}# #{rest 2261}#) - (if (#{distinct-bound-ids? 419}# - (if #{rest 2261}# - (cons #{rest 2261}# #{req 2260}#) - #{req 2260}#)) - (values #{req 2260}# #f #{rest 2261}# #f) - (syntax-violation - 'lambda - "duplicate identifier in argument list" - #{orig-args 2232}#))))) - (#{req 2235}# #{orig-args 2232}# '())))) - (#{lambda*-formals 459}# - (lambda (#{orig-args 2294}#) - (letrec* - ((#{req 2297}# - (lambda (#{args 2306}# #{rreq 2307}#) - (let ((#{tmp 2311}# ($sc-dispatch #{args 2306}# '()))) - (if #{tmp 2311}# - (@apply - (lambda () - (#{check 2305}# - (reverse #{rreq 2307}#) - '() - #f - '())) - #{tmp 2311}#) - (let ((#{tmp 2312}# - ($sc-dispatch #{args 2306}# '(any . any)))) - (if (if #{tmp 2312}# - (@apply - (lambda (#{a 2315}# #{b 2316}#) - (#{id? 349}# #{a 2315}#)) - #{tmp 2312}#) - #f) - (@apply - (lambda (#{a 2319}# #{b 2320}#) - (#{req 2297}# - #{b 2320}# - (cons #{a 2319}# #{rreq 2307}#))) - #{tmp 2312}#) - (let ((#{tmp 2321}# - ($sc-dispatch #{args 2306}# '(any . any)))) - (if (if #{tmp 2321}# - (@apply - (lambda (#{a 2324}# #{b 2325}#) - (eq? (syntax->datum #{a 2324}#) #:optional)) - #{tmp 2321}#) - #f) - (@apply - (lambda (#{a 2328}# #{b 2329}#) - (#{opt 2299}# - #{b 2329}# - (reverse #{rreq 2307}#) - '())) - #{tmp 2321}#) - (let ((#{tmp 2330}# - ($sc-dispatch #{args 2306}# '(any . any)))) - (if (if #{tmp 2330}# - (@apply - (lambda (#{a 2333}# #{b 2334}#) - (eq? (syntax->datum #{a 2333}#) #:key)) - #{tmp 2330}#) - #f) - (@apply - (lambda (#{a 2337}# #{b 2338}#) - (#{key 2301}# - #{b 2338}# - (reverse #{rreq 2307}#) - '() - '())) - #{tmp 2330}#) - (let ((#{tmp 2339}# - ($sc-dispatch #{args 2306}# '(any any)))) - (if (if #{tmp 2339}# - (@apply - (lambda (#{a 2342}# #{b 2343}#) - (eq? (syntax->datum #{a 2342}#) - #:rest)) - #{tmp 2339}#) - #f) - (@apply - (lambda (#{a 2346}# #{b 2347}#) - (#{rest 2303}# - #{b 2347}# - (reverse #{rreq 2307}#) - '() - '())) - #{tmp 2339}#) - (let ((#{tmp 2348}# (list #{args 2306}#))) - (if (if #{tmp 2348}# - (@apply - (lambda (#{r 2350}#) - (#{id? 349}# #{r 2350}#)) - #{tmp 2348}#) - #f) - (@apply - (lambda (#{r 2352}#) - (#{rest 2303}# - #{r 2352}# - (reverse #{rreq 2307}#) - '() - '())) - #{tmp 2348}#) - (syntax-violation - 'lambda* - "invalid argument list" - #{orig-args 2294}# - #{args 2306}#))))))))))))))) - (#{opt 2299}# - (lambda (#{args 2355}# #{req 2356}# #{ropt 2357}#) - (let ((#{tmp 2362}# ($sc-dispatch #{args 2355}# '()))) - (if #{tmp 2362}# - (@apply - (lambda () - (#{check 2305}# - #{req 2356}# - (reverse #{ropt 2357}#) - #f - '())) - #{tmp 2362}#) - (let ((#{tmp 2363}# - ($sc-dispatch #{args 2355}# '(any . any)))) - (if (if #{tmp 2363}# - (@apply - (lambda (#{a 2366}# #{b 2367}#) - (#{id? 349}# #{a 2366}#)) - #{tmp 2363}#) - #f) - (@apply - (lambda (#{a 2370}# #{b 2371}#) - (#{opt 2299}# - #{b 2371}# - #{req 2356}# - (cons (cons #{a 2370}# - '(#(syntax-object - #f - ((top) - #(ribcage - #(a b) - #((top) (top)) - #("i2368" "i2369")) - #(ribcage () () ()) - #(ribcage - #(args req ropt) - #((top) (top) (top)) - #("i2358" "i2359" "i2360")) - #(ribcage - (check rest key opt req) - ((top) (top) (top) (top) (top)) - ("i2304" - "i2302" - "i2300" - "i2298" - "i2296")) - #(ribcage - #(orig-args) - #((top)) - #("i2295")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - #{ropt 2357}#))) - #{tmp 2363}#) - (let ((#{tmp 2372}# - ($sc-dispatch #{args 2355}# '((any any) . any)))) - (if (if #{tmp 2372}# - (@apply - (lambda (#{a 2376}# #{init 2377}# #{b 2378}#) - (#{id? 349}# #{a 2376}#)) - #{tmp 2372}#) - #f) - (@apply - (lambda (#{a 2382}# #{init 2383}# #{b 2384}#) - (#{opt 2299}# - #{b 2384}# - #{req 2356}# - (cons (list #{a 2382}# #{init 2383}#) - #{ropt 2357}#))) - #{tmp 2372}#) - (let ((#{tmp 2385}# - ($sc-dispatch #{args 2355}# '(any . any)))) - (if (if #{tmp 2385}# - (@apply - (lambda (#{a 2388}# #{b 2389}#) - (eq? (syntax->datum #{a 2388}#) #:key)) - #{tmp 2385}#) - #f) - (@apply - (lambda (#{a 2392}# #{b 2393}#) - (#{key 2301}# - #{b 2393}# - #{req 2356}# - (reverse #{ropt 2357}#) - '())) - #{tmp 2385}#) - (let ((#{tmp 2394}# - ($sc-dispatch #{args 2355}# '(any any)))) - (if (if #{tmp 2394}# - (@apply - (lambda (#{a 2397}# #{b 2398}#) - (eq? (syntax->datum #{a 2397}#) - #:rest)) - #{tmp 2394}#) - #f) - (@apply - (lambda (#{a 2401}# #{b 2402}#) - (#{rest 2303}# - #{b 2402}# - #{req 2356}# - (reverse #{ropt 2357}#) - '())) - #{tmp 2394}#) - (let ((#{tmp 2403}# (list #{args 2355}#))) - (if (if #{tmp 2403}# - (@apply - (lambda (#{r 2405}#) - (#{id? 349}# #{r 2405}#)) - #{tmp 2403}#) - #f) - (@apply - (lambda (#{r 2407}#) - (#{rest 2303}# - #{r 2407}# - #{req 2356}# - (reverse #{ropt 2357}#) - '())) - #{tmp 2403}#) - (syntax-violation - 'lambda* - "invalid optional argument list" - #{orig-args 2294}# - #{args 2355}#))))))))))))))) - (#{key 2301}# - (lambda (#{args 2410}# - #{req 2411}# - #{opt 2412}# - #{rkey 2413}#) - (let ((#{tmp 2419}# ($sc-dispatch #{args 2410}# '()))) - (if #{tmp 2419}# - (@apply - (lambda () - (#{check 2305}# - #{req 2411}# - #{opt 2412}# - #f - (cons #f (reverse #{rkey 2413}#)))) - #{tmp 2419}#) - (let ((#{tmp 2420}# - ($sc-dispatch #{args 2410}# '(any . any)))) - (if (if #{tmp 2420}# - (@apply - (lambda (#{a 2423}# #{b 2424}#) - (#{id? 349}# #{a 2423}#)) - #{tmp 2420}#) - #f) - (@apply - (lambda (#{a 2427}# #{b 2428}#) - (let ((#{tmp 2430}# - (symbol->keyword - (syntax->datum #{a 2427}#)))) - (#{key 2301}# - #{b 2428}# - #{req 2411}# - #{opt 2412}# - (cons (cons #{tmp 2430}# - (cons #{a 2427}# - '(#(syntax-object - #f - ((top) - #(ribcage () () ()) - #(ribcage - #(k) - #((top)) - #("i2431")) - #(ribcage - #(a b) - #((top) (top)) - #("i2425" "i2426")) - #(ribcage () () ()) - #(ribcage - #(args req opt rkey) - #((top) - (top) - (top) - (top)) - #("i2414" - "i2415" - "i2416" - "i2417")) - #(ribcage - (check rest key opt req) - ((top) - (top) - (top) - (top) - (top)) - ("i2304" - "i2302" - "i2300" - "i2298" - "i2296")) - #(ribcage - #(orig-args) - #((top)) - #("i2295")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))))) - #{rkey 2413}#)))) - #{tmp 2420}#) - (let ((#{tmp 2433}# - ($sc-dispatch #{args 2410}# '((any any) . any)))) - (if (if #{tmp 2433}# - (@apply - (lambda (#{a 2437}# #{init 2438}# #{b 2439}#) - (#{id? 349}# #{a 2437}#)) - #{tmp 2433}#) - #f) - (@apply - (lambda (#{a 2443}# #{init 2444}# #{b 2445}#) - (let ((#{tmp 2447}# - (symbol->keyword - (syntax->datum #{a 2443}#)))) - (#{key 2301}# - #{b 2445}# - #{req 2411}# - #{opt 2412}# - (cons (list #{tmp 2447}# - #{a 2443}# - #{init 2444}#) - #{rkey 2413}#)))) - #{tmp 2433}#) - (let ((#{tmp 2450}# - ($sc-dispatch - #{args 2410}# - '((any any any) . any)))) - (if (if #{tmp 2450}# - (@apply - (lambda (#{a 2455}# - #{init 2456}# - #{k 2457}# - #{b 2458}#) - (if (#{id? 349}# #{a 2455}#) - (keyword? (syntax->datum #{k 2457}#)) - #f)) - #{tmp 2450}#) - #f) - (@apply - (lambda (#{a 2465}# - #{init 2466}# - #{k 2467}# - #{b 2468}#) - (#{key 2301}# - #{b 2468}# - #{req 2411}# - #{opt 2412}# - (cons (list #{k 2467}# - #{a 2465}# - #{init 2466}#) - #{rkey 2413}#))) - #{tmp 2450}#) - (let ((#{tmp 2469}# - ($sc-dispatch #{args 2410}# '(any)))) - (if (if #{tmp 2469}# - (@apply - (lambda (#{aok 2471}#) - (eq? (syntax->datum #{aok 2471}#) - #:allow-other-keys)) - #{tmp 2469}#) - #f) - (@apply - (lambda (#{aok 2473}#) - (#{check 2305}# - #{req 2411}# - #{opt 2412}# - #f - (cons #t (reverse #{rkey 2413}#)))) - #{tmp 2469}#) - (let ((#{tmp 2474}# - ($sc-dispatch - #{args 2410}# - '(any any any)))) - (if (if #{tmp 2474}# - (@apply - (lambda (#{aok 2478}# - #{a 2479}# - #{b 2480}#) - (if (eq? (syntax->datum - #{aok 2478}#) - #:allow-other-keys) - (eq? (syntax->datum #{a 2479}#) - #:rest) - #f)) - #{tmp 2474}#) - #f) - (@apply - (lambda (#{aok 2486}# - #{a 2487}# - #{b 2488}#) - (#{rest 2303}# - #{b 2488}# - #{req 2411}# - #{opt 2412}# - (cons #t (reverse #{rkey 2413}#)))) - #{tmp 2474}#) - (let ((#{tmp 2489}# - ($sc-dispatch - #{args 2410}# - '(any . any)))) - (if (if #{tmp 2489}# - (@apply - (lambda (#{aok 2492}# - #{r 2493}#) - (if (eq? (syntax->datum - #{aok 2492}#) - #:allow-other-keys) - (#{id? 349}# #{r 2493}#) - #f)) - #{tmp 2489}#) - #f) - (@apply - (lambda (#{aok 2498}# #{r 2499}#) - (#{rest 2303}# - #{r 2499}# - #{req 2411}# - #{opt 2412}# - (cons #t - (reverse - #{rkey 2413}#)))) - #{tmp 2489}#) - (let ((#{tmp 2500}# - ($sc-dispatch - #{args 2410}# - '(any any)))) - (if (if #{tmp 2500}# - (@apply - (lambda (#{a 2503}# - #{b 2504}#) - (eq? (syntax->datum - #{a 2503}#) - #:rest)) - #{tmp 2500}#) - #f) - (@apply - (lambda (#{a 2507}# #{b 2508}#) - (#{rest 2303}# - #{b 2508}# - #{req 2411}# - #{opt 2412}# - (cons #f - (reverse - #{rkey 2413}#)))) - #{tmp 2500}#) - (let ((#{tmp 2509}# - (list #{args 2410}#))) - (if (if #{tmp 2509}# - (@apply - (lambda (#{r 2511}#) - (#{id? 349}# - #{r 2511}#)) - #{tmp 2509}#) - #f) - (@apply - (lambda (#{r 2513}#) - (#{rest 2303}# - #{r 2513}# - #{req 2411}# - #{opt 2412}# - (cons #f - (reverse - #{rkey 2413}#)))) - #{tmp 2509}#) - (syntax-violation - 'lambda* - "invalid keyword argument list" - #{orig-args 2294}# - #{args 2410}#))))))))))))))))))))) - (#{rest 2303}# - (lambda (#{args 2516}# - #{req 2517}# - #{opt 2518}# - #{kw 2519}#) - (let ((#{tmp 2525}# (list #{args 2516}#))) - (if (if #{tmp 2525}# - (@apply - (lambda (#{r 2527}#) (#{id? 349}# #{r 2527}#)) - #{tmp 2525}#) - #f) - (@apply - (lambda (#{r 2529}#) - (#{check 2305}# - #{req 2517}# - #{opt 2518}# - #{r 2529}# - #{kw 2519}#)) - #{tmp 2525}#) - (syntax-violation - 'lambda* - "invalid rest argument" - #{orig-args 2294}# - #{args 2516}#))))) - (#{check 2305}# - (lambda (#{req 2532}# - #{opt 2533}# - #{rest 2534}# - #{kw 2535}#) - (if (#{distinct-bound-ids? 419}# - (append - #{req 2532}# - (map car #{opt 2533}#) - (if #{rest 2534}# (list #{rest 2534}#) '()) - (if (pair? #{kw 2535}#) - (map cadr (cdr #{kw 2535}#)) - '()))) - (values - #{req 2532}# - #{opt 2533}# - #{rest 2534}# - #{kw 2535}#) - (syntax-violation - 'lambda* - "duplicate identifier in argument list" - #{orig-args 2294}#))))) - (#{req 2297}# #{orig-args 2294}# '())))) - (#{chi-lambda-case 461}# - (lambda (#{e 2543}# - #{r 2544}# - #{w 2545}# - #{s 2546}# - #{mod 2547}# - #{get-formals 2548}# - #{clauses 2549}#) - (letrec* - ((#{expand-opt 2560}# - (lambda (#{req 2583}# - #{opt 2584}# - #{rest 2585}# - #{kw 2586}# - #{body 2587}# - #{vars 2588}# - #{r* 2589}# - #{w* 2590}# - #{out 2591}# - #{inits 2592}#) - (if (pair? #{opt 2584}#) - (let ((#{tmp 2605}# (car #{opt 2584}#))) - (let ((#{tmp 2606}# - ($sc-dispatch #{tmp 2605}# '(any any)))) - (if #{tmp 2606}# - (@apply - (lambda (#{id 2609}# #{i 2610}#) - (let ((#{v 2613}# (#{gen-var 465}# #{id 2609}#))) - (let ((#{l 2615}# - (#{gen-labels 369}# (list #{v 2613}#)))) - (let ((#{r** 2617}# - (#{extend-var-env 339}# - #{l 2615}# - (list #{v 2613}#) - #{r* 2589}#))) - (let ((#{w** 2619}# - (#{make-binding-wrap 401}# - (list #{id 2609}#) - #{l 2615}# - #{w* 2590}#))) - (#{expand-opt 2560}# - #{req 2583}# - (cdr #{opt 2584}#) - #{rest 2585}# - #{kw 2586}# - #{body 2587}# - (cons #{v 2613}# #{vars 2588}#) - #{r** 2617}# - #{w** 2619}# - (cons (syntax->datum #{id 2609}#) - #{out 2591}#) - (cons (#{chi 437}# - #{i 2610}# - #{r* 2589}# - #{w* 2590}# - #{mod 2547}#) - #{inits 2592}#))))))) - #{tmp 2606}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 2605}#)))) - (if #{rest 2585}# - (let ((#{v 2624}# (#{gen-var 465}# #{rest 2585}#))) - (let ((#{l 2626}# - (#{gen-labels 369}# (list #{v 2624}#)))) - (let ((#{r* 2628}# - (#{extend-var-env 339}# - #{l 2626}# - (list #{v 2624}#) - #{r* 2589}#))) - (let ((#{w* 2630}# - (#{make-binding-wrap 401}# - (list #{rest 2585}#) - #{l 2626}# - #{w* 2590}#))) - (#{expand-kw 2562}# - #{req 2583}# - (if (pair? #{out 2591}#) - (reverse #{out 2591}#) - #f) - (syntax->datum #{rest 2585}#) - (if (pair? #{kw 2586}#) - (cdr #{kw 2586}#) - #{kw 2586}#) - #{body 2587}# - (cons #{v 2624}# #{vars 2588}#) - #{r* 2628}# - #{w* 2630}# - (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) - '() - #{inits 2592}#))))) - (#{expand-kw 2562}# - #{req 2583}# - (if (pair? #{out 2591}#) - (reverse #{out 2591}#) - #f) - #f - (if (pair? #{kw 2586}#) - (cdr #{kw 2586}#) - #{kw 2586}#) - #{body 2587}# - #{vars 2588}# - #{r* 2589}# - #{w* 2590}# - (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) - '() - #{inits 2592}#))))) - (#{expand-kw 2562}# - (lambda (#{req 2632}# - #{opt 2633}# - #{rest 2634}# - #{kw 2635}# - #{body 2636}# - #{vars 2637}# - #{r* 2638}# - #{w* 2639}# - #{aok 2640}# - #{out 2641}# - #{inits 2642}#) - (if (pair? #{kw 2635}#) - (let ((#{tmp 2656}# (car #{kw 2635}#))) - (let ((#{tmp 2657}# - ($sc-dispatch #{tmp 2656}# '(any any any)))) - (if #{tmp 2657}# - (@apply - (lambda (#{k 2661}# #{id 2662}# #{i 2663}#) - (let ((#{v 2666}# (#{gen-var 465}# #{id 2662}#))) - (let ((#{l 2668}# - (#{gen-labels 369}# (list #{v 2666}#)))) - (let ((#{r** 2670}# - (#{extend-var-env 339}# - #{l 2668}# - (list #{v 2666}#) - #{r* 2638}#))) - (let ((#{w** 2672}# - (#{make-binding-wrap 401}# - (list #{id 2662}#) - #{l 2668}# - #{w* 2639}#))) - (#{expand-kw 2562}# - #{req 2632}# - #{opt 2633}# - #{rest 2634}# - (cdr #{kw 2635}#) - #{body 2636}# - (cons #{v 2666}# #{vars 2637}#) - #{r** 2670}# - #{w** 2672}# - #{aok 2640}# - (cons (list (syntax->datum #{k 2661}#) - (syntax->datum #{id 2662}#) - #{v 2666}#) - #{out 2641}#) - (cons (#{chi 437}# - #{i 2663}# - #{r* 2638}# - #{w* 2639}# - #{mod 2547}#) - #{inits 2642}#))))))) - #{tmp 2657}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 2656}#)))) - (#{expand-body 2564}# - #{req 2632}# - #{opt 2633}# - #{rest 2634}# - (if (if #{aok 2640}# - #{aok 2640}# - (pair? #{out 2641}#)) - (cons #{aok 2640}# (reverse #{out 2641}#)) - #f) - #{body 2636}# - (reverse #{vars 2637}#) - #{r* 2638}# - #{w* 2639}# - (reverse #{inits 2642}#) - '())))) - (#{expand-body 2564}# - (lambda (#{req 2678}# - #{opt 2679}# - #{rest 2680}# - #{kw 2681}# - #{body 2682}# - #{vars 2683}# - #{r* 2684}# - #{w* 2685}# - #{inits 2686}# - #{meta 2687}#) - (let ((#{tmp 2699}# - ($sc-dispatch - #{body 2682}# - '(any any . each-any)))) - (if (if #{tmp 2699}# - (@apply - (lambda (#{docstring 2703}# #{e1 2704}# #{e2 2705}#) - (string? (syntax->datum #{docstring 2703}#))) - #{tmp 2699}#) - #f) - (@apply - (lambda (#{docstring 2709}# #{e1 2710}# #{e2 2711}#) - (#{expand-body 2564}# - #{req 2678}# - #{opt 2679}# - #{rest 2680}# - #{kw 2681}# - (cons #{e1 2710}# #{e2 2711}#) - #{vars 2683}# - #{r* 2684}# - #{w* 2685}# - #{inits 2686}# - (append - #{meta 2687}# - (list (cons 'documentation - (syntax->datum #{docstring 2709}#)))))) - #{tmp 2699}#) - (let ((#{tmp 2714}# - ($sc-dispatch - #{body 2682}# - '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 2714}# - (@apply - (lambda (#{k 2719}# #{v 2720}# #{e1 2721}# #{e2 2722}#) - (#{expand-body 2564}# - #{req 2678}# - #{opt 2679}# - #{rest 2680}# - #{kw 2681}# - (cons #{e1 2721}# #{e2 2722}#) - #{vars 2683}# - #{r* 2684}# - #{w* 2685}# - #{inits 2686}# - (append - #{meta 2687}# - (syntax->datum - (map cons #{k 2719}# #{v 2720}#))))) - #{tmp 2714}#) - (let ((#{tmp 2726}# - ($sc-dispatch #{body 2682}# '(any . each-any)))) - (if #{tmp 2726}# - (@apply - (lambda (#{e1 2729}# #{e2 2730}#) - (values - #{meta 2687}# - #{req 2678}# - #{opt 2679}# - #{rest 2680}# - #{kw 2681}# - #{inits 2686}# - #{vars 2683}# - (#{chi-body 445}# - (cons #{e1 2729}# #{e2 2730}#) - (#{source-wrap 425}# - #{e 2543}# - #{w 2545}# - #{s 2546}# - #{mod 2547}#) - #{r* 2684}# - #{w* 2685}# - #{mod 2547}#))) - #{tmp 2726}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{body 2682}#)))))))))) - (let ((#{tmp 2733}# - ($sc-dispatch #{clauses 2549}# '()))) - (if #{tmp 2733}# - (@apply (lambda () (values '() #f)) #{tmp 2733}#) - (let ((#{tmp 2734}# - ($sc-dispatch - #{clauses 2549}# - '((any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 2734}# - (@apply - (lambda (#{args 2741}# - #{e1 2742}# - #{e2 2743}# - #{args* 2744}# - #{e1* 2745}# - #{e2* 2746}#) - (call-with-values - (lambda () (#{get-formals 2548}# #{args 2741}#)) - (lambda (#{req 2747}# - #{opt 2748}# - #{rest 2749}# - #{kw 2750}#) - (call-with-values - (lambda () - (let ((#{body 4788}# - (cons #{e1 2742}# #{e2 2743}#))) - (let ((#{vars 4789}# - (map #{gen-var 465}# #{req 2747}#)) - (#{labels 4790}# - (#{gen-labels 369}# #{req 2747}#))) - (let ((#{r* 4791}# - (#{extend-var-env 339}# - #{labels 4790}# - #{vars 4789}# - #{r 2544}#)) - (#{w* 4792}# - (#{make-binding-wrap 401}# - #{req 2747}# - #{labels 4790}# - #{w 2545}#))) - (#{expand-opt 2560}# - (map syntax->datum #{req 2747}#) - #{opt 2748}# - #{rest 2749}# - #{kw 2750}# - #{body 4788}# - (reverse #{vars 4789}#) - #{r* 4791}# - #{w* 4792}# - '() - '()))))) - (lambda (#{meta 2756}# - #{req 2757}# - #{opt 2758}# - #{rest 2759}# - #{kw 2760}# - #{inits 2761}# - #{vars 2762}# - #{body 2763}#) - (call-with-values - (lambda () - (#{chi-lambda-case 461}# - #{e 2543}# - #{r 2544}# - #{w 2545}# - #{s 2546}# - #{mod 2547}# - #{get-formals 2548}# - (map (lambda (#{tmp 2774}# - #{tmp 2773}# - #{tmp 2772}#) - (cons #{tmp 2772}# - (cons #{tmp 2773}# - #{tmp 2774}#))) - #{e2* 2746}# - #{e1* 2745}# - #{args* 2744}#))) - (lambda (#{meta* 2776}# #{else* 2777}#) - (values - (append #{meta 2756}# #{meta* 2776}#) - (#{build-lambda-case 293}# - #{s 2546}# - #{req 2757}# - #{opt 2758}# - #{rest 2759}# - #{kw 2760}# - #{inits 2761}# - #{vars 2762}# - #{body 2763}# - #{else* 2777}#))))))))) - #{tmp 2734}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{clauses 2549}#)))))))) - (#{strip 463}# - (lambda (#{x 2780}# #{w 2781}#) - (if (memq 'top (car #{w 2781}#)) - #{x 2780}# - (letrec* - ((#{f 2788}# - (lambda (#{x 2789}#) - (if (#{syntax-object? 312}# #{x 2789}#) - (#{strip 463}# - (#{syntax-object-expression 314}# #{x 2789}#) - (#{syntax-object-wrap 316}# #{x 2789}#)) - (if (pair? #{x 2789}#) - (let ((#{a 2796}# (#{f 2788}# (car #{x 2789}#))) - (#{d 2797}# (#{f 2788}# (cdr #{x 2789}#)))) - (if (if (eq? #{a 2796}# (car #{x 2789}#)) - (eq? #{d 2797}# (cdr #{x 2789}#)) - #f) - #{x 2789}# - (cons #{a 2796}# #{d 2797}#))) - (if (vector? #{x 2789}#) - (let ((#{old 2803}# (vector->list #{x 2789}#))) - (let ((#{new 2805}# (map #{f 2788}# #{old 2803}#))) - (letrec* - ((#{lp 2809}# - (lambda (#{l1 2810}# #{l2 2811}#) - (if (null? #{l1 2810}#) - #{x 2789}# - (if (eq? (car #{l1 2810}#) - (car #{l2 2811}#)) - (#{lp 2809}# - (cdr #{l1 2810}#) - (cdr #{l2 2811}#)) - (list->vector #{new 2805}#)))))) - (#{lp 2809}# #{old 2803}# #{new 2805}#)))) - #{x 2789}#)))))) - (#{f 2788}# #{x 2780}#))))) - (#{gen-var 465}# - (lambda (#{id 2813}#) - (let ((#{id 2816}# - (if (#{syntax-object? 312}# #{id 2813}#) - (#{syntax-object-expression 314}# #{id 2813}#) - #{id 2813}#))) - (gensym - (string-append (symbol->string #{id 2816}#) " "))))) - (#{lambda-var-list 467}# - (lambda (#{vars 2818}#) - (letrec* - ((#{lvl 2824}# - (lambda (#{vars 2825}# #{ls 2826}# #{w 2827}#) - (if (pair? #{vars 2825}#) - (#{lvl 2824}# - (cdr #{vars 2825}#) - (cons (#{wrap 423}# (car #{vars 2825}#) #{w 2827}# #f) - #{ls 2826}#) - #{w 2827}#) - (if (#{id? 349}# #{vars 2825}#) - (cons (#{wrap 423}# #{vars 2825}# #{w 2827}# #f) - #{ls 2826}#) - (if (null? #{vars 2825}#) - #{ls 2826}# - (if (#{syntax-object? 312}# #{vars 2825}#) - (#{lvl 2824}# - (#{syntax-object-expression 314}# #{vars 2825}#) - #{ls 2826}# - (#{join-wraps 405}# - #{w 2827}# - (#{syntax-object-wrap 316}# #{vars 2825}#))) - (cons #{vars 2825}# #{ls 2826}#)))))))) - (#{lvl 2824}# #{vars 2818}# '() '(())))))) - (begin - (module-define! - (current-module) - 'letrec-syntax - (make-syntax-transformer - 'letrec-syntax - 'local-syntax - #t)) - (module-define! - (current-module) - 'let-syntax - (make-syntax-transformer - 'let-syntax - 'local-syntax - #f)) - (#{global-extend 345}# - 'core - 'fluid-let-syntax - (lambda (#{e 2838}# - #{r 2839}# - #{w 2840}# - #{s 2841}# - #{mod 2842}#) - (let ((#{tmp 2849}# - ($sc-dispatch - #{e 2838}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2849}# - (@apply - (lambda (#{var 2854}# - #{val 2855}# - #{e1 2856}# - #{e2 2857}#) - (#{valid-bound-ids? 417}# #{var 2854}#)) - #{tmp 2849}#) - #f) - (@apply - (lambda (#{var 2863}# - #{val 2864}# - #{e1 2865}# - #{e2 2866}#) - (let ((#{names 2868}# - (map (lambda (#{x 2869}#) - (#{id-var-name 411}# #{x 2869}# #{w 2840}#)) - #{var 2863}#))) - (begin - (for-each - (lambda (#{id 2872}# #{n 2873}#) - (let ((#{atom-key 2878}# - (car (let ((#{t 5036}# - (assq #{n 2873}# #{r 2839}#))) - (if #{t 5036}# - (cdr #{t 5036}#) - (if (symbol? #{n 2873}#) - (let ((#{t 5037}# - (#{get-global-definition-hook 263}# - #{n 2873}# - #{mod 2842}#))) - (if #{t 5037}# - #{t 5037}# - '(global))) - '(displaced-lexical))))))) - (if (memv #{atom-key 2878}# '(displaced-lexical)) - (syntax-violation - 'fluid-let-syntax - "identifier out of context" - #{e 2838}# - (#{wrap 423}# - (begin - (if (if (pair? #{id 2872}#) #{s 2841}# #f) - (set-source-properties! - #{id 2872}# - #{s 2841}#)) - #{id 2872}#) - #{w 2840}# - #{mod 2842}#))))) - #{var 2863}# - #{names 2868}#) - (#{chi-body 445}# - (cons #{e1 2865}# #{e2 2866}#) - (#{wrap 423}# - (begin - (if (if (pair? #{e 2838}#) #{s 2841}# #f) - (set-source-properties! #{e 2838}# #{s 2841}#)) - #{e 2838}#) - #{w 2840}# - #{mod 2842}#) - (#{extend-env 337}# - #{names 2868}# - (let ((#{trans-r 2884}# - (#{macros-only-env 341}# #{r 2839}#))) - (map (lambda (#{x 2885}#) - (cons 'macro - (#{eval-local-transformer 449}# - (#{chi 437}# - #{x 2885}# - #{trans-r 2884}# - #{w 2840}# - #{mod 2842}#) - #{mod 2842}#))) - #{val 2864}#)) - #{r 2839}#) - #{w 2840}# - #{mod 2842}#)))) - #{tmp 2849}#) - (syntax-violation - 'fluid-let-syntax - "bad syntax" - (#{wrap 423}# - (begin - (if (if (pair? #{e 2838}#) #{s 2841}# #f) - (set-source-properties! #{e 2838}# #{s 2841}#)) - #{e 2838}#) - #{w 2840}# - #{mod 2842}#)))))) - (module-define! - (current-module) - 'quote - (make-syntax-transformer - 'quote - 'core - (lambda (#{e 2891}# - #{r 2892}# - #{w 2893}# - #{s 2894}# - #{mod 2895}#) - (let ((#{tmp 2902}# ($sc-dispatch #{e 2891}# '(_ any)))) - (if #{tmp 2902}# - (@apply - (lambda (#{e 2904}#) - (let ((#{exp 5266}# - (#{strip 463}# #{e 2904}# #{w 2893}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #{s 2894}# - #{exp 5266}#))) - #{tmp 2902}#) - (syntax-violation - 'quote - "bad syntax" - (#{wrap 423}# - (begin - (if (if (pair? #{e 2891}#) #{s 2894}# #f) - (set-source-properties! #{e 2891}# #{s 2894}#)) - #{e 2891}#) - #{w 2893}# - #{mod 2895}#))))))) - (#{global-extend 345}# - 'core - 'syntax - (letrec* - ((#{gen-syntax 2908}# - (lambda (#{src 2923}# - #{e 2924}# - #{r 2925}# - #{maps 2926}# - #{ellipsis? 2927}# - #{mod 2928}#) - (if (if (symbol? #{e 2924}#) - #t - (if (if (vector? #{e 2924}#) - (if (= (vector-length #{e 2924}#) 4) - (eq? (vector-ref #{e 2924}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{e 2924}# 1)) - #f)) - (let ((#{label 2936}# - (#{id-var-name 411}# #{e 2924}# '(())))) - (let ((#{b 2939}# - (let ((#{t 5329}# (assq #{label 2936}# #{r 2925}#))) - (if #{t 5329}# - (cdr #{t 5329}#) - (if (symbol? #{label 2936}#) - (let ((#{t 5330}# - (#{get-global-definition-hook 263}# - #{label 2936}# - #{mod 2928}#))) - (if #{t 5330}# #{t 5330}# '(global))) - '(displaced-lexical)))))) - (if (eq? (car #{b 2939}#) 'syntax) - (call-with-values - (lambda () - (let ((#{var.lev 2942}# (cdr #{b 2939}#))) - (#{gen-ref 2910}# - #{src 2923}# - (car #{var.lev 2942}#) - (cdr #{var.lev 2942}#) - #{maps 2926}#))) - (lambda (#{var 2944}# #{maps 2945}#) - (values (list 'ref #{var 2944}#) #{maps 2945}#))) - (if (#{ellipsis? 2927}# #{e 2924}#) - (syntax-violation - 'syntax - "misplaced ellipsis" - #{src 2923}#) - (values (list 'quote #{e 2924}#) #{maps 2926}#))))) - (let ((#{tmp 2951}# - ($sc-dispatch #{e 2924}# '(any any)))) - (if (if #{tmp 2951}# - (@apply - (lambda (#{dots 2954}# #{e 2955}#) - (#{ellipsis? 2927}# #{dots 2954}#)) - #{tmp 2951}#) - #f) - (@apply - (lambda (#{dots 2958}# #{e 2959}#) - (#{gen-syntax 2908}# - #{src 2923}# - #{e 2959}# - #{r 2925}# - #{maps 2926}# - (lambda (#{x 2960}#) #f) - #{mod 2928}#)) - #{tmp 2951}#) - (let ((#{tmp 2962}# - ($sc-dispatch #{e 2924}# '(any any . any)))) - (if (if #{tmp 2962}# - (@apply - (lambda (#{x 2966}# #{dots 2967}# #{y 2968}#) - (#{ellipsis? 2927}# #{dots 2967}#)) - #{tmp 2962}#) - #f) - (@apply - (lambda (#{x 2972}# #{dots 2973}# #{y 2974}#) - (letrec* - ((#{f 2978}# - (lambda (#{y 2979}# #{k 2980}#) - (let ((#{tmp 2988}# - ($sc-dispatch - #{y 2979}# - '(any . any)))) - (if (if #{tmp 2988}# - (@apply - (lambda (#{dots 2991}# #{y 2992}#) - (#{ellipsis? 2927}# - #{dots 2991}#)) - #{tmp 2988}#) - #f) - (@apply - (lambda (#{dots 2995}# #{y 2996}#) - (#{f 2978}# - #{y 2996}# - (lambda (#{maps 2997}#) - (call-with-values - (lambda () - (#{k 2980}# - (cons '() #{maps 2997}#))) - (lambda (#{x 2999}# - #{maps 3000}#) - (if (null? (car #{maps 3000}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 2923}#) - (values - (#{gen-mappend 2912}# - #{x 2999}# - (car #{maps 3000}#)) - (cdr #{maps 3000}#)))))))) - #{tmp 2988}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{src 2923}# - #{y 2979}# - #{r 2925}# - #{maps 2926}# - #{ellipsis? 2927}# - #{mod 2928}#)) - (lambda (#{y 3005}# #{maps 3006}#) - (call-with-values - (lambda () - (#{k 2980}# #{maps 3006}#)) - (lambda (#{x 3009}# #{maps 3010}#) - (values - (#{gen-append 2918}# - #{x 3009}# - #{y 3005}#) - #{maps 3010}#)))))))))) - (#{f 2978}# - #{y 2974}# - (lambda (#{maps 2981}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{src 2923}# - #{x 2972}# - #{r 2925}# - (cons '() #{maps 2981}#) - #{ellipsis? 2927}# - #{mod 2928}#)) - (lambda (#{x 2983}# #{maps 2984}#) - (if (null? (car #{maps 2984}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 2923}#) - (values - (#{gen-map 2914}# - #{x 2983}# - (car #{maps 2984}#)) - (cdr #{maps 2984}#))))))))) - #{tmp 2962}#) - (let ((#{tmp 3013}# - ($sc-dispatch #{e 2924}# '(any . any)))) - (if #{tmp 3013}# - (@apply - (lambda (#{x 3016}# #{y 3017}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{src 2923}# - #{x 3016}# - #{r 2925}# - #{maps 2926}# - #{ellipsis? 2927}# - #{mod 2928}#)) - (lambda (#{x 3018}# #{maps 3019}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{src 2923}# - #{y 3017}# - #{r 2925}# - #{maps 3019}# - #{ellipsis? 2927}# - #{mod 2928}#)) - (lambda (#{y 3022}# #{maps 3023}#) - (values - (#{gen-cons 2916}# - #{x 3018}# - #{y 3022}#) - #{maps 3023}#)))))) - #{tmp 3013}#) - (let ((#{tmp 3026}# - ($sc-dispatch - #{e 2924}# - '#(vector (any . each-any))))) - (if #{tmp 3026}# - (@apply - (lambda (#{e1 3029}# #{e2 3030}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{src 2923}# - (cons #{e1 3029}# #{e2 3030}#) - #{r 2925}# - #{maps 2926}# - #{ellipsis? 2927}# - #{mod 2928}#)) - (lambda (#{e 3032}# #{maps 3033}#) - (values - (#{gen-vector 2920}# #{e 3032}#) - #{maps 3033}#)))) - #{tmp 3026}#) - (values - (list 'quote #{e 2924}#) - #{maps 2926}#)))))))))))) - (#{gen-ref 2910}# - (lambda (#{src 3039}# - #{var 3040}# - #{level 3041}# - #{maps 3042}#) - (if (= #{level 3041}# 0) - (values #{var 3040}# #{maps 3042}#) - (if (null? #{maps 3042}#) - (syntax-violation - 'syntax - "missing ellipsis" - #{src 3039}#) - (call-with-values - (lambda () - (#{gen-ref 2910}# - #{src 3039}# - #{var 3040}# - (#{1-}# #{level 3041}#) - (cdr #{maps 3042}#))) - (lambda (#{outer-var 3049}# #{outer-maps 3050}#) - (let ((#{b 3054}# - (assq #{outer-var 3049}# (car #{maps 3042}#)))) - (if #{b 3054}# - (values (cdr #{b 3054}#) #{maps 3042}#) - (let ((#{inner-var 3056}# - (gensym - (string-append (symbol->string 'tmp) " ")))) - (values - #{inner-var 3056}# - (cons (cons (cons #{outer-var 3049}# - #{inner-var 3056}#) - (car #{maps 3042}#)) - #{outer-maps 3050}#))))))))))) - (#{gen-mappend 2912}# - (lambda (#{e 3057}# #{map-env 3058}#) - (list 'apply - '(primitive append) - (#{gen-map 2914}# #{e 3057}# #{map-env 3058}#)))) - (#{gen-map 2914}# - (lambda (#{e 3062}# #{map-env 3063}#) - (let ((#{formals 3068}# (map cdr #{map-env 3063}#)) - (#{actuals 3069}# - (map (lambda (#{x 3070}#) - (list 'ref (car #{x 3070}#))) - #{map-env 3063}#))) - (if (eq? (car #{e 3062}#) 'ref) - (car #{actuals 3069}#) - (if (and-map - (lambda (#{x 3077}#) - (if (eq? (car #{x 3077}#) 'ref) - (memq (car (cdr #{x 3077}#)) #{formals 3068}#) - #f)) - (cdr #{e 3062}#)) - (cons 'map - (cons (list 'primitive (car #{e 3062}#)) - (map (let ((#{r 3083}# - (map cons - #{formals 3068}# - #{actuals 3069}#))) - (lambda (#{x 3084}#) - (cdr (assq (car (cdr #{x 3084}#)) - #{r 3083}#)))) - (cdr #{e 3062}#)))) - (cons 'map - (cons (list 'lambda #{formals 3068}# #{e 3062}#) - #{actuals 3069}#))))))) - (#{gen-cons 2916}# - (lambda (#{x 3088}# #{y 3089}#) - (let ((#{atom-key 3094}# (car #{y 3089}#))) - (if (memv #{atom-key 3094}# '(quote)) - (if (eq? (car #{x 3088}#) 'quote) - (list 'quote - (cons (car (cdr #{x 3088}#)) - (car (cdr #{y 3089}#)))) - (if (eq? (car (cdr #{y 3089}#)) '()) - (list 'list #{x 3088}#) - (list 'cons #{x 3088}# #{y 3089}#))) - (if (memv #{atom-key 3094}# '(list)) - (cons 'list (cons #{x 3088}# (cdr #{y 3089}#))) - (list 'cons #{x 3088}# #{y 3089}#)))))) - (#{gen-append 2918}# - (lambda (#{x 3103}# #{y 3104}#) - (if (equal? #{y 3104}# ''()) - #{x 3103}# - (list 'append #{x 3103}# #{y 3104}#)))) - (#{gen-vector 2920}# - (lambda (#{x 3108}#) - (if (eq? (car #{x 3108}#) 'list) - (cons 'vector (cdr #{x 3108}#)) - (if (eq? (car #{x 3108}#) 'quote) - (list 'quote - (list->vector (car (cdr #{x 3108}#)))) - (list 'list->vector #{x 3108}#))))) - (#{regen 2922}# - (lambda (#{x 3118}#) - (let ((#{atom-key 3122}# (car #{x 3118}#))) - (if (memv #{atom-key 3122}# '(ref)) - (let ((#{name 5345}# (car (cdr #{x 3118}#))) - (#{var 5346}# (car (cdr #{x 3118}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 3) - #f - #{name 5345}# - #{var 5346}#)) - (if (memv #{atom-key 3122}# '(primitive)) - (let ((#{name 5355}# (car (cdr #{x 3118}#)))) - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5355}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5355}# - #f))) - (if (memv #{atom-key 3122}# '(quote)) - (let ((#{exp 5369}# (car (cdr #{x 3118}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #{exp 5369}#)) - (if (memv #{atom-key 3122}# '(lambda)) - (if (list? (car (cdr #{x 3118}#))) - (let ((#{req 5377}# (car (cdr #{x 3118}#))) - (#{vars 5379}# (car (cdr #{x 3118}#))) - (#{exp 5381}# - (#{regen 2922}# - (car (cdr (cdr #{x 3118}#)))))) - (let ((#{body 5386}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 5377}# - #f - #f - #f - '() - #{vars 5379}# - #{exp 5381}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 5386}#))) - (error "how did we get here" #{x 3118}#)) - (let ((#{fun-exp 5401}# - (let ((#{name 5406}# (car #{x 3118}#))) - (if (equal? - (module-name (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - #{name 5406}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - #{name 5406}# - #f)))) - (#{arg-exps 5402}# - (map #{regen 2922}# (cdr #{x 3118}#)))) + ((#{lp 17824}# + (lambda (#{in 17908}# #{out 17909}#) + (if (null? #{in 17908}#) + #{out 17909}# + (let ((#{e 17910}# (car #{in 17908}#))) + (#{lp 17824}# + (cdr #{in 17908}#) + (cons (if (procedure? #{e 17910}#) + (#{e 17910}#) + #{e 17910}#) + #{out 17909}#))))))) + (#{lp 17824}# #{exps 17784}# '()))))))))) + (#{chi-install-global 4342}# + (lambda (#{name 20228}# #{e 20229}#) + (let ((#{exp 20235}# + (let ((#{fun-exp 20245}# + (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail - (vector-ref %expanded-vtables 11) + (vector-ref %expanded-vtables 7) #f - #{fun-exp 5401}# - #{arg-exps 5402}#)))))))))) - (lambda (#{e 3134}# - #{r 3135}# - #{w 3136}# - #{s 3137}# - #{mod 3138}#) - (let ((#{e 3145}# - (#{wrap 423}# - (begin - (if (if (pair? #{e 3134}#) #{s 3137}# #f) - (set-source-properties! #{e 3134}# #{s 3137}#)) - #{e 3134}#) - #{w 3136}# - #{mod 3138}#))) - (let ((#{tmp 3147}# ($sc-dispatch #{e 3145}# '(_ any)))) - (if #{tmp 3147}# - (@apply - (lambda (#{x 3149}#) - (call-with-values - (lambda () - (#{gen-syntax 2908}# - #{e 3145}# - #{x 3149}# - #{r 3135}# - '() - #{ellipsis? 453}# - #{mod 3138}#)) - (lambda (#{e 3150}# #{maps 3151}#) - (#{regen 2922}# #{e 3150}#)))) - #{tmp 3147}#) - (syntax-violation - 'syntax - "bad `syntax' form" - #{e 3145}#))))))) - (#{global-extend 345}# - 'core - 'lambda - (lambda (#{e 3156}# - #{r 3157}# - #{w 3158}# - #{s 3159}# - #{mod 3160}#) - (let ((#{tmp 3167}# - ($sc-dispatch #{e 3156}# '(_ any any . each-any)))) - (if #{tmp 3167}# - (@apply - (lambda (#{args 3171}# #{e1 3172}# #{e2 3173}#) - (call-with-values - (lambda () - (#{lambda-formals 455}# #{args 3171}#)) - (lambda (#{req 3174}# - #{opt 3175}# - #{rest 3176}# - #{kw 3177}#) - (letrec* - ((#{lp 3185}# - (lambda (#{body 3186}# #{meta 3187}#) - (let ((#{tmp 3190}# - ($sc-dispatch - #{body 3186}# - '(any any . each-any)))) - (if (if #{tmp 3190}# - (@apply - (lambda (#{docstring 3194}# - #{e1 3195}# - #{e2 3196}#) - (string? - (syntax->datum #{docstring 3194}#))) - #{tmp 3190}#) - #f) - (@apply - (lambda (#{docstring 3200}# - #{e1 3201}# - #{e2 3202}#) - (#{lp 3185}# - (cons #{e1 3201}# #{e2 3202}#) - (append - #{meta 3187}# - (list (cons 'documentation - (syntax->datum - #{docstring 3200}#)))))) - #{tmp 3190}#) - (let ((#{tmp 3205}# - ($sc-dispatch - #{body 3186}# - '(#(vector #(each (any . any))) - any - . - each-any)))) - (if #{tmp 3205}# - (@apply - (lambda (#{k 3210}# - #{v 3211}# - #{e1 3212}# - #{e2 3213}#) - (#{lp 3185}# - (cons #{e1 3212}# #{e2 3213}#) - (append - #{meta 3187}# - (syntax->datum - (map cons - #{k 3210}# - #{v 3211}#))))) - #{tmp 3205}#) - ((lambda (#{e 2267}# - #{r 2268}# - #{w 2269}# - #{s 2270}# - #{mod 2271}# - #{req 2272}# - #{rest 2273}# - #{meta 2274}# - #{body 2275}#) - (let ((#{ids 2287}# - (if #{rest 2273}# - (append - #{req 2272}# - (list #{rest 2273}#)) - #{req 2272}#))) - (let ((#{vars 2289}# - (map #{gen-var 465}# - #{ids 2287}#))) - (let ((#{labels 2291}# - (#{gen-labels 369}# - #{ids 2287}#))) - (#{build-simple-lambda 289}# - #{s 2270}# - (map syntax->datum #{req 2272}#) - (if #{rest 2273}# - (syntax->datum #{rest 2273}#) - #f) - #{vars 2289}# - #{meta 2274}# - (#{chi-body 445}# - #{body 2275}# - (#{source-wrap 425}# - #{e 2267}# - #{w 2269}# - #{s 2270}# - #{mod 2271}#) - (#{extend-var-env 339}# - #{labels 2291}# - #{vars 2289}# - #{r 2268}#) - (#{make-binding-wrap 401}# - #{ids 2287}# - #{labels 2291}# - #{w 2269}#) - #{mod 2271}#)))))) - #{e 3156}# - #{r 3157}# - #{w 3158}# - #{s 3159}# - #{mod 3160}# - #{req 3174}# - #{rest 3176}# - #{meta 3187}# - #{body 3186}#)))))))) - (#{lp 3185}# (cons #{e1 3172}# #{e2 3173}#) '()))))) - #{tmp 3167}#) - (syntax-violation - 'lambda - "bad lambda" - #{e 3156}#))))) - (module-define! - (current-module) - 'lambda* - (make-syntax-transformer - 'lambda* - 'core - (lambda (#{e 3221}# - #{r 3222}# - #{w 3223}# - #{s 3224}# - #{mod 3225}#) - (let ((#{tmp 3232}# - ($sc-dispatch #{e 3221}# '(_ any any . each-any)))) - (if #{tmp 3232}# - (@apply - (lambda (#{args 3236}# #{e1 3237}# #{e2 3238}#) - (call-with-values - (lambda () - (#{chi-lambda-case 461}# - #{e 3221}# - #{r 3222}# - #{w 3223}# - #{s 3224}# - #{mod 3225}# - #{lambda*-formals 459}# - (list (cons #{args 3236}# - (cons #{e1 3237}# #{e2 3238}#))))) - (lambda (#{meta 3240}# #{lcase 3241}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3224}# - #{meta 3240}# - #{lcase 3241}#)))) - #{tmp 3232}#) - (syntax-violation - 'lambda - "bad lambda*" - #{e 3221}#)))))) - (module-define! - (current-module) - 'case-lambda - (make-syntax-transformer - 'case-lambda - 'core - (lambda (#{e 3246}# - #{r 3247}# - #{w 3248}# - #{s 3249}# - #{mod 3250}#) - (let ((#{tmp 3257}# - ($sc-dispatch - #{e 3246}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3257}# - (@apply - (lambda (#{args 3264}# - #{e1 3265}# - #{e2 3266}# - #{args* 3267}# - #{e1* 3268}# - #{e2* 3269}#) - (call-with-values - (lambda () - (#{chi-lambda-case 461}# - #{e 3246}# - #{r 3247}# - #{w 3248}# - #{s 3249}# - #{mod 3250}# - #{lambda-formals 455}# - (cons (cons #{args 3264}# - (cons #{e1 3265}# #{e2 3266}#)) - (map (lambda (#{tmp 3273}# - #{tmp 3272}# - #{tmp 3271}#) - (cons #{tmp 3271}# - (cons #{tmp 3272}# #{tmp 3273}#))) - #{e2* 3269}# - #{e1* 3268}# - #{args* 3267}#)))) - (lambda (#{meta 3275}# #{lcase 3276}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3249}# - #{meta 3275}# - #{lcase 3276}#)))) - #{tmp 3257}#) - (syntax-violation - 'case-lambda - "bad case-lambda" - #{e 3246}#)))))) - (module-define! - (current-module) - 'case-lambda* - (make-syntax-transformer - 'case-lambda* - 'core - (lambda (#{e 3281}# - #{r 3282}# - #{w 3283}# - #{s 3284}# - #{mod 3285}#) - (let ((#{tmp 3292}# - ($sc-dispatch - #{e 3281}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3292}# - (@apply - (lambda (#{args 3299}# - #{e1 3300}# - #{e2 3301}# - #{args* 3302}# - #{e1* 3303}# - #{e2* 3304}#) - (call-with-values - (lambda () - (#{chi-lambda-case 461}# - #{e 3281}# - #{r 3282}# - #{w 3283}# - #{s 3284}# - #{mod 3285}# - #{lambda*-formals 459}# - (cons (cons #{args 3299}# - (cons #{e1 3300}# #{e2 3301}#)) - (map (lambda (#{tmp 3308}# - #{tmp 3307}# - #{tmp 3306}#) - (cons #{tmp 3306}# - (cons #{tmp 3307}# #{tmp 3308}#))) - #{e2* 3304}# - #{e1* 3303}# - #{args* 3302}#)))) - (lambda (#{meta 3310}# #{lcase 3311}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #{s 3284}# - #{meta 3310}# - #{lcase 3311}#)))) - #{tmp 3292}#) - (syntax-violation - 'case-lambda - "bad case-lambda*" - #{e 3281}#)))))) - (#{global-extend 345}# - 'core - 'let - (letrec* - ((#{chi-let 3317}# - (lambda (#{e 3318}# - #{r 3319}# - #{w 3320}# - #{s 3321}# - #{mod 3322}# - #{constructor 3323}# - #{ids 3324}# - #{vals 3325}# - #{exps 3326}#) - (if (not (#{valid-bound-ids? 417}# #{ids 3324}#)) - (syntax-violation - 'let - "duplicate bound variable" - #{e 3318}#) - (let ((#{labels 3338}# - (#{gen-labels 369}# #{ids 3324}#)) - (#{new-vars 3339}# - (map #{gen-var 465}# #{ids 3324}#))) - (let ((#{nw 3342}# - (#{make-binding-wrap 401}# - #{ids 3324}# - #{labels 3338}# - #{w 3320}#)) - (#{nr 3343}# - (#{extend-var-env 339}# - #{labels 3338}# - #{new-vars 3339}# - #{r 3319}#))) - (#{constructor 3323}# - #{s 3321}# - (map syntax->datum #{ids 3324}#) - #{new-vars 3339}# - (map (lambda (#{x 3344}#) - (#{chi 437}# - #{x 3344}# - #{r 3319}# - #{w 3320}# - #{mod 3322}#)) - #{vals 3325}#) - (#{chi-body 445}# - #{exps 3326}# - (#{wrap 423}# - (begin - (if (if (pair? #{e 3318}#) #{s 3321}# #f) - (set-source-properties! #{e 3318}# #{s 3321}#)) - #{e 3318}#) - #{nw 3342}# - #{mod 3322}#) - #{nr 3343}# - #{nw 3342}# - #{mod 3322}#)))))))) - (lambda (#{e 3346}# - #{r 3347}# - #{w 3348}# - #{s 3349}# - #{mod 3350}#) - (let ((#{tmp 3357}# - ($sc-dispatch - #{e 3346}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3357}# - (@apply - (lambda (#{id 3362}# - #{val 3363}# - #{e1 3364}# - #{e2 3365}#) - (and-map #{id? 349}# #{id 3362}#)) - #{tmp 3357}#) - #f) - (@apply - (lambda (#{id 3371}# - #{val 3372}# - #{e1 3373}# - #{e2 3374}#) - (#{chi-let 3317}# - #{e 3346}# - #{r 3347}# - #{w 3348}# - #{s 3349}# - #{mod 3350}# - (lambda (#{src 1104}# - #{ids 1105}# - #{vars 1106}# - #{val-exps 1107}# - #{body-exp 1108}#) - (begin - (for-each - #{maybe-name-value! 267}# - #{ids 1105}# - #{val-exps 1107}#) - (if (null? #{vars 1106}#) - #{body-exp 1108}# - (#{make-let 238}# - #{src 1104}# - #{ids 1105}# - #{vars 1106}# - #{val-exps 1107}# - #{body-exp 1108}#)))) - #{id 3371}# - #{val 3372}# - (cons #{e1 3373}# #{e2 3374}#))) - #{tmp 3357}#) - (let ((#{tmp 3378}# - ($sc-dispatch - #{e 3346}# - '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3378}# - (@apply - (lambda (#{f 3384}# - #{id 3385}# - #{val 3386}# - #{e1 3387}# - #{e2 3388}#) - (if (if (symbol? #{f 3384}#) - #t - (if (if (vector? #{f 3384}#) - (if (= (vector-length #{f 3384}#) 4) - (eq? (vector-ref #{f 3384}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{f 3384}# 1)) - #f)) - (and-map #{id? 349}# #{id 3385}#) - #f)) - #{tmp 3378}#) - #f) - (@apply - (lambda (#{f 3397}# - #{id 3398}# - #{val 3399}# - #{e1 3400}# - #{e2 3401}#) - (#{chi-let 3317}# - #{e 3346}# - #{r 3347}# - #{w 3348}# - #{s 3349}# - #{mod 3350}# - (lambda (#{src 1114}# - #{ids 1115}# - #{vars 1116}# - #{val-exps 1117}# - #{body-exp 1118}#) - (let ((#{f 1128}# (car #{vars 1116}#)) - (#{f-name 1129}# (car #{ids 1115}#)) - (#{vars 1130}# (cdr #{vars 1116}#)) - (#{ids 1131}# (cdr #{ids 1115}#))) - (let ((#{proc 1133}# - (#{build-simple-lambda 289}# - #{src 1114}# - #{ids 1131}# - #f - #{vars 1130}# - '() - #{body-exp 1118}#))) - (begin - (#{maybe-name-value! 267}# - #{f-name 1129}# - #{proc 1133}#) - (for-each - #{maybe-name-value! 267}# - #{ids 1131}# - #{val-exps 1117}#) - (#{make-letrec 240}# - #{src 1114}# - #f - (list #{f-name 1129}#) - (list #{f 1128}#) - (list #{proc 1133}#) - (#{build-application 271}# - #{src 1114}# - (#{build-lexical-reference 277}# - 'fun - #{src 1114}# - #{f-name 1129}# - #{f 1128}#) - #{val-exps 1117}#)))))) - (cons #{f 3397}# #{id 3398}#) - #{val 3399}# - (cons #{e1 3400}# #{e2 3401}#))) - #{tmp 3378}#) - (syntax-violation - 'let - "bad let" - (#{wrap 423}# - (begin - (if (if (pair? #{e 3346}#) #{s 3349}# #f) - (set-source-properties! #{e 3346}# #{s 3349}#)) - #{e 3346}#) - #{w 3348}# - #{mod 3350}#))))))))) - (#{global-extend 345}# - 'core - 'letrec - (lambda (#{e 3407}# - #{r 3408}# - #{w 3409}# - #{s 3410}# - #{mod 3411}#) - (let ((#{tmp 3418}# - ($sc-dispatch - #{e 3407}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3418}# - (@apply - (lambda (#{id 3423}# - #{val 3424}# - #{e1 3425}# - #{e2 3426}#) - (and-map #{id? 349}# #{id 3423}#)) - #{tmp 3418}#) - #f) - (@apply - (lambda (#{id 3432}# - #{val 3433}# - #{e1 3434}# - #{e2 3435}#) - (if (not (#{valid-bound-ids? 417}# #{id 3432}#)) - (syntax-violation - 'letrec - "duplicate bound variable" - #{e 3407}#) - (let ((#{labels 3441}# - (#{gen-labels 369}# #{id 3432}#)) - (#{new-vars 3442}# - (map #{gen-var 465}# #{id 3432}#))) - (let ((#{w 3445}# - (#{make-binding-wrap 401}# - #{id 3432}# - #{labels 3441}# - #{w 3409}#)) - (#{r 3446}# - (#{extend-var-env 339}# - #{labels 3441}# - #{new-vars 3442}# - #{r 3408}#))) - (#{build-letrec 305}# - #{s 3410}# - #f - (map syntax->datum #{id 3432}#) - #{new-vars 3442}# - (map (lambda (#{x 3447}#) - (#{chi 437}# - #{x 3447}# - #{r 3446}# - #{w 3445}# - #{mod 3411}#)) - #{val 3433}#) - (#{chi-body 445}# - (cons #{e1 3434}# #{e2 3435}#) - (#{wrap 423}# - (begin - (if (if (pair? #{e 3407}#) #{s 3410}# #f) - (set-source-properties! #{e 3407}# #{s 3410}#)) - #{e 3407}#) - #{w 3445}# - #{mod 3411}#) - #{r 3446}# - #{w 3445}# - #{mod 3411}#)))))) - #{tmp 3418}#) - (syntax-violation - 'letrec - "bad letrec" - (#{wrap 423}# - (begin - (if (if (pair? #{e 3407}#) #{s 3410}# #f) - (set-source-properties! #{e 3407}# #{s 3410}#)) - #{e 3407}#) - #{w 3409}# - #{mod 3411}#)))))) - (#{global-extend 345}# - 'core - 'letrec* - (lambda (#{e 3453}# - #{r 3454}# - #{w 3455}# - #{s 3456}# - #{mod 3457}#) - (let ((#{tmp 3464}# - ($sc-dispatch - #{e 3453}# - '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3464}# - (@apply - (lambda (#{id 3469}# - #{val 3470}# - #{e1 3471}# - #{e2 3472}#) - (and-map #{id? 349}# #{id 3469}#)) - #{tmp 3464}#) - #f) - (@apply - (lambda (#{id 3478}# - #{val 3479}# - #{e1 3480}# - #{e2 3481}#) - (if (not (#{valid-bound-ids? 417}# #{id 3478}#)) - (syntax-violation - 'letrec* - "duplicate bound variable" - #{e 3453}#) - (let ((#{labels 3487}# - (#{gen-labels 369}# #{id 3478}#)) - (#{new-vars 3488}# - (map #{gen-var 465}# #{id 3478}#))) - (let ((#{w 3491}# - (#{make-binding-wrap 401}# - #{id 3478}# - #{labels 3487}# - #{w 3455}#)) - (#{r 3492}# - (#{extend-var-env 339}# - #{labels 3487}# - #{new-vars 3488}# - #{r 3454}#))) - (#{build-letrec 305}# - #{s 3456}# - #t - (map syntax->datum #{id 3478}#) - #{new-vars 3488}# - (map (lambda (#{x 3493}#) - (#{chi 437}# - #{x 3493}# - #{r 3492}# - #{w 3491}# - #{mod 3457}#)) - #{val 3479}#) - (#{chi-body 445}# - (cons #{e1 3480}# #{e2 3481}#) - (#{wrap 423}# - (begin - (if (if (pair? #{e 3453}#) #{s 3456}# #f) - (set-source-properties! #{e 3453}# #{s 3456}#)) - #{e 3453}#) - #{w 3491}# - #{mod 3457}#) - #{r 3492}# - #{w 3491}# - #{mod 3457}#)))))) - #{tmp 3464}#) - (syntax-violation - 'letrec* - "bad letrec*" - (#{wrap 423}# - (begin - (if (if (pair? #{e 3453}#) #{s 3456}# #f) - (set-source-properties! #{e 3453}# #{s 3456}#)) - #{e 3453}#) - #{w 3455}# - #{mod 3457}#)))))) - (#{global-extend 345}# - 'core - 'set! - (lambda (#{e 3499}# - #{r 3500}# - #{w 3501}# - #{s 3502}# - #{mod 3503}#) - (let ((#{tmp 3510}# - ($sc-dispatch #{e 3499}# '(_ any any)))) - (if (if #{tmp 3510}# - (@apply - (lambda (#{id 3513}# #{val 3514}#) - (if (symbol? #{id 3513}#) - #t - (if (if (vector? #{id 3513}#) - (if (= (vector-length #{id 3513}#) 4) - (eq? (vector-ref #{id 3513}# 0) 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{id 3513}# 1)) - #f))) - #{tmp 3510}#) - #f) - (@apply - (lambda (#{id 3517}# #{val 3518}#) - (let ((#{n 3521}# - (#{id-var-name 411}# #{id 3517}# #{w 3501}#)) - (#{id-mod 3522}# - (if (if (vector? #{id 3517}#) - (if (= (vector-length #{id 3517}#) 4) - (eq? (vector-ref #{id 3517}# 0) 'syntax-object) - #f) - #f) - (vector-ref #{id 3517}# 3) - #{mod 3503}#))) - (let ((#{b 3524}# - (let ((#{t 7016}# (assq #{n 3521}# #{r 3500}#))) - (if #{t 7016}# - (cdr #{t 7016}#) - (if (symbol? #{n 3521}#) - (let ((#{t 7017}# - (#{get-global-definition-hook 263}# - #{n 3521}# - #{id-mod 3522}#))) - (if #{t 7017}# #{t 7017}# '(global))) - '(displaced-lexical)))))) - (let ((#{atom-key 3527}# (car #{b 3524}#))) - (if (memv #{atom-key 3527}# '(lexical)) - ((lambda (#{source 993}# - #{name 994}# - #{var 995}# - #{exp 996}#) - (begin - (#{maybe-name-value! 267}# - #{name 994}# - #{exp 996}#) - (#{make-lexical-set 216}# - #{source 993}# - #{name 994}# - #{var 995}# - #{exp 996}#))) - #{s 3502}# - (syntax->datum #{id 3517}#) - (cdr #{b 3524}#) - (#{chi 437}# - #{val 3518}# - #{r 3500}# - #{w 3501}# - #{mod 3503}#)) - (if (memv #{atom-key 3527}# '(global)) - (#{build-global-assignment 285}# - #{s 3502}# - #{n 3521}# - (#{chi 437}# - #{val 3518}# - #{r 3500}# - #{w 3501}# - #{mod 3503}#) - #{id-mod 3522}#) - (if (memv #{atom-key 3527}# '(macro)) - (let ((#{p 3534}# (cdr #{b 3524}#))) - (if (procedure-property - #{p 3534}# - 'variable-transformer) - (#{chi 437}# - (#{chi-macro 443}# - #{p 3534}# - #{e 3499}# - #{r 3500}# - #{w 3501}# - #{s 3502}# - #f - #{mod 3503}#) - #{r 3500}# - '(()) - #{mod 3503}#) - (syntax-violation - 'set! - "not a variable transformer" - (#{wrap 423}# - #{e 3499}# - #{w 3501}# - #{mod 3503}#) - (#{wrap 423}# - #{id 3517}# - #{w 3501}# - #{id-mod 3522}#)))) - (if (memv #{atom-key 3527}# '(displaced-lexical)) - (syntax-violation - 'set! - "identifier out of context" - (#{wrap 423}# - #{id 3517}# - #{w 3501}# - #{mod 3503}#)) - (syntax-violation - 'set! - "bad set!" - (#{wrap 423}# - (begin - (if (if (pair? #{e 3499}#) #{s 3502}# #f) - (set-source-properties! - #{e 3499}# - #{s 3502}#)) - #{e 3499}#) - #{w 3501}# - #{mod 3503}#)))))))))) - #{tmp 3510}#) - (let ((#{tmp 3539}# - ($sc-dispatch - #{e 3499}# - '(_ (any . each-any) any)))) - (if #{tmp 3539}# - (@apply - (lambda (#{head 3543}# #{tail 3544}# #{val 3545}#) - (call-with-values - (lambda () - (#{syntax-type 435}# - #{head 3543}# - #{r 3500}# - '(()) - #f - #f - #{mod 3503}# - #t)) - (lambda (#{type 3548}# - #{value 3549}# - #{ee 3550}# - #{ww 3551}# - #{ss 3552}# - #{modmod 3553}#) - (if (memv #{type 3548}# '(module-ref)) - (let ((#{val 3562}# - (#{chi 437}# - #{val 3545}# - #{r 3500}# - #{w 3501}# - #{mod 3503}#))) - (call-with-values - (lambda () - (#{value 3549}# - (cons #{head 3543}# #{tail 3544}#) - #{r 3500}# - #{w 3501}#)) - (lambda (#{e 3564}# - #{r 3565}# - #{w 3566}# - #{s* 3567}# - #{mod 3568}#) - (let ((#{tmp 3575}# (list #{e 3564}#))) - (if (if #{tmp 3575}# - (@apply - (lambda (#{e 3577}#) - (if (symbol? #{e 3577}#) - #t - (if (if (vector? #{e 3577}#) - (if (= (vector-length - #{e 3577}#) - 4) - (eq? (vector-ref - #{e 3577}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{e 3577}# 1)) - #f))) - #{tmp 3575}#) - #f) - (@apply - (lambda (#{e 3579}#) - (let ((#{var 7356}# - (syntax->datum #{e 3579}#))) - (begin - (if (if (struct? #{val 3562}#) - (eq? (struct-vtable - #{val 3562}#) - (vector-ref - %expanded-vtables - 13)) - #f) - (let ((#{meta 7367}# - (struct-ref - #{val 3562}# - 1))) - (if (not (assq 'name - #{meta 7367}#)) - (let ((#{v 7377}# - (cons (cons 'name - #{var 7356}#) - #{meta 7367}#))) - (struct-set! - #{val 3562}# - 1 - #{v 7377}#))))) - (#{analyze-variable 281}# - #{mod 3568}# - #{var 7356}# - (lambda (#{mod 7359}# - #{var 7360}# - #{public? 7361}#) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 6) - #{s 3502}# - #{mod 7359}# - #{var 7360}# - #{public? 7361}# - #{val 3562}#)) - (lambda (#{var 7362}#) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 8) - #{s 3502}# - #{var 7362}# - #{val 3562}#)))))) - #{tmp 3575}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3564}#)))))) - (#{build-application 271}# - #{s 3502}# - (#{chi 437}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type value ee ww ss modmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i3554" - "i3555" - "i3556" - "i3557" - "i3558" - "i3559")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("i3540" "i3541" "i3542")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) (top) (top) (top) (top)) - #("i3504" - "i3505" - "i3506" - "i3507" - "i3508")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - #{head 3543}#) - #{r 3500}# - #{w 3501}# - #{mod 3503}#) - (map (lambda (#{e 3581}#) - (#{chi 437}# - #{e 3581}# - #{r 3500}# - #{w 3501}# - #{mod 3503}#)) - (append - #{tail 3544}# - (list #{val 3545}#)))))))) - #{tmp 3539}#) - (syntax-violation - 'set! - "bad set!" - (#{wrap 423}# - (begin - (if (if (pair? #{e 3499}#) #{s 3502}# #f) - (set-source-properties! #{e 3499}# #{s 3502}#)) - #{e 3499}#) - #{w 3501}# - #{mod 3503}#)))))))) - (module-define! - (current-module) - '@ - (make-syntax-transformer - '@ - 'module-ref - (lambda (#{e 3586}# #{r 3587}# #{w 3588}#) - (let ((#{tmp 3593}# - ($sc-dispatch #{e 3586}# '(_ each-any any)))) - (if (if #{tmp 3593}# - (@apply - (lambda (#{mod 3596}# #{id 3597}#) - (if (and-map #{id? 349}# #{mod 3596}#) - (if (symbol? #{id 3597}#) - #t - (if (if (vector? #{id 3597}#) - (if (= (vector-length #{id 3597}#) 4) - (eq? (vector-ref #{id 3597}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{id 3597}# 1)) - #f)) - #f)) - #{tmp 3593}#) - #f) - (@apply - (lambda (#{mod 3603}# #{id 3604}#) - (values - (syntax->datum #{id 3604}#) - #{r 3587}# - #{w 3588}# - #f - (syntax->datum - (cons '#(syntax-object - public - ((top) - #(ribcage - #(mod id) - #((top) (top)) - #("i3601" "i3602")) - #(ribcage () () ()) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3589" "i3590" "i3591")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - #{mod 3603}#)))) - #{tmp 3593}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3586}#)))))) - (#{global-extend 345}# - 'module-ref - '@@ - (lambda (#{e 3606}# #{r 3607}# #{w 3608}#) - (letrec* - ((#{remodulate 3613}# - (lambda (#{x 3614}# #{mod 3615}#) - (if (pair? #{x 3614}#) - (cons (#{remodulate 3613}# - (car #{x 3614}#) - #{mod 3615}#) - (#{remodulate 3613}# - (cdr #{x 3614}#) - #{mod 3615}#)) - (if (if (vector? #{x 3614}#) - (if (= (vector-length #{x 3614}#) 4) - (eq? (vector-ref #{x 3614}# 0) 'syntax-object) - #f) - #f) - (let ((#{expression 7617}# - (#{remodulate 3613}# - (vector-ref #{x 3614}# 1) - #{mod 3615}#)) - (#{wrap 7618}# (vector-ref #{x 3614}# 2))) - (vector - 'syntax-object - #{expression 7617}# - #{wrap 7618}# - #{mod 3615}#)) - (if (vector? #{x 3614}#) - (let ((#{n 3626}# (vector-length #{x 3614}#))) - (let ((#{v 3628}# (make-vector #{n 3626}#))) - (letrec* - ((#{loop 3631}# - (lambda (#{i 3632}#) - (if (= #{i 3632}# #{n 3626}#) - #{v 3628}# - (begin - (vector-set! - #{v 3628}# - #{i 3632}# - (#{remodulate 3613}# - (vector-ref #{x 3614}# #{i 3632}#) - #{mod 3615}#)) - (#{loop 3631}# (#{1+}# #{i 3632}#))))))) - (#{loop 3631}# 0)))) - #{x 3614}#)))))) - (let ((#{tmp 3639}# - ($sc-dispatch #{e 3606}# '(_ each-any any)))) - (if (if #{tmp 3639}# - (@apply - (lambda (#{mod 3642}# #{exp 3643}#) - (and-map #{id? 349}# #{mod 3642}#)) - #{tmp 3639}#) - #f) - (@apply - (lambda (#{mod 3647}# #{exp 3648}#) - (let ((#{mod 3650}# - (syntax->datum - (cons '#(syntax-object - private - ((top) - #(ribcage - #(mod exp) - #((top) (top)) - #("i3645" "i3646")) - #(ribcage (remodulate) ((top)) ("i3612")) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3609" "i3610" "i3611")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - #{mod 3647}#)))) - (values - (#{remodulate 3613}# #{exp 3648}# #{mod 3650}#) - #{r 3607}# - #{w 3608}# - (#{source-annotation 327}# #{exp 3648}#) - #{mod 3650}#))) - #{tmp 3639}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3606}#)))))) - (#{global-extend 345}# - 'core - 'if - (lambda (#{e 3652}# - #{r 3653}# - #{w 3654}# - #{s 3655}# - #{mod 3656}#) - (let ((#{tmp 3663}# - ($sc-dispatch #{e 3652}# '(_ any any)))) - (if #{tmp 3663}# - (@apply - (lambda (#{test 3666}# #{then 3667}#) - (#{build-conditional 273}# - #{s 3655}# - (#{chi 437}# - #{test 3666}# - #{r 3653}# - #{w 3654}# - #{mod 3656}#) - (#{chi 437}# - #{then 3667}# - #{r 3653}# - #{w 3654}# - #{mod 3656}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 0) - #f))) - #{tmp 3663}#) - (let ((#{tmp 3669}# - ($sc-dispatch #{e 3652}# '(_ any any any)))) - (if #{tmp 3669}# - (@apply - (lambda (#{test 3673}# #{then 3674}# #{else 3675}#) - (#{build-conditional 273}# - #{s 3655}# - (#{chi 437}# - #{test 3673}# - #{r 3653}# - #{w 3654}# - #{mod 3656}#) - (#{chi 437}# - #{then 3674}# - #{r 3653}# - #{w 3654}# - #{mod 3656}#) - (#{chi 437}# - #{else 3675}# - #{r 3653}# - #{w 3654}# - #{mod 3656}#))) - #{tmp 3669}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3652}#))))))) - (#{global-extend 345}# - 'core - 'with-fluids - (lambda (#{e 3676}# - #{r 3677}# - #{w 3678}# - #{s 3679}# - #{mod 3680}#) - (let ((#{tmp 3687}# - ($sc-dispatch - #{e 3676}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3687}# - (@apply - (lambda (#{fluid 3692}# - #{val 3693}# - #{b 3694}# - #{b* 3695}#) - ((lambda (#{source 977}# - #{fluids 978}# - #{vals 979}# - #{body 980}#) - (#{make-dynlet 242}# - #{source 977}# - #{fluids 978}# - #{vals 979}# - #{body 980}#)) - #{s 3679}# - (map (lambda (#{x 3696}#) - (#{chi 437}# - #{x 3696}# - #{r 3677}# - #{w 3678}# - #{mod 3680}#)) - #{fluid 3692}#) - (map (lambda (#{x 3699}#) - (#{chi 437}# - #{x 3699}# - #{r 3677}# - #{w 3678}# - #{mod 3680}#)) - #{val 3693}#) - (#{chi-body 445}# - (cons #{b 3694}# #{b* 3695}#) - (#{wrap 423}# - (begin - (if (if (pair? #{e 3676}#) #{s 3679}# #f) - (set-source-properties! #{e 3676}# #{s 3679}#)) - #{e 3676}#) - #{w 3678}# - #{mod 3680}#) - #{r 3677}# - #{w 3678}# - #{mod 3680}#))) - #{tmp 3687}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{e 3676}#))))) - (module-define! - (current-module) - 'begin - (make-syntax-transformer 'begin 'begin '())) - (module-define! - (current-module) - 'define - (make-syntax-transformer 'define 'define '())) - (module-define! - (current-module) - 'define-syntax - (make-syntax-transformer - 'define-syntax - 'define-syntax - '())) - (module-define! - (current-module) - 'eval-when - (make-syntax-transformer - 'eval-when - 'eval-when - '())) - (#{global-extend 345}# - 'core - 'syntax-case - (letrec* - ((#{convert-pattern 3704}# - (lambda (#{pattern 3711}# #{keys 3712}#) - (letrec* - ((#{cvt* 3716}# - (lambda (#{p* 3721}# #{n 3722}# #{ids 3723}#) - (if (not (pair? #{p* 3721}#)) - (#{cvt 3720}# - #{p* 3721}# - #{n 3722}# - #{ids 3723}#) - (call-with-values - (lambda () - (#{cvt* 3716}# - (cdr #{p* 3721}#) - #{n 3722}# - #{ids 3723}#)) - (lambda (#{y 3727}# #{ids 3728}#) - (call-with-values - (lambda () - (#{cvt 3720}# - (car #{p* 3721}#) - #{n 3722}# - #{ids 3728}#)) - (lambda (#{x 3731}# #{ids 3732}#) - (values - (cons #{x 3731}# #{y 3727}#) - #{ids 3732}#)))))))) - (#{v-reverse 3718}# - (lambda (#{x 3735}#) - (letrec* - ((#{loop 3740}# - (lambda (#{r 3741}# #{x 3742}#) - (if (not (pair? #{x 3742}#)) - (values #{r 3741}# #{x 3742}#) - (#{loop 3740}# - (cons (car #{x 3742}#) #{r 3741}#) - (cdr #{x 3742}#)))))) - (#{loop 3740}# '() #{x 3735}#)))) - (#{cvt 3720}# - (lambda (#{p 3743}# #{n 3744}# #{ids 3745}#) - (if (if (symbol? #{p 3743}#) - #t - (if (if (vector? #{p 3743}#) - (if (= (vector-length #{p 3743}#) 4) - (eq? (vector-ref #{p 3743}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{p 3743}# 1)) - #f)) - (if (#{bound-id-member? 421}# - #{p 3743}# - #{keys 3712}#) - (values - (vector 'free-id #{p 3743}#) - #{ids 3745}#) - (if (if (eq? (if (if (vector? #{p 3743}#) - (if (= (vector-length #{p 3743}#) 4) - (eq? (vector-ref #{p 3743}# 0) - 'syntax-object) + 'make-syntax-transformer) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'make-syntax-transformer + #f))) + (#{arg-exps 20246}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #{name 20228}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + 'macro) + #{e 20229}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 20245}# + #{arg-exps 20246}#)))) + (begin + (if (if (struct? #{exp 20235}#) + (eq? (struct-vtable #{exp 20235}#) + (vector-ref %expanded-vtables 13)) + #f) + (let ((#{meta 20287}# (struct-ref #{exp 20235}# 1))) + (if (not (assq 'name #{meta 20287}#)) + (let ((#{v 20294}# + (cons (cons 'name #{name 20228}#) #{meta 20287}#))) + (struct-set! #{exp 20235}# 1 #{v 20294}#))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 9) + #f + #{name 20228}# + #{exp 20235}#))))) + (#{chi-when-list 4343}# + (lambda (#{e 20305}# #{when-list 20306}# #{w 20307}#) + (letrec* + ((#{f 20308}# + (lambda (#{when-list 20311}# #{situations 20312}#) + (if (null? #{when-list 20311}#) + #{situations 20312}# + (#{f 20308}# + (cdr #{when-list 20311}#) + (cons (let ((#{x 20313}# (car #{when-list 20311}#))) + (if (if (eq? (if (if (vector? #{x 20313}#) + (if (= (vector-length #{x 20313}#) + 4) + (eq? (vector-ref #{x 20313}# 0) + 'syntax-object) + #f) #f) - #f) - (vector-ref #{p 3743}# 1) - #{p 3743}#) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3746" - "i3747" - "i3748")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3719" - "i3717" - "i3715")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3713" "i3714")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3746" - "i3747" - "i3748")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3719" - "i3717" - "i3715")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3713" "i3714")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3746" "i3747" "i3748")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3719" "i3717" "i3715")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3713" "i3714")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - 1) - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3746" "i3747" "i3748")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3719" "i3717" "i3715")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3713" "i3714")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" "i3707" "i3705" "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - (eq? (#{id-var-name 411}# #{p 3743}# '(())) - (#{id-var-name 411}# - '#(syntax-object - _ - ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3746" "i3747" "i3748")) - #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3719" "i3717" "i3715")) - #(ribcage - #(pattern keys) - #((top) (top)) - #("i3713" "i3714")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" "i3707" "i3705" "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(()))) - #f) - (values '_ #{ids 3745}#) - (values - 'any - (cons (cons #{p 3743}# #{n 3744}#) #{ids 3745}#)))) - (let ((#{tmp 3755}# - ($sc-dispatch #{p 3743}# '(any any)))) - (if (if #{tmp 3755}# - (@apply - (lambda (#{x 3758}# #{dots 3759}#) - (if (if (if (vector? #{dots 3759}#) - (if (= (vector-length - #{dots 3759}#) - 4) - (eq? (vector-ref #{dots 3759}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{dots 3759}# 1)) - #f) - (if (eq? (if (if (vector? #{dots 3759}#) - (if (= (vector-length - #{dots 3759}#) - 4) - (eq? (vector-ref - #{dots 3759}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{dots 3759}# 1) - #{dots 3759}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - 1) - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - (eq? (#{id-var-name 411}# - #{dots 3759}# - '(())) - (#{id-var-name 411}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(()))) - #f) - #f)) - #{tmp 3755}#) - #f) - (@apply - (lambda (#{x 3762}# #{dots 3763}#) - (call-with-values - (lambda () - (#{cvt 3720}# - #{x 3762}# - (#{1+}# #{n 3744}#) - #{ids 3745}#)) - (lambda (#{p 3765}# #{ids 3766}#) - (values - (if (eq? #{p 3765}# 'any) - 'each-any - (vector 'each #{p 3765}#)) - #{ids 3766}#)))) - #{tmp 3755}#) - (let ((#{tmp 3769}# - ($sc-dispatch #{p 3743}# '(any any . any)))) - (if (if #{tmp 3769}# - (@apply - (lambda (#{x 3773}# - #{dots 3774}# - #{ys 3775}#) - (if (if (if (vector? #{dots 3774}#) - (if (= (vector-length - #{dots 3774}#) - 4) - (eq? (vector-ref - #{dots 3774}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{dots 3774}# 1)) - #f) - (if (eq? (if (if (vector? - #{dots 3774}#) - (if (= (vector-length - #{dots 3774}#) - 4) - (eq? (vector-ref - #{dots 3774}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{dots 3774}# 1) - #{dots 3774}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - 1) - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - (eq? (#{id-var-name 411}# - #{dots 3774}# - '(())) - (#{id-var-name 411}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(()))) - #f) - #f)) - #{tmp 3769}#) - #f) - (@apply - (lambda (#{x 3779}# #{dots 3780}# #{ys 3781}#) - (call-with-values - (lambda () - (#{cvt* 3716}# - #{ys 3781}# - #{n 3744}# - #{ids 3745}#)) - (lambda (#{ys 3782}# #{ids 3783}#) - (call-with-values - (lambda () - (#{cvt 3720}# - #{x 3779}# - (#{1+}# #{n 3744}#) - #{ids 3783}#)) - (lambda (#{x 3786}# #{ids 3787}#) - (call-with-values - (lambda () - (#{v-reverse 3718}# #{ys 3782}#)) - (lambda (#{ys 3790}# #{e 3791}#) - (values - (vector - 'each+ - #{x 3786}# - #{ys 3790}# - #{e 3791}#) - #{ids 3787}#)))))))) - #{tmp 3769}#) - (let ((#{tmp 3795}# - ($sc-dispatch #{p 3743}# '(any . any)))) - (if #{tmp 3795}# - (@apply - (lambda (#{x 3798}# #{y 3799}#) - (call-with-values - (lambda () - (#{cvt 3720}# - #{y 3799}# - #{n 3744}# - #{ids 3745}#)) - (lambda (#{y 3800}# #{ids 3801}#) - (call-with-values - (lambda () - (#{cvt 3720}# - #{x 3798}# - #{n 3744}# - #{ids 3801}#)) - (lambda (#{x 3804}# #{ids 3805}#) - (values - (cons #{x 3804}# #{y 3800}#) - #{ids 3805}#)))))) - #{tmp 3795}#) - (let ((#{tmp 3808}# - ($sc-dispatch #{p 3743}# '()))) - (if #{tmp 3808}# - (@apply - (lambda () (values '() #{ids 3745}#)) - #{tmp 3808}#) - (let ((#{tmp 3809}# - ($sc-dispatch - #{p 3743}# - '#(vector each-any)))) - (if #{tmp 3809}# - (@apply - (lambda (#{x 3811}#) - (call-with-values - (lambda () - (#{cvt 3720}# - #{x 3811}# - #{n 3744}# - #{ids 3745}#)) - (lambda (#{p 3813}# - #{ids 3814}#) - (values - (vector 'vector #{p 3813}#) - #{ids 3814}#)))) - #{tmp 3809}#) - (values - (vector - 'atom - (#{strip 463}# #{p 3743}# '(()))) - #{ids 3745}#))))))))))))))) - (#{cvt 3720}# #{pattern 3711}# 0 '())))) - (#{build-dispatch-call 3706}# - (lambda (#{pvars 3820}# - #{exp 3821}# - #{y 3822}# - #{r 3823}# - #{mod 3824}#) - (let ((#{ids 3832}# (map car #{pvars 3820}#))) - (begin - (map cdr #{pvars 3820}#) - (let ((#{labels 3836}# - (#{gen-labels 369}# #{ids 3832}#)) - (#{new-vars 3837}# - (map #{gen-var 465}# #{ids 3832}#))) - (#{build-application 271}# - #f - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'apply) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'apply - #f)) - (list (#{build-simple-lambda 289}# - #f - (map syntax->datum #{ids 3832}#) - #f - #{new-vars 3837}# - '() - (#{chi 437}# - #{exp 3821}# - (#{extend-env 337}# - #{labels 3836}# - (map (lambda (#{var 3841}# #{level 3842}#) - (cons 'syntax - (cons #{var 3841}# - #{level 3842}#))) - #{new-vars 3837}# - (map cdr #{pvars 3820}#)) - #{r 3823}#) - (#{make-binding-wrap 401}# - #{ids 3832}# - #{labels 3836}# - '(())) - #{mod 3824}#)) - #{y 3822}#))))))) - (#{gen-clause 3708}# - (lambda (#{x 3848}# - #{keys 3849}# - #{clauses 3850}# - #{r 3851}# - #{pat 3852}# - #{fender 3853}# - #{exp 3854}# - #{mod 3855}#) - (call-with-values - (lambda () - (#{convert-pattern 3704}# - #{pat 3852}# - #{keys 3849}#)) - (lambda (#{p 3864}# #{pvars 3865}#) - (if (not (#{distinct-bound-ids? 419}# - (map car #{pvars 3865}#))) - (syntax-violation - 'syntax-case - "duplicate pattern variable" - #{pat 3852}#) - (if (not (and-map - (lambda (#{x 3872}#) - (not (let ((#{x 9164}# (car #{x 3872}#))) - (if (if (if (vector? #{x 9164}#) - (if (= (vector-length - #{x 9164}#) - 4) - (eq? (vector-ref - #{x 9164}# - 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{x 9164}# 1)) - #f) - (if (eq? (if (if (vector? #{x 9164}#) - (if (= (vector-length - #{x 9164}#) - 4) - (eq? (vector-ref - #{x 9164}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{x 9164}# 1) - #{x 9164}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene - guile))) - 4) - (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene - guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - 1) + (vector-ref #{x 20313}# 1) + #{x 20313}#) + (if (if (= (vector-length '#(syntax-object - ... + compile ((top) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i2229")) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) (top) (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" + "i1746" + "i1747")) #(ribcage (lambda-var-list gen-var @@ -19773,840 +1568,1489 @@ (top) (top) (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" "i398" - "i397" - "i395" + "i396" + "i393" "i392" "i391" - "i390" + "i389" "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" "i366" - "i365" - "i363" - "i361" - "i359" + "i364" + "i362" + "i360" + "i358" "i357" "i356" "i355" - "i354" + "i353" "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" "i336" "i335" - "i334" - "i332" + "i333" + "i331" "i330" - "i329" + "i327" "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" "i260" - "i259" - "i256" + "i257" + "i255" "i254" "i253" "i252" "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - (eq? (#{id-var-name 411}# - #{x 9164}# - '(())) - (#{id-var-name 411}# - '#(syntax-object - ... - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(()))) - #f) - #f)))) - #{pvars 3865}#)) - (syntax-violation - 'syntax-case - "misplaced ellipsis" - #{pat 3852}#) - (let ((#{y 3876}# - (gensym - (string-append (symbol->string 'tmp) " ")))) - (let ((#{fun-exp 9204}# - (let ((#{req 9209}# (list 'tmp)) - (#{vars 9211}# (list #{y 3876}#)) - (#{exp 9213}# - (let ((#{y 3880}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 3) - #f - 'tmp - #{y 3876}#))) - (let ((#{test-exp 9228}# - (let ((#{tmp 3884}# - ($sc-dispatch - #{fender 3853}# - '#(atom #t)))) - (if #{tmp 3884}# - (@apply - (lambda () #{y 3880}#) - #{tmp 3884}#) - (let ((#{then-exp 9235}# - (#{build-dispatch-call 3706}# - #{pvars 3865}# - #{fender 3853}# - #{y 3880}# - #{r 3851}# - #{mod 3855}#)) - (#{else-exp 9236}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #f))) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 10) - #f - #{y 3880}# - #{then-exp 9235}# - #{else-exp 9236}#))))) - (#{then-exp 9229}# - (#{build-dispatch-call 3706}# - #{pvars 3865}# - #{exp 3854}# - #{y 3880}# - #{r 3851}# - #{mod 3855}#)) - (#{else-exp 9230}# - (#{gen-syntax-case 3710}# - #{x 3848}# - #{keys 3849}# - #{clauses 3850}# - #{r 3851}# - #{mod 3855}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 10) - #f - #{test-exp 9228}# - #{then-exp 9229}# - #{else-exp 9230}#))))) - (let ((#{body 9261}# - (make-struct/no-tail - (vector-ref %expanded-vtables 14) - #f - #{req 9209}# - #f - #f - #f - '() - #{vars 9211}# - #{exp 9213}# - #f))) - (make-struct/no-tail - (vector-ref %expanded-vtables 13) - #f - '() - #{body 9261}#)))) - (#{arg-exps 9205}# - (list (if (eq? #{p 3864}# 'any) - (let ((#{fun-exp 9276}# - (if (equal? - (module-name - (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 7) - #f - 'list) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 5) - #f - '(guile) - 'list - #f))) - (#{arg-exps 9277}# - (list #{x 3848}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9276}# - #{arg-exps 9277}#)) - (let ((#{fun-exp 9299}# - (if (equal? - (module-name - (current-module)) - '(guile)) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 7) - #f - '$sc-dispatch) - (make-struct/no-tail - (vector-ref - %expanded-vtables - 5) - #f - '(guile) - '$sc-dispatch - #f))) - (#{arg-exps 9300}# - (list #{x 3848}# - (make-struct/no-tail - (vector-ref - %expanded-vtables - 1) - #f - #{p 3864}#)))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9299}# - #{arg-exps 9300}#)))))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9204}# - #{arg-exps 9205}#))))))))) - (#{gen-syntax-case 3710}# - (lambda (#{x 3894}# - #{keys 3895}# - #{clauses 3896}# - #{r 3897}# - #{mod 3898}#) - (if (null? #{clauses 3896}#) - (let ((#{fun-exp 9335}# - (if (equal? (module-name (current-module)) '(guile)) - (make-struct/no-tail - (vector-ref %expanded-vtables 7) - #f - 'syntax-violation) - (make-struct/no-tail - (vector-ref %expanded-vtables 5) - #f - '(guile) - 'syntax-violation - #f))) - (#{arg-exps 9336}# - (list (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - #f) - (make-struct/no-tail - (vector-ref %expanded-vtables 1) - #f - "source expression failed to match any pattern") - #{x 3894}#))) - (make-struct/no-tail - (vector-ref %expanded-vtables 11) - #f - #{fun-exp 9335}# - #{arg-exps 9336}#)) - (let ((#{tmp 3908}# (car #{clauses 3896}#))) - (let ((#{tmp 3909}# - ($sc-dispatch #{tmp 3908}# '(any any)))) - (if #{tmp 3909}# - (@apply - (lambda (#{pat 3912}# #{exp 3913}#) - (if (if (if (symbol? #{pat 3912}#) - #t - (if (if (vector? #{pat 3912}#) - (if (= (vector-length #{pat 3912}#) 4) - (eq? (vector-ref #{pat 3912}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{pat 3912}# 1)) - #f)) - (and-map - (lambda (#{x 3916}#) - (not (if (eq? (if (if (vector? #{pat 3912}#) - (if (= (vector-length - #{pat 3912}#) - 4) - (eq? (vector-ref - #{pat 3912}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{pat 3912}# 1) - #{pat 3912}#) - (if (if (vector? #{x 3916}#) - (if (= (vector-length - #{x 3916}#) - 4) - (eq? (vector-ref - #{x 3916}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{x 3916}# 1) - #{x 3916}#)) - (eq? (#{id-var-name 411}# - #{pat 3912}# - '(())) - (#{id-var-name 411}# - #{x 3916}# - '(()))) - #f))) - (cons '#(syntax-object - ... + ("i46" "i45" "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + compile + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) (top) (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + compile + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + compile + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# #{x 20313}# '(())) + (#{id-var-name 4332}# + '#(syntax-object + compile ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i1754")) #(ribcage () () ()) #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" "i3707" "i3705" "i3703")) + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) #(ribcage (lambda-var-list gen-var @@ -20880,5674 +3324,17450 @@ (top) (top) (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" "i398" - "i397" - "i395" + "i396" + "i393" "i392" "i391" - "i390" + "i389" "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" "i366" - "i365" - "i363" - "i361" - "i359" + "i364" + "i362" + "i360" + "i358" "i357" "i356" "i355" - "i354" + "i353" "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" "i336" "i335" - "i334" - "i332" + "i333" + "i331" "i330" - "i329" + "i327" "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" "i260" - "i259" - "i256" + "i257" + "i255" "i254" "i253" "i252" "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i45" "i44" "i43"))) + ("i46" "i45" "i44"))) (hygiene guile)) - #{keys 3895}#)) - #f) - (if (if (eq? (if (if (= (vector-length - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) + '(()))) + #f) + 'compile + (if (if (eq? (if (if (vector? #{x 20313}#) + (if (= (vector-length + #{x 20313}#) + 4) + (eq? (vector-ref + #{x 20313}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 20313}# 1) + #{x 20313}#) + (if (if (= (vector-length + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - 1) - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile))) - (if (if (= (vector-length - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile))) - 4) - (eq? (vector-ref - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x - keys - clauses - r - mod) - #((top) - (top) - (top) - (top) - (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) - (top) - (top) - (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) - 0) - 'syntax-object) - #f) - (vector-ref - '#(syntax-object - _ + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# #{x 20313}# '(())) + (#{id-var-name 4332}# + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + 'load + (if (if (eq? (if (if (vector? #{x 20313}#) + (if (= (vector-length + #{x 20313}#) + 4) + (eq? (vector-ref + #{x 20313}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 20313}# 1) + #{x 20313}#) + (if (if (= (vector-length + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - 1) - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + #{x 20313}# + '(())) + (#{id-var-name 4332}# + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)))) - (eq? (#{id-var-name 411}# - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(())) - (#{id-var-name 411}# - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3910" "i3911")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3899" - "i3900" - "i3901" - "i3902" - "i3903")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3709" - "i3707" - "i3705" - "i3703")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i45" "i44" "i43"))) - (hygiene guile)) - '(()))) - #f) - (#{chi 437}# - #{exp 3913}# - #{r 3897}# - '(()) - #{mod 3898}#) - (let ((#{labels 3921}# - (list (symbol->string (gensym "i")))) - (#{var 3922}# - (let ((#{id 9473}# - (if (if (vector? #{pat 3912}#) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + 'eval + (if (if (eq? (if (if (vector? #{x 20313}#) (if (= (vector-length - #{pat 3912}#) + #{x 20313}#) 4) (eq? (vector-ref - #{pat 3912}# + #{x 20313}# 0) 'syntax-object) #f) #f) - (vector-ref #{pat 3912}# 1) - #{pat 3912}#))) - (gensym - (string-append - (symbol->string #{id 9473}#) - " "))))) - (#{build-application 271}# + (vector-ref #{x 20313}# 1) + #{x 20313}#) + (if (if (= (vector-length + '#(syntax-object + expand + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + expand + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + expand + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f + when-list + situations) + #((top) (top) (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + expand + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" + "i1749" + "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" + "i1746" + "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + #{x 20313}# + '(())) + (#{id-var-name 4332}# + '#(syntax-object + expand + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i1754")) + #(ribcage () () ()) + #(ribcage + #(f when-list situations) + #((top) (top) (top)) + #("i1748" "i1749" "i1750")) + #(ribcage () () ()) + #(ribcage + #(e when-list w) + #((top) (top) (top)) + #("i1745" "i1746" "i1747")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + 'expand + (syntax-violation + 'eval-when + "invalid situation" + #{e 20305}# + (#{wrap 4338}# + #{x 20313}# + #{w 20307}# + #f))))))) + #{situations 20312}#)))))) + (#{f 20308}# #{when-list 20306}# '())))) + (#{syntax-type 4344}# + (lambda (#{e 20516}# + #{r 20517}# + #{w 20518}# + #{s 20519}# + #{rib 20520}# + #{mod 20521}# + #{for-car? 20522}#) + (if (symbol? #{e 20516}#) + (let ((#{n 20523}# + (#{id-var-name 4332}# #{e 20516}# #{w 20518}#))) + (let ((#{b 20524}# + (let ((#{t 21099}# (assq #{n 20523}# #{r 20517}#))) + (if #{t 21099}# + (cdr #{t 21099}#) + (if (symbol? #{n 20523}#) + (let ((#{t 21104}# + (begin + (if (if (not #{mod 20521}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{n 20523}#)) + (let ((#{v 21141}# + (module-variable + (if #{mod 20521}# + (resolve-module + (cdr #{mod 20521}#)) + (current-module)) + #{n 20523}#))) + (if #{v 21141}# + (if (variable-bound? #{v 21141}#) + (let ((#{val 21150}# + (variable-ref #{v 21141}#))) + (if (macro? #{val 21150}#) + (if (macro-type #{val 21150}#) + (cons (macro-type #{val 21150}#) + (macro-binding + #{val 21150}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 21104}# #{t 21104}# '(global))) + '(displaced-lexical)))))) + (let ((#{type 20525}# (car #{b 20524}#))) + (if (let ((#{t 20559}# #{type 20525}#)) + (eqv? #{t 20559}# 'lexical)) + (values + #{type 20525}# + (cdr #{b 20524}#) + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (let ((#{t 20716}# #{type 20525}#)) + (eqv? #{t 20716}# 'global)) + (values + #{type 20525}# + #{n 20523}# + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (let ((#{t 20842}# #{type 20525}#)) + (eqv? #{t 20842}# 'macro)) + (if #{for-car? 20522}# + (values + #{type 20525}# + (cdr #{b 20524}#) + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (#{syntax-type 4344}# + (#{chi-macro 4348}# + (cdr #{b 20524}#) + #{e 20516}# + #{r 20517}# + #{w 20518}# + #{s 20519}# + #{rib 20520}# + #{mod 20521}#) + #{r 20517}# + '(()) + #{s 20519}# + #{rib 20520}# + #{mod 20521}# + #f)) + (values + #{type 20525}# + (cdr #{b 20524}#) + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#))))))) + (if (pair? #{e 20516}#) + (let ((#{first 21161}# (car #{e 20516}#))) + (call-with-values + (lambda () + (#{syntax-type 4344}# + #{first 21161}# + #{r 20517}# + #{w 20518}# + #{s 20519}# + #{rib 20520}# + #{mod 20521}# + #t)) + (lambda (#{ftype 21163}# + #{fval 21164}# + #{fe 21165}# + #{fw 21166}# + #{fs 21167}# + #{fmod 21168}#) + (if (eqv? #{ftype 21163}# 'lexical) + (values + 'lexical-call + #{fval 21164}# + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'global) + (values + 'global-call + (vector + 'syntax-object + #{fval 21164}# + #{w 20518}# + #{fmod 21168}#) + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'macro) + (#{syntax-type 4344}# + (#{chi-macro 4348}# + #{fval 21164}# + #{e 20516}# + #{r 20517}# + #{w 20518}# + #{s 20519}# + #{rib 20520}# + #{mod 20521}#) + #{r 20517}# + '(()) + #{s 20519}# + #{rib 20520}# + #{mod 20521}# + #{for-car? 20522}#) + (if (eqv? #{ftype 21163}# 'module-ref) + (call-with-values + (lambda () + (#{fval 21164}# + #{e 20516}# + #{r 20517}# + #{w 20518}#)) + (lambda (#{e 21189}# + #{r 21190}# + #{w 21191}# + #{s 21192}# + #{mod 21193}#) + (#{syntax-type 4344}# + #{e 21189}# + #{r 21190}# + #{w 21191}# + #{s 21192}# + #{rib 20520}# + #{mod 21193}# + #{for-car? 20522}#))) + (if (eqv? #{ftype 21163}# 'core) + (values + 'core-form + #{fval 21164}# + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'local-syntax) + (values + 'local-syntax-form + #{fval 21164}# + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'begin) + (values + 'begin-form #f - (#{build-simple-lambda 289}# + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'eval-when) + (values + 'eval-when-form #f - (list (syntax->datum #{pat 3912}#)) + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (if (eqv? #{ftype 21163}# 'define) + (let ((#{tmp 21210}# + ($sc-dispatch + #{e 20516}# + '(_ any any)))) + (if (if #{tmp 21210}# + (@apply + (lambda (#{name 21214}# + #{val 21215}#) + (if (symbol? #{name 21214}#) + #t + (if (if (vector? + #{name 21214}#) + (if (= (vector-length + #{name 21214}#) + 4) + (eq? (vector-ref + #{name 21214}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 21214}# + 1)) + #f))) + #{tmp 21210}#) + #f) + (@apply + (lambda (#{name 21242}# #{val 21243}#) + (values + 'define-form + #{name 21242}# + #{val 21243}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#)) + #{tmp 21210}#) + (let ((#{tmp 21244}# + ($sc-dispatch + #{e 20516}# + '(_ (any . any) + any + . + each-any)))) + (if (if #{tmp 21244}# + (@apply + (lambda (#{name 21248}# + #{args 21249}# + #{e1 21250}# + #{e2 21251}#) + (if (if (symbol? + #{name 21248}#) + #t + (if (if (vector? + #{name 21248}#) + (if (= (vector-length + #{name 21248}#) + 4) + (eq? (vector-ref + #{name 21248}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 21248}# + 1)) + #f)) + (#{valid-bound-ids? 4335}# + (letrec* + ((#{lvl 21400}# + (lambda (#{vars 21402}# + #{ls 21403}# + #{w 21404}#) + (if (pair? #{vars 21402}#) + (#{lvl 21400}# + (cdr #{vars 21402}#) + (cons (#{wrap 4338}# + (car #{vars 21402}#) + #{w 21404}# + #f) + #{ls 21403}#) + #{w 21404}#) + (if (if (symbol? + #{vars 21402}#) + #t + (if (if (vector? + #{vars 21402}#) + (if (= (vector-length + #{vars 21402}#) + 4) + (eq? (vector-ref + #{vars 21402}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{vars 21402}# + 1)) + #f)) + (cons (#{wrap 4338}# + #{vars 21402}# + #{w 21404}# + #f) + #{ls 21403}#) + (if (null? #{vars 21402}#) + #{ls 21403}# + (if (if (vector? + #{vars 21402}#) + (if (= (vector-length + #{vars 21402}#) + 4) + (eq? (vector-ref + #{vars 21402}# + 0) + 'syntax-object) + #f) + #f) + (#{lvl 21400}# + (vector-ref + #{vars 21402}# + 1) + #{ls 21403}# + (#{join-wraps 4329}# + #{w 21404}# + (vector-ref + #{vars 21402}# + 2))) + (cons #{vars 21402}# + #{ls 21403}#)))))))) + (#{lvl 21400}# + #{args 21249}# + '() + '(())))) + #f)) + #{tmp 21244}#) + #f) + (@apply + (lambda (#{name 21448}# + #{args 21449}# + #{e1 21450}# + #{e2 21451}#) + (values + 'define-form + (#{wrap 4338}# + #{name 21448}# + #{w 20518}# + #{mod 20521}#) + (let ((#{e 21457}# + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(name + args + e1 + e2) + #((top) + (top) + (top) + (top)) + #("i1855" + "i1856" + "i1857" + "i1858")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1808" + "i1809" + "i1810" + "i1811" + "i1812" + "i1813")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1800")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777" + "i1778")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene + guile)) + (#{wrap 4338}# + (cons #{args 21449}# + (cons #{e1 21450}# + #{e2 21451}#)) + #{w 20518}# + #{mod 20521}#)))) + (begin + (if (if (pair? #{e 21457}#) + #{s 20519}# + #f) + (set-source-properties! + #{e 21457}# + #{s 20519}#)) + #{e 21457}#)) + '(()) + #{s 20519}# + #{mod 20521}#)) + #{tmp 21244}#) + (let ((#{tmp 21464}# + ($sc-dispatch + #{e 20516}# + '(_ any)))) + (if (if #{tmp 21464}# + (@apply + (lambda (#{name 21468}#) + (if (symbol? + #{name 21468}#) + #t + (if (if (vector? + #{name 21468}#) + (if (= (vector-length + #{name 21468}#) + 4) + (eq? (vector-ref + #{name 21468}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 21468}# + 1)) + #f))) + #{tmp 21464}#) + #f) + (@apply + (lambda (#{name 21495}#) + (values + 'define-form + (#{wrap 4338}# + #{name 21495}# + #{w 20518}# + #{mod 20521}#) + '(#(syntax-object + if + ((top) + #(ribcage + #(name) + #((top)) + #("i1868")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1808" + "i1809" + "i1810" + "i1811" + "i1812" + "i1813")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1800")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777" + "i1778")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1868")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1808" + "i1809" + "i1810" + "i1811" + "i1812" + "i1813")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1800")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777" + "i1778")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1868")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1808" + "i1809" + "i1810" + "i1811" + "i1812" + "i1813")) + #(ribcage () () ()) + #(ribcage + #(first) + #((top)) + #("i1800")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1772" + "i1773" + "i1774" + "i1775" + "i1776" + "i1777" + "i1778")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + '(()) + #{s 20519}# + #{mod 20521}#)) + #{tmp 21464}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 20516}#))))))) + (if (eqv? #{ftype 21163}# 'define-syntax) + (let ((#{tmp 21514}# + ($sc-dispatch + #{e 20516}# + '(_ any any)))) + (if (if #{tmp 21514}# + (@apply + (lambda (#{name 21518}# + #{val 21519}#) + (if (symbol? #{name 21518}#) + #t + (if (if (vector? + #{name 21518}#) + (if (= (vector-length + #{name 21518}#) + 4) + (eq? (vector-ref + #{name 21518}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{name 21518}# + 1)) + #f))) + #{tmp 21514}#) + #f) + (@apply + (lambda (#{name 21546}# + #{val 21547}#) + (values + 'define-syntax-form + #{name 21546}# + #{val 21547}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#)) + #{tmp 21514}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 20516}#))) + (values + 'call + #f + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#)))))))))))))) + (if (if (vector? #{e 20516}#) + (if (= (vector-length #{e 20516}#) 4) + (eq? (vector-ref #{e 20516}# 0) 'syntax-object) + #f) + #f) + (#{syntax-type 4344}# + (vector-ref #{e 20516}# 1) + #{r 20517}# + (#{join-wraps 4329}# + #{w 20518}# + (vector-ref #{e 20516}# 2)) + (let ((#{t 21574}# + (#{source-annotation 4306}# #{e 20516}#))) + (if #{t 21574}# #{t 21574}# #{s 20519}#)) + #{rib 20520}# + (let ((#{t 21834}# (vector-ref #{e 20516}# 3))) + (if #{t 21834}# #{t 21834}# #{mod 20521}#)) + #{for-car? 20522}#) + (if (self-evaluating? #{e 20516}#) + (values + 'constant + #f + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#) + (values + 'other + #f + #{e 20516}# + #{w 20518}# + #{s 20519}# + #{mod 20521}#))))))) + (#{chi 4345}# + (lambda (#{e 21843}# + #{r 21844}# + #{w 21845}# + #{mod 21846}#) + (call-with-values + (lambda () + (#{syntax-type 4344}# + #{e 21843}# + #{r 21844}# + #{w 21845}# + (#{source-annotation 4306}# #{e 21843}#) + #f + #{mod 21846}# + #f)) + (lambda (#{type 22020}# + #{value 22021}# + #{e 22022}# + #{w 22023}# + #{s 22024}# + #{mod 22025}#) + (#{chi-expr 4346}# + #{type 22020}# + #{value 22021}# + #{e 22022}# + #{r 21844}# + #{w 22023}# + #{s 22024}# + #{mod 22025}#))))) + (#{chi-expr 4346}# + (lambda (#{type 22028}# + #{value 22029}# + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (if (eqv? #{type 22028}# 'lexical) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #{s 22033}# + #{e 22030}# + #{value 22029}#) + (if (if (eqv? #{type 22028}# 'core) + #t + (eqv? #{type 22028}# 'core-form)) + (#{value 22029}# + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (if (eqv? #{type 22028}# 'module-ref) + (call-with-values + (lambda () + (#{value 22029}# + #{e 22030}# + #{r 22031}# + #{w 22032}#)) + (lambda (#{e 22060}# + #{r 22061}# + #{w 22062}# + #{s 22063}# + #{mod 22064}#) + (#{chi 4345}# + #{e 22060}# + #{r 22061}# + #{w 22062}# + #{mod 22064}#))) + (if (eqv? #{type 22028}# 'lexical-call) + (#{chi-application 4347}# + (let ((#{id 22144}# (car #{e 22030}#))) + (#{build-lexical-reference 4283}# + 'fun + (#{source-annotation 4306}# #{id 22144}#) + (if (if (vector? #{id 22144}#) + (if (= (vector-length #{id 22144}#) 4) + (eq? (vector-ref #{id 22144}# 0) 'syntax-object) + #f) + #f) + (syntax->datum #{id 22144}#) + #{id 22144}#) + #{value 22029}#)) + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (if (eqv? #{type 22028}# 'global-call) + (#{chi-application 4347}# + (#{build-global-reference 4286}# + (#{source-annotation 4306}# (car #{e 22030}#)) + (if (if (vector? #{value 22029}#) + (if (= (vector-length #{value 22029}#) 4) + (eq? (vector-ref #{value 22029}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{value 22029}# 1) + #{value 22029}#) + (if (if (vector? #{value 22029}#) + (if (= (vector-length #{value 22029}#) 4) + (eq? (vector-ref #{value 22029}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{value 22029}# 3) + #{mod 22034}#)) + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (if (eqv? #{type 22028}# 'constant) + (let ((#{exp 22680}# + (#{strip 4358}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 22030}#) #{s 22033}# #f) + (set-source-properties! + #{e 22030}# + #{s 22033}#)) + #{e 22030}#) + #{w 22032}# + #{mod 22034}#) + '(())))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 22033}# + #{exp 22680}#)) + (if (eqv? #{type 22028}# 'global) + (#{analyze-variable 4285}# + #{mod 22034}# + #{value 22029}# + (lambda (#{mod 22716}# #{var 22717}# #{public? 22718}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #{s 22033}# + #{mod 22716}# + #{var 22717}# + #{public? 22718}#)) + (lambda (#{var 22727}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #{s 22033}# + #{var 22727}#))) + (if (eqv? #{type 22028}# 'call) + (#{chi-application 4347}# + (#{chi 4345}# + (car #{e 22030}#) + #{r 22031}# + #{w 22032}# + #{mod 22034}#) + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (if (eqv? #{type 22028}# 'begin-form) + (let ((#{tmp 22807}# + ($sc-dispatch + #{e 22030}# + '(_ any . each-any)))) + (if #{tmp 22807}# + (@apply + (lambda (#{e1 22811}# #{e2 22812}#) + (#{chi-sequence 4340}# + (cons #{e1 22811}# #{e2 22812}#) + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#)) + #{tmp 22807}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 22030}#))) + (if (eqv? #{type 22028}# 'local-syntax-form) + (#{chi-local-syntax 4350}# + #{value 22029}# + #{e 22030}# + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}# + #{chi-sequence 4340}#) + (if (eqv? #{type 22028}# 'eval-when-form) + (let ((#{tmp 22978}# + ($sc-dispatch + #{e 22030}# + '(_ each-any any . each-any)))) + (if #{tmp 22978}# + (@apply + (lambda (#{x 22982}# + #{e1 22983}# + #{e2 22984}#) + (let ((#{when-list 22985}# + (#{chi-when-list 4343}# + #{e 22030}# + #{x 22982}# + #{w 22032}#))) + (if (memq 'eval #{when-list 22985}#) + (#{chi-sequence 4340}# + (cons #{e1 22983}# #{e2 22984}#) + #{r 22031}# + #{w 22032}# + #{s 22033}# + #{mod 22034}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f)))) + #{tmp 22978}#) + (syntax-violation #f - (list #{var 3922}#) - '() - (#{chi 437}# - #{exp 3913}# - (#{extend-env 337}# - #{labels 3921}# - (list (cons 'syntax - (cons #{var 3922}# 0))) - #{r 3897}#) - (#{make-binding-wrap 401}# - (list #{pat 3912}#) - #{labels 3921}# - '(())) - #{mod 3898}#)) - (list #{x 3894}#)))) - (#{gen-clause 3708}# - #{x 3894}# - #{keys 3895}# - (cdr #{clauses 3896}#) - #{r 3897}# - #{pat 3912}# - #t - #{exp 3913}# - #{mod 3898}#))) - #{tmp 3909}#) - (let ((#{tmp 3928}# - ($sc-dispatch #{tmp 3908}# '(any any any)))) - (if #{tmp 3928}# - (@apply - (lambda (#{pat 3932}# #{fender 3933}# #{exp 3934}#) - (#{gen-clause 3708}# - #{x 3894}# - #{keys 3895}# - (cdr #{clauses 3896}#) - #{r 3897}# - #{pat 3932}# - #{fender 3933}# - #{exp 3934}# - #{mod 3898}#)) - #{tmp 3928}#) - (syntax-violation - 'syntax-case - "invalid clause" - (car #{clauses 3896}#))))))))))) - (lambda (#{e 3937}# - #{r 3938}# - #{w 3939}# - #{s 3940}# - #{mod 3941}#) - (let ((#{e 3948}# - (#{wrap 423}# - (begin - (if (if (pair? #{e 3937}#) #{s 3940}# #f) - (set-source-properties! #{e 3937}# #{s 3940}#)) - #{e 3937}#) - #{w 3939}# - #{mod 3941}#))) - (let ((#{tmp 3950}# - ($sc-dispatch - #{e 3948}# - '(_ any each-any . each-any)))) - (if #{tmp 3950}# - (@apply - (lambda (#{val 3954}# #{key 3955}# #{m 3956}#) - (if (and-map - (lambda (#{x 3957}#) - (if (if (symbol? #{x 3957}#) + "source expression failed to match any pattern" + #{e 22030}#))) + (if (if (eqv? #{type 22028}# 'define-form) + #t + (eqv? #{type 22028}# 'define-syntax-form)) + (syntax-violation + #f + "definition in expression context" + #{e 22030}# + (#{wrap 4338}# + #{value 22029}# + #{w 22032}# + #{mod 22034}#)) + (if (eqv? #{type 22028}# 'syntax) + (syntax-violation + #f + "reference to pattern variable outside syntax form" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 22030}#) + #{s 22033}# + #f) + (set-source-properties! + #{e 22030}# + #{s 22033}#)) + #{e 22030}#) + #{w 22032}# + #{mod 22034}#)) + (if (eqv? #{type 22028}# 'displaced-lexical) + (syntax-violation + #f + "reference to identifier outside its scope" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 22030}#) + #{s 22033}# + #f) + (set-source-properties! + #{e 22030}# + #{s 22033}#)) + #{e 22030}#) + #{w 22032}# + #{mod 22034}#)) + (syntax-violation + #f + "unexpected syntax" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 22030}#) + #{s 22033}# + #f) + (set-source-properties! + #{e 22030}# + #{s 22033}#)) + #{e 22030}#) + #{w 22032}# + #{mod 22034}#)))))))))))))))))) + (#{chi-application 4347}# + (lambda (#{x 23174}# + #{e 23175}# + #{r 23176}# + #{w 23177}# + #{s 23178}# + #{mod 23179}#) + (let ((#{tmp 23181}# + ($sc-dispatch #{e 23175}# '(any . each-any)))) + (if #{tmp 23181}# + (@apply + (lambda (#{e0 23185}# #{e1 23186}#) + (#{build-application 4280}# + #{s 23178}# + #{x 23174}# + (map (lambda (#{e 23271}#) + (#{chi 4345}# + #{e 23271}# + #{r 23176}# + #{w 23177}# + #{mod 23179}#)) + #{e1 23186}#))) + #{tmp 23181}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 23175}#))))) + (#{chi-macro 4348}# + (lambda (#{p 23352}# + #{e 23353}# + #{r 23354}# + #{w 23355}# + #{s 23356}# + #{rib 23357}# + #{mod 23358}#) + (letrec* + ((#{rebuild-macro-output 23359}# + (lambda (#{x 23390}# #{m 23391}#) + (if (pair? #{x 23390}#) + (let ((#{e 23395}# + (cons (#{rebuild-macro-output 23359}# + (car #{x 23390}#) + #{m 23391}#) + (#{rebuild-macro-output 23359}# + (cdr #{x 23390}#) + #{m 23391}#)))) + (begin + (if (if (pair? #{e 23395}#) #{s 23356}# #f) + (set-source-properties! #{e 23395}# #{s 23356}#)) + #{e 23395}#)) + (if (if (vector? #{x 23390}#) + (if (= (vector-length #{x 23390}#) 4) + (eq? (vector-ref #{x 23390}# 0) 'syntax-object) + #f) + #f) + (let ((#{w 23411}# (vector-ref #{x 23390}# 2))) + (let ((#{ms 23412}# (car #{w 23411}#)) + (#{s 23413}# (cdr #{w 23411}#))) + (if (if (pair? #{ms 23412}#) + (eq? (car #{ms 23412}#) #f) + #f) + (let ((#{expression 23421}# (vector-ref #{x 23390}# 1)) + (#{wrap 23422}# + (cons (cdr #{ms 23412}#) + (if #{rib 23357}# + (cons #{rib 23357}# (cdr #{s 23413}#)) + (cdr #{s 23413}#)))) + (#{module 23423}# (vector-ref #{x 23390}# 3))) + (vector + 'syntax-object + #{expression 23421}# + #{wrap 23422}# + #{module 23423}#)) + (let ((#{expression 23433}# + (let ((#{e 23438}# (vector-ref #{x 23390}# 1))) + (begin + (if (if (pair? #{e 23438}#) #{s 23413}# #f) + (set-source-properties! + #{e 23438}# + #{s 23413}#)) + #{e 23438}#))) + (#{wrap 23434}# + (cons (cons #{m 23391}# #{ms 23412}#) + (if #{rib 23357}# + (cons #{rib 23357}# + (cons 'shift #{s 23413}#)) + (cons 'shift #{s 23413}#)))) + (#{module 23435}# (vector-ref #{x 23390}# 3))) + (vector + 'syntax-object + #{expression 23433}# + #{wrap 23434}# + #{module 23435}#))))) + (if (vector? #{x 23390}#) + (let ((#{n 23450}# (vector-length #{x 23390}#))) + (let ((#{v 23451}# + (let ((#{e 23459}# (make-vector #{n 23450}#))) + (begin + (if (if (pair? #{e 23459}#) #{x 23390}# #f) + (set-source-properties! + #{e 23459}# + #{x 23390}#)) + #{e 23459}#)))) + (letrec* + ((#{loop 23452}# + (lambda (#{i 23504}#) + (if (= #{i 23504}# #{n 23450}#) + #{v 23451}# + (begin + (vector-set! + #{v 23451}# + #{i 23504}# + (#{rebuild-macro-output 23359}# + (vector-ref #{x 23390}# #{i 23504}#) + #{m 23391}#)) + (#{loop 23452}# (#{1+}# #{i 23504}#))))))) + (#{loop 23452}# 0)))) + (if (symbol? #{x 23390}#) + (syntax-violation + #f + "encountered raw symbol in macro output" + (let ((#{s 23510}# (cdr #{w 23355}#))) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 23353}#) #{s 23510}# #f) + (set-source-properties! + #{e 23353}# + #{s 23510}#)) + #{e 23353}#) + #{w 23355}# + #{mod 23358}#)) + #{x 23390}#) + (begin + (if (if (pair? #{x 23390}#) #{s 23356}# #f) + (set-source-properties! #{x 23390}# #{s 23356}#)) + #{x 23390}#)))))))) + (#{rebuild-macro-output 23359}# + (#{p 23352}# + (let ((#{w 23366}# + (cons (cons #f (car #{w 23355}#)) + (cons 'shift (cdr #{w 23355}#))))) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 23353}#) #{s 23356}# #f) + (set-source-properties! #{e 23353}# #{s 23356}#)) + #{e 23353}#) + #{w 23366}# + #{mod 23358}#))) + (gensym "m"))))) + (#{chi-body 4349}# + (lambda (#{body 23542}# + #{outer-form 23543}# + #{r 23544}# + #{w 23545}# + #{mod 23546}#) + (let ((#{r 23547}# + (cons '("placeholder" placeholder) #{r 23544}#))) + (let ((#{ribcage 23548}# (vector 'ribcage '() '() '()))) + (let ((#{w 23549}# + (cons (car #{w 23545}#) + (cons #{ribcage 23548}# (cdr #{w 23545}#))))) + (letrec* + ((#{parse 23550}# + (lambda (#{body 23563}# + #{ids 23564}# + #{labels 23565}# + #{var-ids 23566}# + #{vars 23567}# + #{vals 23568}# + #{bindings 23569}#) + (if (null? #{body 23563}#) + (syntax-violation + #f + "no expressions in body" + #{outer-form 23543}#) + (let ((#{e 23570}# (cdr (car #{body 23563}#))) + (#{er 23571}# (car (car #{body 23563}#)))) + (call-with-values + (lambda () + (#{syntax-type 4344}# + #{e 23570}# + #{er 23571}# + '(()) + (#{source-annotation 4306}# #{er 23571}#) + #{ribcage 23548}# + #{mod 23546}# + #f)) + (lambda (#{type 23747}# + #{value 23748}# + #{e 23749}# + #{w 23750}# + #{s 23751}# + #{mod 23752}#) + (if (eqv? #{type 23747}# 'define-form) + (let ((#{id 23756}# + (#{wrap 4338}# + #{value 23748}# + #{w 23750}# + #{mod 23752}#)) + (#{label 23757}# + (symbol->string (gensym "i")))) + (let ((#{var 23758}# + (let ((#{id 23818}# + (if (if (vector? #{id 23756}#) + (if (= (vector-length + #{id 23756}#) + 4) + (eq? (vector-ref + #{id 23756}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 23756}# 1) + #{id 23756}#))) + (gensym + (string-append + (symbol->string #{id 23818}#) + " "))))) + (begin + (let ((#{update 23808}# + (cons (vector-ref #{id 23756}# 1) + (vector-ref + #{ribcage 23548}# + 1)))) + (vector-set! + #{ribcage 23548}# + 1 + #{update 23808}#)) + (let ((#{update 23810}# + (cons (car (vector-ref + #{id 23756}# + 2)) + (vector-ref + #{ribcage 23548}# + 2)))) + (vector-set! + #{ribcage 23548}# + 2 + #{update 23810}#)) + (let ((#{update 23812}# + (cons #{label 23757}# + (vector-ref + #{ribcage 23548}# + 3)))) + (vector-set! + #{ribcage 23548}# + 3 + #{update 23812}#)) + (#{parse 23550}# + (cdr #{body 23563}#) + (cons #{id 23756}# #{ids 23564}#) + (cons #{label 23757}# #{labels 23565}#) + (cons #{id 23756}# #{var-ids 23566}#) + (cons #{var 23758}# #{vars 23567}#) + (cons (cons #{er 23571}# + (#{wrap 4338}# + #{e 23749}# + #{w 23750}# + #{mod 23752}#)) + #{vals 23568}#) + (cons (cons 'lexical #{var 23758}#) + #{bindings 23569}#))))) + (if (eqv? #{type 23747}# 'define-syntax-form) + (let ((#{id 23846}# + (#{wrap 4338}# + #{value 23748}# + #{w 23750}# + #{mod 23752}#)) + (#{label 23847}# + (symbol->string (gensym "i")))) + (begin + (let ((#{update 23897}# + (cons (vector-ref #{id 23846}# 1) + (vector-ref + #{ribcage 23548}# + 1)))) + (vector-set! + #{ribcage 23548}# + 1 + #{update 23897}#)) + (let ((#{update 23899}# + (cons (car (vector-ref + #{id 23846}# + 2)) + (vector-ref + #{ribcage 23548}# + 2)))) + (vector-set! + #{ribcage 23548}# + 2 + #{update 23899}#)) + (let ((#{update 23901}# + (cons #{label 23847}# + (vector-ref + #{ribcage 23548}# + 3)))) + (vector-set! + #{ribcage 23548}# + 3 + #{update 23901}#)) + (#{parse 23550}# + (cdr #{body 23563}#) + (cons #{id 23846}# #{ids 23564}#) + (cons #{label 23847}# #{labels 23565}#) + #{var-ids 23566}# + #{vars 23567}# + #{vals 23568}# + (cons (cons 'macro + (cons #{er 23571}# + (#{wrap 4338}# + #{e 23749}# + #{w 23750}# + #{mod 23752}#))) + #{bindings 23569}#)))) + (if (eqv? #{type 23747}# 'begin-form) + (let ((#{tmp 23909}# + ($sc-dispatch + #{e 23749}# + '(_ . each-any)))) + (if #{tmp 23909}# + (@apply + (lambda (#{e1 23913}#) + (#{parse 23550}# + (letrec* + ((#{f 23914}# + (lambda (#{forms 23977}#) + (if (null? #{forms 23977}#) + (cdr #{body 23563}#) + (cons (cons #{er 23571}# + (#{wrap 4338}# + (car #{forms 23977}#) + #{w 23750}# + #{mod 23752}#)) + (#{f 23914}# + (cdr #{forms 23977}#))))))) + (#{f 23914}# #{e1 23913}#)) + #{ids 23564}# + #{labels 23565}# + #{var-ids 23566}# + #{vars 23567}# + #{vals 23568}# + #{bindings 23569}#)) + #{tmp 23909}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 23749}#))) + (if (eqv? #{type 23747}# 'local-syntax-form) + (#{chi-local-syntax 4350}# + #{value 23748}# + #{e 23749}# + #{er 23571}# + #{w 23750}# + #{s 23751}# + #{mod 23752}# + (lambda (#{forms 23991}# + #{er 23992}# + #{w 23993}# + #{s 23994}# + #{mod 23995}#) + (#{parse 23550}# + (letrec* + ((#{f 23996}# + (lambda (#{forms 24059}#) + (if (null? #{forms 24059}#) + (cdr #{body 23563}#) + (cons (cons #{er 23992}# + (#{wrap 4338}# + (car #{forms 24059}#) + #{w 23993}# + #{mod 23995}#)) + (#{f 23996}# + (cdr #{forms 24059}#))))))) + (#{f 23996}# #{forms 23991}#)) + #{ids 23564}# + #{labels 23565}# + #{var-ids 23566}# + #{vars 23567}# + #{vals 23568}# + #{bindings 23569}#))) + (if (null? #{ids 23564}#) + (#{build-sequence 4294}# + #f + (map (lambda (#{x 24129}#) + (#{chi 4345}# + (cdr #{x 24129}#) + (car #{x 24129}#) + '(()) + #{mod 23752}#)) + (cons (cons #{er 23571}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 23749}#) + #{s 23751}# + #f) + (set-source-properties! + #{e 23749}# + #{s 23751}#)) + #{e 23749}#) + #{w 23750}# + #{mod 23752}#)) + (cdr #{body 23563}#)))) + (begin + (if (not (#{valid-bound-ids? 4335}# + #{ids 23564}#)) + (syntax-violation + #f + "invalid or duplicate identifier in definition" + #{outer-form 23543}#)) + (letrec* + ((#{loop 24291}# + (lambda (#{bs 24294}# + #{er-cache 24295}# + #{r-cache 24296}#) + (if (not (null? #{bs 24294}#)) + (let ((#{b 24297}# + (car #{bs 24294}#))) + (if (eq? (car #{b 24297}#) + 'macro) + (let ((#{er 24299}# + (car (cdr #{b 24297}#)))) + (let ((#{r-cache 24300}# + (if (eq? #{er 24299}# + #{er-cache 24295}#) + #{r-cache 24296}# + (#{macros-only-env 4309}# + #{er 24299}#)))) + (begin + (set-cdr! + #{b 24297}# + (#{eval-local-transformer 4351}# + (#{chi 4345}# + (cdr (cdr #{b 24297}#)) + #{r-cache 24300}# + '(()) + #{mod 23752}#) + #{mod 23752}#)) + (#{loop 24291}# + (cdr #{bs 24294}#) + #{er 24299}# + #{r-cache 24300}#)))) + (#{loop 24291}# + (cdr #{bs 24294}#) + #{er-cache 24295}# + #{r-cache 24296}#))))))) + (#{loop 24291}# + #{bindings 23569}# + #f + #f)) + (set-cdr! + #{r 23547}# + (#{extend-env 4307}# + #{labels 23565}# + #{bindings 23569}# + (cdr #{r 23547}#))) + (#{build-letrec 4297}# + #f + #t + (reverse + (map syntax->datum + #{var-ids 23566}#)) + (reverse #{vars 23567}#) + (map (lambda (#{x 24653}#) + (#{chi 4345}# + (cdr #{x 24653}#) + (car #{x 24653}#) + '(()) + #{mod 23752}#)) + (reverse #{vals 23568}#)) + (#{build-sequence 4294}# + #f + (map (lambda (#{x 24783}#) + (#{chi 4345}# + (cdr #{x 24783}#) + (car #{x 24783}#) + '(()) + #{mod 23752}#)) + (cons (cons #{er 23571}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 23749}#) + #{s 23751}# + #f) + (set-source-properties! + #{e 23749}# + #{s 23751}#)) + #{e 23749}#) + #{w 23750}# + #{mod 23752}#)) + (cdr #{body 23563}#)))))))))))))))))) + (#{parse 23550}# + (map (lambda (#{x 23553}#) + (cons #{r 23547}# + (#{wrap 4338}# + #{x 23553}# + #{w 23549}# + #{mod 23546}#))) + #{body 23542}#) + '() + '() + '() + '() + '() + '()))))))) + (#{chi-local-syntax 4350}# + (lambda (#{rec? 24868}# + #{e 24869}# + #{r 24870}# + #{w 24871}# + #{s 24872}# + #{mod 24873}# + #{k 24874}#) + (let ((#{tmp 24876}# + ($sc-dispatch + #{e 24869}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 24876}# + (@apply + (lambda (#{id 24880}# + #{val 24881}# + #{e1 24882}# + #{e2 24883}#) + (if (not (#{valid-bound-ids? 4335}# #{id 24880}#)) + (syntax-violation + #f + "duplicate bound keyword" + #{e 24869}#) + (let ((#{labels 24973}# + (#{gen-labels 4316}# #{id 24880}#))) + (let ((#{new-w 24974}# + (#{make-binding-wrap 4327}# + #{id 24880}# + #{labels 24973}# + #{w 24871}#))) + (#{k 24874}# + (cons #{e1 24882}# #{e2 24883}#) + (#{extend-env 4307}# + #{labels 24973}# + (let ((#{trans-r 25012}# + (#{macros-only-env 4309}# #{r 24870}#))) + (begin + (if #{rec? 24868}# (if #f #f)) + (map (lambda (#{x 25013}#) + (cons 'macro + (#{eval-local-transformer 4351}# + (#{chi 4345}# + #{x 25013}# + #{trans-r 25012}# + (if #{rec? 24868}# + #{new-w 24974}# + #{w 24871}#) + #{mod 24873}#) + #{mod 24873}#))) + #{val 24881}#))) + #{r 24870}#) + #{new-w 24974}# + #{s 24872}# + #{mod 24873}#))))) + #{tmp 24876}#) + (syntax-violation + #f + "bad local syntax definition" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 24869}#) #{s 24872}# #f) + (set-source-properties! #{e 24869}# #{s 24872}#)) + #{e 24869}#) + #{w 24871}# + #{mod 24873}#)))))) + (#{eval-local-transformer 4351}# + (lambda (#{expanded 25314}# #{mod 25315}#) + (let ((#{p 25316}# (primitive-eval #{expanded 25314}#))) + (if (procedure? #{p 25316}#) + #{p 25316}# + (syntax-violation + #f + "nonprocedure transformer" + #{p 25316}#))))) + (#{ellipsis? 4353}# + (lambda (#{x 5159}#) + (if (if (if (vector? #{x 5159}#) + (if (= (vector-length #{x 5159}#) 4) + (eq? (vector-ref #{x 5159}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 5159}# 1)) + #f) + (if (eq? (if (if (vector? #{x 5159}#) + (if (= (vector-length #{x 5159}#) 4) + (eq? (vector-ref #{x 5159}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{x 5159}# 1) + #{x 5159}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# #{x 5159}# '(())) + (#{id-var-name 4332}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + #f))) + (#{lambda-formals 4354}# + (lambda (#{orig-args 25321}#) + (letrec* + ((#{req 25322}# + (lambda (#{args 25326}# #{rreq 25327}#) + (let ((#{tmp 25329}# ($sc-dispatch #{args 25326}# '()))) + (if #{tmp 25329}# + (@apply + (lambda () + (#{check 25323}# (reverse #{rreq 25327}#) #f)) + #{tmp 25329}#) + (let ((#{tmp 25456}# + ($sc-dispatch #{args 25326}# '(any . any)))) + (if (if #{tmp 25456}# + (@apply + (lambda (#{a 25460}# #{b 25461}#) + (if (symbol? #{a 25460}#) + #t + (if (if (vector? #{a 25460}#) + (if (= (vector-length #{a 25460}#) 4) + (eq? (vector-ref #{a 25460}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 25460}# 1)) + #f))) + #{tmp 25456}#) + #f) + (@apply + (lambda (#{a 25488}# #{b 25489}#) + (#{req 25322}# + #{b 25489}# + (cons #{a 25488}# #{rreq 25327}#))) + #{tmp 25456}#) + (let ((#{tmp 25490}# (list #{args 25326}#))) + (if (@apply + (lambda (#{r 25492}#) + (if (symbol? #{r 25492}#) #t - (if (if (vector? #{x 3957}#) - (if (= (vector-length #{x 3957}#) 4) - (eq? (vector-ref #{x 3957}# 0) + (if (if (vector? #{r 25492}#) + (if (= (vector-length #{r 25492}#) 4) + (eq? (vector-ref #{r 25492}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 3957}# 1)) - #f)) - (not (if (if (if (vector? #{x 3957}#) - (if (= (vector-length #{x 3957}#) - 4) - (eq? (vector-ref #{x 3957}# 0) - 'syntax-object) - #f) - #f) - (symbol? (vector-ref #{x 3957}# 1)) - #f) - (if (eq? (if (if (vector? #{x 3957}#) + (symbol? (vector-ref #{r 25492}# 1)) + #f))) + #{tmp 25490}#) + (@apply + (lambda (#{r 25522}#) + (#{check 25323}# + (reverse #{rreq 25327}#) + #{r 25522}#)) + #{tmp 25490}#) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args 25321}# + #{args 25326}#))))))))) + (#{check 25323}# + (lambda (#{req 25657}# #{rest 25658}#) + (if (#{distinct-bound-ids? 4336}# + (if #{rest 25658}# + (cons #{rest 25658}# #{req 25657}#) + #{req 25657}#)) + (values #{req 25657}# #f #{rest 25658}# #f) + (syntax-violation + 'lambda + "duplicate identifier in argument list" + #{orig-args 25321}#))))) + (#{req 25322}# #{orig-args 25321}# '())))) + (#{chi-simple-lambda 4355}# + (lambda (#{e 25778}# + #{r 25779}# + #{w 25780}# + #{s 25781}# + #{mod 25782}# + #{req 25783}# + #{rest 25784}# + #{meta 25785}# + #{body 25786}#) + (let ((#{ids 25787}# + (if #{rest 25784}# + (append #{req 25783}# (list #{rest 25784}#)) + #{req 25783}#))) + (let ((#{vars 25788}# + (map #{gen-var 4359}# #{ids 25787}#))) + (let ((#{labels 25789}# + (#{gen-labels 4316}# #{ids 25787}#))) + (#{build-simple-lambda 4289}# + #{s 25781}# + (map syntax->datum #{req 25783}#) + (if #{rest 25784}# + (syntax->datum #{rest 25784}#) + #f) + #{vars 25788}# + #{meta 25785}# + (#{chi-body 4349}# + #{body 25786}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 25778}#) #{s 25781}# #f) + (set-source-properties! #{e 25778}# #{s 25781}#)) + #{e 25778}#) + #{w 25780}# + #{mod 25782}#) + (#{extend-var-env 4308}# + #{labels 25789}# + #{vars 25788}# + #{r 25779}#) + (#{make-binding-wrap 4327}# + #{ids 25787}# + #{labels 25789}# + #{w 25780}#) + #{mod 25782}#))))))) + (#{lambda*-formals 4356}# + (lambda (#{orig-args 26089}#) + (letrec* + ((#{req 26090}# + (lambda (#{args 26097}# #{rreq 26098}#) + (let ((#{tmp 26100}# ($sc-dispatch #{args 26097}# '()))) + (if #{tmp 26100}# + (@apply + (lambda () + (#{check 26094}# + (reverse #{rreq 26098}#) + '() + #f + '())) + #{tmp 26100}#) + (let ((#{tmp 26106}# + ($sc-dispatch #{args 26097}# '(any . any)))) + (if (if #{tmp 26106}# + (@apply + (lambda (#{a 26110}# #{b 26111}#) + (if (symbol? #{a 26110}#) + #t + (if (if (vector? #{a 26110}#) + (if (= (vector-length #{a 26110}#) 4) + (eq? (vector-ref #{a 26110}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 26110}# 1)) + #f))) + #{tmp 26106}#) + #f) + (@apply + (lambda (#{a 26138}# #{b 26139}#) + (#{req 26090}# + #{b 26139}# + (cons #{a 26138}# #{rreq 26098}#))) + #{tmp 26106}#) + (let ((#{tmp 26140}# + ($sc-dispatch #{args 26097}# '(any . any)))) + (if (if #{tmp 26140}# + (@apply + (lambda (#{a 26144}# #{b 26145}#) + (eq? (syntax->datum #{a 26144}#) #:optional)) + #{tmp 26140}#) + #f) + (@apply + (lambda (#{a 26146}# #{b 26147}#) + (#{opt 26091}# + #{b 26147}# + (reverse #{rreq 26098}#) + '())) + #{tmp 26140}#) + (let ((#{tmp 26150}# + ($sc-dispatch #{args 26097}# '(any . any)))) + (if (if #{tmp 26150}# + (@apply + (lambda (#{a 26154}# #{b 26155}#) + (eq? (syntax->datum #{a 26154}#) #:key)) + #{tmp 26150}#) + #f) + (@apply + (lambda (#{a 26156}# #{b 26157}#) + (#{key 26092}# + #{b 26157}# + (reverse #{rreq 26098}#) + '() + '())) + #{tmp 26150}#) + (let ((#{tmp 26160}# + ($sc-dispatch + #{args 26097}# + '(any any)))) + (if (if #{tmp 26160}# + (@apply + (lambda (#{a 26164}# #{b 26165}#) + (eq? (syntax->datum #{a 26164}#) + #:rest)) + #{tmp 26160}#) + #f) + (@apply + (lambda (#{a 26166}# #{b 26167}#) + (#{rest 26093}# + #{b 26167}# + (reverse #{rreq 26098}#) + '() + '())) + #{tmp 26160}#) + (let ((#{tmp 26170}# (list #{args 26097}#))) + (if (@apply + (lambda (#{r 26172}#) + (if (symbol? #{r 26172}#) + #t + (if (if (vector? #{r 26172}#) (if (= (vector-length - #{x 3957}#) + #{r 26172}#) 4) (eq? (vector-ref - #{x 3957}# + #{r 26172}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 3957}# 1) - #{x 3957}#) - (if (if (= (vector-length - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile))) + (symbol? + (vector-ref #{r 26172}# 1)) + #f))) + #{tmp 26170}#) + (@apply + (lambda (#{r 26202}#) + (#{rest 26093}# + #{r 26202}# + (reverse #{rreq 26098}#) + '() + '())) + #{tmp 26170}#) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args 26089}# + #{args 26097}#))))))))))))))) + (#{opt 26091}# + (lambda (#{args 26221}# #{req 26222}# #{ropt 26223}#) + (let ((#{tmp 26225}# ($sc-dispatch #{args 26221}# '()))) + (if #{tmp 26225}# + (@apply + (lambda () + (#{check 26094}# + #{req 26222}# + (reverse #{ropt 26223}#) + #f + '())) + #{tmp 26225}#) + (let ((#{tmp 26231}# + ($sc-dispatch #{args 26221}# '(any . any)))) + (if (if #{tmp 26231}# + (@apply + (lambda (#{a 26235}# #{b 26236}#) + (if (symbol? #{a 26235}#) + #t + (if (if (vector? #{a 26235}#) + (if (= (vector-length #{a 26235}#) 4) + (eq? (vector-ref #{a 26235}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 26235}# 1)) + #f))) + #{tmp 26231}#) + #f) + (@apply + (lambda (#{a 26263}# #{b 26264}#) + (#{opt 26091}# + #{b 26264}# + #{req 26222}# + (cons (cons #{a 26263}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i2369" "i2370")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i2359" "i2360" "i2361")) + #(ribcage + (check rest key opt req) + ((top) (top) (top) (top) (top)) + ("i2305" + "i2303" + "i2301" + "i2299" + "i2297")) + #(ribcage + #(orig-args) + #((top)) + #("i2296")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + #{ropt 26223}#))) + #{tmp 26231}#) + (let ((#{tmp 26265}# + ($sc-dispatch + #{args 26221}# + '((any any) . any)))) + (if (if #{tmp 26265}# + (@apply + (lambda (#{a 26269}# + #{init 26270}# + #{b 26271}#) + (if (symbol? #{a 26269}#) + #t + (if (if (vector? #{a 26269}#) + (if (= (vector-length #{a 26269}#) 4) + (eq? (vector-ref #{a 26269}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 26269}# 1)) + #f))) + #{tmp 26265}#) + #f) + (@apply + (lambda (#{a 26298}# #{init 26299}# #{b 26300}#) + (#{opt 26091}# + #{b 26300}# + #{req 26222}# + (cons (list #{a 26298}# #{init 26299}#) + #{ropt 26223}#))) + #{tmp 26265}#) + (let ((#{tmp 26301}# + ($sc-dispatch #{args 26221}# '(any . any)))) + (if (if #{tmp 26301}# + (@apply + (lambda (#{a 26305}# #{b 26306}#) + (eq? (syntax->datum #{a 26305}#) #:key)) + #{tmp 26301}#) + #f) + (@apply + (lambda (#{a 26307}# #{b 26308}#) + (#{key 26092}# + #{b 26308}# + #{req 26222}# + (reverse #{ropt 26223}#) + '())) + #{tmp 26301}#) + (let ((#{tmp 26311}# + ($sc-dispatch + #{args 26221}# + '(any any)))) + (if (if #{tmp 26311}# + (@apply + (lambda (#{a 26315}# #{b 26316}#) + (eq? (syntax->datum #{a 26315}#) + #:rest)) + #{tmp 26311}#) + #f) + (@apply + (lambda (#{a 26317}# #{b 26318}#) + (#{rest 26093}# + #{b 26318}# + #{req 26222}# + (reverse #{ropt 26223}#) + '())) + #{tmp 26311}#) + (let ((#{tmp 26321}# (list #{args 26221}#))) + (if (@apply + (lambda (#{r 26323}#) + (if (symbol? #{r 26323}#) + #t + (if (if (vector? #{r 26323}#) + (if (= (vector-length + #{r 26323}#) + 4) + (eq? (vector-ref + #{r 26323}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{r 26323}# 1)) + #f))) + #{tmp 26321}#) + (@apply + (lambda (#{r 26353}#) + (#{rest 26093}# + #{r 26353}# + #{req 26222}# + (reverse #{ropt 26223}#) + '())) + #{tmp 26321}#) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args 26089}# + #{args 26221}#))))))))))))))) + (#{key 26092}# + (lambda (#{args 26372}# + #{req 26373}# + #{opt 26374}# + #{rkey 26375}#) + (let ((#{tmp 26377}# ($sc-dispatch #{args 26372}# '()))) + (if #{tmp 26377}# + (@apply + (lambda () + (#{check 26094}# + #{req 26373}# + #{opt 26374}# + #f + (cons #f (reverse #{rkey 26375}#)))) + #{tmp 26377}#) + (let ((#{tmp 26383}# + ($sc-dispatch #{args 26372}# '(any . any)))) + (if (if #{tmp 26383}# + (@apply + (lambda (#{a 26387}# #{b 26388}#) + (if (symbol? #{a 26387}#) + #t + (if (if (vector? #{a 26387}#) + (if (= (vector-length #{a 26387}#) 4) + (eq? (vector-ref #{a 26387}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 26387}# 1)) + #f))) + #{tmp 26383}#) + #f) + (@apply + (lambda (#{a 26415}# #{b 26416}#) + (let ((#{tmp 26417}# + (symbol->keyword + (syntax->datum #{a 26415}#)))) + (#{key 26092}# + #{b 26416}# + #{req 26373}# + #{opt 26374}# + (cons (cons #{tmp 26417}# + (cons #{a 26415}# + '(#(syntax-object + #f + ((top) + #(ribcage () () ()) + #(ribcage + #(k) + #((top)) + #("i2432")) + #(ribcage + #(a b) + #((top) (top)) + #("i2426" "i2427")) + #(ribcage () () ()) + #(ribcage + #(args req opt rkey) + #((top) + (top) + (top) + (top)) + #("i2415" + "i2416" + "i2417" + "i2418")) + #(ribcage + (check rest key opt req) + ((top) + (top) + (top) + (top) + (top)) + ("i2305" + "i2303" + "i2301" + "i2299" + "i2297")) + #(ribcage + #(orig-args) + #((top)) + #("i2296")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile))))) + #{rkey 26375}#)))) + #{tmp 26383}#) + (let ((#{tmp 26420}# + ($sc-dispatch + #{args 26372}# + '((any any) . any)))) + (if (if #{tmp 26420}# + (@apply + (lambda (#{a 26424}# + #{init 26425}# + #{b 26426}#) + (if (symbol? #{a 26424}#) + #t + (if (if (vector? #{a 26424}#) + (if (= (vector-length #{a 26424}#) 4) + (eq? (vector-ref #{a 26424}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{a 26424}# 1)) + #f))) + #{tmp 26420}#) + #f) + (@apply + (lambda (#{a 26453}# #{init 26454}# #{b 26455}#) + (let ((#{tmp 26456}# + (symbol->keyword + (syntax->datum #{a 26453}#)))) + (#{key 26092}# + #{b 26455}# + #{req 26373}# + #{opt 26374}# + (cons (list #{tmp 26456}# + #{a 26453}# + #{init 26454}#) + #{rkey 26375}#)))) + #{tmp 26420}#) + (let ((#{tmp 26459}# + ($sc-dispatch + #{args 26372}# + '((any any any) . any)))) + (if (if #{tmp 26459}# + (@apply + (lambda (#{a 26463}# + #{init 26464}# + #{k 26465}# + #{b 26466}#) + (if (if (symbol? #{a 26463}#) + #t + (if (if (vector? #{a 26463}#) + (if (= (vector-length + #{a 26463}#) 4) (eq? (vector-ref - '#(syntax-object - ... - ((top) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i2229")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i397" - "i395" - "i392" - "i391" - "i390" - "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" - "i366" - "i365" - "i363" - "i361" - "i359" - "i357" - "i356" - "i355" - "i354" - "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i335" - "i334" - "i332" - "i330" - "i329" - "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i259" - "i256" - "i254" - "i253" - "i252" - "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i45" - "i44" - "i43"))) - (hygiene guile)) + #{a 26463}# 0) 'syntax-object) #f) - (vector-ref + #f) + (symbol? + (vector-ref #{a 26463}# 1)) + #f)) + (keyword? (syntax->datum #{k 26465}#)) + #f)) + #{tmp 26459}#) + #f) + (@apply + (lambda (#{a 26493}# + #{init 26494}# + #{k 26495}# + #{b 26496}#) + (#{key 26092}# + #{b 26496}# + #{req 26373}# + #{opt 26374}# + (cons (list #{k 26495}# + #{a 26493}# + #{init 26494}#) + #{rkey 26375}#))) + #{tmp 26459}#) + (let ((#{tmp 26497}# + ($sc-dispatch #{args 26372}# '(any)))) + (if (if #{tmp 26497}# + (@apply + (lambda (#{aok 26501}#) + (eq? (syntax->datum #{aok 26501}#) + #:allow-other-keys)) + #{tmp 26497}#) + #f) + (@apply + (lambda (#{aok 26502}#) + (#{check 26094}# + #{req 26373}# + #{opt 26374}# + #f + (cons #t (reverse #{rkey 26375}#)))) + #{tmp 26497}#) + (let ((#{tmp 26505}# + ($sc-dispatch + #{args 26372}# + '(any any any)))) + (if (if #{tmp 26505}# + (@apply + (lambda (#{aok 26509}# + #{a 26510}# + #{b 26511}#) + (if (eq? (syntax->datum + #{aok 26509}#) + #:allow-other-keys) + (eq? (syntax->datum + #{a 26510}#) + #:rest) + #f)) + #{tmp 26505}#) + #f) + (@apply + (lambda (#{aok 26512}# + #{a 26513}# + #{b 26514}#) + (#{rest 26093}# + #{b 26514}# + #{req 26373}# + #{opt 26374}# + (cons #t + (reverse #{rkey 26375}#)))) + #{tmp 26505}#) + (let ((#{tmp 26517}# + ($sc-dispatch + #{args 26372}# + '(any . any)))) + (if (if #{tmp 26517}# + (@apply + (lambda (#{aok 26521}# + #{r 26522}#) + (if (eq? (syntax->datum + #{aok 26521}#) + #:allow-other-keys) + (if (symbol? #{r 26522}#) + #t + (if (if (vector? + #{r 26522}#) + (if (= (vector-length + #{r 26522}#) + 4) + (eq? (vector-ref + #{r 26522}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{r 26522}# + 1)) + #f)) + #f)) + #{tmp 26517}#) + #f) + (@apply + (lambda (#{aok 26549}# #{r 26550}#) + (#{rest 26093}# + #{r 26550}# + #{req 26373}# + #{opt 26374}# + (cons #t + (reverse + #{rkey 26375}#)))) + #{tmp 26517}#) + (let ((#{tmp 26553}# + ($sc-dispatch + #{args 26372}# + '(any any)))) + (if (if #{tmp 26553}# + (@apply + (lambda (#{a 26557}# + #{b 26558}#) + (eq? (syntax->datum + #{a 26557}#) + #:rest)) + #{tmp 26553}#) + #f) + (@apply + (lambda (#{a 26559}# + #{b 26560}#) + (#{rest 26093}# + #{b 26560}# + #{req 26373}# + #{opt 26374}# + (cons #f + (reverse + #{rkey 26375}#)))) + #{tmp 26553}#) + (let ((#{tmp 26563}# + (list #{args 26372}#))) + (if (@apply + (lambda (#{r 26565}#) + (if (symbol? + #{r 26565}#) + #t + (if (if (vector? + #{r 26565}#) + (if (= (vector-length + #{r 26565}#) + 4) + (eq? (vector-ref + #{r 26565}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{r 26565}# + 1)) + #f))) + #{tmp 26563}#) + (@apply + (lambda (#{r 26595}#) + (#{rest 26093}# + #{r 26595}# + #{req 26373}# + #{opt 26374}# + (cons #f + (reverse + #{rkey 26375}#)))) + #{tmp 26563}#) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args 26089}# + #{args 26372}#))))))))))))))))))))) + (#{rest 26093}# + (lambda (#{args 26623}# + #{req 26624}# + #{opt 26625}# + #{kw 26626}#) + (let ((#{tmp 26628}# (list #{args 26623}#))) + (if (@apply + (lambda (#{r 26630}#) + (if (symbol? #{r 26630}#) + #t + (if (if (vector? #{r 26630}#) + (if (= (vector-length #{r 26630}#) 4) + (eq? (vector-ref #{r 26630}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{r 26630}# 1)) + #f))) + #{tmp 26628}#) + (@apply + (lambda (#{r 26660}#) + (#{check 26094}# + #{req 26624}# + #{opt 26625}# + #{r 26660}# + #{kw 26626}#)) + #{tmp 26628}#) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args 26089}# + #{args 26623}#))))) + (#{check 26094}# + (lambda (#{req 26664}# + #{opt 26665}# + #{rest 26666}# + #{kw 26667}#) + (if (#{distinct-bound-ids? 4336}# + (append + #{req 26664}# + (map car #{opt 26665}#) + (if #{rest 26666}# (list #{rest 26666}#) '()) + (if (pair? #{kw 26667}#) + (map cadr (cdr #{kw 26667}#)) + '()))) + (values + #{req 26664}# + #{opt 26665}# + #{rest 26666}# + #{kw 26667}#) + (syntax-violation + 'lambda* + "duplicate identifier in argument list" + #{orig-args 26089}#))))) + (#{req 26090}# #{orig-args 26089}# '())))) + (#{chi-lambda-case 4357}# + (lambda (#{e 26787}# + #{r 26788}# + #{w 26789}# + #{s 26790}# + #{mod 26791}# + #{get-formals 26792}# + #{clauses 26793}#) + (letrec* + ((#{expand-req 26794}# + (lambda (#{req 26928}# + #{opt 26929}# + #{rest 26930}# + #{kw 26931}# + #{body 26932}#) + (let ((#{vars 26933}# + (map #{gen-var 4359}# #{req 26928}#)) + (#{labels 26934}# + (#{gen-labels 4316}# #{req 26928}#))) + (let ((#{r* 26935}# + (#{extend-var-env 4308}# + #{labels 26934}# + #{vars 26933}# + #{r 26788}#)) + (#{w* 26936}# + (#{make-binding-wrap 4327}# + #{req 26928}# + #{labels 26934}# + #{w 26789}#))) + (#{expand-opt 26795}# + (map syntax->datum #{req 26928}#) + #{opt 26929}# + #{rest 26930}# + #{kw 26931}# + #{body 26932}# + (reverse #{vars 26933}#) + #{r* 26935}# + #{w* 26936}# + '() + '()))))) + (#{expand-opt 26795}# + (lambda (#{req 27152}# + #{opt 27153}# + #{rest 27154}# + #{kw 27155}# + #{body 27156}# + #{vars 27157}# + #{r* 27158}# + #{w* 27159}# + #{out 27160}# + #{inits 27161}#) + (if (pair? #{opt 27153}#) + (let ((#{tmp 27162}# (car #{opt 27153}#))) + (let ((#{tmp 27163}# + ($sc-dispatch #{tmp 27162}# '(any any)))) + (if #{tmp 27163}# + (@apply + (lambda (#{id 27165}# #{i 27166}#) + (let ((#{v 27167}# + (let ((#{id 27175}# + (if (if (vector? #{id 27165}#) + (if (= (vector-length + #{id 27165}#) + 4) + (eq? (vector-ref + #{id 27165}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 27165}# 1) + #{id 27165}#))) + (gensym + (string-append + (symbol->string #{id 27175}#) + " "))))) + (let ((#{l 27168}# + (#{gen-labels 4316}# (list #{v 27167}#)))) + (let ((#{r** 27169}# + (#{extend-var-env 4308}# + #{l 27168}# + (list #{v 27167}#) + #{r* 27158}#))) + (let ((#{w** 27170}# + (#{make-binding-wrap 4327}# + (list #{id 27165}#) + #{l 27168}# + #{w* 27159}#))) + (#{expand-opt 26795}# + #{req 27152}# + (cdr #{opt 27153}#) + #{rest 27154}# + #{kw 27155}# + #{body 27156}# + (cons #{v 27167}# #{vars 27157}#) + #{r** 27169}# + #{w** 27170}# + (cons (syntax->datum #{id 27165}#) + #{out 27160}#) + (cons (#{chi 4345}# + #{i 27166}# + #{r* 27158}# + #{w* 27159}# + #{mod 26791}#) + #{inits 27161}#))))))) + #{tmp 27163}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 27162}#)))) + (if #{rest 27154}# + (let ((#{v 27447}# + (let ((#{id 27457}# + (if (if (vector? #{rest 27154}#) + (if (= (vector-length #{rest 27154}#) + 4) + (eq? (vector-ref #{rest 27154}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{rest 27154}# 1) + #{rest 27154}#))) + (gensym + (string-append + (symbol->string #{id 27457}#) + " "))))) + (let ((#{l 27448}# + (#{gen-labels 4316}# (list #{v 27447}#)))) + (let ((#{r* 27449}# + (#{extend-var-env 4308}# + #{l 27448}# + (list #{v 27447}#) + #{r* 27158}#))) + (let ((#{w* 27450}# + (#{make-binding-wrap 4327}# + (list #{rest 27154}#) + #{l 27448}# + #{w* 27159}#))) + (#{expand-kw 26796}# + #{req 27152}# + (if (pair? #{out 27160}#) + (reverse #{out 27160}#) + #f) + (syntax->datum #{rest 27154}#) + (if (pair? #{kw 27155}#) + (cdr #{kw 27155}#) + #{kw 27155}#) + #{body 27156}# + (cons #{v 27447}# #{vars 27157}#) + #{r* 27449}# + #{w* 27450}# + (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f) + '() + #{inits 27161}#))))) + (#{expand-kw 26796}# + #{req 27152}# + (if (pair? #{out 27160}#) + (reverse #{out 27160}#) + #f) + #f + (if (pair? #{kw 27155}#) + (cdr #{kw 27155}#) + #{kw 27155}#) + #{body 27156}# + #{vars 27157}# + #{r* 27158}# + #{w* 27159}# + (if (pair? #{kw 27155}#) (car #{kw 27155}#) #f) + '() + #{inits 27161}#))))) + (#{expand-kw 26796}# + (lambda (#{req 27657}# + #{opt 27658}# + #{rest 27659}# + #{kw 27660}# + #{body 27661}# + #{vars 27662}# + #{r* 27663}# + #{w* 27664}# + #{aok 27665}# + #{out 27666}# + #{inits 27667}#) + (if (pair? #{kw 27660}#) + (let ((#{tmp 27668}# (car #{kw 27660}#))) + (let ((#{tmp 27669}# + ($sc-dispatch #{tmp 27668}# '(any any any)))) + (if #{tmp 27669}# + (@apply + (lambda (#{k 27671}# #{id 27672}# #{i 27673}#) + (let ((#{v 27674}# + (let ((#{id 27682}# + (if (if (vector? #{id 27672}#) + (if (= (vector-length + #{id 27672}#) + 4) + (eq? (vector-ref + #{id 27672}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 27672}# 1) + #{id 27672}#))) + (gensym + (string-append + (symbol->string #{id 27682}#) + " "))))) + (let ((#{l 27675}# + (#{gen-labels 4316}# (list #{v 27674}#)))) + (let ((#{r** 27676}# + (#{extend-var-env 4308}# + #{l 27675}# + (list #{v 27674}#) + #{r* 27663}#))) + (let ((#{w** 27677}# + (#{make-binding-wrap 4327}# + (list #{id 27672}#) + #{l 27675}# + #{w* 27664}#))) + (#{expand-kw 26796}# + #{req 27657}# + #{opt 27658}# + #{rest 27659}# + (cdr #{kw 27660}#) + #{body 27661}# + (cons #{v 27674}# #{vars 27662}#) + #{r** 27676}# + #{w** 27677}# + #{aok 27665}# + (cons (list (syntax->datum #{k 27671}#) + (syntax->datum #{id 27672}#) + #{v 27674}#) + #{out 27666}#) + (cons (#{chi 4345}# + #{i 27673}# + #{r* 27663}# + #{w* 27664}# + #{mod 26791}#) + #{inits 27667}#))))))) + #{tmp 27669}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 27668}#)))) + (#{expand-body 26797}# + #{req 27657}# + #{opt 27658}# + #{rest 27659}# + (if (if #{aok 27665}# + #{aok 27665}# + (pair? #{out 27666}#)) + (cons #{aok 27665}# (reverse #{out 27666}#)) + #f) + #{body 27661}# + (reverse #{vars 27662}#) + #{r* 27663}# + #{w* 27664}# + (reverse #{inits 27667}#) + '())))) + (#{expand-body 26797}# + (lambda (#{req 27963}# + #{opt 27964}# + #{rest 27965}# + #{kw 27966}# + #{body 27967}# + #{vars 27968}# + #{r* 27969}# + #{w* 27970}# + #{inits 27971}# + #{meta 27972}#) + (let ((#{tmp 27974}# + ($sc-dispatch + #{body 27967}# + '(any any . each-any)))) + (if (if #{tmp 27974}# + (@apply + (lambda (#{docstring 27978}# #{e1 27979}# #{e2 27980}#) + (string? (syntax->datum #{docstring 27978}#))) + #{tmp 27974}#) + #f) + (@apply + (lambda (#{docstring 27981}# #{e1 27982}# #{e2 27983}#) + (#{expand-body 26797}# + #{req 27963}# + #{opt 27964}# + #{rest 27965}# + #{kw 27966}# + (cons #{e1 27982}# #{e2 27983}#) + #{vars 27968}# + #{r* 27969}# + #{w* 27970}# + #{inits 27971}# + (append + #{meta 27972}# + (list (cons 'documentation + (syntax->datum #{docstring 27981}#)))))) + #{tmp 27974}#) + (let ((#{tmp 27984}# + ($sc-dispatch + #{body 27967}# + '(#(vector #(each (any . any))) any . each-any)))) + (if #{tmp 27984}# + (@apply + (lambda (#{k 27988}# + #{v 27989}# + #{e1 27990}# + #{e2 27991}#) + (#{expand-body 26797}# + #{req 27963}# + #{opt 27964}# + #{rest 27965}# + #{kw 27966}# + (cons #{e1 27990}# #{e2 27991}#) + #{vars 27968}# + #{r* 27969}# + #{w* 27970}# + #{inits 27971}# + (append + #{meta 27972}# + (syntax->datum + (map cons #{k 27988}# #{v 27989}#))))) + #{tmp 27984}#) + (let ((#{tmp 27992}# + ($sc-dispatch #{body 27967}# '(any . each-any)))) + (if #{tmp 27992}# + (@apply + (lambda (#{e1 27996}# #{e2 27997}#) + (values + #{meta 27972}# + #{req 27963}# + #{opt 27964}# + #{rest 27965}# + #{kw 27966}# + #{inits 27971}# + #{vars 27968}# + (#{chi-body 4349}# + (cons #{e1 27996}# #{e2 27997}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 26787}#) + #{s 26790}# + #f) + (set-source-properties! + #{e 26787}# + #{s 26790}#)) + #{e 26787}#) + #{w 26789}# + #{mod 26791}#) + #{r* 27969}# + #{w* 27970}# + #{mod 26791}#))) + #{tmp 27992}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{body 27967}#)))))))))) + (let ((#{tmp 26799}# + ($sc-dispatch #{clauses 26793}# '()))) + (if #{tmp 26799}# + (@apply + (lambda () (values '() #f)) + #{tmp 26799}#) + (let ((#{tmp 26804}# + ($sc-dispatch + #{clauses 26793}# + '((any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 26804}# + (@apply + (lambda (#{args 26808}# + #{e1 26809}# + #{e2 26810}# + #{args* 26811}# + #{e1* 26812}# + #{e2* 26813}#) + (call-with-values + (lambda () + (#{get-formals 26792}# #{args 26808}#)) + (lambda (#{req 26814}# + #{opt 26815}# + #{rest 26816}# + #{kw 26817}#) + (call-with-values + (lambda () + (#{expand-req 26794}# + #{req 26814}# + #{opt 26815}# + #{rest 26816}# + #{kw 26817}# + (cons #{e1 26809}# #{e2 26810}#))) + (lambda (#{meta 26884}# + #{req 26885}# + #{opt 26886}# + #{rest 26887}# + #{kw 26888}# + #{inits 26889}# + #{vars 26890}# + #{body 26891}#) + (call-with-values + (lambda () + (#{chi-lambda-case 4357}# + #{e 26787}# + #{r 26788}# + #{w 26789}# + #{s 26790}# + #{mod 26791}# + #{get-formals 26792}# + (map (lambda (#{tmp 2775 26892}# + #{tmp 2774 26893}# + #{tmp 2773 26894}#) + (cons #{tmp 2773 26894}# + (cons #{tmp 2774 26893}# + #{tmp 2775 26892}#))) + #{e2* 26813}# + #{e1* 26812}# + #{args* 26811}#))) + (lambda (#{meta* 26895}# #{else* 26896}#) + (values + (append #{meta 26884}# #{meta* 26895}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #{s 26790}# + #{req 26885}# + #{opt 26886}# + #{rest 26887}# + #{kw 26888}# + #{inits 26889}# + #{vars 26890}# + #{body 26891}# + #{else* 26896}#))))))))) + #{tmp 26804}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{clauses 26793}#)))))))) + (#{strip 4358}# + (lambda (#{x 28034}# #{w 28035}#) + (if (memq 'top (car #{w 28035}#)) + #{x 28034}# + (letrec* + ((#{f 28036}# + (lambda (#{x 28039}#) + (if (if (vector? #{x 28039}#) + (if (= (vector-length #{x 28039}#) 4) + (eq? (vector-ref #{x 28039}# 0) 'syntax-object) + #f) + #f) + (#{strip 4358}# + (vector-ref #{x 28039}# 1) + (vector-ref #{x 28039}# 2)) + (if (pair? #{x 28039}#) + (let ((#{a 28058}# (#{f 28036}# (car #{x 28039}#))) + (#{d 28059}# (#{f 28036}# (cdr #{x 28039}#)))) + (if (if (eq? #{a 28058}# (car #{x 28039}#)) + (eq? #{d 28059}# (cdr #{x 28039}#)) + #f) + #{x 28039}# + (cons #{a 28058}# #{d 28059}#))) + (if (vector? #{x 28039}#) + (let ((#{old 28062}# (vector->list #{x 28039}#))) + (let ((#{new 28063}# (map #{f 28036}# #{old 28062}#))) + (letrec* + ((#{lp 28064}# + (lambda (#{l1 28140}# #{l2 28141}#) + (if (null? #{l1 28140}#) + #{x 28039}# + (if (eq? (car #{l1 28140}#) + (car #{l2 28141}#)) + (#{lp 28064}# + (cdr #{l1 28140}#) + (cdr #{l2 28141}#)) + (list->vector #{new 28063}#)))))) + (#{lp 28064}# #{old 28062}# #{new 28063}#)))) + #{x 28039}#)))))) + (#{f 28036}# #{x 28034}#))))) + (#{gen-var 4359}# + (lambda (#{id 26940}#) + (let ((#{id 26941}# + (if (if (vector? #{id 26940}#) + (if (= (vector-length #{id 26940}#) 4) + (eq? (vector-ref #{id 26940}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{id 26940}# 1) + #{id 26940}#))) + (gensym + (string-append (symbol->string #{id 26941}#) " ")))))) + (begin + (module-define! + (current-module) + 'letrec-syntax + (make-syntax-transformer + 'letrec-syntax + 'local-syntax + #t)) + (module-define! + (current-module) + 'let-syntax + (make-syntax-transformer + 'let-syntax + 'local-syntax + #f)) + (#{global-extend 4311}# + 'core + 'fluid-let-syntax + (lambda (#{e 4480}# + #{r 4481}# + #{w 4482}# + #{s 4483}# + #{mod 4484}#) + (let ((#{tmp 4486}# + ($sc-dispatch + #{e 4480}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 4486}# + (@apply + (lambda (#{var 4490}# + #{val 4491}# + #{e1 4492}# + #{e2 4493}#) + (#{valid-bound-ids? 4335}# #{var 4490}#)) + #{tmp 4486}#) + #f) + (@apply + (lambda (#{var 4571}# + #{val 4572}# + #{e1 4573}# + #{e2 4574}#) + (let ((#{names 4575}# + (map (lambda (#{x 4765}#) + (#{id-var-name 4332}# #{x 4765}# #{w 4482}#)) + #{var 4571}#))) + (begin + (for-each + (lambda (#{id 4576}# #{n 4577}#) + (let ((#{atom-key 4578}# + (car (let ((#{t 4702}# + (assq #{n 4577}# #{r 4481}#))) + (if #{t 4702}# + (cdr #{t 4702}#) + (if (symbol? #{n 4577}#) + (let ((#{t 4707}# + (begin + (if (if (not #{mod 4484}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{n 4577}#)) + (let ((#{v 4744}# + (module-variable + (if #{mod 4484}# + (resolve-module + (cdr #{mod 4484}#)) + (current-module)) + #{n 4577}#))) + (if #{v 4744}# + (if (variable-bound? + #{v 4744}#) + (let ((#{val 4753}# + (variable-ref + #{v 4744}#))) + (if (macro? + #{val 4753}#) + (if (macro-type + #{val 4753}#) + (cons (macro-type + #{val 4753}#) + (macro-binding + #{val 4753}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 4707}# + #{t 4707}# + '(global))) + '(displaced-lexical))))))) + (if (let ((#{t 4611}# #{atom-key 4578}#)) + (eqv? #{t 4611}# 'displaced-lexical)) + (syntax-violation + 'fluid-let-syntax + "identifier out of context" + #{e 4480}# + (#{wrap 4338}# + (begin + (if (if (pair? #{id 4576}#) #{s 4483}# #f) + (set-source-properties! + #{id 4576}# + #{s 4483}#)) + #{id 4576}#) + #{w 4482}# + #{mod 4484}#))))) + #{var 4571}# + #{names 4575}#) + (#{chi-body 4349}# + (cons #{e1 4573}# #{e2 4574}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 4480}#) #{s 4483}# #f) + (set-source-properties! #{e 4480}# #{s 4483}#)) + #{e 4480}#) + #{w 4482}# + #{mod 4484}#) + (#{extend-env 4307}# + #{names 4575}# + (let ((#{trans-r 4851}# + (#{macros-only-env 4309}# #{r 4481}#))) + (map (lambda (#{x 4852}#) + (cons 'macro + (#{eval-local-transformer 4351}# + (#{chi 4345}# + #{x 4852}# + #{trans-r 4851}# + #{w 4482}# + #{mod 4484}#) + #{mod 4484}#))) + #{val 4572}#)) + #{r 4481}#) + #{w 4482}# + #{mod 4484}#)))) + #{tmp 4486}#) + (syntax-violation + 'fluid-let-syntax + "bad syntax" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 4480}#) #{s 4483}# #f) + (set-source-properties! #{e 4480}# #{s 4483}#)) + #{e 4480}#) + #{w 4482}# + #{mod 4484}#)))))) + (module-define! + (current-module) + 'quote + (make-syntax-transformer + 'quote + 'core + (lambda (#{e 5066}# + #{r 5067}# + #{w 5068}# + #{s 5069}# + #{mod 5070}#) + (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any)))) + (if #{tmp 5072}# + (@apply + (lambda (#{e 5075}#) + (let ((#{exp 5079}# + (#{strip 4358}# #{e 5075}# #{w 5068}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 5069}# + #{exp 5079}#))) + #{tmp 5072}#) + (syntax-violation + 'quote + "bad syntax" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 5066}#) #{s 5069}# #f) + (set-source-properties! #{e 5066}# #{s 5069}#)) + #{e 5066}#) + #{w 5068}# + #{mod 5070}#))))))) + (#{global-extend 4311}# + 'core + 'syntax + (letrec* + ((#{gen-syntax 5303}# + (lambda (#{src 5405}# + #{e 5406}# + #{r 5407}# + #{maps 5408}# + #{ellipsis? 5409}# + #{mod 5410}#) + (if (if (symbol? #{e 5406}#) + #t + (if (if (vector? #{e 5406}#) + (if (= (vector-length #{e 5406}#) 4) + (eq? (vector-ref #{e 5406}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 5406}# 1)) + #f)) + (let ((#{label 5437}# + (#{id-var-name 4332}# #{e 5406}# '(())))) + (let ((#{b 5438}# + (let ((#{t 5575}# (assq #{label 5437}# #{r 5407}#))) + (if #{t 5575}# + (cdr #{t 5575}#) + (if (symbol? #{label 5437}#) + (let ((#{t 5580}# + (begin + (if (if (not #{mod 5410}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{label 5437}#)) + (let ((#{v 5617}# + (module-variable + (if #{mod 5410}# + (resolve-module + (cdr #{mod 5410}#)) + (current-module)) + #{label 5437}#))) + (if #{v 5617}# + (if (variable-bound? #{v 5617}#) + (let ((#{val 5626}# + (variable-ref + #{v 5617}#))) + (if (macro? #{val 5626}#) + (if (macro-type + #{val 5626}#) + (cons (macro-type + #{val 5626}#) + (macro-binding + #{val 5626}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 5580}# #{t 5580}# '(global))) + '(displaced-lexical)))))) + (if (eq? (car #{b 5438}#) 'syntax) + (call-with-values + (lambda () + (let ((#{var.lev 5471}# (cdr #{b 5438}#))) + (#{gen-ref 5304}# + #{src 5405}# + (car #{var.lev 5471}#) + (cdr #{var.lev 5471}#) + #{maps 5408}#))) + (lambda (#{var 5567}# #{maps 5568}#) + (values (list 'ref #{var 5567}#) #{maps 5568}#))) + (if (#{ellipsis? 5409}# #{e 5406}#) + (syntax-violation + 'syntax + "misplaced ellipsis" + #{src 5405}#) + (values (list 'quote #{e 5406}#) #{maps 5408}#))))) + (let ((#{tmp 5638}# + ($sc-dispatch #{e 5406}# '(any any)))) + (if (if #{tmp 5638}# + (@apply + (lambda (#{dots 5642}# #{e 5643}#) + (#{ellipsis? 5409}# #{dots 5642}#)) + #{tmp 5638}#) + #f) + (@apply + (lambda (#{dots 5644}# #{e 5645}#) + (#{gen-syntax 5303}# + #{src 5405}# + #{e 5645}# + #{r 5407}# + #{maps 5408}# + (lambda (#{x 5646}#) #f) + #{mod 5410}#)) + #{tmp 5638}#) + (let ((#{tmp 5647}# + ($sc-dispatch #{e 5406}# '(any any . any)))) + (if (if #{tmp 5647}# + (@apply + (lambda (#{x 5651}# #{dots 5652}# #{y 5653}#) + (#{ellipsis? 5409}# #{dots 5652}#)) + #{tmp 5647}#) + #f) + (@apply + (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#) + (letrec* + ((#{f 5657}# + (lambda (#{y 5665}# #{k 5666}#) + (let ((#{tmp 5668}# + ($sc-dispatch + #{y 5665}# + '(any . any)))) + (if (if #{tmp 5668}# + (@apply + (lambda (#{dots 5672}# #{y 5673}#) + (#{ellipsis? 5409}# + #{dots 5672}#)) + #{tmp 5668}#) + #f) + (@apply + (lambda (#{dots 5674}# #{y 5675}#) + (#{f 5657}# + #{y 5675}# + (lambda (#{maps 5676}#) + (call-with-values + (lambda () + (#{k 5666}# + (cons '() #{maps 5676}#))) + (lambda (#{x 5677}# + #{maps 5678}#) + (if (null? (car #{maps 5678}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 5405}#) + (values + (let ((#{map-env 5682}# + (car #{maps 5678}#))) + (list 'apply + '(primitive + append) + (#{gen-map 5306}# + #{x 5677}# + #{map-env 5682}#))) + (cdr #{maps 5678}#)))))))) + #{tmp 5668}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{src 5405}# + #{y 5665}# + #{r 5407}# + #{maps 5408}# + #{ellipsis? 5409}# + #{mod 5410}#)) + (lambda (#{y 5685}# #{maps 5686}#) + (call-with-values + (lambda () + (#{k 5666}# #{maps 5686}#)) + (lambda (#{x 5687}# #{maps 5688}#) + (values + (if (equal? #{y 5685}# ''()) + #{x 5687}# + (list 'append + #{x 5687}# + #{y 5685}#)) + #{maps 5688}#)))))))))) + (#{f 5657}# + #{y 5656}# + (lambda (#{maps 5660}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{src 5405}# + #{x 5654}# + #{r 5407}# + (cons '() #{maps 5660}#) + #{ellipsis? 5409}# + #{mod 5410}#)) + (lambda (#{x 5661}# #{maps 5662}#) + (if (null? (car #{maps 5662}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 5405}#) + (values + (#{gen-map 5306}# + #{x 5661}# + (car #{maps 5662}#)) + (cdr #{maps 5662}#))))))))) + #{tmp 5647}#) + (let ((#{tmp 5704}# + ($sc-dispatch #{e 5406}# '(any . any)))) + (if #{tmp 5704}# + (@apply + (lambda (#{x 5708}# #{y 5709}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{src 5405}# + #{x 5708}# + #{r 5407}# + #{maps 5408}# + #{ellipsis? 5409}# + #{mod 5410}#)) + (lambda (#{x 5710}# #{maps 5711}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{src 5405}# + #{y 5709}# + #{r 5407}# + #{maps 5711}# + #{ellipsis? 5409}# + #{mod 5410}#)) + (lambda (#{y 5712}# #{maps 5713}#) + (values + (let ((#{atom-key 5718}# + (car #{y 5712}#))) + (if (eqv? #{atom-key 5718}# 'quote) + (if (eq? (car #{x 5710}#) 'quote) + (list 'quote + (cons (car (cdr #{x 5710}#)) + (car (cdr #{y 5712}#)))) + (if (eq? (car (cdr #{y 5712}#)) + '()) + (list 'list #{x 5710}#) + (list 'cons + #{x 5710}# + #{y 5712}#))) + (if (eqv? #{atom-key 5718}# 'list) + (cons 'list + (cons #{x 5710}# + (cdr #{y 5712}#))) + (list 'cons + #{x 5710}# + #{y 5712}#)))) + #{maps 5713}#)))))) + #{tmp 5704}#) + (let ((#{tmp 5747}# + ($sc-dispatch + #{e 5406}# + '#(vector (any . each-any))))) + (if #{tmp 5747}# + (@apply + (lambda (#{e1 5751}# #{e2 5752}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{src 5405}# + (cons #{e1 5751}# #{e2 5752}#) + #{r 5407}# + #{maps 5408}# + #{ellipsis? 5409}# + #{mod 5410}#)) + (lambda (#{e 5753}# #{maps 5754}#) + (values + (if (eq? (car #{e 5753}#) 'list) + (cons 'vector (cdr #{e 5753}#)) + (if (eq? (car #{e 5753}#) 'quote) + (list 'quote + (list->vector + (car (cdr #{e 5753}#)))) + (list 'list->vector #{e 5753}#))) + #{maps 5754}#)))) + #{tmp 5747}#) + (values + (list 'quote #{e 5406}#) + #{maps 5408}#)))))))))))) + (#{gen-ref 5304}# + (lambda (#{src 5781}# + #{var 5782}# + #{level 5783}# + #{maps 5784}#) + (if (= #{level 5783}# 0) + (values #{var 5782}# #{maps 5784}#) + (if (null? #{maps 5784}#) + (syntax-violation + 'syntax + "missing ellipsis" + #{src 5781}#) + (call-with-values + (lambda () + (#{gen-ref 5304}# + #{src 5781}# + #{var 5782}# + (#{1-}# #{level 5783}#) + (cdr #{maps 5784}#))) + (lambda (#{outer-var 5785}# #{outer-maps 5786}#) + (let ((#{b 5787}# + (assq #{outer-var 5785}# (car #{maps 5784}#)))) + (if #{b 5787}# + (values (cdr #{b 5787}#) #{maps 5784}#) + (let ((#{inner-var 5789}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (values + #{inner-var 5789}# + (cons (cons (cons #{outer-var 5785}# + #{inner-var 5789}#) + (car #{maps 5784}#)) + #{outer-maps 5786}#))))))))))) + (#{gen-map 5306}# + (lambda (#{e 5803}# #{map-env 5804}#) + (let ((#{formals 5805}# (map cdr #{map-env 5804}#)) + (#{actuals 5806}# + (map (lambda (#{x 5808}#) + (list 'ref (car #{x 5808}#))) + #{map-env 5804}#))) + (if (eq? (car #{e 5803}#) 'ref) + (car #{actuals 5806}#) + (if (and-map + (lambda (#{x 5809}#) + (if (eq? (car #{x 5809}#) 'ref) + (memq (car (cdr #{x 5809}#)) #{formals 5805}#) + #f)) + (cdr #{e 5803}#)) + (cons 'map + (cons (list 'primitive (car #{e 5803}#)) + (map (let ((#{r 5811}# + (map cons + #{formals 5805}# + #{actuals 5806}#))) + (lambda (#{x 5812}#) + (cdr (assq (car (cdr #{x 5812}#)) + #{r 5811}#)))) + (cdr #{e 5803}#)))) + (cons 'map + (cons (list 'lambda #{formals 5805}# #{e 5803}#) + #{actuals 5806}#))))))) + (#{regen 5310}# + (lambda (#{x 5814}#) + (let ((#{atom-key 5815}# (car #{x 5814}#))) + (if (eqv? #{atom-key 5815}# 'ref) + (let ((#{name 5825}# (car (cdr #{x 5814}#))) + (#{var 5826}# (car (cdr #{x 5814}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + #{name 5825}# + #{var 5826}#)) + (if (eqv? #{atom-key 5815}# 'primitive) + (let ((#{name 5838}# (car (cdr #{x 5814}#)))) + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5838}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5838}# + #f))) + (if (eqv? #{atom-key 5815}# 'quote) + (let ((#{exp 5856}# (car (cdr #{x 5814}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #{exp 5856}#)) + (if (eqv? #{atom-key 5815}# 'lambda) + (if (list? (car (cdr #{x 5814}#))) + (let ((#{req 5867}# (car (cdr #{x 5814}#))) + (#{vars 5869}# (car (cdr #{x 5814}#))) + (#{exp 5871}# + (#{regen 5310}# + (car (cdr (cdr #{x 5814}#)))))) + (let ((#{body 5876}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 5867}# + #f + #f + #f + '() + #{vars 5869}# + #{exp 5871}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 5876}#))) + (error "how did we get here" #{x 5814}#)) + (let ((#{fun-exp 5892}# + (let ((#{name 5901}# (car #{x 5814}#))) + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5901}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5901}# + #f)))) + (#{arg-exps 5893}# + (map #{regen 5310}# (cdr #{x 5814}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 5892}# + #{arg-exps 5893}#)))))))))) + (lambda (#{e 5311}# + #{r 5312}# + #{w 5313}# + #{s 5314}# + #{mod 5315}#) + (let ((#{e 5316}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 5311}#) #{s 5314}# #f) + (set-source-properties! #{e 5311}# #{s 5314}#)) + #{e 5311}#) + #{w 5313}# + #{mod 5315}#))) + (let ((#{tmp 5318}# ($sc-dispatch #{e 5316}# '(_ any)))) + (if #{tmp 5318}# + (@apply + (lambda (#{x 5343}#) + (call-with-values + (lambda () + (#{gen-syntax 5303}# + #{e 5316}# + #{x 5343}# + #{r 5312}# + '() + #{ellipsis? 4353}# + #{mod 5315}#)) + (lambda (#{e 5397}# #{maps 5398}#) + (#{regen 5310}# #{e 5397}#)))) + #{tmp 5318}#) + (syntax-violation + 'syntax + "bad `syntax' form" + #{e 5316}#))))))) + (#{global-extend 4311}# + 'core + 'lambda + (lambda (#{e 6096}# + #{r 6097}# + #{w 6098}# + #{s 6099}# + #{mod 6100}#) + (let ((#{tmp 6102}# + ($sc-dispatch #{e 6096}# '(_ any any . each-any)))) + (if #{tmp 6102}# + (@apply + (lambda (#{args 6106}# #{e1 6107}# #{e2 6108}#) + (call-with-values + (lambda () + (#{lambda-formals 4354}# #{args 6106}#)) + (lambda (#{req 6111}# + #{opt 6112}# + #{rest 6113}# + #{kw 6114}#) + (letrec* + ((#{lp 6115}# + (lambda (#{body 6118}# #{meta 6119}#) + (let ((#{tmp 6121}# + ($sc-dispatch + #{body 6118}# + '(any any . each-any)))) + (if (if #{tmp 6121}# + (@apply + (lambda (#{docstring 6125}# + #{e1 6126}# + #{e2 6127}#) + (string? + (syntax->datum #{docstring 6125}#))) + #{tmp 6121}#) + #f) + (@apply + (lambda (#{docstring 6128}# + #{e1 6129}# + #{e2 6130}#) + (#{lp 6115}# + (cons #{e1 6129}# #{e2 6130}#) + (append + #{meta 6119}# + (list (cons 'documentation + (syntax->datum + #{docstring 6128}#)))))) + #{tmp 6121}#) + (let ((#{tmp 6131}# + ($sc-dispatch + #{body 6118}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp 6131}# + (@apply + (lambda (#{k 6135}# + #{v 6136}# + #{e1 6137}# + #{e2 6138}#) + (#{lp 6115}# + (cons #{e1 6137}# #{e2 6138}#) + (append + #{meta 6119}# + (syntax->datum + (map cons + #{k 6135}# + #{v 6136}#))))) + #{tmp 6131}#) + (#{chi-simple-lambda 4355}# + #{e 6096}# + #{r 6097}# + #{w 6098}# + #{s 6099}# + #{mod 6100}# + #{req 6111}# + #{rest 6113}# + #{meta 6119}# + #{body 6118}#)))))))) + (#{lp 6115}# (cons #{e1 6107}# #{e2 6108}#) '()))))) + #{tmp 6102}#) + (syntax-violation + 'lambda + "bad lambda" + #{e 6096}#))))) + (#{global-extend 4311}# + 'core + 'lambda* + (lambda (#{e 6430}# + #{r 6431}# + #{w 6432}# + #{s 6433}# + #{mod 6434}#) + (let ((#{tmp 6436}# + ($sc-dispatch #{e 6430}# '(_ any any . each-any)))) + (if #{tmp 6436}# + (@apply + (lambda (#{args 6440}# #{e1 6441}# #{e2 6442}#) + (call-with-values + (lambda () + (#{chi-lambda-case 4357}# + #{e 6430}# + #{r 6431}# + #{w 6432}# + #{s 6433}# + #{mod 6434}# + #{lambda*-formals 4356}# + (list (cons #{args 6440}# + (cons #{e1 6441}# #{e2 6442}#))))) + (lambda (#{meta 6445}# #{lcase 6446}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6433}# + #{meta 6445}# + #{lcase 6446}#)))) + #{tmp 6436}#) + (syntax-violation + 'lambda + "bad lambda*" + #{e 6430}#))))) + (#{global-extend 4311}# + 'core + 'case-lambda + (lambda (#{e 6620}# + #{r 6621}# + #{w 6622}# + #{s 6623}# + #{mod 6624}#) + (let ((#{tmp 6626}# + ($sc-dispatch + #{e 6620}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 6626}# + (@apply + (lambda (#{args 6630}# + #{e1 6631}# + #{e2 6632}# + #{args* 6633}# + #{e1* 6634}# + #{e2* 6635}#) + (call-with-values + (lambda () + (#{chi-lambda-case 4357}# + #{e 6620}# + #{r 6621}# + #{w 6622}# + #{s 6623}# + #{mod 6624}# + #{lambda-formals 4354}# + (cons (cons #{args 6630}# + (cons #{e1 6631}# #{e2 6632}#)) + (map (lambda (#{tmp 3274 6638}# + #{tmp 3273 6639}# + #{tmp 3272 6640}#) + (cons #{tmp 3272 6640}# + (cons #{tmp 3273 6639}# + #{tmp 3274 6638}#))) + #{e2* 6635}# + #{e1* 6634}# + #{args* 6633}#)))) + (lambda (#{meta 6641}# #{lcase 6642}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6623}# + #{meta 6641}# + #{lcase 6642}#)))) + #{tmp 6626}#) + (syntax-violation + 'case-lambda + "bad case-lambda" + #{e 6620}#))))) + (#{global-extend 4311}# + 'core + 'case-lambda* + (lambda (#{e 6805}# + #{r 6806}# + #{w 6807}# + #{s 6808}# + #{mod 6809}#) + (let ((#{tmp 6811}# + ($sc-dispatch + #{e 6805}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 6811}# + (@apply + (lambda (#{args 6815}# + #{e1 6816}# + #{e2 6817}# + #{args* 6818}# + #{e1* 6819}# + #{e2* 6820}#) + (call-with-values + (lambda () + (#{chi-lambda-case 4357}# + #{e 6805}# + #{r 6806}# + #{w 6807}# + #{s 6808}# + #{mod 6809}# + #{lambda*-formals 4356}# + (cons (cons #{args 6815}# + (cons #{e1 6816}# #{e2 6817}#)) + (map (lambda (#{tmp 3309 6823}# + #{tmp 3308 6824}# + #{tmp 3307 6825}#) + (cons #{tmp 3307 6825}# + (cons #{tmp 3308 6824}# + #{tmp 3309 6823}#))) + #{e2* 6820}# + #{e1* 6819}# + #{args* 6818}#)))) + (lambda (#{meta 6826}# #{lcase 6827}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 6808}# + #{meta 6826}# + #{lcase 6827}#)))) + #{tmp 6811}#) + (syntax-violation + 'case-lambda + "bad case-lambda*" + #{e 6805}#))))) + (#{global-extend 4311}# + 'core + 'let + (letrec* + ((#{chi-let 7019}# + (lambda (#{e 7168}# + #{r 7169}# + #{w 7170}# + #{s 7171}# + #{mod 7172}# + #{constructor 7173}# + #{ids 7174}# + #{vals 7175}# + #{exps 7176}#) + (if (not (#{valid-bound-ids? 4335}# #{ids 7174}#)) + (syntax-violation + 'let + "duplicate bound variable" + #{e 7168}#) + (let ((#{labels 7254}# + (#{gen-labels 4316}# #{ids 7174}#)) + (#{new-vars 7255}# + (map #{gen-var 4359}# #{ids 7174}#))) + (let ((#{nw 7256}# + (#{make-binding-wrap 4327}# + #{ids 7174}# + #{labels 7254}# + #{w 7170}#)) + (#{nr 7257}# + (#{extend-var-env 4308}# + #{labels 7254}# + #{new-vars 7255}# + #{r 7169}#))) + (#{constructor 7173}# + #{s 7171}# + (map syntax->datum #{ids 7174}#) + #{new-vars 7255}# + (map (lambda (#{x 7274}#) + (#{chi 4345}# + #{x 7274}# + #{r 7169}# + #{w 7170}# + #{mod 7172}#)) + #{vals 7175}#) + (#{chi-body 4349}# + #{exps 7176}# + (#{source-wrap 4339}# + #{e 7168}# + #{nw 7256}# + #{s 7171}# + #{mod 7172}#) + #{nr 7257}# + #{nw 7256}# + #{mod 7172}#)))))))) + (lambda (#{e 7020}# + #{r 7021}# + #{w 7022}# + #{s 7023}# + #{mod 7024}#) + (let ((#{tmp 7026}# + ($sc-dispatch + #{e 7020}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 7026}# + (@apply + (lambda (#{id 7030}# + #{val 7031}# + #{e1 7032}# + #{e2 7033}#) + (and-map #{id? 4313}# #{id 7030}#)) + #{tmp 7026}#) + #f) + (@apply + (lambda (#{id 7049}# + #{val 7050}# + #{e1 7051}# + #{e2 7052}#) + (#{chi-let 7019}# + #{e 7020}# + #{r 7021}# + #{w 7022}# + #{s 7023}# + #{mod 7024}# + #{build-let 4295}# + #{id 7049}# + #{val 7050}# + (cons #{e1 7051}# #{e2 7052}#))) + #{tmp 7026}#) + (let ((#{tmp 7082}# + ($sc-dispatch + #{e 7020}# + '(_ any #(each (any any)) any . each-any)))) + (if (if #{tmp 7082}# + (@apply + (lambda (#{f 7086}# + #{id 7087}# + #{val 7088}# + #{e1 7089}# + #{e2 7090}#) + (if (if (symbol? #{f 7086}#) + #t + (if (if (vector? #{f 7086}#) + (if (= (vector-length #{f 7086}#) 4) + (eq? (vector-ref #{f 7086}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{f 7086}# 1)) + #f)) + (and-map #{id? 4313}# #{id 7087}#) + #f)) + #{tmp 7082}#) + #f) + (@apply + (lambda (#{f 7132}# + #{id 7133}# + #{val 7134}# + #{e1 7135}# + #{e2 7136}#) + (#{chi-let 7019}# + #{e 7020}# + #{r 7021}# + #{w 7022}# + #{s 7023}# + #{mod 7024}# + #{build-named-let 4296}# + (cons #{f 7132}# #{id 7133}#) + #{val 7134}# + (cons #{e1 7135}# #{e2 7136}#))) + #{tmp 7082}#) + (syntax-violation + 'let + "bad let" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 7020}#) #{s 7023}# #f) + (set-source-properties! #{e 7020}# #{s 7023}#)) + #{e 7020}#) + #{w 7022}# + #{mod 7024}#))))))))) + (#{global-extend 4311}# + 'core + 'letrec + (lambda (#{e 7723}# + #{r 7724}# + #{w 7725}# + #{s 7726}# + #{mod 7727}#) + (let ((#{tmp 7729}# + ($sc-dispatch + #{e 7723}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 7729}# + (@apply + (lambda (#{id 7733}# + #{val 7734}# + #{e1 7735}# + #{e2 7736}#) + (and-map #{id? 4313}# #{id 7733}#)) + #{tmp 7729}#) + #f) + (@apply + (lambda (#{id 7752}# + #{val 7753}# + #{e1 7754}# + #{e2 7755}#) + (if (not (#{valid-bound-ids? 4335}# #{id 7752}#)) + (syntax-violation + 'letrec + "duplicate bound variable" + #{e 7723}#) + (let ((#{labels 7845}# + (#{gen-labels 4316}# #{id 7752}#)) + (#{new-vars 7846}# + (map #{gen-var 4359}# #{id 7752}#))) + (let ((#{w 7847}# + (#{make-binding-wrap 4327}# + #{id 7752}# + #{labels 7845}# + #{w 7725}#)) + (#{r 7848}# + (#{extend-var-env 4308}# + #{labels 7845}# + #{new-vars 7846}# + #{r 7724}#))) + (#{build-letrec 4297}# + #{s 7726}# + #f + (map syntax->datum #{id 7752}#) + #{new-vars 7846}# + (map (lambda (#{x 7935}#) + (#{chi 4345}# + #{x 7935}# + #{r 7848}# + #{w 7847}# + #{mod 7727}#)) + #{val 7753}#) + (#{chi-body 4349}# + (cons #{e1 7754}# #{e2 7755}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 7723}#) #{s 7726}# #f) + (set-source-properties! #{e 7723}# #{s 7726}#)) + #{e 7723}#) + #{w 7847}# + #{mod 7727}#) + #{r 7848}# + #{w 7847}# + #{mod 7727}#)))))) + #{tmp 7729}#) + (syntax-violation + 'letrec + "bad letrec" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 7723}#) #{s 7726}# #f) + (set-source-properties! #{e 7723}# #{s 7726}#)) + #{e 7723}#) + #{w 7725}# + #{mod 7727}#)))))) + (#{global-extend 4311}# + 'core + 'letrec* + (lambda (#{e 8352}# + #{r 8353}# + #{w 8354}# + #{s 8355}# + #{mod 8356}#) + (let ((#{tmp 8358}# + ($sc-dispatch + #{e 8352}# + '(_ #(each (any any)) any . each-any)))) + (if (if #{tmp 8358}# + (@apply + (lambda (#{id 8362}# + #{val 8363}# + #{e1 8364}# + #{e2 8365}#) + (and-map #{id? 4313}# #{id 8362}#)) + #{tmp 8358}#) + #f) + (@apply + (lambda (#{id 8381}# + #{val 8382}# + #{e1 8383}# + #{e2 8384}#) + (if (not (#{valid-bound-ids? 4335}# #{id 8381}#)) + (syntax-violation + 'letrec* + "duplicate bound variable" + #{e 8352}#) + (let ((#{labels 8474}# + (#{gen-labels 4316}# #{id 8381}#)) + (#{new-vars 8475}# + (map #{gen-var 4359}# #{id 8381}#))) + (let ((#{w 8476}# + (#{make-binding-wrap 4327}# + #{id 8381}# + #{labels 8474}# + #{w 8354}#)) + (#{r 8477}# + (#{extend-var-env 4308}# + #{labels 8474}# + #{new-vars 8475}# + #{r 8353}#))) + (#{build-letrec 4297}# + #{s 8355}# + #t + (map syntax->datum #{id 8381}#) + #{new-vars 8475}# + (map (lambda (#{x 8564}#) + (#{chi 4345}# + #{x 8564}# + #{r 8477}# + #{w 8476}# + #{mod 8356}#)) + #{val 8382}#) + (#{chi-body 4349}# + (cons #{e1 8383}# #{e2 8384}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 8352}#) #{s 8355}# #f) + (set-source-properties! #{e 8352}# #{s 8355}#)) + #{e 8352}#) + #{w 8476}# + #{mod 8356}#) + #{r 8477}# + #{w 8476}# + #{mod 8356}#)))))) + #{tmp 8358}#) + (syntax-violation + 'letrec* + "bad letrec*" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 8352}#) #{s 8355}# #f) + (set-source-properties! #{e 8352}# #{s 8355}#)) + #{e 8352}#) + #{w 8354}# + #{mod 8356}#)))))) + (#{global-extend 4311}# + 'core + 'set! + (lambda (#{e 9035}# + #{r 9036}# + #{w 9037}# + #{s 9038}# + #{mod 9039}#) + (let ((#{tmp 9041}# + ($sc-dispatch #{e 9035}# '(_ any any)))) + (if (if #{tmp 9041}# + (@apply + (lambda (#{id 9045}# #{val 9046}#) + (if (symbol? #{id 9045}#) + #t + (if (if (vector? #{id 9045}#) + (if (= (vector-length #{id 9045}#) 4) + (eq? (vector-ref #{id 9045}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 9045}# 1)) + #f))) + #{tmp 9041}#) + #f) + (@apply + (lambda (#{id 9073}# #{val 9074}#) + (let ((#{n 9075}# + (#{id-var-name 4332}# #{id 9073}# #{w 9037}#)) + (#{id-mod 9076}# + (if (if (vector? #{id 9073}#) + (if (= (vector-length #{id 9073}#) 4) + (eq? (vector-ref #{id 9073}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{id 9073}# 3) + #{mod 9039}#))) + (let ((#{b 9077}# + (let ((#{t 9764}# (assq #{n 9075}# #{r 9036}#))) + (if #{t 9764}# + (cdr #{t 9764}#) + (if (symbol? #{n 9075}#) + (let ((#{t 9769}# + (begin + (if (if (not #{id-mod 9076}#) + (current-module) + #f) + (warn "module system is booted, we should have a module" + #{n 9075}#)) + (let ((#{v 9806}# + (module-variable + (if #{id-mod 9076}# + (resolve-module + (cdr #{id-mod 9076}#)) + (current-module)) + #{n 9075}#))) + (if #{v 9806}# + (if (variable-bound? #{v 9806}#) + (let ((#{val 9815}# + (variable-ref + #{v 9806}#))) + (if (macro? #{val 9815}#) + (if (macro-type + #{val 9815}#) + (cons (macro-type + #{val 9815}#) + (macro-binding + #{val 9815}#)) + #f) + #f)) + #f) + #f))))) + (if #{t 9769}# #{t 9769}# '(global))) + '(displaced-lexical)))))) + (let ((#{atom-key 9078}# (car #{b 9077}#))) + (if (let ((#{t 9115}# #{atom-key 9078}#)) + (eqv? #{t 9115}# 'lexical)) + (#{build-lexical-assignment 4284}# + #{s 9038}# + (syntax->datum #{id 9073}#) + (cdr #{b 9077}#) + (#{chi 4345}# + #{val 9074}# + #{r 9036}# + #{w 9037}# + #{mod 9039}#)) + (if (let ((#{t 9400}# #{atom-key 9078}#)) + (eqv? #{t 9400}# 'global)) + (#{build-global-assignment 4287}# + #{s 9038}# + #{n 9075}# + (#{chi 4345}# + #{val 9074}# + #{r 9036}# + #{w 9037}# + #{mod 9039}#) + #{id-mod 9076}#) + (if (let ((#{t 9655}# #{atom-key 9078}#)) + (eqv? #{t 9655}# 'macro)) + (let ((#{p 9718}# (cdr #{b 9077}#))) + (if (procedure-property + #{p 9718}# + 'variable-transformer) + (#{chi 4345}# + (#{chi-macro 4348}# + #{p 9718}# + #{e 9035}# + #{r 9036}# + #{w 9037}# + #{s 9038}# + #f + #{mod 9039}#) + #{r 9036}# + '(()) + #{mod 9039}#) + (syntax-violation + 'set! + "not a variable transformer" + (#{wrap 4338}# + #{e 9035}# + #{w 9037}# + #{mod 9039}#) + (#{wrap 4338}# + #{id 9073}# + #{w 9037}# + #{id-mod 9076}#)))) + (if (eqv? #{atom-key 9078}# 'displaced-lexical) + (syntax-violation + 'set! + "identifier out of context" + (#{wrap 4338}# + #{id 9073}# + #{w 9037}# + #{mod 9039}#)) + (syntax-violation + 'set! + "bad set!" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 9035}#) #{s 9038}# #f) + (set-source-properties! + #{e 9035}# + #{s 9038}#)) + #{e 9035}#) + #{w 9037}# + #{mod 9039}#)))))))))) + #{tmp 9041}#) + (let ((#{tmp 9916}# + ($sc-dispatch + #{e 9035}# + '(_ (any . each-any) any)))) + (if #{tmp 9916}# + (@apply + (lambda (#{head 9920}# #{tail 9921}# #{val 9922}#) + (call-with-values + (lambda () + (#{syntax-type 4344}# + #{head 9920}# + #{r 9036}# + '(()) + #f + #f + #{mod 9039}# + #t)) + (lambda (#{type 9925}# + #{value 9926}# + #{ee 9927}# + #{ww 9928}# + #{ss 9929}# + #{modmod 9930}#) + (if (eqv? #{type 9925}# 'module-ref) + (let ((#{val 9934}# + (#{chi 4345}# + #{val 9922}# + #{r 9036}# + #{w 9037}# + #{mod 9039}#))) + (call-with-values + (lambda () + (#{value 9926}# + (cons #{head 9920}# #{tail 9921}#) + #{r 9036}# + #{w 9037}#)) + (lambda (#{e 9935}# + #{r 9936}# + #{w 9937}# + #{s* 9938}# + #{mod 9939}#) + (let ((#{tmp 9941}# (list #{e 9935}#))) + (if (@apply + (lambda (#{e 9943}#) + (if (symbol? #{e 9943}#) + #t + (if (if (vector? #{e 9943}#) + (if (= (vector-length + #{e 9943}#) + 4) + (eq? (vector-ref + #{e 9943}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{e 9943}# 1)) + #f))) + #{tmp 9941}#) + (@apply + (lambda (#{e 9973}#) + (#{build-global-assignment 4287}# + #{s 9038}# + (syntax->datum #{e 9973}#) + #{val 9934}# + #{mod 9939}#)) + #{tmp 9941}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 9935}#)))))) + (#{build-application 4280}# + #{s 9038}# + (#{chi 4345}# + (list '#(syntax-object + setter + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(type value ee ww ss modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3555" + "i3556" + "i3557" + "i3558" + "i3559" + "i3560")) + #(ribcage + #(head tail val) + #((top) (top) (top)) + #("i3541" "i3542" "i3543")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) + #((top) (top) (top) (top) (top)) + #("i3505" + "i3506" + "i3507" + "i3508" + "i3509")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + #{head 9920}#) + #{r 9036}# + #{w 9037}# + #{mod 9039}#) + (map (lambda (#{e 10274}#) + (#{chi 4345}# + #{e 10274}# + #{r 9036}# + #{w 9037}# + #{mod 9039}#)) + (append + #{tail 9921}# + (list #{val 9922}#)))))))) + #{tmp 9916}#) + (syntax-violation + 'set! + "bad set!" + (#{wrap 4338}# + (begin + (if (if (pair? #{e 9035}#) #{s 9038}# #f) + (set-source-properties! #{e 9035}# #{s 9038}#)) + #{e 9035}#) + #{w 9037}# + #{mod 9039}#)))))))) + (module-define! + (current-module) + '@ + (make-syntax-transformer + '@ + 'module-ref + (lambda (#{e 10388}# #{r 10389}# #{w 10390}#) + (let ((#{tmp 10392}# + ($sc-dispatch #{e 10388}# '(_ each-any any)))) + (if (if #{tmp 10392}# + (@apply + (lambda (#{mod 10395}# #{id 10396}#) + (if (and-map #{id? 4313}# #{mod 10395}#) + (if (symbol? #{id 10396}#) + #t + (if (if (vector? #{id 10396}#) + (if (= (vector-length #{id 10396}#) 4) + (eq? (vector-ref #{id 10396}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 10396}# 1)) + #f)) + #f)) + #{tmp 10392}#) + #f) + (@apply + (lambda (#{mod 10436}# #{id 10437}#) + (values + (syntax->datum #{id 10437}#) + #{r 10389}# + #{w 10390}# + #f + (syntax->datum + (cons '#(syntax-object + public + ((top) + #(ribcage + #(mod id) + #((top) (top)) + #("i3602" "i3603")) + #(ribcage () () ()) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3590" "i3591" "i3592")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + #{mod 10436}#)))) + #{tmp 10392}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 10388}#)))))) + (#{global-extend 4311}# + 'module-ref + '@@ + (lambda (#{e 10534}# #{r 10535}# #{w 10536}#) + (letrec* + ((#{remodulate 10537}# + (lambda (#{x 10743}# #{mod 10744}#) + (if (pair? #{x 10743}#) + (cons (#{remodulate 10537}# + (car #{x 10743}#) + #{mod 10744}#) + (#{remodulate 10537}# + (cdr #{x 10743}#) + #{mod 10744}#)) + (if (if (vector? #{x 10743}#) + (if (= (vector-length #{x 10743}#) 4) + (eq? (vector-ref #{x 10743}# 0) 'syntax-object) + #f) + #f) + (let ((#{expression 10758}# + (#{remodulate 10537}# + (vector-ref #{x 10743}# 1) + #{mod 10744}#)) + (#{wrap 10759}# (vector-ref #{x 10743}# 2))) + (vector + 'syntax-object + #{expression 10758}# + #{wrap 10759}# + #{mod 10744}#)) + (if (vector? #{x 10743}#) + (let ((#{n 10767}# (vector-length #{x 10743}#))) + (let ((#{v 10768}# (make-vector #{n 10767}#))) + (letrec* + ((#{loop 10769}# + (lambda (#{i 10816}#) + (if (= #{i 10816}# #{n 10767}#) + #{v 10768}# + (begin + (vector-set! + #{v 10768}# + #{i 10816}# + (#{remodulate 10537}# + (vector-ref #{x 10743}# #{i 10816}#) + #{mod 10744}#)) + (#{loop 10769}# (#{1+}# #{i 10816}#))))))) + (#{loop 10769}# 0)))) + #{x 10743}#)))))) + (let ((#{tmp 10539}# + ($sc-dispatch #{e 10534}# '(_ each-any any)))) + (if (if #{tmp 10539}# + (@apply + (lambda (#{mod 10543}# #{exp 10544}#) + (and-map #{id? 4313}# #{mod 10543}#)) + #{tmp 10539}#) + #f) + (@apply + (lambda (#{mod 10560}# #{exp 10561}#) + (let ((#{mod 10562}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(mod exp) + #((top) (top)) + #("i3646" "i3647")) + #(ribcage (remodulate) ((top)) ("i3613")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3610" "i3611" "i3612")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + #{mod 10560}#)))) + (values + (#{remodulate 10537}# + #{exp 10561}# + #{mod 10562}#) + #{r 10535}# + #{w 10536}# + (#{source-annotation 4306}# #{exp 10561}#) + #{mod 10562}#))) + #{tmp 10539}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 10534}#)))))) + (#{global-extend 4311}# + 'core + 'if + (lambda (#{e 10922}# + #{r 10923}# + #{w 10924}# + #{s 10925}# + #{mod 10926}#) + (let ((#{tmp 10928}# + ($sc-dispatch #{e 10922}# '(_ any any)))) + (if #{tmp 10928}# + (@apply + (lambda (#{test 10932}# #{then 10933}#) + (#{build-conditional 4281}# + #{s 10925}# + (#{chi 4345}# + #{test 10932}# + #{r 10923}# + #{w 10924}# + #{mod 10926}#) + (#{chi 4345}# + #{then 10933}# + #{r 10923}# + #{w 10924}# + #{mod 10926}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f))) + #{tmp 10928}#) + (let ((#{tmp 11173}# + ($sc-dispatch #{e 10922}# '(_ any any any)))) + (if #{tmp 11173}# + (@apply + (lambda (#{test 11177}# #{then 11178}# #{else 11179}#) + (#{build-conditional 4281}# + #{s 10925}# + (#{chi 4345}# + #{test 11177}# + #{r 10923}# + #{w 10924}# + #{mod 10926}#) + (#{chi 4345}# + #{then 11178}# + #{r 10923}# + #{w 10924}# + #{mod 10926}#) + (#{chi 4345}# + #{else 11179}# + #{r 10923}# + #{w 10924}# + #{mod 10926}#))) + #{tmp 11173}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 10922}#))))))) + (#{global-extend 4311}# + 'core + 'with-fluids + (lambda (#{e 11603}# + #{r 11604}# + #{w 11605}# + #{s 11606}# + #{mod 11607}#) + (let ((#{tmp 11609}# + ($sc-dispatch + #{e 11603}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 11609}# + (@apply + (lambda (#{fluid 11613}# + #{val 11614}# + #{b 11615}# + #{b* 11616}#) + (#{build-dynlet 4282}# + #{s 11606}# + (map (lambda (#{x 11702}#) + (#{chi 4345}# + #{x 11702}# + #{r 11604}# + #{w 11605}# + #{mod 11607}#)) + #{fluid 11613}#) + (map (lambda (#{x 11777}#) + (#{chi 4345}# + #{x 11777}# + #{r 11604}# + #{w 11605}# + #{mod 11607}#)) + #{val 11614}#) + (#{chi-body 4349}# + (cons #{b 11615}# #{b* 11616}#) + (#{wrap 4338}# + (begin + (if (if (pair? #{e 11603}#) #{s 11606}# #f) + (set-source-properties! #{e 11603}# #{s 11606}#)) + #{e 11603}#) + #{w 11605}# + #{mod 11607}#) + #{r 11604}# + #{w 11605}# + #{mod 11607}#))) + #{tmp 11609}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 11603}#))))) + (module-define! + (current-module) + 'begin + (make-syntax-transformer 'begin 'begin '())) + (module-define! + (current-module) + 'define + (make-syntax-transformer 'define 'define '())) + (module-define! + (current-module) + 'define-syntax + (make-syntax-transformer + 'define-syntax + 'define-syntax + '())) + (module-define! + (current-module) + 'eval-when + (make-syntax-transformer + 'eval-when + 'eval-when + '())) + (#{global-extend 4311}# + 'core + 'syntax-case + (letrec* + ((#{convert-pattern 12148}# + (lambda (#{pattern 13759}# #{keys 13760}#) + (letrec* + ((#{cvt* 13761}# + (lambda (#{p* 14378}# #{n 14379}# #{ids 14380}#) + (if (not (pair? #{p* 14378}#)) + (#{cvt 13763}# + #{p* 14378}# + #{n 14379}# + #{ids 14380}#) + (call-with-values + (lambda () + (#{cvt* 13761}# + (cdr #{p* 14378}#) + #{n 14379}# + #{ids 14380}#)) + (lambda (#{y 14383}# #{ids 14384}#) + (call-with-values + (lambda () + (#{cvt 13763}# + (car #{p* 14378}#) + #{n 14379}# + #{ids 14384}#)) + (lambda (#{x 14387}# #{ids 14388}#) + (values + (cons #{x 14387}# #{y 14383}#) + #{ids 14388}#)))))))) + (#{v-reverse 13762}# + (lambda (#{x 14389}#) + (letrec* + ((#{loop 14390}# + (lambda (#{r 14467}# #{x 14468}#) + (if (not (pair? #{x 14468}#)) + (values #{r 14467}# #{x 14468}#) + (#{loop 14390}# + (cons (car #{x 14468}#) #{r 14467}#) + (cdr #{x 14468}#)))))) + (#{loop 14390}# '() #{x 14389}#)))) + (#{cvt 13763}# + (lambda (#{p 13766}# #{n 13767}# #{ids 13768}#) + (if (if (symbol? #{p 13766}#) + #t + (if (if (vector? #{p 13766}#) + (if (= (vector-length #{p 13766}#) 4) + (eq? (vector-ref #{p 13766}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{p 13766}# 1)) + #f)) + (if (#{bound-id-member? 4337}# + #{p 13766}# + #{keys 13760}#) + (values + (vector 'free-id #{p 13766}#) + #{ids 13768}#) + (if (if (eq? (if (if (vector? #{p 13766}#) + (if (= (vector-length #{p 13766}#) + 4) + (eq? (vector-ref #{p 13766}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{p 13766}# 1) + #{p 13766}#) + (if (if (= (vector-length '#(syntax-object - ... + _ ((top) - #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(x) - #((top)) - #("i2229")) + #(p n ids) + #((top) (top) (top)) + #("i3747" + "i3748" + "i3749")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3720" + "i3718" + "i3716")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3714" "i3715")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) #(ribcage (lambda-var-list gen-var @@ -26821,148 +21041,15293 @@ (top) (top) (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" "i398" - "i397" - "i395" + "i396" + "i393" "i392" "i391" - "i390" + "i389" "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" "i366" - "i365" - "i363" - "i361" - "i359" + "i364" + "i362" + "i360" + "i358" "i357" "i356" "i355" - "i354" + "i353" "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" "i336" "i335" - "i334" - "i332" + "i333" + "i331" "i330" - "i329" + "i327" "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" "i260" - "i259" - "i256" + "i257" + "i255" "i254" "i253" "i252" "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i45" "i44" "i43"))) + ("i46" "i45" "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3747" + "i3748" + "i3749")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3720" + "i3718" + "i3716")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3714" "i3715")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3747" "i3748" "i3749")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3720" "i3718" "i3716")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3714" "i3715")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3747" "i3748" "i3749")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3720" "i3718" "i3716")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3714" "i3715")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" "i3708" "i3706" "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# #{p 13766}# '(())) + (#{id-var-name 4332}# + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3747" "i3748" "i3749")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3720" "i3718" "i3716")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3714" "i3715")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" "i3708" "i3706" "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + (values '_ #{ids 13768}#) + (values + 'any + (cons (cons #{p 13766}# #{n 13767}#) + #{ids 13768}#)))) + (let ((#{tmp 14087}# + ($sc-dispatch #{p 13766}# '(any any)))) + (if (if #{tmp 14087}# + (@apply + (lambda (#{x 14091}# #{dots 14092}#) + (if (if (if (vector? #{dots 14092}#) + (if (= (vector-length + #{dots 14092}#) + 4) + (eq? (vector-ref + #{dots 14092}# + 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{dots 14092}# 1)) + #f) + (if (eq? (if (if (vector? #{dots 14092}#) + (if (= (vector-length + #{dots 14092}#) + 4) + (eq? (vector-ref + #{dots 14092}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{dots 14092}# 1) + #{dots 14092}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + #{dots 14092}# + '(())) + (#{id-var-name 4332}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #{tmp 14087}#) + #f) + (@apply + (lambda (#{x 14189}# #{dots 14190}#) + (call-with-values + (lambda () + (#{cvt 13763}# + #{x 14189}# + (#{1+}# #{n 13767}#) + #{ids 13768}#)) + (lambda (#{p 14191}# #{ids 14192}#) + (values + (if (eq? #{p 14191}# 'any) + 'each-any + (vector 'each #{p 14191}#)) + #{ids 14192}#)))) + #{tmp 14087}#) + (let ((#{tmp 14193}# + ($sc-dispatch #{p 13766}# '(any any . any)))) + (if (if #{tmp 14193}# + (@apply + (lambda (#{x 14197}# + #{dots 14198}# + #{ys 14199}#) + (if (if (if (vector? #{dots 14198}#) + (if (= (vector-length + #{dots 14198}#) + 4) + (eq? (vector-ref + #{dots 14198}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{dots 14198}# 1)) + #f) + (if (eq? (if (if (vector? + #{dots 14198}#) + (if (= (vector-length + #{dots 14198}#) + 4) + (eq? (vector-ref + #{dots 14198}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{dots 14198}# + 1) + #{dots 14198}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + #{dots 14198}# + '(())) + (#{id-var-name 4332}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #{tmp 14193}#) + #f) + (@apply + (lambda (#{x 14296}# + #{dots 14297}# + #{ys 14298}#) + (call-with-values + (lambda () + (#{cvt* 13761}# + #{ys 14298}# + #{n 13767}# + #{ids 13768}#)) + (lambda (#{ys 14301}# #{ids 14302}#) + (call-with-values + (lambda () + (#{cvt 13763}# + #{x 14296}# + (#{1+}# #{n 13767}#) + #{ids 14302}#)) + (lambda (#{x 14303}# #{ids 14304}#) + (call-with-values + (lambda () + (#{v-reverse 13762}# + #{ys 14301}#)) + (lambda (#{ys 14337}# #{e 14338}#) + (values + (vector + 'each+ + #{x 14303}# + #{ys 14337}# + #{e 14338}#) + #{ids 14304}#)))))))) + #{tmp 14193}#) + (let ((#{tmp 14339}# + ($sc-dispatch #{p 13766}# '(any . any)))) + (if #{tmp 14339}# + (@apply + (lambda (#{x 14343}# #{y 14344}#) + (call-with-values + (lambda () + (#{cvt 13763}# + #{y 14344}# + #{n 13767}# + #{ids 13768}#)) + (lambda (#{y 14345}# #{ids 14346}#) + (call-with-values + (lambda () + (#{cvt 13763}# + #{x 14343}# + #{n 13767}# + #{ids 14346}#)) + (lambda (#{x 14347}# #{ids 14348}#) + (values + (cons #{x 14347}# #{y 14345}#) + #{ids 14348}#)))))) + #{tmp 14339}#) + (let ((#{tmp 14349}# + ($sc-dispatch #{p 13766}# '()))) + (if #{tmp 14349}# + (@apply + (lambda () (values '() #{ids 13768}#)) + #{tmp 14349}#) + (let ((#{tmp 14353}# + ($sc-dispatch + #{p 13766}# + '#(vector each-any)))) + (if #{tmp 14353}# + (@apply + (lambda (#{x 14357}#) + (call-with-values + (lambda () + (#{cvt 13763}# + #{x 14357}# + #{n 13767}# + #{ids 13768}#)) + (lambda (#{p 14358}# + #{ids 14359}#) + (values + (vector + 'vector + #{p 14358}#) + #{ids 14359}#)))) + #{tmp 14353}#) + (values + (vector + 'atom + (#{strip 4358}# + #{p 13766}# + '(()))) + #{ids 13768}#))))))))))))))) + (#{cvt 13763}# #{pattern 13759}# 0 '())))) + (#{build-dispatch-call 12149}# + (lambda (#{pvars 14469}# + #{exp 14470}# + #{y 14471}# + #{r 14472}# + #{mod 14473}#) + (let ((#{ids 14474}# (map car #{pvars 14469}#))) + (begin + (map cdr #{pvars 14469}#) + (let ((#{labels 14476}# + (#{gen-labels 4316}# #{ids 14474}#)) + (#{new-vars 14477}# + (map #{gen-var 4359}# #{ids 14474}#))) + (#{build-application 4280}# + #f + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'apply) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'apply + #f)) + (list (#{build-simple-lambda 4289}# + #f + (map syntax->datum #{ids 14474}#) + #f + #{new-vars 14477}# + '() + (#{chi 4345}# + #{exp 14470}# + (#{extend-env 4307}# + #{labels 14476}# + (map (lambda (#{var 14802}# #{level 14803}#) + (cons 'syntax + (cons #{var 14802}# + #{level 14803}#))) + #{new-vars 14477}# + (map cdr #{pvars 14469}#)) + #{r 14472}#) + (#{make-binding-wrap 4327}# + #{ids 14474}# + #{labels 14476}# + '(())) + #{mod 14473}#)) + #{y 14471}#))))))) + (#{gen-clause 12150}# + (lambda (#{x 13123}# + #{keys 13124}# + #{clauses 13125}# + #{r 13126}# + #{pat 13127}# + #{fender 13128}# + #{exp 13129}# + #{mod 13130}#) + (call-with-values + (lambda () + (#{convert-pattern 12148}# + #{pat 13127}# + #{keys 13124}#)) + (lambda (#{p 13285}# #{pvars 13286}#) + (if (not (#{distinct-bound-ids? 4336}# + (map car #{pvars 13286}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat 13127}#) + (if (not (and-map + (lambda (#{x 13406}#) + (not (let ((#{x 13410}# (car #{x 13406}#))) + (if (if (if (vector? #{x 13410}#) + (if (= (vector-length + #{x 13410}#) + 4) + (eq? (vector-ref + #{x 13410}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{x 13410}# 1)) + #f) + (if (eq? (if (if (vector? #{x 13410}#) + (if (= (vector-length + #{x 13410}#) + 4) + (eq? (vector-ref + #{x 13410}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 13410}# 1) + #{x 13410}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + #{x 13410}# + '(())) + (#{id-var-name 4332}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + #f)))) + #{pvars 13286}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat 13127}#) + (let ((#{y 13483}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (#{build-application 4280}# + #f + (let ((#{req 13633}# (list 'tmp)) + (#{vars 13635}# (list #{y 13483}#)) + (#{exp 13637}# + (let ((#{y 13654}# + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + 'tmp + #{y 13483}#))) + (let ((#{test-exp 13658}# + (let ((#{tmp 13667}# + ($sc-dispatch + #{fender 13128}# + '#(atom #t)))) + (if #{tmp 13667}# + (@apply + (lambda () #{y 13654}#) + #{tmp 13667}#) + (let ((#{then-exp 13685}# + (#{build-dispatch-call 12149}# + #{pvars 13286}# + #{fender 13128}# + #{y 13654}# + #{r 13126}# + #{mod 13130}#)) + (#{else-exp 13686}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #f))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 10) + #f + #{y 13654}# + #{then-exp 13685}# + #{else-exp 13686}#))))) + (#{then-exp 13659}# + (#{build-dispatch-call 12149}# + #{pvars 13286}# + #{exp 13129}# + #{y 13654}# + #{r 13126}# + #{mod 13130}#)) + (#{else-exp 13660}# + (#{gen-syntax-case 12151}# + #{x 13123}# + #{keys 13124}# + #{clauses 13125}# + #{r 13126}# + #{mod 13130}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 10) + #f + #{test-exp 13658}# + #{then-exp 13659}# + #{else-exp 13660}#))))) + (let ((#{body 13642}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 13633}# + #f + #f + #f + '() + #{vars 13635}# + #{exp 13637}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 13642}#))) + (list (if (eq? #{p 13285}# 'any) + (let ((#{fun-exp 13708}# + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'list) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'list + #f))) + (#{arg-exps 13709}# (list #{x 13123}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 13708}# + #{arg-exps 13709}#)) + (let ((#{fun-exp 13732}# + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + '$sc-dispatch) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + '$sc-dispatch + #f))) + (#{arg-exps 13733}# + (list #{x 13123}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #{p 13285}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 13732}# + #{arg-exps 13733}#)))))))))))) + (#{gen-syntax-case 12151}# + (lambda (#{x 12557}# + #{keys 12558}# + #{clauses 12559}# + #{r 12560}# + #{mod 12561}#) + (if (null? #{clauses 12559}#) + (let ((#{fun-exp 12566}# + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'syntax-violation) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'syntax-violation + #f))) + (#{arg-exps 12567}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #f) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + "source expression failed to match any pattern") + #{x 12557}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 12566}# + #{arg-exps 12567}#)) + (let ((#{tmp 12600}# (car #{clauses 12559}#))) + (let ((#{tmp 12601}# + ($sc-dispatch #{tmp 12600}# '(any any)))) + (if #{tmp 12601}# + (@apply + (lambda (#{pat 12603}# #{exp 12604}#) + (if (if (if (symbol? #{pat 12603}#) + #t + (if (if (vector? #{pat 12603}#) + (if (= (vector-length #{pat 12603}#) + 4) + (eq? (vector-ref #{pat 12603}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{pat 12603}# 1)) + #f)) + (and-map + (lambda (#{x 12631}#) + (not (if (eq? (if (if (vector? + #{pat 12603}#) + (if (= (vector-length + #{pat 12603}#) + 4) + (eq? (vector-ref + #{pat 12603}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{pat 12603}# 1) + #{pat 12603}#) + (if (if (vector? #{x 12631}#) + (if (= (vector-length + #{x 12631}#) + 4) + (eq? (vector-ref + #{x 12631}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 12631}# 1) + #{x 12631}#)) + (eq? (#{id-var-name 4332}# + #{pat 12603}# + '(())) + (#{id-var-name 4332}# + #{x 12631}# + '(()))) + #f))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" "i3708" "i3706" "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + #{keys 12558}#)) + #f) + (if (if (eq? (if (if (= (vector-length + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile))) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + 1) + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)))) + (eq? (#{id-var-name 4332}# + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(())) + (#{id-var-name 4332}# + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3911" "i3912")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) (top) (top) (top) (top)) + #("i3900" + "i3901" + "i3902" + "i3903" + "i3904")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3710" + "i3708" + "i3706" + "i3704")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) + (hygiene guile)) + '(()))) + #f) + (#{chi 4345}# + #{exp 12604}# + #{r 12560}# + '(()) + #{mod 12561}#) + (let ((#{labels 12806}# + (list (symbol->string (gensym "i")))) + (#{var 12807}# + (let ((#{id 12845}# + (if (if (vector? #{pat 12603}#) + (if (= (vector-length + #{pat 12603}#) + 4) + (eq? (vector-ref + #{pat 12603}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{pat 12603}# 1) + #{pat 12603}#))) + (gensym + (string-append + (symbol->string #{id 12845}#) + " "))))) + (#{build-application 4280}# + #f + (#{build-simple-lambda 4289}# + #f + (list (syntax->datum #{pat 12603}#)) + #f + (list #{var 12807}#) + '() + (#{chi 4345}# + #{exp 12604}# + (#{extend-env 4307}# + #{labels 12806}# + (list (cons 'syntax + (cons #{var 12807}# 0))) + #{r 12560}#) + (#{make-binding-wrap 4327}# + (list #{pat 12603}#) + #{labels 12806}# + '(())) + #{mod 12561}#)) + (list #{x 12557}#)))) + (#{gen-clause 12150}# + #{x 12557}# + #{keys 12558}# + (cdr #{clauses 12559}#) + #{r 12560}# + #{pat 12603}# + #t + #{exp 12604}# + #{mod 12561}#))) + #{tmp 12601}#) + (let ((#{tmp 13115}# + ($sc-dispatch #{tmp 12600}# '(any any any)))) + (if #{tmp 13115}# + (@apply + (lambda (#{pat 13117}# + #{fender 13118}# + #{exp 13119}#) + (#{gen-clause 12150}# + #{x 12557}# + #{keys 12558}# + (cdr #{clauses 12559}#) + #{r 12560}# + #{pat 13117}# + #{fender 13118}# + #{exp 13119}# + #{mod 12561}#)) + #{tmp 13115}#) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses 12559}#))))))))))) + (lambda (#{e 12152}# + #{r 12153}# + #{w 12154}# + #{s 12155}# + #{mod 12156}#) + (let ((#{e 12157}# + (#{wrap 4338}# + (begin + (if (if (pair? #{e 12152}#) #{s 12155}# #f) + (set-source-properties! #{e 12152}# #{s 12155}#)) + #{e 12152}#) + #{w 12154}# + #{mod 12156}#))) + (let ((#{tmp 12159}# + ($sc-dispatch + #{e 12157}# + '(_ any each-any . each-any)))) + (if #{tmp 12159}# + (@apply + (lambda (#{val 12184}# #{key 12185}# #{m 12186}#) + (if (and-map + (lambda (#{x 12187}#) + (if (if (symbol? #{x 12187}#) + #t + (if (if (vector? #{x 12187}#) + (if (= (vector-length #{x 12187}#) 4) + (eq? (vector-ref #{x 12187}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 12187}# 1)) + #f)) + (not (if (if (if (vector? #{x 12187}#) + (if (= (vector-length #{x 12187}#) + 4) + (eq? (vector-ref #{x 12187}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 12187}# 1)) + #f) + (if (eq? (if (if (vector? #{x 12187}#) + (if (= (vector-length + #{x 12187}#) + 4) + (eq? (vector-ref + #{x 12187}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{x 12187}# 1) + #{x 12187}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i46" + "i45" + "i44"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2230")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i398" + "i396" + "i393" + "i392" + "i391" + "i389" + "i388" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" + "i366" + "i364" + "i362" + "i360" + "i358" + "i357" + "i356" + "i355" + "i353" + "i352" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i336" + "i335" + "i333" + "i331" + "i330" + "i327" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i260" + "i257" + "i255" + "i254" + "i253" + "i252" + "i251" + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i46" "i45" "i44"))) (hygiene guile)) 1) '#(syntax-object @@ -26973,7 +36338,7 @@ #(ribcage #(x) #((top)) - #("i2229")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -27247,153 +36612,153 @@ (top) (top) (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" "i398" - "i397" - "i395" + "i396" + "i393" "i392" "i391" - "i390" + "i389" "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" "i366" - "i365" - "i363" - "i361" - "i359" + "i364" + "i362" + "i360" + "i358" "i357" "i356" "i355" - "i354" + "i353" "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" "i336" "i335" - "i334" - "i332" + "i333" + "i331" "i330" - "i329" + "i327" "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" "i260" - "i259" - "i256" + "i257" + "i255" "i254" "i253" "i252" "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i45" "i44" "i43"))) + ("i46" "i45" "i44"))) (hygiene guile)))) - (eq? (#{id-var-name 411}# - #{x 3957}# + (eq? (#{id-var-name 4332}# + #{x 12187}# '(())) - (#{id-var-name 411}# + (#{id-var-name 4332}# '#(syntax-object ... ((top) @@ -27402,7 +36767,7 @@ #(ribcage #(x) #((top)) - #("i2229")) + #("i2230")) #(ribcage (lambda-var-list gen-var @@ -27676,726 +37041,738 @@ (top) (top) (top)) - ("i466" - "i464" - "i462" - "i460" - "i458" - "i456" - "i454" - "i452" - "i450" - "i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" + ("i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" "i398" - "i397" - "i395" + "i396" + "i393" "i392" "i391" - "i390" + "i389" "i388" - "i387" - "i385" - "i383" - "i381" - "i379" - "i377" - "i375" - "i373" - "i371" - "i368" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i369" + "i367" "i366" - "i365" - "i363" - "i361" - "i359" + "i364" + "i362" + "i360" + "i358" "i357" "i356" "i355" - "i354" + "i353" "i352" - "i351" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" + "i349" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" "i336" "i335" - "i334" - "i332" + "i333" + "i331" "i330" - "i329" + "i327" "i326" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i304" - "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i305" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" "i260" - "i259" - "i256" + "i257" + "i255" "i254" "i253" "i252" "i251" - "i250" - "i248" - "i246" - "i244" - "i241" - "i239" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207")) + "i249" + "i247" + "i245" + "i242" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i45" "i44" "i43"))) + ("i46" "i45" "i44"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key 3955}#) - (let ((#{x 3963}# + #{key 12185}#) + (let ((#{x 12310}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application 271}# - #{s 3940}# - (let ((#{req 9847}# (list 'tmp)) - (#{vars 9849}# (list #{x 3963}#)) - (#{exp 9851}# - (#{gen-syntax-case 3710}# + (#{build-application 4280}# + #{s 12155}# + (let ((#{req 12445}# (list 'tmp)) + (#{vars 12447}# (list #{x 12310}#)) + (#{exp 12449}# + (#{gen-syntax-case 12151}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 3963}#) - #{key 3955}# - #{m 3956}# - #{r 3938}# - #{mod 3941}#))) - (let ((#{body 9868}# + #{x 12310}#) + #{key 12185}# + #{m 12186}# + #{r 12153}# + #{mod 12156}#))) + (let ((#{body 12454}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 9847}# + #{req 12445}# #f #f #f '() - #{vars 9849}# - #{exp 9851}# + #{vars 12447}# + #{exp 12449}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 9868}#))) - (list (#{chi 437}# - #{val 3954}# - #{r 3938}# + #{body 12454}#))) + (list (#{chi 4345}# + #{val 12184}# + #{r 12153}# '(()) - #{mod 3941}#)))) + #{mod 12156}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 3948}#))) - #{tmp 3950}#) + #{e 12157}#))) + #{tmp 12159}#) (syntax-violation #f "source expression failed to match any pattern" - #{e 3948}#))))))) + #{e 12157}#))))))) (set! macroexpand (lambda* - (#{x 3969}# + (#{x 14894}# #:optional - (#{m 3971}# 'e) - (#{esew 3973}# '(eval))) - (#{chi-top-sequence 429}# - (list #{x 3969}#) + (#{m 14895}# 'e) + (#{esew 14896}# '(eval))) + (#{chi-top-sequence 4341}# + (list #{x 14894}#) '() '((top)) #f - #{m 3971}# - #{esew 3973}# + #{m 14895}# + #{esew 14896}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 3977}#) - (if (if (vector? #{x 3977}#) - (if (= (vector-length #{x 3977}#) 4) - (eq? (vector-ref #{x 3977}# 0) 'syntax-object) + (lambda (#{x 14899}#) + (if (if (vector? #{x 14899}#) + (if (= (vector-length #{x 14899}#) 4) + (eq? (vector-ref #{x 14899}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 3977}# 1)) + (symbol? (vector-ref #{x 14899}# 1)) #f))) (set! datum->syntax - (lambda (#{id 3979}# #{datum 3980}#) - (let ((#{wrap 9942}# (vector-ref #{id 3979}# 2)) - (#{module 9943}# (vector-ref #{id 3979}# 3))) + (lambda (#{id 14924}# #{datum 14925}#) + (let ((#{wrap 14930}# (vector-ref #{id 14924}# 2)) + (#{module 14931}# (vector-ref #{id 14924}# 3))) (vector 'syntax-object - #{datum 3980}# - #{wrap 9942}# - #{module 9943}#)))) + #{datum 14925}# + #{wrap 14930}# + #{module 14931}#)))) (set! syntax->datum - (lambda (#{x 3983}#) - (#{strip 463}# #{x 3983}# '(())))) + (lambda (#{x 14938}#) + (#{strip 4358}# #{x 14938}# '(())))) (set! syntax-source - (lambda (#{x 3986}#) - (#{source-annotation 327}# #{x 3986}#))) + (lambda (#{x 14941}#) + (#{source-annotation 4306}# #{x 14941}#))) (set! generate-temporaries - (lambda (#{ls 3988}#) + (lambda (#{ls 15113}#) (begin - (if (not (list? #{ls 3988}#)) + (if (not (list? #{ls 15113}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 3988}#)) - (let ((#{mod 3994}# + #{ls 15113}#)) + (let ((#{mod 15121}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 3995}#) - (#{wrap 423}# (gensym) '((top)) #{mod 3994}#)) - #{ls 3988}#))))) + (map (lambda (#{x 15122}#) + (#{wrap 4338}# (gensym) '((top)) #{mod 15121}#)) + #{ls 15113}#))))) (set! free-identifier=? - (lambda (#{x 3999}# #{y 4000}#) + (lambda (#{x 15126}# #{y 15127}#) (begin - (if (not (if (if (vector? #{x 3999}#) - (if (= (vector-length #{x 3999}#) 4) - (eq? (vector-ref #{x 3999}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 15126}#) + (if (= (vector-length #{x 15126}#) 4) + (eq? (vector-ref #{x 15126}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 3999}# 1)) + (symbol? (vector-ref #{x 15126}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 3999}#)) - (if (not (if (if (vector? #{y 4000}#) - (if (= (vector-length #{y 4000}#) 4) - (eq? (vector-ref #{y 4000}# 0) 'syntax-object) + #{x 15126}#)) + (if (not (if (if (vector? #{y 15127}#) + (if (= (vector-length #{y 15127}#) 4) + (eq? (vector-ref #{y 15127}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 4000}# 1)) + (symbol? (vector-ref #{y 15127}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 4000}#)) - (if (eq? (if (if (vector? #{x 3999}#) - (if (= (vector-length #{x 3999}#) 4) - (eq? (vector-ref #{x 3999}# 0) 'syntax-object) + #{y 15127}#)) + (if (eq? (if (if (vector? #{x 15126}#) + (if (= (vector-length #{x 15126}#) 4) + (eq? (vector-ref #{x 15126}# 0) 'syntax-object) #f) #f) - (vector-ref #{x 3999}# 1) - #{x 3999}#) - (if (if (vector? #{y 4000}#) - (if (= (vector-length #{y 4000}#) 4) - (eq? (vector-ref #{y 4000}# 0) 'syntax-object) + (vector-ref #{x 15126}# 1) + #{x 15126}#) + (if (if (vector? #{y 15127}#) + (if (= (vector-length #{y 15127}#) 4) + (eq? (vector-ref #{y 15127}# 0) 'syntax-object) #f) #f) - (vector-ref #{y 4000}# 1) - #{y 4000}#)) - (eq? (#{id-var-name 411}# #{x 3999}# '(())) - (#{id-var-name 411}# #{y 4000}# '(()))) + (vector-ref #{y 15127}# 1) + #{y 15127}#)) + (eq? (#{id-var-name 4332}# #{x 15126}# '(())) + (#{id-var-name 4332}# #{y 15127}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 4009}# #{y 4010}#) + (lambda (#{x 15277}# #{y 15278}#) (begin - (if (not (if (if (vector? #{x 4009}#) - (if (= (vector-length #{x 4009}#) 4) - (eq? (vector-ref #{x 4009}# 0) 'syntax-object) + (if (not (if (if (vector? #{x 15277}#) + (if (= (vector-length #{x 15277}#) 4) + (eq? (vector-ref #{x 15277}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 4009}# 1)) + (symbol? (vector-ref #{x 15277}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 4009}#)) - (if (not (if (if (vector? #{y 4010}#) - (if (= (vector-length #{y 4010}#) 4) - (eq? (vector-ref #{y 4010}# 0) 'syntax-object) + #{x 15277}#)) + (if (not (if (if (vector? #{y 15278}#) + (if (= (vector-length #{y 15278}#) 4) + (eq? (vector-ref #{y 15278}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 4010}# 1)) + (symbol? (vector-ref #{y 15278}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 4010}#)) - (if (if (if (vector? #{x 4009}#) - (if (= (vector-length #{x 4009}#) 4) - (eq? (vector-ref #{x 4009}# 0) 'syntax-object) + #{y 15278}#)) + (if (if (if (vector? #{x 15277}#) + (if (= (vector-length #{x 15277}#) 4) + (eq? (vector-ref #{x 15277}# 0) 'syntax-object) #f) #f) - (if (vector? #{y 4010}#) - (if (= (vector-length #{y 4010}#) 4) - (eq? (vector-ref #{y 4010}# 0) 'syntax-object) + (if (vector? #{y 15278}#) + (if (= (vector-length #{y 15278}#) 4) + (eq? (vector-ref #{y 15278}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 4009}# 1) - (vector-ref #{y 4010}# 1)) - (#{same-marks? 409}# - (car (vector-ref #{x 4009}# 2)) - (car (vector-ref #{y 4010}# 2))) + (if (eq? (vector-ref #{x 15277}# 1) + (vector-ref #{y 15278}# 1)) + (#{same-marks? 4331}# + (car (vector-ref #{x 15277}# 2)) + (car (vector-ref #{y 15278}# 2))) #f) - (eq? #{x 4009}# #{y 4010}#))))) + (eq? #{x 15277}# #{y 15278}#))))) (set! syntax-violation (lambda* - (#{who 4019}# - #{message 4020}# - #{form 4021}# + (#{who 15411}# + #{message 15412}# + #{form 15413}# #:optional - (#{subform 4025}# #f)) + (#{subform 15414}# #f)) (begin - (if (not (if (not #{who 4019}#) - (not #{who 4019}#) - (let ((#{t 4037}# (string? #{who 4019}#))) - (if #{t 4037}# #{t 4037}# (symbol? #{who 4019}#))))) + (if (not (if (not #{who 15411}#) + (not #{who 15411}#) + (let ((#{t 15432}# (string? #{who 15411}#))) + (if #{t 15432}# + #{t 15432}# + (symbol? #{who 15411}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 4019}#)) - (if (not (string? #{message 4020}#)) + #{who 15411}#)) + (if (not (string? #{message 15412}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message 4020}#)) + #{message 15412}#)) (throw 'syntax-error - #{who 4019}# - #{message 4020}# - (#{source-annotation 327}# - (if #{form 4021}# #{form 4021}# #{subform 4025}#)) - (#{strip 463}# #{form 4021}# '(())) - (if #{subform 4025}# - (#{strip 463}# #{subform 4025}# '(())) + #{who 15411}# + #{message 15412}# + (#{source-annotation 4306}# + (if #{form 15413}# + #{form 15413}# + #{subform 15414}#)) + (#{strip 4358}# #{form 15413}# '(())) + (if #{subform 15414}# + (#{strip 4358}# #{subform 15414}# '(())) #f))))) (letrec* - ((#{match-each 4051}# - (lambda (#{e 4064}# #{p 4065}# #{w 4066}# #{mod 4067}#) - (if (pair? #{e 4064}#) - (let ((#{first 4075}# - (#{match 4063}# - (car #{e 4064}#) - #{p 4065}# - #{w 4066}# + ((#{match-each 15655}# + (lambda (#{e 16278}# + #{p 16279}# + #{w 16280}# + #{mod 16281}#) + (if (pair? #{e 16278}#) + (let ((#{first 16282}# + (#{match 15661}# + (car #{e 16278}#) + #{p 16279}# + #{w 16280}# '() - #{mod 4067}#))) - (if #{first 4075}# - (let ((#{rest 4079}# - (#{match-each 4051}# - (cdr #{e 4064}#) - #{p 4065}# - #{w 4066}# - #{mod 4067}#))) - (if #{rest 4079}# - (cons #{first 4075}# #{rest 4079}#) + #{mod 16281}#))) + (if #{first 16282}# + (let ((#{rest 16285}# + (#{match-each 15655}# + (cdr #{e 16278}#) + #{p 16279}# + #{w 16280}# + #{mod 16281}#))) + (if #{rest 16285}# + (cons #{first 16282}# #{rest 16285}#) #f)) #f)) - (if (null? #{e 4064}#) + (if (null? #{e 16278}#) '() - (if (if (vector? #{e 4064}#) - (if (= (vector-length #{e 4064}#) 4) - (eq? (vector-ref #{e 4064}# 0) 'syntax-object) + (if (if (vector? #{e 16278}#) + (if (= (vector-length #{e 16278}#) 4) + (eq? (vector-ref #{e 16278}# 0) 'syntax-object) #f) #f) - (#{match-each 4051}# - (vector-ref #{e 4064}# 1) - #{p 4065}# - (#{join-wraps 405}# - #{w 4066}# - (vector-ref #{e 4064}# 2)) - (vector-ref #{e 4064}# 3)) + (#{match-each 15655}# + (vector-ref #{e 16278}# 1) + #{p 16279}# + (#{join-wraps 4329}# + #{w 16280}# + (vector-ref #{e 16278}# 2)) + (vector-ref #{e 16278}# 3)) #f))))) - (#{match-each+ 4053}# - (lambda (#{e 4087}# - #{x-pat 4088}# - #{y-pat 4089}# - #{z-pat 4090}# - #{w 4091}# - #{r 4092}# - #{mod 4093}#) - (letrec* - ((#{f 4104}# - (lambda (#{e 4105}# #{w 4106}#) - (if (pair? #{e 4105}#) - (call-with-values - (lambda () - (#{f 4104}# (cdr #{e 4105}#) #{w 4106}#)) - (lambda (#{xr* 4109}# #{y-pat 4110}# #{r 4111}#) - (if #{r 4111}# - (if (null? #{y-pat 4110}#) - (let ((#{xr 4116}# - (#{match 4063}# - (car #{e 4105}#) - #{x-pat 4088}# - #{w 4106}# - '() - #{mod 4093}#))) - (if #{xr 4116}# - (values - (cons #{xr 4116}# #{xr* 4109}#) - #{y-pat 4110}# - #{r 4111}#) - (values #f #f #f))) - (values - '() - (cdr #{y-pat 4110}#) - (#{match 4063}# - (car #{e 4105}#) - (car #{y-pat 4110}#) - #{w 4106}# - #{r 4111}# - #{mod 4093}#))) - (values #f #f #f)))) - (if (if (vector? #{e 4105}#) - (if (= (vector-length #{e 4105}#) 4) - (eq? (vector-ref #{e 4105}# 0) 'syntax-object) - #f) - #f) - (#{f 4104}# - (vector-ref #{e 4105}# 1) - (#{join-wraps 405}# #{w 4106}# #{e 4105}#)) - (values - '() - #{y-pat 4089}# - (#{match 4063}# - #{e 4105}# - #{z-pat 4090}# - #{w 4106}# - #{r 4092}# - #{mod 4093}#))))))) - (#{f 4104}# #{e 4087}# #{w 4091}#)))) - (#{match-each-any 4055}# - (lambda (#{e 4120}# #{w 4121}# #{mod 4122}#) - (if (pair? #{e 4120}#) - (let ((#{l 4129}# - (#{match-each-any 4055}# - (cdr #{e 4120}#) - #{w 4121}# - #{mod 4122}#))) - (if #{l 4129}# - (cons (#{wrap 423}# - (car #{e 4120}#) - #{w 4121}# - #{mod 4122}#) - #{l 4129}#) + (#{match-each-any 15657}# + (lambda (#{e 16313}# #{w 16314}# #{mod 16315}#) + (if (pair? #{e 16313}#) + (let ((#{l 16316}# + (#{match-each-any 15657}# + (cdr #{e 16313}#) + #{w 16314}# + #{mod 16315}#))) + (if #{l 16316}# + (cons (#{wrap 4338}# + (car #{e 16313}#) + #{w 16314}# + #{mod 16315}#) + #{l 16316}#) #f)) - (if (null? #{e 4120}#) + (if (null? #{e 16313}#) '() - (if (if (vector? #{e 4120}#) - (if (= (vector-length #{e 4120}#) 4) - (eq? (vector-ref #{e 4120}# 0) 'syntax-object) + (if (if (vector? #{e 16313}#) + (if (= (vector-length #{e 16313}#) 4) + (eq? (vector-ref #{e 16313}# 0) 'syntax-object) #f) #f) - (#{match-each-any 4055}# - (vector-ref #{e 4120}# 1) - (#{join-wraps 405}# - #{w 4121}# - (vector-ref #{e 4120}# 2)) - #{mod 4122}#) + (#{match-each-any 15657}# + (vector-ref #{e 16313}# 1) + (#{join-wraps 4329}# + #{w 16314}# + (vector-ref #{e 16313}# 2)) + #{mod 16315}#) #f))))) - (#{match-empty 4057}# - (lambda (#{p 4137}# #{r 4138}#) - (if (null? #{p 4137}#) - #{r 4138}# - (if (eq? #{p 4137}# '_) - #{r 4138}# - (if (eq? #{p 4137}# 'any) - (cons '() #{r 4138}#) - (if (pair? #{p 4137}#) - (#{match-empty 4057}# - (car #{p 4137}#) - (#{match-empty 4057}# - (cdr #{p 4137}#) - #{r 4138}#)) - (if (eq? #{p 4137}# 'each-any) - (cons '() #{r 4138}#) - (let ((#{atom-key 4154}# (vector-ref #{p 4137}# 0))) - (if (memv #{atom-key 4154}# '(each)) - (#{match-empty 4057}# - (vector-ref #{p 4137}# 1) - #{r 4138}#) - (if (memv #{atom-key 4154}# '(each+)) - (#{match-empty 4057}# - (vector-ref #{p 4137}# 1) - (#{match-empty 4057}# - (reverse (vector-ref #{p 4137}# 2)) - (#{match-empty 4057}# - (vector-ref #{p 4137}# 3) - #{r 4138}#))) - (if (memv #{atom-key 4154}# '(free-id atom)) - #{r 4138}# - (if (memv #{atom-key 4154}# '(vector)) - (#{match-empty 4057}# - (vector-ref #{p 4137}# 1) - #{r 4138}#))))))))))))) - (#{combine 4059}# - (lambda (#{r* 4159}# #{r 4160}#) - (if (null? (car #{r* 4159}#)) - #{r 4160}# - (cons (map car #{r* 4159}#) - (#{combine 4059}# - (map cdr #{r* 4159}#) - #{r 4160}#))))) - (#{match* 4061}# - (lambda (#{e 4163}# - #{p 4164}# - #{w 4165}# - #{r 4166}# - #{mod 4167}#) - (if (null? #{p 4164}#) - (if (null? #{e 4163}#) #{r 4166}# #f) - (if (pair? #{p 4164}#) - (if (pair? #{e 4163}#) - (#{match 4063}# - (car #{e 4163}#) - (car #{p 4164}#) - #{w 4165}# - (#{match 4063}# - (cdr #{e 4163}#) - (cdr #{p 4164}#) - #{w 4165}# - #{r 4166}# - #{mod 4167}#) - #{mod 4167}#) + (#{match-empty 15658}# + (lambda (#{p 16340}# #{r 16341}#) + (if (null? #{p 16340}#) + #{r 16341}# + (if (eq? #{p 16340}# '_) + #{r 16341}# + (if (eq? #{p 16340}# 'any) + (cons '() #{r 16341}#) + (if (pair? #{p 16340}#) + (#{match-empty 15658}# + (car #{p 16340}#) + (#{match-empty 15658}# + (cdr #{p 16340}#) + #{r 16341}#)) + (if (eq? #{p 16340}# 'each-any) + (cons '() #{r 16341}#) + (let ((#{atom-key 16342}# (vector-ref #{p 16340}# 0))) + (if (eqv? #{atom-key 16342}# 'each) + (#{match-empty 15658}# + (vector-ref #{p 16340}# 1) + #{r 16341}#) + (if (eqv? #{atom-key 16342}# 'each+) + (#{match-empty 15658}# + (vector-ref #{p 16340}# 1) + (#{match-empty 15658}# + (reverse (vector-ref #{p 16340}# 2)) + (#{match-empty 15658}# + (vector-ref #{p 16340}# 3) + #{r 16341}#))) + (if (if (eqv? #{atom-key 16342}# 'free-id) + #t + (eqv? #{atom-key 16342}# 'atom)) + #{r 16341}# + (if (eqv? #{atom-key 16342}# 'vector) + (#{match-empty 15658}# + (vector-ref #{p 16340}# 1) + #{r 16341}#))))))))))))) + (#{combine 15659}# + (lambda (#{r* 16361}# #{r 16362}#) + (if (null? (car #{r* 16361}#)) + #{r 16362}# + (cons (map car #{r* 16361}#) + (#{combine 15659}# + (map cdr #{r* 16361}#) + #{r 16362}#))))) + (#{match* 15660}# + (lambda (#{e 15690}# + #{p 15691}# + #{w 15692}# + #{r 15693}# + #{mod 15694}#) + (if (null? #{p 15691}#) + (if (null? #{e 15690}#) #{r 15693}# #f) + (if (pair? #{p 15691}#) + (if (pair? #{e 15690}#) + (#{match 15661}# + (car #{e 15690}#) + (car #{p 15691}#) + #{w 15692}# + (#{match 15661}# + (cdr #{e 15690}#) + (cdr #{p 15691}#) + #{w 15692}# + #{r 15693}# + #{mod 15694}#) + #{mod 15694}#) #f) - (if (eq? #{p 4164}# 'each-any) - (let ((#{l 4184}# - (#{match-each-any 4055}# - #{e 4163}# - #{w 4165}# - #{mod 4167}#))) - (if #{l 4184}# (cons #{l 4184}# #{r 4166}#) #f)) - (let ((#{atom-key 4190}# (vector-ref #{p 4164}# 0))) - (if (memv #{atom-key 4190}# '(each)) - (if (null? #{e 4163}#) - (#{match-empty 4057}# - (vector-ref #{p 4164}# 1) - #{r 4166}#) - (let ((#{l 4193}# - (#{match-each 4051}# - #{e 4163}# - (vector-ref #{p 4164}# 1) - #{w 4165}# - #{mod 4167}#))) - (if #{l 4193}# + (if (eq? #{p 15691}# 'each-any) + (let ((#{l 15699}# + (#{match-each-any 15657}# + #{e 15690}# + #{w 15692}# + #{mod 15694}#))) + (if #{l 15699}# + (cons #{l 15699}# #{r 15693}#) + #f)) + (let ((#{atom-key 15704}# (vector-ref #{p 15691}# 0))) + (if (eqv? #{atom-key 15704}# 'each) + (if (null? #{e 15690}#) + (#{match-empty 15658}# + (vector-ref #{p 15691}# 1) + #{r 15693}#) + (let ((#{l 15711}# + (#{match-each 15655}# + #{e 15690}# + (vector-ref #{p 15691}# 1) + #{w 15692}# + #{mod 15694}#))) + (if #{l 15711}# (letrec* - ((#{collect 4198}# - (lambda (#{l 4199}#) - (if (null? (car #{l 4199}#)) - #{r 4166}# - (cons (map car #{l 4199}#) - (#{collect 4198}# - (map cdr #{l 4199}#))))))) - (#{collect 4198}# #{l 4193}#)) + ((#{collect 15714}# + (lambda (#{l 15767}#) + (if (null? (car #{l 15767}#)) + #{r 15693}# + (cons (map car #{l 15767}#) + (#{collect 15714}# + (map cdr #{l 15767}#))))))) + (#{collect 15714}# #{l 15711}#)) #f))) - (if (memv #{atom-key 4190}# '(each+)) + (if (eqv? #{atom-key 15704}# 'each+) (call-with-values (lambda () - (#{match-each+ 4053}# - #{e 4163}# - (vector-ref #{p 4164}# 1) - (vector-ref #{p 4164}# 2) - (vector-ref #{p 4164}# 3) - #{w 4165}# - #{r 4166}# - #{mod 4167}#)) - (lambda (#{xr* 4201}# #{y-pat 4202}# #{r 4203}#) - (if #{r 4203}# - (if (null? #{y-pat 4202}#) - (if (null? #{xr* 4201}#) - (#{match-empty 4057}# - (vector-ref #{p 4164}# 1) - #{r 4203}#) - (#{combine 4059}# #{xr* 4201}# #{r 4203}#)) + (let ((#{x-pat 15776}# (vector-ref #{p 15691}# 1)) + (#{y-pat 15777}# (vector-ref #{p 15691}# 2)) + (#{z-pat 15778}# (vector-ref #{p 15691}# 3))) + (letrec* + ((#{f 15782}# + (lambda (#{e 15784}# #{w 15785}#) + (if (pair? #{e 15784}#) + (call-with-values + (lambda () + (#{f 15782}# + (cdr #{e 15784}#) + #{w 15785}#)) + (lambda (#{xr* 15786}# + #{y-pat 15787}# + #{r 15788}#) + (if #{r 15788}# + (if (null? #{y-pat 15787}#) + (let ((#{xr 15789}# + (#{match 15661}# + (car #{e 15784}#) + #{x-pat 15776}# + #{w 15785}# + '() + #{mod 15694}#))) + (if #{xr 15789}# + (values + (cons #{xr 15789}# + #{xr* 15786}#) + #{y-pat 15787}# + #{r 15788}#) + (values #f #f #f))) + (values + '() + (cdr #{y-pat 15787}#) + (#{match 15661}# + (car #{e 15784}#) + (car #{y-pat 15787}#) + #{w 15785}# + #{r 15788}# + #{mod 15694}#))) + (values #f #f #f)))) + (if (if (vector? #{e 15784}#) + (if (= (vector-length #{e 15784}#) + 4) + (eq? (vector-ref #{e 15784}# 0) + 'syntax-object) + #f) + #f) + (#{f 15782}# + (vector-ref #{e 15784}# 1) + (#{join-wraps 4329}# + #{w 15785}# + #{e 15784}#)) + (values + '() + #{y-pat 15777}# + (#{match 15661}# + #{e 15784}# + #{z-pat 15778}# + #{w 15785}# + #{r 15693}# + #{mod 15694}#))))))) + (#{f 15782}# #{e 15690}# #{w 15692}#)))) + (lambda (#{xr* 15817}# #{y-pat 15818}# #{r 15819}#) + (if #{r 15819}# + (if (null? #{y-pat 15818}#) + (if (null? #{xr* 15817}#) + (#{match-empty 15658}# + (vector-ref #{p 15691}# 1) + #{r 15819}#) + (#{combine 15659}# #{xr* 15817}# #{r 15819}#)) #f) #f))) - (if (memv #{atom-key 4190}# '(free-id)) - (if (if (symbol? #{e 4163}#) + (if (eqv? #{atom-key 15704}# 'free-id) + (if (if (symbol? #{e 15690}#) #t - (if (if (vector? #{e 4163}#) - (if (= (vector-length #{e 4163}#) 4) - (eq? (vector-ref #{e 4163}# 0) + (if (if (vector? #{e 15690}#) + (if (= (vector-length #{e 15690}#) 4) + (eq? (vector-ref #{e 15690}# 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 4163}# 1)) + (symbol? (vector-ref #{e 15690}# 1)) #f)) - (if (let ((#{i 10362}# - (#{wrap 423}# - #{e 4163}# - #{w 4165}# - #{mod 4167}#)) - (#{j 10363}# (vector-ref #{p 4164}# 1))) - (if (eq? (if (if (vector? #{i 10362}#) + (if (let ((#{i 16182}# + (#{wrap 4338}# + #{e 15690}# + #{w 15692}# + #{mod 15694}#)) + (#{j 16183}# (vector-ref #{p 15691}# 1))) + (if (eq? (if (if (vector? #{i 16182}#) (if (= (vector-length - #{i 10362}#) + #{i 16182}#) 4) (eq? (vector-ref - #{i 10362}# + #{i 16182}# 0) 'syntax-object) #f) #f) - (vector-ref #{i 10362}# 1) - #{i 10362}#) - (if (if (vector? #{j 10363}#) + (vector-ref #{i 16182}# 1) + #{i 16182}#) + (if (if (vector? #{j 16183}#) (if (= (vector-length - #{j 10363}#) + #{j 16183}#) 4) (eq? (vector-ref - #{j 10363}# + #{j 16183}# 0) 'syntax-object) #f) #f) - (vector-ref #{j 10363}# 1) - #{j 10363}#)) - (eq? (#{id-var-name 411}# #{i 10362}# '(())) - (#{id-var-name 411}# - #{j 10363}# + (vector-ref #{j 16183}# 1) + #{j 16183}#)) + (eq? (#{id-var-name 4332}# + #{i 16182}# + '(())) + (#{id-var-name 4332}# + #{j 16183}# '(()))) #f)) - #{r 4166}# + #{r 15693}# #f) #f) - (if (memv #{atom-key 4190}# '(atom)) + (if (eqv? #{atom-key 15704}# 'atom) (if (equal? - (vector-ref #{p 4164}# 1) - (#{strip 463}# #{e 4163}# #{w 4165}#)) - #{r 4166}# + (vector-ref #{p 15691}# 1) + (#{strip 4358}# #{e 15690}# #{w 15692}#)) + #{r 15693}# #f) - (if (memv #{atom-key 4190}# '(vector)) - (if (vector? #{e 4163}#) - (#{match 4063}# - (vector->list #{e 4163}#) - (vector-ref #{p 4164}# 1) - #{w 4165}# - #{r 4166}# - #{mod 4167}#) + (if (eqv? #{atom-key 15704}# 'vector) + (if (vector? #{e 15690}#) + (#{match 15661}# + (vector->list #{e 15690}#) + (vector-ref #{p 15691}# 1) + #{w 15692}# + #{r 15693}# + #{mod 15694}#) #f)))))))))))) - (#{match 4063}# - (lambda (#{e 4220}# - #{p 4221}# - #{w 4222}# - #{r 4223}# - #{mod 4224}#) - (if (not #{r 4223}#) + (#{match 15661}# + (lambda (#{e 16243}# + #{p 16244}# + #{w 16245}# + #{r 16246}# + #{mod 16247}#) + (if (not #{r 16246}#) #f - (if (eq? #{p 4221}# '_) - #{r 4223}# - (if (eq? #{p 4221}# 'any) - (cons (#{wrap 423}# #{e 4220}# #{w 4222}# #{mod 4224}#) - #{r 4223}#) - (if (if (vector? #{e 4220}#) - (if (= (vector-length #{e 4220}#) 4) - (eq? (vector-ref #{e 4220}# 0) 'syntax-object) + (if (eq? #{p 16244}# '_) + #{r 16246}# + (if (eq? #{p 16244}# 'any) + (cons (#{wrap 4338}# + #{e 16243}# + #{w 16245}# + #{mod 16247}#) + #{r 16246}#) + (if (if (vector? #{e 16243}#) + (if (= (vector-length #{e 16243}#) 4) + (eq? (vector-ref #{e 16243}# 0) 'syntax-object) #f) #f) - (#{match* 4061}# - (vector-ref #{e 4220}# 1) - #{p 4221}# - (#{join-wraps 405}# - #{w 4222}# - (vector-ref #{e 4220}# 2)) - #{r 4223}# - (vector-ref #{e 4220}# 3)) - (#{match* 4061}# - #{e 4220}# - #{p 4221}# - #{w 4222}# - #{r 4223}# - #{mod 4224}#)))))))) + (#{match* 15660}# + (vector-ref #{e 16243}# 1) + #{p 16244}# + (#{join-wraps 4329}# + #{w 16245}# + (vector-ref #{e 16243}# 2)) + #{r 16246}# + (vector-ref #{e 16243}# 3)) + (#{match* 15660}# + #{e 16243}# + #{p 16244}# + #{w 16245}# + #{r 16246}# + #{mod 16247}#)))))))) (set! $sc-dispatch - (lambda (#{e 4239}# #{p 4240}#) - (if (eq? #{p 4240}# 'any) - (list #{e 4239}#) - (if (eq? #{p 4240}# '_) + (lambda (#{e 15662}# #{p 15663}#) + (if (eq? #{p 15663}# 'any) + (list #{e 15662}#) + (if (eq? #{p 15663}# '_) '() - (if (if (vector? #{e 4239}#) - (if (= (vector-length #{e 4239}#) 4) - (eq? (vector-ref #{e 4239}# 0) 'syntax-object) + (if (if (vector? #{e 15662}#) + (if (= (vector-length #{e 15662}#) 4) + (eq? (vector-ref #{e 15662}# 0) 'syntax-object) #f) #f) - (#{match* 4061}# - (vector-ref #{e 4239}# 1) - #{p 4240}# - (vector-ref #{e 4239}# 2) + (#{match* 15660}# + (vector-ref #{e 15662}# 1) + #{p 15663}# + (vector-ref #{e 15662}# 2) '() - (vector-ref #{e 4239}# 3)) - (#{match* 4061}# - #{e 4239}# - #{p 4240}# + (vector-ref #{e 15662}# 3)) + (#{match* 15660}# + #{e 15662}# + #{p 15663}# '(()) '() #f))))))))) @@ -28404,82 +37781,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 10409}#) - (let ((#{tmp 10412}# - ($sc-dispatch #{x 10409}# '(_ () any . each-any)))) - (if #{tmp 10412}# + (lambda (#{x 28547}#) + (let ((#{tmp 28549}# + ($sc-dispatch #{x 28547}# '(_ () any . each-any)))) + (if #{tmp 28549}# (@apply - (lambda (#{e1 10415}# #{e2 10416}#) + (lambda (#{e1 28553}# #{e2 28554}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i10413" "i10414")) + #("i28520" "i28521")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10410"))) + #(ribcage #(x) #((top)) #("i28517"))) (hygiene guile)) - (cons '() (cons #{e1 10415}# #{e2 10416}#)))) - #{tmp 10412}#) - (let ((#{tmp 10418}# + (cons '() (cons #{e1 28553}# #{e2 28554}#)))) + #{tmp 28549}#) + (let ((#{tmp 28555}# ($sc-dispatch - #{x 10409}# + #{x 28547}# '(_ ((any any)) any . each-any)))) - (if #{tmp 10418}# + (if #{tmp 28555}# (@apply - (lambda (#{out 10423}# - #{in 10424}# - #{e1 10425}# - #{e2 10426}#) + (lambda (#{out 28559}# + #{in 28560}# + #{e1 28561}# + #{e2 28562}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10419" "i10420" "i10421" "i10422")) + #("i28526" "i28527" "i28528" "i28529")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10410"))) + #(ribcage #(x) #((top)) #("i28517"))) (hygiene guile)) - #{in 10424}# + #{in 28560}# '() - (list #{out 10423}# + (list #{out 28559}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10419" - "i10420" - "i10421" - "i10422")) + #("i28526" + "i28527" + "i28528" + "i28529")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10410"))) + #(ribcage #(x) #((top)) #("i28517"))) (hygiene guile)) (cons '() - (cons #{e1 10425}# #{e2 10426}#)))))) - #{tmp 10418}#) - (let ((#{tmp 10428}# + (cons #{e1 28561}# #{e2 28562}#)))))) + #{tmp 28555}#) + (let ((#{tmp 28563}# ($sc-dispatch - #{x 10409}# + #{x 28547}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 10428}# + (if #{tmp 28563}# (@apply - (lambda (#{out 10433}# - #{in 10434}# - #{e1 10435}# - #{e2 10436}#) + (lambda (#{out 28567}# + #{in 28568}# + #{e1 28569}# + #{e2 28570}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10429" "i10430" "i10431" "i10432")) + #("i28536" "i28537" "i28538" "i28539")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10410"))) + #(ribcage #(x) #((top)) #("i28517"))) (hygiene guile)) (cons '#(syntax-object list @@ -28487,62 +37864,62 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10429" "i10430" "i10431" "i10432")) + #("i28536" "i28537" "i28538" "i28539")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10410"))) + #(ribcage #(x) #((top)) #("i28517"))) (hygiene guile)) - #{in 10434}#) + #{in 28568}#) '() - (list #{out 10433}# + (list #{out 28567}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i10429" - "i10430" - "i10431" - "i10432")) + #("i28536" + "i28537" + "i28538" + "i28539")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10410"))) + #("i28517"))) (hygiene guile)) (cons '() - (cons #{e1 10435}# - #{e2 10436}#)))))) - #{tmp 10428}#) + (cons #{e1 28569}# + #{e2 28570}#)))))) + #{tmp 28563}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10409}#)))))))))) + #{x 28547}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 10440}#) - (let ((#{tmp 10443}# + (lambda (#{x 28624}#) + (let ((#{tmp 28626}# ($sc-dispatch - #{x 10440}# + #{x 28624}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 10443}# + (if #{tmp 28626}# (@apply - (lambda (#{k 10448}# - #{keyword 10449}# - #{pattern 10450}# - #{template 10451}#) + (lambda (#{k 28630}# + #{keyword 28631}# + #{pattern 28632}# + #{template 28633}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) '(#(syntax-object x @@ -28550,9 +37927,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile))) (vector '(#(syntax-object @@ -28561,9 +37938,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) . #(syntax-object @@ -28572,9 +37949,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -28582,20 +37959,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) - #{pattern 10450}#)) + #{pattern 28632}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) (cons '#(syntax-object x @@ -28603,13 +37980,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i10444" "i10445" "i10446" "i10447")) + #("i28587" "i28588" "i28589" "i28590")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) - (cons #{k 10448}# - (map (lambda (#{tmp 10455}# - #{tmp 10454}#) + (cons #{k 28630}# + (map (lambda (#{tmp 28598 28634}# + #{tmp 28597 28635}#) (list (cons '#(syntax-object dummy ((top) @@ -28622,10 +37999,10 @@ (top) (top) (top)) - #("i10444" - "i10445" - "i10446" - "i10447")) + #("i28587" + "i28588" + "i28589" + "i28590")) #(ribcage () () @@ -28633,9 +38010,9 @@ #(ribcage #(x) #((top)) - #("i10441"))) + #("i28584"))) (hygiene guile)) - #{tmp 10454}#) + #{tmp 28597 28635}#) (list '#(syntax-object syntax ((top) @@ -28648,10 +38025,10 @@ (top) (top) (top)) - #("i10444" - "i10445" - "i10446" - "i10447")) + #("i28587" + "i28588" + "i28589" + "i28590")) #(ribcage () () @@ -28659,41 +38036,41 @@ #(ribcage #(x) #((top)) - #("i10441"))) + #("i28584"))) (hygiene guile)) - #{tmp 10455}#))) - #{template 10451}# - #{pattern 10450}#)))))) - #{tmp 10443}#) - (let ((#{tmp 10456}# + #{tmp 28598 28634}#))) + #{template 28633}# + #{pattern 28632}#)))))) + #{tmp 28626}#) + (let ((#{tmp 28636}# ($sc-dispatch - #{x 10440}# + #{x 28624}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 10456}# + (if (if #{tmp 28636}# (@apply - (lambda (#{k 10462}# - #{docstring 10463}# - #{keyword 10464}# - #{pattern 10465}# - #{template 10466}#) - (string? (syntax->datum #{docstring 10463}#))) - #{tmp 10456}#) + (lambda (#{k 28640}# + #{docstring 28641}# + #{keyword 28642}# + #{pattern 28643}# + #{template 28644}#) + (string? (syntax->datum #{docstring 28641}#))) + #{tmp 28636}#) #f) (@apply - (lambda (#{k 10472}# - #{docstring 10473}# - #{keyword 10474}# - #{pattern 10475}# - #{template 10476}#) + (lambda (#{k 28645}# + #{docstring 28646}# + #{keyword 28647}# + #{pattern 28648}# + #{template 28649}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" "i10468" "i10469" "i10470" "i10471")) + #("i28610" "i28611" "i28612" "i28613" "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) '(#(syntax-object x @@ -28701,11 +38078,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" "i10468" "i10469" "i10470" "i10471")) + #("i28610" "i28611" "i28612" "i28613" "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile))) - #{docstring 10473}# + #{docstring 28646}# (vector '(#(syntax-object macro-type @@ -28713,13 +38090,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) . #(syntax-object @@ -28728,13 +38105,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -28742,28 +38119,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) - #{pattern 10475}#)) + #{pattern 28648}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) (cons '#(syntax-object x @@ -28775,17 +38152,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10441"))) + #(ribcage #(x) #((top)) #("i28584"))) (hygiene guile)) - (cons #{k 10472}# - (map (lambda (#{tmp 10480}# - #{tmp 10479}#) + (cons #{k 28645}# + (map (lambda (#{tmp 28623 28650}# + #{tmp 28622 28651}#) (list (cons '#(syntax-object dummy ((top) @@ -28800,11 +38177,11 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () @@ -28812,10 +38189,10 @@ #(ribcage #(x) #((top)) - #("i10441"))) + #("i28584"))) (hygiene guile)) - #{tmp 10479}#) + #{tmp 28622 28651}#) (list '#(syntax-object syntax ((top) @@ -28830,11 +38207,11 @@ (top) (top) (top)) - #("i10467" - "i10468" - "i10469" - "i10470" - "i10471")) + #("i28610" + "i28611" + "i28612" + "i28613" + "i28614")) #(ribcage () () @@ -28842,50 +38219,50 @@ #(ribcage #(x) #((top)) - #("i10441"))) + #("i28584"))) (hygiene guile)) - #{tmp 10480}#))) - #{template 10476}# - #{pattern 10475}#)))))) - #{tmp 10456}#) + #{tmp 28623 28650}#))) + #{template 28649}# + #{pattern 28648}#)))))) + #{tmp 28636}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10440}#)))))))) + #{x 28624}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 10481}#) - (let ((#{tmp 10484}# - ($sc-dispatch #{x 10481}# '(_ (any . any) any)))) - (if #{tmp 10484}# + (lambda (#{x 28688}#) + (let ((#{tmp 28690}# + ($sc-dispatch #{x 28688}# '(_ (any . any) any)))) + (if #{tmp 28690}# (@apply - (lambda (#{name 10488}# - #{pattern 10489}# - #{template 10490}#) + (lambda (#{name 28694}# + #{pattern 28695}# + #{template 28696}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i10485" "i10486" "i10487")) + #("i28665" "i28666" "i28667")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10482"))) + #(ribcage #(x) #((top)) #("i28662"))) (hygiene guile)) - #{name 10488}# + #{name 28694}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i10485" "i10486" "i10487")) + #("i28665" "i28666" "i28667")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10482"))) + #(ribcage #(x) #((top)) #("i28662"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -28894,54 +38271,54 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i10485" "i10486" "i10487")) + #("i28665" "i28666" "i28667")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10482"))) + #(ribcage #(x) #((top)) #("i28662"))) (hygiene guile)) - #{pattern 10489}#) - #{template 10490}#)))) - #{tmp 10484}#) - (let ((#{tmp 10491}# + #{pattern 28695}#) + #{template 28696}#)))) + #{tmp 28690}#) + (let ((#{tmp 28697}# ($sc-dispatch - #{x 10481}# + #{x 28688}# '(_ (any . any) any any)))) - (if (if #{tmp 10491}# + (if (if #{tmp 28697}# (@apply - (lambda (#{name 10496}# - #{pattern 10497}# - #{docstring 10498}# - #{template 10499}#) - (string? (syntax->datum #{docstring 10498}#))) - #{tmp 10491}#) + (lambda (#{name 28701}# + #{pattern 28702}# + #{docstring 28703}# + #{template 28704}#) + (string? (syntax->datum #{docstring 28703}#))) + #{tmp 28697}#) #f) (@apply - (lambda (#{name 10504}# - #{pattern 10505}# - #{docstring 10506}# - #{template 10507}#) + (lambda (#{name 28705}# + #{pattern 28706}# + #{docstring 28707}# + #{template 28708}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i10500" "i10501" "i10502" "i10503")) + #("i28680" "i28681" "i28682" "i28683")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10482"))) + #(ribcage #(x) #((top)) #("i28662"))) (hygiene guile)) - #{name 10504}# + #{name 28705}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i10500" "i10501" "i10502" "i10503")) + #("i28680" "i28681" "i28682" "i28683")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10482"))) + #(ribcage #(x) #((top)) #("i28662"))) (hygiene guile)) '() - #{docstring 10506}# + #{docstring 28707}# (list (cons '#(syntax-object _ ((top) @@ -28951,53 +38328,53 @@ docstring template) #((top) (top) (top) (top)) - #("i10500" - "i10501" - "i10502" - "i10503")) + #("i28680" + "i28681" + "i28682" + "i28683")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10482"))) + #("i28662"))) (hygiene guile)) - #{pattern 10505}#) - #{template 10507}#)))) - #{tmp 10491}#) + #{pattern 28706}#) + #{template 28708}#)))) + #{tmp 28697}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10481}#)))))))) + #{x 28688}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 10508}#) - (let ((#{tmp 10511}# + (lambda (#{x 28757}#) + (let ((#{tmp 28759}# ($sc-dispatch - #{x 10508}# + #{x 28757}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 10511}# + (if (if #{tmp 28759}# (@apply - (lambda (#{let* 10517}# - #{x 10518}# - #{v 10519}# - #{e1 10520}# - #{e2 10521}#) - (and-map identifier? #{x 10518}#)) - #{tmp 10511}#) + (lambda (#{let* 28763}# + #{x 28764}# + #{v 28765}# + #{e1 28766}# + #{e2 28767}#) + (and-map identifier? #{x 28764}#)) + #{tmp 28759}#) #f) (@apply - (lambda (#{let* 10528}# - #{x 10529}# - #{v 10530}# - #{e1 10531}# - #{e2 10532}#) + (lambda (#{let* 28768}# + #{x 28769}# + #{v 28770}# + #{e1 28771}# + #{e2 28772}#) (letrec* - ((#{f 10535}# - (lambda (#{bindings 10536}#) - (if (null? #{bindings 10536}#) + ((#{f 28773}# + (lambda (#{bindings 28776}#) + (if (null? #{bindings 28776}#) (cons '#(syntax-object let ((top) @@ -29005,27 +38382,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i10533" "i10534")) + #("i28743" "i28744")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i10523" - "i10524" - "i10525" - "i10526" - "i10527")) + #("i28733" + "i28734" + "i28735" + "i28736" + "i28737")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10509"))) + #(ribcage #(x) #((top)) #("i28719"))) (hygiene guile)) - (cons '() (cons #{e1 10531}# #{e2 10532}#))) - (let ((#{tmp 10541}# - (list (#{f 10535}# (cdr #{bindings 10536}#)) - (car #{bindings 10536}#)))) - (let ((#{tmp 10542}# - ($sc-dispatch #{tmp 10541}# '(any any)))) - (if #{tmp 10542}# + (cons '() (cons #{e1 28771}# #{e2 28772}#))) + (let ((#{tmp 28777}# + (list (#{f 28773}# (cdr #{bindings 28776}#)) + (car #{bindings 28776}#)))) + (let ((#{tmp 28778}# + ($sc-dispatch #{tmp 28777}# '(any any)))) + (if #{tmp 28778}# (@apply - (lambda (#{body 10545}# #{binding 10546}#) + (lambda (#{body 28780}# #{binding 28781}#) (list '#(syntax-object let ((top) @@ -29033,86 +38410,86 @@ #(ribcage #(body binding) #((top) (top)) - #("i10543" "i10544")) + #("i28753" "i28754")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i10533" "i10534")) + #("i28743" "i28744")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i10523" - "i10524" - "i10525" - "i10526" - "i10527")) + #("i28733" + "i28734" + "i28735" + "i28736" + "i28737")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10509"))) + #("i28719"))) (hygiene guile)) - (list #{binding 10546}#) - #{body 10545}#)) - #{tmp 10542}#) + (list #{binding 28781}#) + #{body 28780}#)) + #{tmp 28778}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10541}#)))))))) - (#{f 10535}# (map list #{x 10529}# #{v 10530}#)))) - #{tmp 10511}#) + #{tmp 28777}#)))))))) + (#{f 28773}# (map list #{x 28769}# #{v 28770}#)))) + #{tmp 28759}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10508}#)))))) + #{x 28757}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 10548}#) - (let ((#{tmp 10551}# + (lambda (#{orig-x 28839}#) + (let ((#{tmp 28841}# ($sc-dispatch - #{orig-x 10548}# + #{orig-x 28839}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 10551}# + (if #{tmp 28841}# (@apply - (lambda (#{var 10558}# - #{init 10559}# - #{step 10560}# - #{e0 10561}# - #{e1 10562}# - #{c 10563}#) - (let ((#{tmp 10565}# - (map (lambda (#{v 10586}# #{s 10587}#) - (let ((#{tmp 10591}# - ($sc-dispatch #{s 10587}# '()))) - (if #{tmp 10591}# - (@apply (lambda () #{v 10586}#) #{tmp 10591}#) - (let ((#{tmp 10592}# - ($sc-dispatch #{s 10587}# '(any)))) - (if #{tmp 10592}# + (lambda (#{var 28845}# + #{init 28846}# + #{step 28847}# + #{e0 28848}# + #{e1 28849}# + #{c 28850}#) + (let ((#{tmp 28851}# + (map (lambda (#{v 28854}# #{s 28855}#) + (let ((#{tmp 28857}# + ($sc-dispatch #{s 28855}# '()))) + (if #{tmp 28857}# + (@apply (lambda () #{v 28854}#) #{tmp 28857}#) + (let ((#{tmp 28860}# + ($sc-dispatch #{s 28855}# '(any)))) + (if #{tmp 28860}# (@apply - (lambda (#{e 10594}#) #{e 10594}#) - #{tmp 10592}#) + (lambda (#{e 28863}#) #{e 28863}#) + #{tmp 28860}#) (syntax-violation 'do "bad step expression" - #{orig-x 10548}# - #{s 10587}#)))))) - #{var 10558}# - #{step 10560}#))) - (let ((#{tmp 10566}# - ($sc-dispatch #{tmp 10565}# 'each-any))) - (if #{tmp 10566}# + #{orig-x 28839}# + #{s 28855}#)))))) + #{var 28845}# + #{step 28847}#))) + (let ((#{tmp 28852}# + ($sc-dispatch #{tmp 28851}# 'each-any))) + (if #{tmp 28852}# (@apply - (lambda (#{step 10568}#) - (let ((#{tmp 10570}# ($sc-dispatch #{e1 10562}# '()))) - (if #{tmp 10570}# + (lambda (#{step 28869}#) + (let ((#{tmp 28871}# ($sc-dispatch #{e1 28849}# '()))) + (if #{tmp 28871}# (@apply (lambda () (list '#(syntax-object @@ -29122,7 +38499,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29131,17 +38508,17 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) '#(syntax-object doloop @@ -29150,7 +38527,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29159,19 +38536,19 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - (map list #{var 10558}# #{init 10559}#) + (map list #{var 28845}# #{init 28846}#) (list '#(syntax-object if ((top) @@ -29179,7 +38556,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29188,17 +38565,17 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) (list '#(syntax-object not @@ -29207,7 +38584,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29221,19 +38598,19 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - #{e0 10561}#) + #{e0 28848}#) (cons '#(syntax-object begin ((top) @@ -29241,7 +38618,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29255,20 +38632,20 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) (append - #{c 10563}# + #{c 28850}# (list (cons '#(syntax-object doloop ((top) @@ -29279,7 +38656,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29293,12 +38670,12 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () @@ -29306,30 +38683,30 @@ #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - #{step 10568}#))))))) - #{tmp 10570}#) - (let ((#{tmp 10575}# + #{step 28869}#))))))) + #{tmp 28871}#) + (let ((#{tmp 28875}# ($sc-dispatch - #{e1 10562}# + #{e1 28849}# '(any . each-any)))) - (if #{tmp 10575}# + (if #{tmp 28875}# (@apply - (lambda (#{e1 10578}# #{e2 10579}#) + (lambda (#{e1 28879}# #{e2 28880}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i10576" "i10577")) + #("i28816" "i28817")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29338,17 +38715,17 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) '#(syntax-object doloop @@ -29356,12 +38733,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i10576" "i10577")) + #("i28816" "i28817")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29370,33 +38747,33 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) (map list - #{var 10558}# - #{init 10559}#) + #{var 28845}# + #{init 28846}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i10576" "i10577")) + #("i28816" "i28817")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init step e0 e1 c) #((top) @@ -29405,32 +38782,32 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - #{e0 10561}# + #{e0 28848}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i10576" - "i10577")) + #("i28816" + "i28817")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29444,33 +38821,33 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - (cons #{e1 10578}# - #{e2 10579}#)) + (cons #{e1 28879}# + #{e2 28880}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i10576" - "i10577")) + #("i28816" + "i28817")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29484,20 +38861,20 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) (append - #{c 10563}# + #{c 28850}# (list (cons '#(syntax-object doloop ((top) @@ -29506,8 +38883,8 @@ e2) #((top) (top)) - #("i10576" - "i10577")) + #("i28816" + "i28817")) #(ribcage () () @@ -29515,7 +38892,7 @@ #(ribcage #(step) #((top)) - #("i10567")) + #("i28807")) #(ribcage #(var init @@ -29529,12 +38906,12 @@ (top) (top) (top)) - #("i10552" - "i10553" - "i10554" - "i10555" - "i10556" - "i10557")) + #("i28792" + "i28793" + "i28794" + "i28795" + "i28796" + "i28797")) #(ribcage () () @@ -29542,36 +38919,36 @@ #(ribcage #(orig-x) #((top)) - #("i10549"))) + #("i28789"))) (hygiene guile)) - #{step 10568}#))))))) - #{tmp 10575}#) + #{step 28869}#))))))) + #{tmp 28875}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 10562}#)))))) - #{tmp 10566}#) + #{e1 28849}#)))))) + #{tmp 28852}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10565}#))))) - #{tmp 10551}#) + #{tmp 28851}#))))) + #{tmp 28841}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 10548}#)))))) + #{orig-x 28839}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 10600}# - (lambda (#{p 10613}# #{lev 10614}#) - (let ((#{tmp 10618}# + ((#{quasi 29166}# + (lambda (#{p 29190}# #{lev 29191}#) + (let ((#{tmp 29193}# ($sc-dispatch - #{p 10613}# + #{p 29190}# '(#(free-id #(syntax-object unquote @@ -29580,7 +38957,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29589,28 +38966,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) any)))) - (if #{tmp 10618}# + (if #{tmp 29193}# (@apply - (lambda (#{p 10620}#) - (if (= #{lev 10614}# 0) + (lambda (#{p 29197}#) + (if (= #{lev 29191}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i10619")) + #(ribcage #(p) #((top)) #("i28916")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29619,25 +38996,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{p 10620}#) - (#{quasicons 10604}# + #{p 29197}#) + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10619")) + #(ribcage #(p) #((top)) #("i28916")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29646,23 +39023,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i10619")) + #(ribcage #(p) #((top)) #("i28916")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29671,21 +39048,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - (list #{p 10620}#) - (#{1-}# #{lev 10614}#))))) - #{tmp 10618}#) - (let ((#{tmp 10621}# + (#{quasi 29166}# + (list #{p 29197}#) + (#{1-}# #{lev 29191}#))))) + #{tmp 29193}#) + (let ((#{tmp 29200}# ($sc-dispatch - #{p 10613}# + #{p 29190}# '(#(free-id #(syntax-object quasiquote @@ -29694,7 +39071,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29703,28 +39080,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) any)))) - (if #{tmp 10621}# + (if #{tmp 29200}# (@apply - (lambda (#{p 10623}#) - (#{quasicons 10604}# + (lambda (#{p 29204}#) + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10622")) + #(ribcage #(p) #((top)) #("i28919")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29733,23 +39110,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i10622")) + #(ribcage #(p) #((top)) #("i28919")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29758,26 +39135,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - (list #{p 10623}#) - (#{1+}# #{lev 10614}#)))) - #{tmp 10621}#) - (let ((#{tmp 10624}# - ($sc-dispatch #{p 10613}# '(any . any)))) - (if #{tmp 10624}# + (#{quasi 29166}# + (list #{p 29204}#) + (#{1+}# #{lev 29191}#)))) + #{tmp 29200}#) + (let ((#{tmp 29207}# + ($sc-dispatch #{p 29190}# '(any . any)))) + (if #{tmp 29207}# (@apply - (lambda (#{p 10627}# #{q 10628}#) - (let ((#{tmp 10630}# + (lambda (#{p 29211}# #{q 29212}#) + (let ((#{tmp 29214}# ($sc-dispatch - #{p 10627}# + #{p 29211}# '(#(free-id #(syntax-object unquote @@ -29785,12 +39162,12 @@ #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29805,38 +39182,38 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) . each-any)))) - (if #{tmp 10630}# + (if #{tmp 29214}# (@apply - (lambda (#{p 10632}#) - (if (= #{lev 10614}# 0) - (#{quasilist* 10608}# - (map (lambda (#{tmp 10633}#) + (lambda (#{p 29218}#) + (if (= #{lev 29191}# 0) + (#{quasilist* 29170}# + (map (lambda (#{tmp 28930 29254}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i10631")) + #("i28928")) #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29851,37 +39228,37 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{tmp 10633}#)) - #{p 10632}#) - (#{quasi 10600}# - #{q 10628}# - #{lev 10614}#)) - (#{quasicons 10604}# - (#{quasicons 10604}# + #{tmp 28930 29254}#)) + #{p 29218}#) + (#{quasi 29166}# + #{q 29212}# + #{lev 29191}#)) + (#{quasicons 29168}# + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i10631")) + #("i28928")) #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29896,13 +39273,13 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object unquote @@ -29910,16 +39287,16 @@ #(ribcage #(p) #((top)) - #("i10631")) + #("i28928")) #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29934,24 +39311,24 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - #{p 10632}# - (#{1-}# #{lev 10614}#))) - (#{quasi 10600}# - #{q 10628}# - #{lev 10614}#)))) - #{tmp 10630}#) - (let ((#{tmp 10635}# + (#{quasi 29166}# + #{p 29218}# + (#{1-}# #{lev 29191}#))) + (#{quasi 29166}# + #{q 29212}# + #{lev 29191}#)))) + #{tmp 29214}#) + (let ((#{tmp 29259}# ($sc-dispatch - #{p 10627}# + #{p 29211}# '(#(free-id #(syntax-object unquote-splicing @@ -29959,12 +39336,12 @@ #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -29979,40 +39356,40 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) . each-any)))) - (if #{tmp 10635}# + (if #{tmp 29259}# (@apply - (lambda (#{p 10637}#) - (if (= #{lev 10614}# 0) - (#{quasiappend 10606}# - (map (lambda (#{tmp 10638}#) + (lambda (#{p 29263}#) + (if (= #{lev 29191}# 0) + (#{quasiappend 29169}# + (map (lambda (#{tmp 28935 29266}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i10636")) + #("i28933")) #(ribcage #(p q) #((top) (top)) - #("i10625" - "i10626")) + #("i28922" + "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" - "i10616")) + #("i28912" + "i28913")) #(ribcage (emit quasivector quasilist* @@ -30027,37 +39404,37 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{tmp 10638}#)) - #{p 10637}#) - (#{quasi 10600}# - #{q 10628}# - #{lev 10614}#)) - (#{quasicons 10604}# - (#{quasicons 10604}# + #{tmp 28935 29266}#)) + #{p 29263}#) + (#{quasi 29166}# + #{q 29212}# + #{lev 29191}#)) + (#{quasicons 29168}# + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i10636")) + #("i28933")) #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -30072,13 +39449,13 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -30086,16 +39463,16 @@ #(ribcage #(p) #((top)) - #("i10636")) + #("i28933")) #(ribcage #(p q) #((top) (top)) - #("i10625" "i10626")) + #("i28922" "i28923")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -30110,46 +39487,337 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - #{p 10637}# - (#{1-}# #{lev 10614}#))) - (#{quasi 10600}# - #{q 10628}# - #{lev 10614}#)))) - #{tmp 10635}#) - (#{quasicons 10604}# - (#{quasi 10600}# - #{p 10627}# - #{lev 10614}#) - (#{quasi 10600}# - #{q 10628}# - #{lev 10614}#))))))) - #{tmp 10624}#) - (let ((#{tmp 10642}# - ($sc-dispatch #{p 10613}# '#(vector each-any)))) - (if #{tmp 10642}# + (#{quasi 29166}# + #{p 29263}# + (#{1-}# #{lev 29191}#))) + (#{quasi 29166}# + #{q 29212}# + #{lev 29191}#)))) + #{tmp 29259}#) + (#{quasicons 29168}# + (#{quasi 29166}# + #{p 29211}# + #{lev 29191}#) + (#{quasi 29166}# + #{q 29212}# + #{lev 29191}#))))))) + #{tmp 29207}#) + (let ((#{tmp 29280}# + ($sc-dispatch #{p 29190}# '#(vector each-any)))) + (if #{tmp 29280}# (@apply - (lambda (#{x 10644}#) - (#{quasivector 10610}# - (#{vquasi 10602}# #{x 10644}# #{lev 10614}#))) - #{tmp 10642}#) + (lambda (#{x 29284}#) + (let ((#{x 29287}# + (#{vquasi 29167}# + #{x 29284}# + #{lev 29191}#))) + (let ((#{tmp 29289}# + ($sc-dispatch + #{x 29287}# + '(#(atom "quote") each-any)))) + (if #{tmp 29289}# + (@apply + (lambda (#{x 29293}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(x) + #((top)) + #("i29040")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i29037")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) + (hygiene guile)) + (list->vector #{x 29293}#))) + #{tmp 29289}#) + (letrec* + ((#{f 29295}# + (lambda (#{y 29307}# #{k 29308}#) + (let ((#{tmp 29310}# + ($sc-dispatch + #{y 29307}# + '(#(atom "quote") + each-any)))) + (if #{tmp 29310}# + (@apply + (lambda (#{y 29313}#) + (#{k 29308}# + (map (lambda (#{tmp 29065 29314}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(y) + #((top)) + #("i29063")) + #(ribcage + () + () + ()) + #(ribcage + #(f + y + k) + #((top) + (top) + (top)) + #("i29045" + "i29046" + "i29047")) + #(ribcage + #(_) + #((top)) + #("i29043")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i29037")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) + (hygiene + guile)) + #{tmp 29065 29314}#)) + #{y 29313}#))) + #{tmp 29310}#) + (let ((#{tmp 29315}# + ($sc-dispatch + #{y 29307}# + '(#(atom "list") + . + each-any)))) + (if #{tmp 29315}# + (@apply + (lambda (#{y 29318}#) + (#{k 29308}# + #{y 29318}#)) + #{tmp 29315}#) + (let ((#{tmp 29319}# + ($sc-dispatch + #{y 29307}# + '(#(atom "list*") + . + #(each+ + any + (any) + ()))))) + (if #{tmp 29319}# + (@apply + (lambda (#{y 29322}# + #{z 29323}#) + (#{f 29295}# + #{z 29323}# + (lambda (#{ls 29324}#) + (#{k 29308}# + (append + #{y 29322}# + #{ls 29324}#))))) + #{tmp 29319}#) + (list '#(syntax-object + "list->vector" + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g29080}#) + #((m29081 + top)) + #("i29084")) + #(ribcage + #(else) + #((top)) + #("i29078")) + #(ribcage + () + () + ()) + #(ribcage + #(f y k) + #((top) + (top) + (top)) + #("i29045" + "i29046" + "i29047")) + #(ribcage + #(_) + #((top)) + #("i29043")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i29037")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) + (hygiene + guile)) + #{x 29287}#)))))))))) + (#{f 29295}# + #{x 29287}# + (lambda (#{ls 29297}#) + (let ((#{tmp 29299}# + ($sc-dispatch + #{ls 29297}# + 'each-any))) + (if #{tmp 29299}# + (@apply + (lambda (#{ g29053 29302}#) + (cons '#(syntax-object + "vector" + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g29053}#) + #((m29054 top)) + #("i29058")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ls) + #((top)) + #("i29052")) + #(ribcage + #(_) + #((top)) + #("i29043")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i29037")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) + (hygiene guile)) + #{ g29053 29302}#)) + #{tmp 29299}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{ls 29297}#)))))))))) + #{tmp 29280}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10646")) + #(ribcage #(p) #((top)) #("i28943")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10615" "i10616")) + #("i28912" "i28913")) #(ribcage (emit quasivector quasilist* @@ -30164,25 +39832,25 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{p 10613}#))))))))))) - (#{vquasi 10602}# - (lambda (#{p 10648}# #{lev 10649}#) - (let ((#{tmp 10653}# - ($sc-dispatch #{p 10648}# '(any . any)))) - (if #{tmp 10653}# + #{p 29190}#))))))))))) + (#{vquasi 29167}# + (lambda (#{p 29352}# #{lev 29353}#) + (let ((#{tmp 29355}# + ($sc-dispatch #{p 29352}# '(any . any)))) + (if #{tmp 29355}# (@apply - (lambda (#{p 10656}# #{q 10657}#) - (let ((#{tmp 10659}# + (lambda (#{p 29359}# #{q 29360}#) + (let ((#{tmp 29362}# ($sc-dispatch - #{p 10656}# + #{p 29359}# '(#(free-id #(syntax-object unquote @@ -30190,12 +39858,12 @@ #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30210,38 +39878,38 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) . each-any)))) - (if #{tmp 10659}# + (if #{tmp 29362}# (@apply - (lambda (#{p 10661}#) - (if (= #{lev 10649}# 0) - (#{quasilist* 10608}# - (map (lambda (#{tmp 10662}#) + (lambda (#{p 29366}#) + (if (= #{lev 29353}# 0) + (#{quasilist* 29170}# + (map (lambda (#{tmp 28959 29402}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i10660")) + #("i28957")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30256,32 +39924,32 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{tmp 10662}#)) - #{p 10661}#) - (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)) - (#{quasicons 10604}# - (#{quasicons 10604}# + #{tmp 28959 29402}#)) + #{p 29366}#) + (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)) + (#{quasicons 29168}# + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10660")) + #(ribcage #(p) #((top)) #("i28957")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30296,27 +39964,27 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i10660")) + #(ribcage #(p) #((top)) #("i28957")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30331,22 +39999,22 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - #{p 10661}# - (#{1-}# #{lev 10649}#))) - (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)))) - #{tmp 10659}#) - (let ((#{tmp 10664}# + (#{quasi 29166}# + #{p 29366}# + (#{1-}# #{lev 29353}#))) + (#{vquasi 29167}# #{q 29360}# #{lev 29353}#)))) + #{tmp 29362}#) + (let ((#{tmp 29409}# ($sc-dispatch - #{p 10656}# + #{p 29359}# '(#(free-id #(syntax-object unquote-splicing @@ -30354,12 +40022,12 @@ #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30374,38 +40042,38 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) . each-any)))) - (if #{tmp 10664}# + (if #{tmp 29409}# (@apply - (lambda (#{p 10666}#) - (if (= #{lev 10649}# 0) - (#{quasiappend 10606}# - (map (lambda (#{tmp 10667}#) + (lambda (#{p 29413}#) + (if (= #{lev 29353}# 0) + (#{quasiappend 29169}# + (map (lambda (#{tmp 28964 29416}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i10665")) + #("i28962")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30420,34 +40088,34 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{tmp 10667}#)) - #{p 10666}#) - (#{vquasi 10602}# - #{q 10657}# - #{lev 10649}#)) - (#{quasicons 10604}# - (#{quasicons 10604}# + #{tmp 28964 29416}#)) + #{p 29413}#) + (#{vquasi 29167}# + #{q 29360}# + #{lev 29353}#)) + (#{quasicons 29168}# + (#{quasicons 29168}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i10665")) + #(ribcage #(p) #((top)) #("i28962")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30462,27 +40130,27 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("i10665")) + #(ribcage #(p) #((top)) #("i28962")) #(ribcage #(p q) #((top) (top)) - #("i10654" "i10655")) + #("i28951" "i28952")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30497,27 +40165,27 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile))) - (#{quasi 10600}# - #{p 10666}# - (#{1-}# #{lev 10649}#))) - (#{vquasi 10602}# - #{q 10657}# - #{lev 10649}#)))) - #{tmp 10664}#) - (#{quasicons 10604}# - (#{quasi 10600}# #{p 10656}# #{lev 10649}#) - (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))))))) - #{tmp 10653}#) - (let ((#{tmp 10671}# ($sc-dispatch #{p 10648}# '()))) - (if #{tmp 10671}# + (#{quasi 29166}# + #{p 29413}# + (#{1-}# #{lev 29353}#))) + (#{vquasi 29167}# + #{q 29360}# + #{lev 29353}#)))) + #{tmp 29409}#) + (#{quasicons 29168}# + (#{quasi 29166}# #{p 29359}# #{lev 29353}#) + (#{vquasi 29167}# #{q 29360}# #{lev 29353}#))))))) + #{tmp 29355}#) + (let ((#{tmp 29434}# ($sc-dispatch #{p 29352}# '()))) + (if #{tmp 29434}# (@apply (lambda () '(#(syntax-object @@ -30527,7 +40195,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i10650" "i10651")) + #("i28947" "i28948")) #(ribcage (emit quasivector quasilist* @@ -30536,64 +40204,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) ())) - #{tmp 10671}#) + #{tmp 29434}#) (syntax-violation #f "source expression failed to match any pattern" - #{p 10648}#))))))) - (#{quasicons 10604}# - (lambda (#{x 10672}# #{y 10673}#) - (let ((#{tmp 10677}# (list #{x 10672}# #{y 10673}#))) - (let ((#{tmp 10678}# - ($sc-dispatch #{tmp 10677}# '(any any)))) - (if #{tmp 10678}# + #{p 29352}#))))))) + (#{quasicons 29168}# + (lambda (#{x 29447}# #{y 29448}#) + (let ((#{tmp 29449}# (list #{x 29447}# #{y 29448}#))) + (let ((#{tmp 29450}# + ($sc-dispatch #{tmp 29449}# '(any any)))) + (if #{tmp 29450}# (@apply - (lambda (#{x 10681}# #{y 10682}#) - (let ((#{tmp 10684}# + (lambda (#{x 29452}# #{y 29453}#) + (let ((#{tmp 29455}# ($sc-dispatch - #{y 10682}# + #{y 29453}# '(#(atom "quote") any)))) - (if #{tmp 10684}# + (if #{tmp 29455}# (@apply - (lambda (#{dy 10686}#) - (let ((#{tmp 10688}# + (lambda (#{dy 29459}#) + (let ((#{tmp 29461}# ($sc-dispatch - #{x 10681}# + #{x 29452}# '(#(atom "quote") any)))) - (if #{tmp 10688}# + (if #{tmp 29461}# (@apply - (lambda (#{dx 10690}#) + (lambda (#{dx 29465}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i10689")) + #("i28986")) #(ribcage #(dy) #((top)) - #("i10685")) + #("i28982")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30608,39 +40276,39 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - (cons #{dx 10690}# #{dy 10686}#))) - #{tmp 10688}#) - (if (null? #{dy 10686}#) + (cons #{dx 29465}# #{dy 29459}#))) + #{tmp 29461}#) + (if (null? #{dy 29459}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i10691")) + #("i28988")) #(ribcage #(dy) #((top)) - #("i10685")) + #("i28982")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30655,37 +40323,37 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{x 10681}#) + #{x 29452}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i10691")) + #("i28988")) #(ribcage #(dy) #((top)) - #("i10685")) + #("i28982")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30700,42 +40368,42 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{x 10681}# - #{y 10682}#))))) - #{tmp 10684}#) - (let ((#{tmp 10693}# + #{x 29452}# + #{y 29453}#))))) + #{tmp 29455}#) + (let ((#{tmp 29470}# ($sc-dispatch - #{y 10682}# + #{y 29453}# '(#(atom "list") . any)))) - (if #{tmp 10693}# + (if #{tmp 29470}# (@apply - (lambda (#{stuff 10695}#) + (lambda (#{stuff 29474}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i10694")) + #("i28991")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30750,41 +40418,41 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - (cons #{x 10681}# #{stuff 10695}#))) - #{tmp 10693}#) - (let ((#{tmp 10696}# + (cons #{x 29452}# #{stuff 29474}#))) + #{tmp 29470}#) + (let ((#{tmp 29475}# ($sc-dispatch - #{y 10682}# + #{y 29453}# '(#(atom "list*") . any)))) - (if #{tmp 10696}# + (if #{tmp 29475}# (@apply - (lambda (#{stuff 10698}#) + (lambda (#{stuff 29479}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i10697")) + #("i28994")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30799,31 +40467,31 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - (cons #{x 10681}# #{stuff 10698}#))) - #{tmp 10696}#) + (cons #{x 29452}# #{stuff 29479}#))) + #{tmp 29475}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("i10699")) + #(ribcage #(_) #((top)) #("i28996")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10679" "i10680")) + #("i28976" "i28977")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10674" "i10675")) + #("i28971" "i28972")) #(ribcage (emit quasivector quasilist* @@ -30838,29 +40506,29 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{x 10681}# - #{y 10682}#)))))))) - #{tmp 10678}#) + #{x 29452}# + #{y 29453}#)))))))) + #{tmp 29450}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10677}#)))))) - (#{quasiappend 10606}# - (lambda (#{x 10701}# #{y 10702}#) - (let ((#{tmp 10706}# - ($sc-dispatch #{y 10702}# '(#(atom "quote") ())))) - (if #{tmp 10706}# + #{tmp 29449}#)))))) + (#{quasiappend 29169}# + (lambda (#{x 29490}# #{y 29491}#) + (let ((#{tmp 29493}# + ($sc-dispatch #{y 29491}# '(#(atom "quote") ())))) + (if #{tmp 29493}# (@apply (lambda () - (if (null? #{x 10701}#) + (if (null? #{x 29490}#) '(#(syntax-object "quote" ((top) @@ -30868,7 +40536,7 @@ #(ribcage #(x y) #((top) (top)) - #("i10703" "i10704")) + #("i29000" "i29001")) #(ribcage (emit quasivector quasilist* @@ -30877,32 +40545,32 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) ()) - (if (null? (cdr #{x 10701}#)) - (car #{x 10701}#) - (let ((#{tmp 10714}# - ($sc-dispatch #{x 10701}# 'each-any))) - (if #{tmp 10714}# + (if (null? (cdr #{x 29490}#)) + (car #{x 29490}#) + (let ((#{tmp 29498}# + ($sc-dispatch #{x 29490}# 'each-any))) + (if #{tmp 29498}# (@apply - (lambda (#{p 10716}#) + (lambda (#{p 29502}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("i10715")) + #(ribcage #(p) #((top)) #("i29012")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10703" "i10704")) + #("i29000" "i29001")) #(ribcage (emit quasivector quasilist* @@ -30917,29 +40585,29 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{p 10716}#)) - #{tmp 10714}#) + #{p 29502}#)) + #{tmp 29498}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10701}#)))))) - #{tmp 10706}#) - (if (null? #{x 10701}#) - #{y 10702}# - (let ((#{tmp 10724}# (list #{x 10701}# #{y 10702}#))) - (let ((#{tmp 10725}# - ($sc-dispatch #{tmp 10724}# '(each-any any)))) - (if #{tmp 10725}# + #{x 29490}#)))))) + #{tmp 29493}#) + (if (null? #{x 29490}#) + #{y 29491}# + (let ((#{tmp 29510}# (list #{x 29490}# #{y 29491}#))) + (let ((#{tmp 29511}# + ($sc-dispatch #{tmp 29510}# '(each-any any)))) + (if #{tmp 29511}# (@apply - (lambda (#{p 10728}# #{y 10729}#) + (lambda (#{p 29513}# #{y 29514}#) (cons '#(syntax-object "append" ((top) @@ -30947,13 +40615,13 @@ #(ribcage #(p y) #((top) (top)) - #("i10726" "i10727")) - #(ribcage #(_) #((top)) #("i10718")) + #("i29023" "i29024")) + #(ribcage #(_) #((top)) #("i29015")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i10703" "i10704")) + #("i29000" "i29001")) #(ribcage (emit quasivector quasilist* @@ -30968,263 +40636,44 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - (append #{p 10728}# (list #{y 10729}#)))) - #{tmp 10725}#) + (append #{p 29513}# (list #{y 29514}#)))) + #{tmp 29511}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10724}#))))))))) - (#{quasilist* 10608}# - (lambda (#{x 10731}# #{y 10732}#) + #{tmp 29510}#))))))))) + (#{quasilist* 29170}# + (lambda (#{x 29518}# #{y 29519}#) (letrec* - ((#{f 10737}# - (lambda (#{x 10738}#) - (if (null? #{x 10738}#) - #{y 10732}# - (#{quasicons 10604}# - (car #{x 10738}#) - (#{f 10737}# (cdr #{x 10738}#))))))) - (#{f 10737}# #{x 10731}#)))) - (#{quasivector 10610}# - (lambda (#{x 10739}#) - (let ((#{tmp 10742}# - ($sc-dispatch - #{x 10739}# - '(#(atom "quote") each-any)))) - (if #{tmp 10742}# + ((#{f 29520}# + (lambda (#{x 29609}#) + (if (null? #{x 29609}#) + #{y 29519}# + (#{quasicons 29168}# + (car #{x 29609}#) + (#{f 29520}# (cdr #{x 29609}#))))))) + (#{f 29520}# #{x 29518}#)))) + (#{emit 29172}# + (lambda (#{x 29612}#) + (let ((#{tmp 29614}# + ($sc-dispatch #{x 29612}# '(#(atom "quote") any)))) + (if #{tmp 29614}# (@apply - (lambda (#{x 10744}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage #(x) #((top)) #("i10743")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10740")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) - (hygiene guile)) - (list->vector #{x 10744}#))) - #{tmp 10742}#) - (letrec* - ((#{f 10751}# - (lambda (#{y 10752}# #{k 10753}#) - (let ((#{tmp 10765}# - ($sc-dispatch - #{y 10752}# - '(#(atom "quote") each-any)))) - (if #{tmp 10765}# - (@apply - (lambda (#{y 10767}#) - (#{k 10753}# - (map (lambda (#{tmp 10768}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(y) - #((top)) - #("i10766")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i10748" - "i10749" - "i10750")) - #(ribcage - #(_) - #((top)) - #("i10746")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10740")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) - (hygiene guile)) - #{tmp 10768}#)) - #{y 10767}#))) - #{tmp 10765}#) - (let ((#{tmp 10769}# - ($sc-dispatch - #{y 10752}# - '(#(atom "list") . each-any)))) - (if #{tmp 10769}# - (@apply - (lambda (#{y 10771}#) - (#{k 10753}# #{y 10771}#)) - #{tmp 10769}#) - (let ((#{tmp 10773}# - ($sc-dispatch - #{y 10752}# - '(#(atom "list*") - . - #(each+ any (any) ()))))) - (if #{tmp 10773}# - (@apply - (lambda (#{y 10776}# #{z 10777}#) - (#{f 10751}# - #{z 10777}# - (lambda (#{ls 10778}#) - (#{k 10753}# - (append - #{y 10776}# - #{ls 10778}#))))) - #{tmp 10773}#) - (list '#(syntax-object - "list->vector" - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g10783}#) - #((m10784 top)) - #("i10787")) - #(ribcage - #(else) - #((top)) - #("i10781")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i10748" "i10749" "i10750")) - #(ribcage - #(_) - #((top)) - #("i10746")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i10740")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) - (hygiene guile)) - #{x 10739}#)))))))))) - (#{f 10751}# - #{x 10739}# - (lambda (#{ls 10754}#) - (let ((#{tmp 10760}# - ($sc-dispatch #{ls 10754}# 'each-any))) - (if #{tmp 10760}# - (@apply - (lambda (#{ g10756 10762}#) - (cons '#(syntax-object - "vector" - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g10756}#) - #((m10757 top)) - #("i10761")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(ls) #((top)) #("i10755")) - #(ribcage #(_) #((top)) #("i10746")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10740")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) - (hygiene guile)) - #{ g10756 10762}#)) - #{tmp 10760}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{ls 10754}#)))))))))) - (#{emit 10612}# - (lambda (#{x 10789}#) - (let ((#{tmp 10792}# - ($sc-dispatch #{x 10789}# '(#(atom "quote") any)))) - (if #{tmp 10792}# - (@apply - (lambda (#{x 10794}#) + (lambda (#{x 29618}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i10793")) + #(ribcage #(x) #((top)) #("i29090")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10790")) + #(ribcage #(x) #((top)) #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31233,40 +40682,40 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{x 10794}#)) - #{tmp 10792}#) - (let ((#{tmp 10795}# + #{x 29618}#)) + #{tmp 29614}#) + (let ((#{tmp 29619}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "list") . each-any)))) - (if #{tmp 10795}# + (if #{tmp 29619}# (@apply - (lambda (#{x 10797}#) - (let ((#{tmp 10801}# (map #{emit 10612}# #{x 10797}#))) - (let ((#{tmp 10802}# - ($sc-dispatch #{tmp 10801}# 'each-any))) - (if #{tmp 10802}# + (lambda (#{x 29623}#) + (let ((#{tmp 29624}# (map #{emit 29172}# #{x 29623}#))) + (let ((#{tmp 29625}# + ($sc-dispatch #{tmp 29624}# 'each-any))) + (if #{tmp 29625}# (@apply - (lambda (#{ g10798 10804}#) + (lambda (#{ g29095 29627}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g10798}#) - #((m10799 top)) - #("i10803")) - #(ribcage #(x) #((top)) #("i10796")) + #(#{ g29095}#) + #((m29096 top)) + #("i29100")) + #(ribcage #(x) #((top)) #("i29093")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i10790")) + #(ribcage #(x) #((top)) #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31281,70 +40730,70 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{ g10798 10804}#)) - #{tmp 10802}#) + #{ g29095 29627}#)) + #{tmp 29625}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10801}#))))) - #{tmp 10795}#) - (let ((#{tmp 10807}# + #{tmp 29624}#))))) + #{tmp 29619}#) + (let ((#{tmp 29628}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 10807}# + (if #{tmp 29628}# (@apply - (lambda (#{x 10810}# #{y 10811}#) + (lambda (#{x 29632}# #{y 29633}#) (letrec* - ((#{f 10814}# - (lambda (#{x* 10815}#) - (if (null? #{x* 10815}#) - (#{emit 10612}# #{y 10811}#) - (let ((#{tmp 10821}# - (list (#{emit 10612}# - (car #{x* 10815}#)) - (#{f 10814}# - (cdr #{x* 10815}#))))) - (let ((#{tmp 10822}# + ((#{f 29634}# + (lambda (#{x* 29637}#) + (if (null? #{x* 29637}#) + (#{emit 29172}# #{y 29633}#) + (let ((#{tmp 29638}# + (list (#{emit 29172}# + (car #{x* 29637}#)) + (#{f 29634}# + (cdr #{x* 29637}#))))) + (let ((#{tmp 29639}# ($sc-dispatch - #{tmp 10821}# + #{tmp 29638}# '(any any)))) - (if #{tmp 10822}# + (if #{tmp 29639}# (@apply - (lambda (#{ g10818 10825}# - #{ g10817 10826}#) + (lambda (#{ g29115 29641}# + #{ g29114 29642}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g10818}# - #{ g10817}#) - #((m10819 top) - (m10819 top)) - #("i10823" "i10824")) + #(#{ g29115}# + #{ g29114}#) + #((m29116 top) + (m29116 top)) + #("i29120" "i29121")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i10812" "i10813")) + #("i29109" "i29110")) #(ribcage #(x y) #((top) (top)) - #("i10808" "i10809")) + #("i29105" "i29106")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10790")) + #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31359,56 +40808,56 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{ g10818 10825}# - #{ g10817 10826}#)) - #{tmp 10822}#) + #{ g29115 29641}# + #{ g29114 29642}#)) + #{tmp 29639}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10821}#)))))))) - (#{f 10814}# #{x 10810}#))) - #{tmp 10807}#) - (let ((#{tmp 10827}# + #{tmp 29638}#)))))))) + (#{f 29634}# #{x 29632}#))) + #{tmp 29628}#) + (let ((#{tmp 29643}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "append") . each-any)))) - (if #{tmp 10827}# + (if #{tmp 29643}# (@apply - (lambda (#{x 10829}#) - (let ((#{tmp 10833}# - (map #{emit 10612}# #{x 10829}#))) - (let ((#{tmp 10834}# + (lambda (#{x 29647}#) + (let ((#{tmp 29648}# + (map #{emit 29172}# #{x 29647}#))) + (let ((#{tmp 29649}# ($sc-dispatch - #{tmp 10833}# + #{tmp 29648}# 'each-any))) - (if #{tmp 10834}# + (if #{tmp 29649}# (@apply - (lambda (#{ g10830 10836}#) + (lambda (#{ g29127 29651}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g10830}#) - #((m10831 top)) - #("i10835")) + #(#{ g29127}#) + #((m29128 top)) + #("i29132")) #(ribcage #(x) #((top)) - #("i10828")) + #("i29125")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10790")) + #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31423,54 +40872,54 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{ g10830 10836}#)) - #{tmp 10834}#) + #{ g29127 29651}#)) + #{tmp 29649}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10833}#))))) - #{tmp 10827}#) - (let ((#{tmp 10839}# + #{tmp 29648}#))))) + #{tmp 29643}#) + (let ((#{tmp 29652}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "vector") . each-any)))) - (if #{tmp 10839}# + (if #{tmp 29652}# (@apply - (lambda (#{x 10841}#) - (let ((#{tmp 10845}# - (map #{emit 10612}# #{x 10841}#))) - (let ((#{tmp 10846}# + (lambda (#{x 29656}#) + (let ((#{tmp 29657}# + (map #{emit 29172}# #{x 29656}#))) + (let ((#{tmp 29658}# ($sc-dispatch - #{tmp 10845}# + #{tmp 29657}# 'each-any))) - (if #{tmp 10846}# + (if #{tmp 29658}# (@apply - (lambda (#{ g10842 10848}#) + (lambda (#{ g29139 29660}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g10842}#) - #((m10843 top)) - #("i10847")) + #(#{ g29139}#) + #((m29140 top)) + #("i29144")) #(ribcage #(x) #((top)) - #("i10840")) + #("i29137")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10790")) + #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31485,47 +40934,47 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{ g10842 10848}#)) - #{tmp 10846}#) + #{ g29139 29660}#)) + #{tmp 29658}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 10845}#))))) - #{tmp 10839}#) - (let ((#{tmp 10851}# + #{tmp 29657}#))))) + #{tmp 29652}#) + (let ((#{tmp 29661}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "list->vector") any)))) - (if #{tmp 10851}# + (if #{tmp 29661}# (@apply - (lambda (#{x 10853}#) - (let ((#{tmp 10857}# - (#{emit 10612}# #{x 10853}#))) + (lambda (#{x 29665}#) + (let ((#{tmp 29666}# + (#{emit 29172}# #{x 29665}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g10854}#) - #((m10855 top)) - #("i10858")) + #(#{ g29151}#) + #((m29152 top)) + #("i29155")) #(ribcage #(x) #((top)) - #("i10852")) + #("i29149")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i10790")) + #("i29087")) #(ribcage (emit quasivector quasilist* @@ -31540,187 +40989,188 @@ (top) (top) (top)) - ("i10611" - "i10609" - "i10607" - "i10605" - "i10603" - "i10601" - "i10599"))) + ("i28908" + "i28906" + "i28904" + "i28902" + "i28900" + "i28898" + "i28896"))) (hygiene guile)) - #{tmp 10857}#))) - #{tmp 10851}#) - (let ((#{tmp 10860}# + #{tmp 29666}#))) + #{tmp 29661}#) + (let ((#{tmp 29669}# ($sc-dispatch - #{x 10789}# + #{x 29612}# '(#(atom "value") any)))) - (if #{tmp 10860}# + (if #{tmp 29669}# (@apply - (lambda (#{x 10862}#) #{x 10862}#) - #{tmp 10860}#) + (lambda (#{x 29673}#) #{x 29673}#) + #{tmp 29669}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10789}#)))))))))))))))))) - (lambda (#{x 10863}#) - (let ((#{tmp 10866}# - ($sc-dispatch #{x 10863}# '(_ any)))) - (if #{tmp 10866}# + #{x 29612}#)))))))))))))))))) + (lambda (#{x 29173}#) + (let ((#{tmp 29175}# + ($sc-dispatch #{x 29173}# '(_ any)))) + (if #{tmp 29175}# (@apply - (lambda (#{e 10868}#) - (#{emit 10612}# (#{quasi 10600}# #{e 10868}# 0))) - #{tmp 10866}#) + (lambda (#{e 29179}#) + (#{emit 29172}# (#{quasi 29166}# #{e 29179}# 0))) + #{tmp 29175}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 10863}#))))))) + #{x 29173}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 10939}#) - (let ((#{tmp 10956}# - ($sc-dispatch #{x 10939}# '(any any)))) - (if #{tmp 10956}# - (@apply - (lambda (#{k 10959}# #{filename 10960}#) - (let ((#{fn 10962}# (syntax->datum #{filename 10960}#))) - (let ((#{tmp 10964}# - ((lambda (#{fn 10943}# #{k 10944}#) - (let ((#{p 10948}# (open-input-file #{fn 10943}#))) - (letrec* - ((#{f 10952}# - (lambda (#{x 10953}# #{result 10954}#) - (if (eof-object? #{x 10953}#) - (begin - (close-input-port #{p 10948}#) - (reverse #{result 10954}#)) - (#{f 10952}# - (read #{p 10948}#) - (cons (datum->syntax - #{k 10944}# - #{x 10953}#) - #{result 10954}#)))))) - (#{f 10952}# (read #{p 10948}#) '())))) - #{fn 10962}# - #{filename 10960}#))) - (let ((#{tmp 10965}# - ($sc-dispatch #{tmp 10964}# 'each-any))) - (if #{tmp 10965}# - (@apply - (lambda (#{exp 10967}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("i10966")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i10961")) - #(ribcage - #(k filename) - #((top) (top)) - #("i10957" "i10958")) - #(ribcage (read-file) ((top)) ("i10941")) - #(ribcage #(x) #((top)) #("i10940"))) - (hygiene guile)) - #{exp 10967}#)) - #{tmp 10965}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 10964}#)))))) - #{tmp 10956}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{x 10939}#)))))) + (lambda (#{x 29728}#) + (letrec* + ((#{read-file 29729}# + (lambda (#{fn 29840}# #{k 29841}#) + (let ((#{p 29842}# (open-input-file #{fn 29840}#))) + (letrec* + ((#{f 29843}# + (lambda (#{x 29897}# #{result 29898}#) + (if (eof-object? #{x 29897}#) + (begin + (close-input-port #{p 29842}#) + (reverse #{result 29898}#)) + (#{f 29843}# + (read #{p 29842}#) + (cons (datum->syntax #{k 29841}# #{x 29897}#) + #{result 29898}#)))))) + (#{f 29843}# (read #{p 29842}#) '())))))) + (let ((#{tmp 29731}# + ($sc-dispatch #{x 29728}# '(any any)))) + (if #{tmp 29731}# + (@apply + (lambda (#{k 29735}# #{filename 29736}#) + (let ((#{fn 29737}# (syntax->datum #{filename 29736}#))) + (let ((#{tmp 29738}# + (#{read-file 29729}# + #{fn 29737}# + #{filename 29736}#))) + (let ((#{tmp 29739}# + ($sc-dispatch #{tmp 29738}# 'each-any))) + (if #{tmp 29739}# + (@apply + (lambda (#{exp 29757}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage () () ()) + #(ribcage #(exp) #((top)) #("i29725")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage #(fn) #((top)) #("i29720")) + #(ribcage + #(k filename) + #((top) (top)) + #("i29716" "i29717")) + #(ribcage (read-file) ((top)) ("i29700")) + #(ribcage #(x) #((top)) #("i29699"))) + (hygiene guile)) + #{exp 29757}#)) + #{tmp 29739}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 29738}#)))))) + #{tmp 29731}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 29728}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 11064}#) - (let ((#{tmp 11067}# - ($sc-dispatch #{x 11064}# '(any any)))) - (if #{tmp 11067}# + (lambda (#{x 29917}#) + (let ((#{tmp 29919}# + ($sc-dispatch #{x 29917}# '(any any)))) + (if #{tmp 29919}# (@apply - (lambda (#{k 11070}# #{filename 11071}#) - (let ((#{fn 11073}# (syntax->datum #{filename 11071}#))) - (let ((#{tmp 11075}# + (lambda (#{k 29923}# #{filename 29924}#) + (let ((#{fn 29925}# (syntax->datum #{filename 29924}#))) + (let ((#{tmp 29926}# (datum->syntax - #{filename 11071}# - (let ((#{t 11080}# (%search-load-path #{fn 11073}#))) - (if #{t 11080}# - #{t 11080}# + #{filename 29924}# + (let ((#{t 29929}# (%search-load-path #{fn 29925}#))) + (if #{t 29929}# + #{t 29929}# (syntax-violation 'include-from-path "file not found in path" - #{x 11064}# - #{filename 11071}#)))))) + #{x 29917}# + #{filename 29924}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i11076")) + #(ribcage #(fn) #((top)) #("i29911")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i11072")) + #(ribcage #(fn) #((top)) #("i29907")) #(ribcage #(k filename) #((top) (top)) - #("i11068" "i11069")) + #("i29903" "i29904")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11065"))) + #(ribcage #(x) #((top)) #("i29900"))) (hygiene guile)) - #{tmp 11075}#)))) - #{tmp 11067}#) + #{tmp 29926}#)))) + #{tmp 29919}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 11064}#)))))) + #{x 29917}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 11082}#) + (lambda (#{x 29938}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 11082}#)))) + #{x 29938}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 11084}#) + (lambda (#{x 29941}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 11084}#)))) + #{x 29941}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 11086}#) - (let ((#{tmp 11089}# + (lambda (#{x 29997}#) + (let ((#{tmp 29999}# ($sc-dispatch - #{x 11086}# + #{x 29997}# '(_ any any . each-any)))) - (if #{tmp 11089}# + (if #{tmp 29999}# (@apply - (lambda (#{e 11093}# #{m1 11094}# #{m2 11095}#) - (let ((#{tmp 11097}# + (lambda (#{e 30003}# #{m1 30004}# #{m2 30005}#) + (let ((#{tmp 30006}# (letrec* - ((#{f 11103}# - (lambda (#{clause 11104}# #{clauses 11105}#) - (if (null? #{clauses 11105}#) - (let ((#{tmp 11108}# + ((#{f 30052}# + (lambda (#{clause 30055}# #{clauses 30056}#) + (if (null? #{clauses 30056}#) + (let ((#{tmp 30058}# ($sc-dispatch - #{clause 11104}# + #{clause 30055}# '(#(free-id #(syntax-object else @@ -31729,91 +41179,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile))) any . each-any)))) - (if #{tmp 11108}# + (if #{tmp 30058}# (@apply - (lambda (#{e1 11111}# #{e2 11112}#) + (lambda (#{e1 30062}# #{e2 30063}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i11109" "i11110")) + #("i29965" "i29966")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) - (cons #{e1 11111}# #{e2 11112}#))) - #{tmp 11108}#) - (let ((#{tmp 11114}# + (cons #{e1 30062}# #{e2 30063}#))) + #{tmp 30058}#) + (let ((#{tmp 30064}# ($sc-dispatch - #{clause 11104}# + #{clause 30055}# '(each-any any . each-any)))) - (if #{tmp 11114}# + (if #{tmp 30064}# (@apply - (lambda (#{k 11118}# - #{e1 11119}# - #{e2 11120}#) + (lambda (#{k 30068}# + #{e1 30069}# + #{e2 30070}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11115" - "i11116" - "i11117")) + #("i29971" + "i29972" + "i29973")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) (list '#(syntax-object memv @@ -31823,9 +41273,9 @@ #((top) (top) (top)) - #("i11115" - "i11116" - "i11117")) + #("i29971" + "i29972" + "i29973")) #(ribcage () () ()) #(ribcage #(f @@ -31834,22 +41284,22 @@ #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) '#(syntax-object t @@ -31859,9 +41309,9 @@ #((top) (top) (top)) - #("i11115" - "i11116" - "i11117")) + #("i29971" + "i29972" + "i29973")) #(ribcage () () ()) #(ribcage #(f @@ -31870,22 +41320,22 @@ #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) (list '#(syntax-object quote @@ -31895,9 +41345,9 @@ #((top) (top) (top)) - #("i11115" - "i11116" - "i11117")) + #("i29971" + "i29972" + "i29973")) #(ribcage () () @@ -31909,17 +41359,17 @@ #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () @@ -31927,10 +41377,10 @@ #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) - #{k 11118}#)) + #{k 30068}#)) (cons '#(syntax-object begin ((top) @@ -31939,9 +41389,9 @@ #((top) (top) (top)) - #("i11115" - "i11116" - "i11117")) + #("i29971" + "i29972" + "i29973")) #(ribcage () () ()) #(ribcage #(f @@ -31950,76 +41400,76 @@ #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) - (cons #{e1 11119}# - #{e2 11120}#)))) - #{tmp 11114}#) + (cons #{e1 30069}# + #{e2 30070}#)))) + #{tmp 30064}#) (syntax-violation 'case "bad clause" - #{x 11086}# - #{clause 11104}#))))) - (let ((#{tmp 11126}# - (#{f 11103}# - (car #{clauses 11105}#) - (cdr #{clauses 11105}#)))) - (let ((#{tmp 11130}# + #{x 29997}# + #{clause 30055}#))))) + (let ((#{tmp 30078}# + (#{f 30052}# + (car #{clauses 30056}#) + (cdr #{clauses 30056}#)))) + (let ((#{tmp 30081}# ($sc-dispatch - #{clause 11104}# + #{clause 30055}# '(each-any any . each-any)))) - (if #{tmp 11130}# + (if #{tmp 30081}# (@apply - (lambda (#{k 11134}# - #{e1 11135}# - #{e2 11136}#) + (lambda (#{k 30085}# + #{e1 30086}# + #{e2 30087}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11131" - "i11132" - "i11133")) + #("i29987" + "i29988" + "i29989")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i11127")) + #("i29983")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) (list '#(syntax-object memv @@ -32027,32 +41477,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11131" - "i11132" - "i11133")) + #("i29987" + "i29988" + "i29989")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i11127")) + #("i29983")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) '#(syntax-object t @@ -32060,32 +41510,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11131" - "i11132" - "i11133")) + #("i29987" + "i29988" + "i29989")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i11127")) + #("i29983")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) (list '#(syntax-object quote @@ -32095,9 +41545,9 @@ #((top) (top) (top)) - #("i11131" - "i11132" - "i11133")) + #("i29987" + "i29988" + "i29989")) #(ribcage () () @@ -32105,7 +41555,7 @@ #(ribcage #(rest) #((top)) - #("i11127")) + #("i29983")) #(ribcage () () @@ -32117,17 +41567,17 @@ #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () @@ -32135,231 +41585,232 @@ #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) - #{k 11134}#)) + #{k 30085}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i11131" - "i11132" - "i11133")) + #("i29987" + "i29988" + "i29989")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i11127")) + #("i29983")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i11100" - "i11101" - "i11102")) + #("i29956" + "i29957" + "i29958")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i11090" - "i11091" - "i11092")) + #("i29946" + "i29947" + "i29948")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11087"))) + #("i29943"))) (hygiene guile)) - (cons #{e1 11135}# - #{e2 11136}#)) - #{tmp 11126}#)) - #{tmp 11130}#) + (cons #{e1 30086}# + #{e2 30087}#)) + #{tmp 30078}#)) + #{tmp 30081}#) (syntax-violation 'case "bad clause" - #{x 11086}# - #{clause 11104}#)))))))) - (#{f 11103}# #{m1 11094}# #{m2 11095}#)))) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i11098")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11090" "i11091" "i11092")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11087"))) - (hygiene guile)) - (list (list '#(syntax-object - t - ((top) - #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i11098")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i11090" "i11091" "i11092")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11087"))) - (hygiene guile)) - #{e 11093}#)) - #{tmp 11097}#))) - #{tmp 11089}#) + #{x 29997}# + #{clause 30055}#)))))))) + (#{f 30052}# #{m1 30004}# #{m2 30005}#)))) + (let ((#{body 30007}# #{tmp 30006}#)) + (list '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage #(body) #((top)) #("i29954")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i29946" "i29947" "i29948")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i29943"))) + (hygiene guile)) + (list (list '#(syntax-object + t + ((top) + #(ribcage () () ()) + #(ribcage #(body) #((top)) #("i29954")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i29946" "i29947" "i29948")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i29943"))) + (hygiene guile)) + #{e 30003}#)) + #{body 30007}#)))) + #{tmp 29999}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 11086}#)))))) + #{x 29997}#)))))) (define make-variable-transformer - (lambda (#{proc 11142}#) - (if (procedure? #{proc 11142}#) + (lambda (#{proc 30105}#) + (if (procedure? #{proc 30105}#) (letrec* - ((#{trans 11145}# - (lambda (#{x 11146}#) - (#{proc 11142}# #{x 11146}#)))) + ((#{trans 30106}# + (lambda (#{x 30112}#) + (#{proc 30105}# #{x 30112}#)))) (begin (set-procedure-property! - #{trans 11145}# + #{trans 30106}# 'variable-transformer #t) - #{trans 11145}#)) + #{trans 30106}#)) (error "variable transformer not a procedure" - #{proc 11142}#)))) + #{proc 30105}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 11152}#) - (let ((#{tmp 11155}# - ($sc-dispatch #{x 11152}# '(_ any)))) - (if #{tmp 11155}# + (lambda (#{x 30144}#) + (let ((#{tmp 30146}# + ($sc-dispatch #{x 30144}# '(_ any)))) + (if #{tmp 30146}# (@apply - (lambda (#{e 11157}#) + (lambda (#{e 30150}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) - #{e 11157}#)) + #{e 30150}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i11156")) + #(ribcage #(e) #((top)) #("i30119")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) - (cons #{e 11157}# + (cons #{e 30150}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i11156")) + #("i30119")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) #(syntax-object ... @@ -32367,55 +41818,55 @@ #(ribcage #(e) #((top)) - #("i11156")) + #("i30119")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile))))))))) - #{tmp 11155}#) - (let ((#{tmp 11158}# + #{tmp 30146}#) + (let ((#{tmp 30151}# ($sc-dispatch - #{x 11152}# + #{x 30144}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 11158}# + (if (if #{tmp 30151}# (@apply - (lambda (#{id 11164}# - #{exp1 11165}# - #{var 11166}# - #{val 11167}# - #{exp2 11168}#) - (if (identifier? #{id 11164}#) - (identifier? #{var 11166}#) + (lambda (#{id 30155}# + #{exp1 30156}# + #{var 30157}# + #{val 30158}# + #{exp2 30159}#) + (if (identifier? #{id 30155}#) + (identifier? #{var 30157}#) #f)) - #{tmp 11158}#) + #{tmp 30151}#) #f) (@apply - (lambda (#{id 11176}# - #{exp1 11177}# - #{var 11178}# - #{val 11179}# - #{exp2 11180}#) + (lambda (#{id 30160}# + #{exp1 30161}# + #{var 30162}# + #{val 30163}# + #{exp2 30164}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" "i11172" "i11173" "i11174" "i11175")) + #("i30134" "i30135" "i30136" "i30137" "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) (list '#(syntax-object lambda @@ -32423,13 +41874,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '(#(syntax-object x @@ -32437,13 +41888,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -32451,13 +41902,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) . #(syntax-object @@ -32466,13 +41917,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -32480,13 +41931,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '#(syntax-object x @@ -32494,13 +41945,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile)) '(#(syntax-object set! @@ -32508,13 +41959,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11153"))) + #(ribcage #(x) #((top)) #("i30116"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -32526,19 +41977,19 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) - #{var 11178}# - #{val 11179}#) + #{var 30162}# + #{val 30163}#) (list '#(syntax-object syntax ((top) @@ -32549,19 +42000,19 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) - #{exp2 11180}#)) - (list (cons #{id 11176}# + #{exp2 30164}#)) + (list (cons #{id 30160}# '(#(syntax-object x ((top) @@ -32572,16 +42023,16 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) #(syntax-object ... @@ -32593,16 +42044,16 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -32614,18 +42065,18 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) - (cons #{exp1 11177}# + (cons #{exp1 30161}# '(#(syntax-object x ((top) @@ -32640,16 +42091,16 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) #(syntax-object ... @@ -32665,18 +42116,18 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)))))) - (list #{id 11176}# + (list #{id 30160}# (list '#(syntax-object identifier? ((top) @@ -32687,16 +42138,16 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) (list '#(syntax-object syntax @@ -32712,18 +42163,18 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) - #{id 11176}#)) + #{id 30160}#)) (list '#(syntax-object syntax ((top) @@ -32734,68 +42185,68 @@ (top) (top) (top)) - #("i11171" - "i11172" - "i11173" - "i11174" - "i11175")) + #("i30134" + "i30135" + "i30136" + "i30137" + "i30138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i11153"))) + #("i30116"))) (hygiene guile)) - #{exp1 11177}#)))))) - #{tmp 11158}#) + #{exp1 30161}#)))))) + #{tmp 30151}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 11152}#)))))))) + #{x 30144}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 11181}#) - (let ((#{tmp 11184}# + (lambda (#{x 30196}#) + (let ((#{tmp 30198}# ($sc-dispatch - #{x 11181}# + #{x 30196}# '(_ (any . any) any . each-any)))) - (if #{tmp 11184}# + (if #{tmp 30198}# (@apply - (lambda (#{id 11189}# - #{args 11190}# - #{b0 11191}# - #{b1 11192}#) + (lambda (#{id 30202}# + #{args 30203}# + #{b0 30204}# + #{b1 30205}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i11185" "i11186" "i11187" "i11188")) + #("i30178" "i30179" "i30180" "i30181")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11182"))) + #(ribcage #(x) #((top)) #("i30175"))) (hygiene guile)) - #{id 11189}# + #{id 30202}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i11185" "i11186" "i11187" "i11188")) + #("i30178" "i30179" "i30180" "i30181")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11182"))) + #(ribcage #(x) #((top)) #("i30175"))) (hygiene guile)) - (cons #{args 11190}# - (cons #{b0 11191}# #{b1 11192}#))))) - #{tmp 11184}#) - (let ((#{tmp 11194}# - ($sc-dispatch #{x 11181}# '(_ any any)))) - (if (if #{tmp 11194}# + (cons #{args 30203}# + (cons #{b0 30204}# #{b1 30205}#))))) + #{tmp 30198}#) + (let ((#{tmp 30206}# + ($sc-dispatch #{x 30196}# '(_ any any)))) + (if (if #{tmp 30206}# (@apply - (lambda (#{id 11197}# #{val 11198}#) + (lambda (#{id 30210}# #{val 30211}#) (identifier? '#(syntax-object x @@ -32803,29 +42254,29 @@ #(ribcage #(id val) #((top) (top)) - #("i11195" "i11196")) + #("i30188" "i30189")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11182"))) + #(ribcage #(x) #((top)) #("i30175"))) (hygiene guile)))) - #{tmp 11194}#) + #{tmp 30206}#) #f) (@apply - (lambda (#{id 11201}# #{val 11202}#) + (lambda (#{id 30212}# #{val 30213}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i11199" "i11200")) + #("i30192" "i30193")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i11182"))) + #(ribcage #(x) #((top)) #("i30175"))) (hygiene guile)) - #{id 11201}# - #{val 11202}#)) - #{tmp 11194}#) + #{id 30212}# + #{val 30213}#)) + #{tmp 30206}#) (syntax-violation #f "source expression failed to match any pattern" - #{x 11181}#)))))))) + #{x 30196}#))))))))