diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 16c6a90a4..9b1593ae0 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,3564 +2,1856 @@ (if #f #f) (letrec* - ((#{and-map* 38}# - (lambda (#{f 202}# #{first 203}# . #{rest 204}#) + ((#{and-map* 39}# + (lambda (#{f 203}# #{first 204}# . #{rest 205}#) (begin - (let ((#{t 210}# (null? #{first 203}#))) - (if #{t 210}# - #{t 210}# - (if (null? #{rest 204}#) + (let ((#{t 211}# (null? #{first 204}#))) + (if #{t 211}# + #{t 211}# + (if (null? #{rest 205}#) (letrec* - ((#{andmap 214}# - (lambda (#{first 215}#) + ((#{andmap 215}# + (lambda (#{first 216}#) (begin - (let ((#{x 218}# (car #{first 215}#)) - (#{first 219}# (cdr #{first 215}#))) - (if (null? #{first 219}#) - (#{f 202}# #{x 218}#) - (if (#{f 202}# #{x 218}#) - (#{andmap 214}# #{first 219}#) + (let ((#{x 219}# (car #{first 216}#)) + (#{first 220}# (cdr #{first 216}#))) + (if (null? #{first 220}#) + (#{f 203}# #{x 219}#) + (if (#{f 203}# #{x 219}#) + (#{andmap 215}# #{first 220}#) #f))))))) - (begin (#{andmap 214}# #{first 203}#))) + (begin (#{andmap 215}# #{first 204}#))) (letrec* - ((#{andmap 225}# - (lambda (#{first 226}# #{rest 227}#) + ((#{andmap 226}# + (lambda (#{first 227}# #{rest 228}#) (begin - (let ((#{x 232}# (car #{first 226}#)) - (#{xr 233}# (map car #{rest 227}#)) - (#{first 234}# (cdr #{first 226}#)) - (#{rest 235}# (map cdr #{rest 227}#))) - (if (null? #{first 234}#) - (@apply #{f 202}# #{x 232}# #{xr 233}#) - (if (@apply #{f 202}# #{x 232}# #{xr 233}#) - (#{andmap 225}# #{first 234}# #{rest 235}#) + (let ((#{x 233}# (car #{first 227}#)) + (#{xr 234}# (map car #{rest 228}#)) + (#{first 235}# (cdr #{first 227}#)) + (#{rest 236}# (map cdr #{rest 228}#))) + (if (null? #{first 235}#) + (@apply #{f 203}# #{x 233}# #{xr 234}#) + (if (@apply #{f 203}# #{x 233}# #{xr 234}#) + (#{andmap 226}# #{first 235}# #{rest 236}#) #f))))))) (begin - (#{andmap 225}# #{first 203}# #{rest 204}#)))))))))) + (#{andmap 226}# #{first 204}# #{rest 205}#)))))))))) (begin (letrec* - ((#{make-void 240}# - (lambda (#{src 798}#) + ((#{make-void 241}# + (lambda (#{src 799}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src 798}#))) - (#{make-const 242}# - (lambda (#{src 800}# #{exp 801}#) + #{src 799}#))) + (#{make-const 243}# + (lambda (#{src 801}# #{exp 802}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src 800}# - #{exp 801}#))) - (#{make-lexical-ref 246}# - (lambda (#{src 808}# #{name 809}# #{gensym 810}#) + #{src 801}# + #{exp 802}#))) + (#{make-lexical-ref 247}# + (lambda (#{src 809}# #{name 810}# #{gensym 811}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 808}# - #{name 809}# - #{gensym 810}#))) - (#{make-lexical-set 248}# - (lambda (#{src 814}# - #{name 815}# - #{gensym 816}# - #{exp 817}#) + #{src 809}# + #{name 810}# + #{gensym 811}#))) + (#{make-lexical-set 249}# + (lambda (#{src 815}# + #{name 816}# + #{gensym 817}# + #{exp 818}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src 814}# - #{name 815}# - #{gensym 816}# - #{exp 817}#))) - (#{make-module-ref 250}# - (lambda (#{src 822}# - #{mod 823}# - #{name 824}# - #{public? 825}#) + #{src 815}# + #{name 816}# + #{gensym 817}# + #{exp 818}#))) + (#{make-module-ref 251}# + (lambda (#{src 823}# + #{mod 824}# + #{name 825}# + #{public? 826}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src 822}# - #{mod 823}# - #{name 824}# - #{public? 825}#))) - (#{make-module-set 252}# - (lambda (#{src 830}# - #{mod 831}# - #{name 832}# - #{public? 833}# - #{exp 834}#) + #{src 823}# + #{mod 824}# + #{name 825}# + #{public? 826}#))) + (#{make-module-set 253}# + (lambda (#{src 831}# + #{mod 832}# + #{name 833}# + #{public? 834}# + #{exp 835}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src 830}# - #{mod 831}# - #{name 832}# - #{public? 833}# - #{exp 834}#))) - (#{make-toplevel-ref 254}# - (lambda (#{src 840}# #{name 841}#) + #{src 831}# + #{mod 832}# + #{name 833}# + #{public? 834}# + #{exp 835}#))) + (#{make-toplevel-ref 255}# + (lambda (#{src 841}# #{name 842}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src 840}# - #{name 841}#))) - (#{make-toplevel-set 256}# - (lambda (#{src 844}# #{name 845}# #{exp 846}#) + #{src 841}# + #{name 842}#))) + (#{make-toplevel-set 257}# + (lambda (#{src 845}# #{name 846}# #{exp 847}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src 844}# - #{name 845}# - #{exp 846}#))) - (#{make-toplevel-define 258}# - (lambda (#{src 850}# #{name 851}# #{exp 852}#) + #{src 845}# + #{name 846}# + #{exp 847}#))) + (#{make-toplevel-define 259}# + (lambda (#{src 851}# #{name 852}# #{exp 853}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src 850}# - #{name 851}# - #{exp 852}#))) - (#{make-conditional 260}# - (lambda (#{src 856}# - #{test 857}# - #{consequent 858}# - #{alternate 859}#) + #{src 851}# + #{name 852}# + #{exp 853}#))) + (#{make-conditional 261}# + (lambda (#{src 857}# + #{test 858}# + #{consequent 859}# + #{alternate 860}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src 856}# - #{test 857}# - #{consequent 858}# - #{alternate 859}#))) - (#{make-application 262}# - (lambda (#{src 864}# #{proc 865}# #{args 866}#) + #{src 857}# + #{test 858}# + #{consequent 859}# + #{alternate 860}#))) + (#{make-application 263}# + (lambda (#{src 865}# #{proc 866}# #{args 867}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 864}# - #{proc 865}# - #{args 866}#))) - (#{make-sequence 264}# - (lambda (#{src 870}# #{exps 871}#) + #{src 865}# + #{proc 866}# + #{args 867}#))) + (#{make-sequence 265}# + (lambda (#{src 871}# #{exps 872}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 870}# - #{exps 871}#))) - (#{make-lambda 266}# - (lambda (#{src 874}# #{meta 875}# #{body 876}#) + #{src 871}# + #{exps 872}#))) + (#{make-lambda 267}# + (lambda (#{src 875}# #{meta 876}# #{body 877}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 874}# - #{meta 875}# - #{body 876}#))) - (#{make-lambda-case 268}# - (lambda (#{src 880}# - #{req 881}# - #{opt 882}# - #{rest 883}# - #{kw 884}# - #{inits 885}# - #{gensyms 886}# - #{body 887}# - #{alternate 888}#) + #{src 875}# + #{meta 876}# + #{body 877}#))) + (#{make-lambda-case 269}# + (lambda (#{src 881}# + #{req 882}# + #{opt 883}# + #{rest 884}# + #{kw 885}# + #{inits 886}# + #{gensyms 887}# + #{body 888}# + #{alternate 889}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 880}# - #{req 881}# - #{opt 882}# - #{rest 883}# - #{kw 884}# - #{inits 885}# - #{gensyms 886}# - #{body 887}# - #{alternate 888}#))) - (#{make-let 270}# - (lambda (#{src 898}# - #{names 899}# - #{gensyms 900}# - #{vals 901}# - #{body 902}#) + #{src 881}# + #{req 882}# + #{opt 883}# + #{rest 884}# + #{kw 885}# + #{inits 886}# + #{gensyms 887}# + #{body 888}# + #{alternate 889}#))) + (#{make-let 271}# + (lambda (#{src 899}# + #{names 900}# + #{gensyms 901}# + #{vals 902}# + #{body 903}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 898}# - #{names 899}# - #{gensyms 900}# - #{vals 901}# - #{body 902}#))) - (#{make-letrec 272}# - (lambda (#{src 908}# - #{in-order? 909}# - #{names 910}# - #{gensyms 911}# - #{vals 912}# - #{body 913}#) + #{src 899}# + #{names 900}# + #{gensyms 901}# + #{vals 902}# + #{body 903}#))) + (#{make-letrec 273}# + (lambda (#{src 909}# + #{in-order? 910}# + #{names 911}# + #{gensyms 912}# + #{vals 913}# + #{body 914}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 908}# - #{in-order? 909}# - #{names 910}# - #{gensyms 911}# - #{vals 912}# - #{body 913}#))) - (#{make-dynlet 274}# - (lambda (#{src 920}# - #{fluids 921}# - #{vals 922}# - #{body 923}#) + #{src 909}# + #{in-order? 910}# + #{names 911}# + #{gensyms 912}# + #{vals 913}# + #{body 914}#))) + (#{make-dynlet 275}# + (lambda (#{src 921}# + #{fluids 922}# + #{vals 923}# + #{body 924}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 920}# - #{fluids 921}# - #{vals 922}# - #{body 923}#))) - (#{lambda? 277}# - (lambda (#{x 928}#) - (if (struct? #{x 928}#) - (eq? (struct-vtable #{x 928}#) + #{src 921}# + #{fluids 922}# + #{vals 923}# + #{body 924}#))) + (#{lambda? 278}# + (lambda (#{x 929}#) + (if (struct? #{x 929}#) + (eq? (struct-vtable #{x 929}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta 279}# - (lambda (#{x 932}#) (struct-ref #{x 932}# 1))) - (#{set-lambda-meta! 281}# - (lambda (#{x 934}# #{v 935}#) - (struct-set! #{x 934}# 1 #{v 935}#))) - (#{top-level-eval-hook 287}# - (lambda (#{x 938}# #{mod 939}#) - (primitive-eval #{x 938}#))) - (#{local-eval-hook 289}# - (lambda (#{x 942}# #{mod 943}#) - (primitive-eval #{x 942}#))) - (#{put-global-definition-hook 292}# - (lambda (#{symbol 946}# #{type 947}# #{val 948}#) + (#{lambda-meta 280}# + (lambda (#{x 933}#) (struct-ref #{x 933}# 1))) + (#{set-lambda-meta! 282}# + (lambda (#{x 935}# #{v 936}#) + (struct-set! #{x 935}# 1 #{v 936}#))) + (#{top-level-eval-hook 288}# + (lambda (#{x 939}# #{mod 940}#) + (primitive-eval #{x 939}#))) + (#{local-eval-hook 290}# + (lambda (#{x 943}# #{mod 944}#) + (primitive-eval #{x 943}#))) + (#{put-global-definition-hook 293}# + (lambda (#{symbol 947}# #{type 948}# #{val 949}#) (module-define! (current-module) - #{symbol 946}# + #{symbol 947}# (make-syntax-transformer - #{symbol 946}# - #{type 947}# - #{val 948}#)))) - (#{get-global-definition-hook 294}# - (lambda (#{symbol 952}# #{module 953}#) + #{symbol 947}# + #{type 948}# + #{val 949}#)))) + (#{get-global-definition-hook 295}# + (lambda (#{symbol 953}# #{module 954}#) (begin - (if (if (not #{module 953}#) (current-module) #f) + (if (if (not #{module 954}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 952}#)) + #{symbol 953}#)) (begin - (let ((#{v 959}# (module-variable - (if #{module 953}# - (resolve-module (cdr #{module 953}#)) + (let ((#{v 960}# (module-variable + (if #{module 954}# + (resolve-module (cdr #{module 954}#)) (current-module)) - #{symbol 952}#))) - (if #{v 959}# - (if (variable-bound? #{v 959}#) + #{symbol 953}#))) + (if #{v 960}# + (if (variable-bound? #{v 960}#) (begin - (let ((#{val 964}# (variable-ref #{v 959}#))) - (if (macro? #{val 964}#) - (if (macro-type #{val 964}#) - (cons (macro-type #{val 964}#) - (macro-binding #{val 964}#)) + (let ((#{val 965}# (variable-ref #{v 960}#))) + (if (macro? #{val 965}#) + (if (macro-type #{val 965}#) + (cons (macro-type #{val 965}#) + (macro-binding #{val 965}#)) #f) #f))) #f) #f)))))) - (#{decorate-source 296}# - (lambda (#{e 968}# #{s 969}#) + (#{decorate-source 297}# + (lambda (#{e 969}# #{s 970}#) (begin - (if (if (pair? #{e 968}#) #{s 969}# #f) - (set-source-properties! #{e 968}# #{s 969}#)) - #{e 968}#))) - (#{maybe-name-value! 298}# - (lambda (#{name 974}# #{val 975}#) - (if (#{lambda? 277}# #{val 975}#) + (if (if (pair? #{e 969}#) #{s 970}# #f) + (set-source-properties! #{e 969}# #{s 970}#)) + #{e 969}#))) + (#{maybe-name-value! 299}# + (lambda (#{name 975}# #{val 976}#) + (if (#{lambda? 278}# #{val 976}#) (begin - (let ((#{meta 979}# (#{lambda-meta 279}# #{val 975}#))) - (if (not (assq 'name #{meta 979}#)) - (#{set-lambda-meta! 281}# - #{val 975}# - (cons (cons 'name #{name 974}#) #{meta 979}#)))))))) - (#{build-void 300}# - (lambda (#{source 980}#) - (#{make-void 240}# #{source 980}#))) - (#{build-application 302}# - (lambda (#{source 982}# #{fun-exp 983}# #{arg-exps 984}#) - (#{make-application 262}# - #{source 982}# - #{fun-exp 983}# - #{arg-exps 984}#))) - (#{build-conditional 304}# - (lambda (#{source 988}# - #{test-exp 989}# - #{then-exp 990}# - #{else-exp 991}#) - (#{make-conditional 260}# - #{source 988}# - #{test-exp 989}# - #{then-exp 990}# - #{else-exp 991}#))) - (#{build-dynlet 306}# - (lambda (#{source 996}# - #{fluids 997}# - #{vals 998}# - #{body 999}#) - (#{make-dynlet 274}# - #{source 996}# - #{fluids 997}# - #{vals 998}# - #{body 999}#))) - (#{build-lexical-reference 308}# - (lambda (#{type 1004}# - #{source 1005}# - #{name 1006}# - #{var 1007}#) - (#{make-lexical-ref 246}# - #{source 1005}# - #{name 1006}# - #{var 1007}#))) - (#{build-lexical-assignment 310}# - (lambda (#{source 1012}# - #{name 1013}# - #{var 1014}# - #{exp 1015}#) + (let ((#{meta 980}# (#{lambda-meta 280}# #{val 976}#))) + (if (not (assq 'name #{meta 980}#)) + (#{set-lambda-meta! 282}# + #{val 976}# + (cons (cons 'name #{name 975}#) #{meta 980}#)))))))) + (#{build-void 301}# + (lambda (#{source 981}#) + (#{make-void 241}# #{source 981}#))) + (#{build-application 303}# + (lambda (#{source 983}# #{fun-exp 984}# #{arg-exps 985}#) + (#{make-application 263}# + #{source 983}# + #{fun-exp 984}# + #{arg-exps 985}#))) + (#{build-conditional 305}# + (lambda (#{source 989}# + #{test-exp 990}# + #{then-exp 991}# + #{else-exp 992}#) + (#{make-conditional 261}# + #{source 989}# + #{test-exp 990}# + #{then-exp 991}# + #{else-exp 992}#))) + (#{build-dynlet 307}# + (lambda (#{source 997}# + #{fluids 998}# + #{vals 999}# + #{body 1000}#) + (#{make-dynlet 275}# + #{source 997}# + #{fluids 998}# + #{vals 999}# + #{body 1000}#))) + (#{build-lexical-reference 309}# + (lambda (#{type 1005}# + #{source 1006}# + #{name 1007}# + #{var 1008}#) + (#{make-lexical-ref 247}# + #{source 1006}# + #{name 1007}# + #{var 1008}#))) + (#{build-lexical-assignment 311}# + (lambda (#{source 1013}# + #{name 1014}# + #{var 1015}# + #{exp 1016}#) (begin - (#{maybe-name-value! 298}# - #{name 1013}# - #{exp 1015}#) - (#{make-lexical-set 248}# - #{source 1012}# - #{name 1013}# - #{var 1014}# - #{exp 1015}#)))) - (#{analyze-variable 312}# - (lambda (#{mod 1020}# - #{var 1021}# - #{modref-cont 1022}# - #{bare-cont 1023}#) - (if (not #{mod 1020}#) - (#{bare-cont 1023}# #{var 1021}#) + (#{maybe-name-value! 299}# + #{name 1014}# + #{exp 1016}#) + (#{make-lexical-set 249}# + #{source 1013}# + #{name 1014}# + #{var 1015}# + #{exp 1016}#)))) + (#{analyze-variable 313}# + (lambda (#{mod 1021}# + #{var 1022}# + #{modref-cont 1023}# + #{bare-cont 1024}#) + (if (not #{mod 1021}#) + (#{bare-cont 1024}# #{var 1022}#) (begin - (let ((#{kind 1030}# (car #{mod 1020}#)) - (#{mod 1031}# (cdr #{mod 1020}#))) - (if (eqv? #{kind 1030}# 'public) - (#{modref-cont 1022}# - #{mod 1031}# - #{var 1021}# + (let ((#{kind 1031}# (car #{mod 1021}#)) + (#{mod 1032}# (cdr #{mod 1021}#))) + (if (eqv? #{kind 1031}# 'public) + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #t) - (if (eqv? #{kind 1030}# 'private) + (if (eqv? #{kind 1031}# 'private) (if (not (equal? - #{mod 1031}# + #{mod 1032}# (module-name (current-module)))) - (#{modref-cont 1022}# - #{mod 1031}# - #{var 1021}# + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #f) - (#{bare-cont 1023}# #{var 1021}#)) - (if (eqv? #{kind 1030}# 'bare) - (#{bare-cont 1023}# #{var 1021}#) - (if (eqv? #{kind 1030}# 'hygiene) + (#{bare-cont 1024}# #{var 1022}#)) + (if (eqv? #{kind 1031}# 'bare) + (#{bare-cont 1024}# #{var 1022}#) + (if (eqv? #{kind 1031}# 'hygiene) (if (if (not (equal? - #{mod 1031}# + #{mod 1032}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 1031}#) - #{var 1021}#) + (resolve-module #{mod 1032}#) + #{var 1022}#) #f) - (#{modref-cont 1022}# - #{mod 1031}# - #{var 1021}# + (#{modref-cont 1023}# + #{mod 1032}# + #{var 1022}# #f) - (#{bare-cont 1023}# #{var 1021}#)) + (#{bare-cont 1024}# #{var 1022}#)) (syntax-violation #f "bad module kind" - #{var 1021}# - #{mod 1031}#)))))))))) - (#{build-global-reference 314}# - (lambda (#{source 1039}# #{var 1040}# #{mod 1041}#) - (#{analyze-variable 312}# - #{mod 1041}# - #{var 1040}# - (lambda (#{mod 1045}# #{var 1046}# #{public? 1047}#) - (#{make-module-ref 250}# - #{source 1039}# - #{mod 1045}# - #{var 1046}# - #{public? 1047}#)) - (lambda (#{var 1051}#) - (#{make-toplevel-ref 254}# - #{source 1039}# - #{var 1051}#))))) - (#{build-global-assignment 316}# - (lambda (#{source 1053}# - #{var 1054}# - #{exp 1055}# - #{mod 1056}#) + #{var 1022}# + #{mod 1032}#)))))))))) + (#{build-global-reference 315}# + (lambda (#{source 1040}# #{var 1041}# #{mod 1042}#) + (#{analyze-variable 313}# + #{mod 1042}# + #{var 1041}# + (lambda (#{mod 1046}# #{var 1047}# #{public? 1048}#) + (#{make-module-ref 251}# + #{source 1040}# + #{mod 1046}# + #{var 1047}# + #{public? 1048}#)) + (lambda (#{var 1052}#) + (#{make-toplevel-ref 255}# + #{source 1040}# + #{var 1052}#))))) + (#{build-global-assignment 317}# + (lambda (#{source 1054}# + #{var 1055}# + #{exp 1056}# + #{mod 1057}#) (begin - (#{maybe-name-value! 298}# - #{var 1054}# - #{exp 1055}#) - (#{analyze-variable 312}# - #{mod 1056}# - #{var 1054}# - (lambda (#{mod 1061}# #{var 1062}# #{public? 1063}#) - (#{make-module-set 252}# - #{source 1053}# - #{mod 1061}# - #{var 1062}# - #{public? 1063}# - #{exp 1055}#)) - (lambda (#{var 1067}#) - (#{make-toplevel-set 256}# - #{source 1053}# - #{var 1067}# - #{exp 1055}#)))))) - (#{build-global-definition 318}# - (lambda (#{source 1069}# #{var 1070}# #{exp 1071}#) + (#{maybe-name-value! 299}# + #{var 1055}# + #{exp 1056}#) + (#{analyze-variable 313}# + #{mod 1057}# + #{var 1055}# + (lambda (#{mod 1062}# #{var 1063}# #{public? 1064}#) + (#{make-module-set 253}# + #{source 1054}# + #{mod 1062}# + #{var 1063}# + #{public? 1064}# + #{exp 1056}#)) + (lambda (#{var 1068}#) + (#{make-toplevel-set 257}# + #{source 1054}# + #{var 1068}# + #{exp 1056}#)))))) + (#{build-global-definition 319}# + (lambda (#{source 1070}# #{var 1071}# #{exp 1072}#) (begin - (#{maybe-name-value! 298}# - #{var 1070}# - #{exp 1071}#) - (#{make-toplevel-define 258}# - #{source 1069}# - #{var 1070}# - #{exp 1071}#)))) - (#{build-simple-lambda 320}# - (lambda (#{src 1075}# - #{req 1076}# - #{rest 1077}# - #{vars 1078}# - #{meta 1079}# - #{exp 1080}#) - (#{make-lambda 266}# - #{src 1075}# - #{meta 1079}# - (#{make-lambda-case 268}# - #{src 1075}# - #{req 1076}# + (#{maybe-name-value! 299}# + #{var 1071}# + #{exp 1072}#) + (#{make-toplevel-define 259}# + #{source 1070}# + #{var 1071}# + #{exp 1072}#)))) + (#{build-simple-lambda 321}# + (lambda (#{src 1076}# + #{req 1077}# + #{rest 1078}# + #{vars 1079}# + #{meta 1080}# + #{exp 1081}#) + (#{make-lambda 267}# + #{src 1076}# + #{meta 1080}# + (#{make-lambda-case 269}# + #{src 1076}# + #{req 1077}# #f - #{rest 1077}# + #{rest 1078}# #f '() - #{vars 1078}# - #{exp 1080}# + #{vars 1079}# + #{exp 1081}# #f)))) - (#{build-case-lambda 322}# - (lambda (#{src 1087}# #{meta 1088}# #{body 1089}#) - (#{make-lambda 266}# - #{src 1087}# - #{meta 1088}# - #{body 1089}#))) - (#{build-lambda-case 324}# - (lambda (#{src 1093}# - #{req 1094}# - #{opt 1095}# - #{rest 1096}# - #{kw 1097}# - #{inits 1098}# - #{vars 1099}# - #{body 1100}# - #{else-case 1101}#) - (#{make-lambda-case 268}# - #{src 1093}# - #{req 1094}# - #{opt 1095}# - #{rest 1096}# - #{kw 1097}# - #{inits 1098}# - #{vars 1099}# - #{body 1100}# - #{else-case 1101}#))) - (#{build-primref 326}# - (lambda (#{src 1111}# #{name 1112}#) + (#{build-case-lambda 323}# + (lambda (#{src 1088}# #{meta 1089}# #{body 1090}#) + (#{make-lambda 267}# + #{src 1088}# + #{meta 1089}# + #{body 1090}#))) + (#{build-lambda-case 325}# + (lambda (#{src 1094}# + #{req 1095}# + #{opt 1096}# + #{rest 1097}# + #{kw 1098}# + #{inits 1099}# + #{vars 1100}# + #{body 1101}# + #{else-case 1102}#) + (#{make-lambda-case 269}# + #{src 1094}# + #{req 1095}# + #{opt 1096}# + #{rest 1097}# + #{kw 1098}# + #{inits 1099}# + #{vars 1100}# + #{body 1101}# + #{else-case 1102}#))) + (#{build-primref 327}# + (lambda (#{src 1112}# #{name 1113}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref 254}# - #{src 1111}# - #{name 1112}#) - (#{make-module-ref 250}# - #{src 1111}# + (#{make-toplevel-ref 255}# + #{src 1112}# + #{name 1113}#) + (#{make-module-ref 251}# + #{src 1112}# '(guile) - #{name 1112}# + #{name 1113}# #f)))) - (#{build-data 328}# - (lambda (#{src 1115}# #{exp 1116}#) - (#{make-const 242}# #{src 1115}# #{exp 1116}#))) - (#{build-sequence 330}# - (lambda (#{src 1119}# #{exps 1120}#) - (if (null? (cdr #{exps 1120}#)) - (car #{exps 1120}#) - (#{make-sequence 264}# - #{src 1119}# - #{exps 1120}#)))) - (#{build-let 332}# - (lambda (#{src 1123}# - #{ids 1124}# - #{vars 1125}# - #{val-exps 1126}# - #{body-exp 1127}#) + (#{build-data 329}# + (lambda (#{src 1116}# #{exp 1117}#) + (#{make-const 243}# #{src 1116}# #{exp 1117}#))) + (#{build-sequence 331}# + (lambda (#{src 1120}# #{exps 1121}#) + (if (null? (cdr #{exps 1121}#)) + (car #{exps 1121}#) + (#{make-sequence 265}# + #{src 1120}# + #{exps 1121}#)))) + (#{build-let 333}# + (lambda (#{src 1124}# + #{ids 1125}# + #{vars 1126}# + #{val-exps 1127}# + #{body-exp 1128}#) (begin (for-each - #{maybe-name-value! 298}# - #{ids 1124}# - #{val-exps 1126}#) - (if (null? #{vars 1125}#) - #{body-exp 1127}# - (#{make-let 270}# - #{src 1123}# - #{ids 1124}# - #{vars 1125}# - #{val-exps 1126}# - #{body-exp 1127}#))))) - (#{build-named-let 334}# - (lambda (#{src 1133}# - #{ids 1134}# - #{vars 1135}# - #{val-exps 1136}# - #{body-exp 1137}#) + #{maybe-name-value! 299}# + #{ids 1125}# + #{val-exps 1127}#) + (if (null? #{vars 1126}#) + #{body-exp 1128}# + (#{make-let 271}# + #{src 1124}# + #{ids 1125}# + #{vars 1126}# + #{val-exps 1127}# + #{body-exp 1128}#))))) + (#{build-named-let 335}# + (lambda (#{src 1134}# + #{ids 1135}# + #{vars 1136}# + #{val-exps 1137}# + #{body-exp 1138}#) (begin - (let ((#{f 1147}# (car #{vars 1135}#)) - (#{f-name 1148}# (car #{ids 1134}#)) - (#{vars 1149}# (cdr #{vars 1135}#)) - (#{ids 1150}# (cdr #{ids 1134}#))) + (let ((#{f 1148}# (car #{vars 1136}#)) + (#{f-name 1149}# (car #{ids 1135}#)) + (#{vars 1150}# (cdr #{vars 1136}#)) + (#{ids 1151}# (cdr #{ids 1135}#))) (begin - (let ((#{proc 1152}# - (#{build-simple-lambda 320}# - #{src 1133}# - #{ids 1150}# + (let ((#{proc 1153}# + (#{build-simple-lambda 321}# + #{src 1134}# + #{ids 1151}# #f - #{vars 1149}# + #{vars 1150}# '() - #{body-exp 1137}#))) + #{body-exp 1138}#))) (begin - (#{maybe-name-value! 298}# - #{f-name 1148}# - #{proc 1152}#) + (#{maybe-name-value! 299}# + #{f-name 1149}# + #{proc 1153}#) (for-each - #{maybe-name-value! 298}# - #{ids 1150}# - #{val-exps 1136}#) - (#{make-letrec 272}# - #{src 1133}# + #{maybe-name-value! 299}# + #{ids 1151}# + #{val-exps 1137}#) + (#{make-letrec 273}# + #{src 1134}# #f - (list #{f-name 1148}#) - (list #{f 1147}#) - (list #{proc 1152}#) - (#{build-application 302}# - #{src 1133}# - (#{build-lexical-reference 308}# + (list #{f-name 1149}#) + (list #{f 1148}#) + (list #{proc 1153}#) + (#{build-application 303}# + #{src 1134}# + (#{build-lexical-reference 309}# 'fun - #{src 1133}# - #{f-name 1148}# - #{f 1147}#) - #{val-exps 1136}#))))))))) - (#{build-letrec 336}# - (lambda (#{src 1153}# - #{in-order? 1154}# - #{ids 1155}# - #{vars 1156}# - #{val-exps 1157}# - #{body-exp 1158}#) - (if (null? #{vars 1156}#) - #{body-exp 1158}# + #{src 1134}# + #{f-name 1149}# + #{f 1148}#) + #{val-exps 1137}#))))))))) + (#{build-letrec 337}# + (lambda (#{src 1154}# + #{in-order? 1155}# + #{ids 1156}# + #{vars 1157}# + #{val-exps 1158}# + #{body-exp 1159}#) + (if (null? #{vars 1157}#) + #{body-exp 1159}# (begin (for-each - #{maybe-name-value! 298}# - #{ids 1155}# - #{val-exps 1157}#) - (#{make-letrec 272}# - #{src 1153}# - #{in-order? 1154}# - #{ids 1155}# - #{vars 1156}# - #{val-exps 1157}# - #{body-exp 1158}#))))) - (#{make-syntax-object 340}# - (lambda (#{expression 1165}# - #{wrap 1166}# - #{module 1167}#) + #{maybe-name-value! 299}# + #{ids 1156}# + #{val-exps 1158}#) + (#{make-letrec 273}# + #{src 1154}# + #{in-order? 1155}# + #{ids 1156}# + #{vars 1157}# + #{val-exps 1158}# + #{body-exp 1159}#))))) + (#{make-syntax-object 341}# + (lambda (#{expression 1166}# + #{wrap 1167}# + #{module 1168}#) (vector 'syntax-object - #{expression 1165}# - #{wrap 1166}# - #{module 1167}#))) - (#{syntax-object? 342}# - (lambda (#{x 1171}#) - (if (vector? #{x 1171}#) - (if (= (vector-length #{x 1171}#) 4) - (eq? (vector-ref #{x 1171}# 0) 'syntax-object) + #{expression 1166}# + #{wrap 1167}# + #{module 1168}#))) + (#{syntax-object? 343}# + (lambda (#{x 1172}#) + (if (vector? #{x 1172}#) + (if (= (vector-length #{x 1172}#) 4) + (eq? (vector-ref #{x 1172}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression 344}# - (lambda (#{x 1176}#) (vector-ref #{x 1176}# 1))) - (#{syntax-object-wrap 346}# - (lambda (#{x 1178}#) (vector-ref #{x 1178}# 2))) - (#{syntax-object-module 348}# - (lambda (#{x 1180}#) (vector-ref #{x 1180}# 3))) - (#{source-annotation 357}# - (lambda (#{x 1194}#) - (if (#{syntax-object? 342}# #{x 1194}#) - (#{source-annotation 357}# - (#{syntax-object-expression 344}# #{x 1194}#)) - (if (pair? #{x 1194}#) + (#{syntax-object-expression 345}# + (lambda (#{x 1177}#) (vector-ref #{x 1177}# 1))) + (#{syntax-object-wrap 347}# + (lambda (#{x 1179}#) (vector-ref #{x 1179}# 2))) + (#{syntax-object-module 349}# + (lambda (#{x 1181}#) (vector-ref #{x 1181}# 3))) + (#{source-annotation 358}# + (lambda (#{x 1195}#) + (if (#{syntax-object? 343}# #{x 1195}#) + (#{source-annotation 358}# + (#{syntax-object-expression 345}# #{x 1195}#)) + (if (pair? #{x 1195}#) (begin - (let ((#{props 1201}# (source-properties #{x 1194}#))) - (if (pair? #{props 1201}#) #{props 1201}# #f))) + (let ((#{props 1202}# (source-properties #{x 1195}#))) + (if (pair? #{props 1202}#) #{props 1202}# #f))) #f)))) - (#{extend-env 364}# - (lambda (#{labels 1203}# #{bindings 1204}# #{r 1205}#) - (if (null? #{labels 1203}#) - #{r 1205}# - (#{extend-env 364}# - (cdr #{labels 1203}#) - (cdr #{bindings 1204}#) - (cons (cons (car #{labels 1203}#) - (car #{bindings 1204}#)) - #{r 1205}#))))) - (#{extend-var-env 366}# - (lambda (#{labels 1209}# #{vars 1210}# #{r 1211}#) - (if (null? #{labels 1209}#) - #{r 1211}# - (#{extend-var-env 366}# - (cdr #{labels 1209}#) - (cdr #{vars 1210}#) - (cons (cons (car #{labels 1209}#) - (cons 'lexical (car #{vars 1210}#))) - #{r 1211}#))))) - (#{macros-only-env 368}# - (lambda (#{r 1216}#) - (if (null? #{r 1216}#) + (#{extend-env 365}# + (lambda (#{labels 1204}# #{bindings 1205}# #{r 1206}#) + (if (null? #{labels 1204}#) + #{r 1206}# + (#{extend-env 365}# + (cdr #{labels 1204}#) + (cdr #{bindings 1205}#) + (cons (cons (car #{labels 1204}#) + (car #{bindings 1205}#)) + #{r 1206}#))))) + (#{extend-var-env 367}# + (lambda (#{labels 1210}# #{vars 1211}# #{r 1212}#) + (if (null? #{labels 1210}#) + #{r 1212}# + (#{extend-var-env 367}# + (cdr #{labels 1210}#) + (cdr #{vars 1211}#) + (cons (cons (car #{labels 1210}#) + (cons 'lexical (car #{vars 1211}#))) + #{r 1212}#))))) + (#{macros-only-env 369}# + (lambda (#{r 1217}#) + (if (null? #{r 1217}#) '() (begin - (let ((#{a 1219}# (car #{r 1216}#))) - (if (eq? (car (cdr #{a 1219}#)) 'macro) - (cons #{a 1219}# - (#{macros-only-env 368}# (cdr #{r 1216}#))) - (#{macros-only-env 368}# (cdr #{r 1216}#)))))))) - (#{lookup 370}# - (lambda (#{x 1220}# #{r 1221}# #{mod 1222}#) + (let ((#{a 1220}# (car #{r 1217}#))) + (if (eq? (car (cdr #{a 1220}#)) 'macro) + (cons #{a 1220}# + (#{macros-only-env 369}# (cdr #{r 1217}#))) + (#{macros-only-env 369}# (cdr #{r 1217}#)))))))) + (#{lookup 371}# + (lambda (#{x 1221}# #{r 1222}# #{mod 1223}#) (begin - (let ((#{t 1228}# (assq #{x 1220}# #{r 1221}#))) - (if #{t 1228}# - (cdr #{t 1228}#) - (if (symbol? #{x 1220}#) + (let ((#{t 1229}# (assq #{x 1221}# #{r 1222}#))) + (if #{t 1229}# + (cdr #{t 1229}#) + (if (symbol? #{x 1221}#) (begin - (let ((#{t 1234}# - (#{get-global-definition-hook 294}# - #{x 1220}# - #{mod 1222}#))) - (if #{t 1234}# #{t 1234}# '(global)))) + (let ((#{t 1235}# + (#{get-global-definition-hook 295}# + #{x 1221}# + #{mod 1223}#))) + (if #{t 1235}# #{t 1235}# '(global)))) '(displaced-lexical))))))) - (#{global-extend 372}# - (lambda (#{type 1239}# #{sym 1240}# #{val 1241}#) - (#{put-global-definition-hook 292}# - #{sym 1240}# - #{type 1239}# - #{val 1241}#))) - (#{nonsymbol-id? 374}# - (lambda (#{x 1245}#) - (if (#{syntax-object? 342}# #{x 1245}#) + (#{global-extend 373}# + (lambda (#{type 1240}# #{sym 1241}# #{val 1242}#) + (#{put-global-definition-hook 293}# + #{sym 1241}# + #{type 1240}# + #{val 1242}#))) + (#{nonsymbol-id? 375}# + (lambda (#{x 1246}#) + (if (#{syntax-object? 343}# #{x 1246}#) (symbol? - (#{syntax-object-expression 344}# #{x 1245}#)) + (#{syntax-object-expression 345}# #{x 1246}#)) #f))) - (#{id? 376}# - (lambda (#{x 1249}#) - (if (symbol? #{x 1249}#) + (#{id? 377}# + (lambda (#{x 1250}#) + (if (symbol? #{x 1250}#) #t - (if (#{syntax-object? 342}# #{x 1249}#) + (if (#{syntax-object? 343}# #{x 1250}#) (symbol? - (#{syntax-object-expression 344}# #{x 1249}#)) + (#{syntax-object-expression 345}# #{x 1250}#)) #f)))) - (#{id-sym-name&marks 379}# - (lambda (#{x 1256}# #{w 1257}#) - (if (#{syntax-object? 342}# #{x 1256}#) + (#{id-sym-name&marks 380}# + (lambda (#{x 1257}# #{w 1258}#) + (if (#{syntax-object? 343}# #{x 1257}#) (values - (#{syntax-object-expression 344}# #{x 1256}#) - (#{join-marks 426}# - (car #{w 1257}#) - (car (#{syntax-object-wrap 346}# #{x 1256}#)))) - (values #{x 1256}# (car #{w 1257}#))))) - (#{gen-label 389}# + (#{syntax-object-expression 345}# #{x 1257}#) + (#{join-marks 427}# + (car #{w 1258}#) + (car (#{syntax-object-wrap 347}# #{x 1257}#)))) + (values #{x 1257}# (car #{w 1258}#))))) + (#{gen-label 390}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 391}# - (lambda (#{ls 1263}#) - (if (null? #{ls 1263}#) + (#{gen-labels 392}# + (lambda (#{ls 1264}#) + (if (null? #{ls 1264}#) '() - (cons (#{gen-label 389}#) - (#{gen-labels 391}# (cdr #{ls 1263}#)))))) - (#{make-ribcage 394}# - (lambda (#{symnames 1265}# - #{marks 1266}# - #{labels 1267}#) + (cons (#{gen-label 390}#) + (#{gen-labels 392}# (cdr #{ls 1264}#)))))) + (#{make-ribcage 395}# + (lambda (#{symnames 1266}# + #{marks 1267}# + #{labels 1268}#) (vector 'ribcage - #{symnames 1265}# - #{marks 1266}# - #{labels 1267}#))) - (#{ribcage-symnames 398}# - (lambda (#{x 1276}#) (vector-ref #{x 1276}# 1))) - (#{ribcage-marks 400}# - (lambda (#{x 1278}#) (vector-ref #{x 1278}# 2))) - (#{ribcage-labels 402}# - (lambda (#{x 1280}#) (vector-ref #{x 1280}# 3))) - (#{set-ribcage-symnames! 404}# - (lambda (#{x 1282}# #{update 1283}#) - (vector-set! #{x 1282}# 1 #{update 1283}#))) - (#{set-ribcage-marks! 406}# - (lambda (#{x 1286}# #{update 1287}#) - (vector-set! #{x 1286}# 2 #{update 1287}#))) - (#{set-ribcage-labels! 408}# - (lambda (#{x 1290}# #{update 1291}#) - (vector-set! #{x 1290}# 3 #{update 1291}#))) - (#{anti-mark 414}# - (lambda (#{w 1294}#) - (cons (cons #f (car #{w 1294}#)) - (cons 'shift (cdr #{w 1294}#))))) - (#{extend-ribcage! 418}# - (lambda (#{ribcage 1300}# #{id 1301}# #{label 1302}#) + #{symnames 1266}# + #{marks 1267}# + #{labels 1268}#))) + (#{ribcage-symnames 399}# + (lambda (#{x 1277}#) (vector-ref #{x 1277}# 1))) + (#{ribcage-marks 401}# + (lambda (#{x 1279}#) (vector-ref #{x 1279}# 2))) + (#{ribcage-labels 403}# + (lambda (#{x 1281}#) (vector-ref #{x 1281}# 3))) + (#{set-ribcage-symnames! 405}# + (lambda (#{x 1283}# #{update 1284}#) + (vector-set! #{x 1283}# 1 #{update 1284}#))) + (#{set-ribcage-marks! 407}# + (lambda (#{x 1287}# #{update 1288}#) + (vector-set! #{x 1287}# 2 #{update 1288}#))) + (#{set-ribcage-labels! 409}# + (lambda (#{x 1291}# #{update 1292}#) + (vector-set! #{x 1291}# 3 #{update 1292}#))) + (#{anti-mark 415}# + (lambda (#{w 1295}#) + (cons (cons #f (car #{w 1295}#)) + (cons 'shift (cdr #{w 1295}#))))) + (#{extend-ribcage! 419}# + (lambda (#{ribcage 1301}# #{id 1302}# #{label 1303}#) (begin - (#{set-ribcage-symnames! 404}# - #{ribcage 1300}# - (cons (#{syntax-object-expression 344}# #{id 1301}#) - (#{ribcage-symnames 398}# #{ribcage 1300}#))) - (#{set-ribcage-marks! 406}# - #{ribcage 1300}# - (cons (car (#{syntax-object-wrap 346}# #{id 1301}#)) - (#{ribcage-marks 400}# #{ribcage 1300}#))) - (#{set-ribcage-labels! 408}# - #{ribcage 1300}# - (cons #{label 1302}# - (#{ribcage-labels 402}# #{ribcage 1300}#)))))) - (#{make-binding-wrap 420}# - (lambda (#{ids 1307}# #{labels 1308}# #{w 1309}#) - (if (null? #{ids 1307}#) - #{w 1309}# - (cons (car #{w 1309}#) + (#{set-ribcage-symnames! 405}# + #{ribcage 1301}# + (cons (#{syntax-object-expression 345}# #{id 1302}#) + (#{ribcage-symnames 399}# #{ribcage 1301}#))) + (#{set-ribcage-marks! 407}# + #{ribcage 1301}# + (cons (car (#{syntax-object-wrap 347}# #{id 1302}#)) + (#{ribcage-marks 401}# #{ribcage 1301}#))) + (#{set-ribcage-labels! 409}# + #{ribcage 1301}# + (cons #{label 1303}# + (#{ribcage-labels 403}# #{ribcage 1301}#)))))) + (#{make-binding-wrap 421}# + (lambda (#{ids 1308}# #{labels 1309}# #{w 1310}#) + (if (null? #{ids 1308}#) + #{w 1310}# + (cons (car #{w 1310}#) (cons (begin - (let ((#{labelvec 1316}# - (list->vector #{labels 1308}#))) + (let ((#{labelvec 1317}# + (list->vector #{labels 1309}#))) (begin - (let ((#{n 1318}# - (vector-length #{labelvec 1316}#))) + (let ((#{n 1319}# + (vector-length #{labelvec 1317}#))) (begin - (let ((#{symnamevec 1321}# - (make-vector #{n 1318}#)) - (#{marksvec 1322}# - (make-vector #{n 1318}#))) + (let ((#{symnamevec 1322}# + (make-vector #{n 1319}#)) + (#{marksvec 1323}# + (make-vector #{n 1319}#))) (begin (letrec* - ((#{f 1326}# - (lambda (#{ids 1327}# #{i 1328}#) - (if (not (null? #{ids 1327}#)) + ((#{f 1327}# + (lambda (#{ids 1328}# #{i 1329}#) + (if (not (null? #{ids 1328}#)) (call-with-values (lambda () - (#{id-sym-name&marks 379}# - (car #{ids 1327}#) - #{w 1309}#)) - (lambda (#{symname 1329}# - #{marks 1330}#) + (#{id-sym-name&marks 380}# + (car #{ids 1328}#) + #{w 1310}#)) + (lambda (#{symname 1330}# + #{marks 1331}#) (begin (vector-set! - #{symnamevec 1321}# - #{i 1328}# - #{symname 1329}#) + #{symnamevec 1322}# + #{i 1329}# + #{symname 1330}#) (vector-set! - #{marksvec 1322}# - #{i 1328}# - #{marks 1330}#) - (#{f 1326}# - (cdr #{ids 1327}#) - (#{1+}# #{i 1328}#))))))))) - (begin (#{f 1326}# #{ids 1307}# 0))) - (#{make-ribcage 394}# - #{symnamevec 1321}# - #{marksvec 1322}# - #{labelvec 1316}#)))))))) - (cdr #{w 1309}#)))))) - (#{smart-append 422}# - (lambda (#{m1 1335}# #{m2 1336}#) - (if (null? #{m2 1336}#) - #{m1 1335}# - (append #{m1 1335}# #{m2 1336}#)))) - (#{join-wraps 424}# - (lambda (#{w1 1339}# #{w2 1340}#) + #{marksvec 1323}# + #{i 1329}# + #{marks 1331}#) + (#{f 1327}# + (cdr #{ids 1328}#) + (#{1+}# #{i 1329}#))))))))) + (begin (#{f 1327}# #{ids 1308}# 0))) + (#{make-ribcage 395}# + #{symnamevec 1322}# + #{marksvec 1323}# + #{labelvec 1317}#)))))))) + (cdr #{w 1310}#)))))) + (#{smart-append 423}# + (lambda (#{m1 1336}# #{m2 1337}#) + (if (null? #{m2 1337}#) + #{m1 1336}# + (append #{m1 1336}# #{m2 1337}#)))) + (#{join-wraps 425}# + (lambda (#{w1 1340}# #{w2 1341}#) (begin - (let ((#{m1 1345}# (car #{w1 1339}#)) - (#{s1 1346}# (cdr #{w1 1339}#))) - (if (null? #{m1 1345}#) - (if (null? #{s1 1346}#) - #{w2 1340}# - (cons (car #{w2 1340}#) - (#{smart-append 422}# - #{s1 1346}# - (cdr #{w2 1340}#)))) - (cons (#{smart-append 422}# - #{m1 1345}# - (car #{w2 1340}#)) - (#{smart-append 422}# - #{s1 1346}# - (cdr #{w2 1340}#)))))))) - (#{join-marks 426}# - (lambda (#{m1 1355}# #{m2 1356}#) - (#{smart-append 422}# #{m1 1355}# #{m2 1356}#))) - (#{same-marks? 428}# - (lambda (#{x 1359}# #{y 1360}#) + (let ((#{m1 1346}# (car #{w1 1340}#)) + (#{s1 1347}# (cdr #{w1 1340}#))) + (if (null? #{m1 1346}#) + (if (null? #{s1 1347}#) + #{w2 1341}# + (cons (car #{w2 1341}#) + (#{smart-append 423}# + #{s1 1347}# + (cdr #{w2 1341}#)))) + (cons (#{smart-append 423}# + #{m1 1346}# + (car #{w2 1341}#)) + (#{smart-append 423}# + #{s1 1347}# + (cdr #{w2 1341}#)))))))) + (#{join-marks 427}# + (lambda (#{m1 1356}# #{m2 1357}#) + (#{smart-append 423}# #{m1 1356}# #{m2 1357}#))) + (#{same-marks? 429}# + (lambda (#{x 1360}# #{y 1361}#) (begin - (let ((#{t 1365}# (eq? #{x 1359}# #{y 1360}#))) - (if #{t 1365}# - #{t 1365}# - (if (not (null? #{x 1359}#)) - (if (not (null? #{y 1360}#)) - (if (eq? (car #{x 1359}#) (car #{y 1360}#)) - (#{same-marks? 428}# - (cdr #{x 1359}#) - (cdr #{y 1360}#)) + (let ((#{t 1366}# (eq? #{x 1360}# #{y 1361}#))) + (if #{t 1366}# + #{t 1366}# + (if (not (null? #{x 1360}#)) + (if (not (null? #{y 1361}#)) + (if (eq? (car #{x 1360}#) (car #{y 1361}#)) + (#{same-marks? 429}# + (cdr #{x 1360}#) + (cdr #{y 1361}#)) #f) #f) #f)))))) - (#{id-var-name 430}# - (lambda (#{id 1371}# #{w 1372}#) + (#{id-var-name 431}# + (lambda (#{id 1372}# #{w 1373}#) (letrec* - ((#{search 1377}# - (lambda (#{sym 1393}# #{subst 1394}# #{marks 1395}#) - (if (null? #{subst 1394}#) - (values #f #{marks 1395}#) + ((#{search 1378}# + (lambda (#{sym 1394}# #{subst 1395}# #{marks 1396}#) + (if (null? #{subst 1395}#) + (values #f #{marks 1396}#) (begin - (let ((#{fst 1400}# (car #{subst 1394}#))) - (if (eq? #{fst 1400}# 'shift) - (#{search 1377}# - #{sym 1393}# - (cdr #{subst 1394}#) - (cdr #{marks 1395}#)) + (let ((#{fst 1401}# (car #{subst 1395}#))) + (if (eq? #{fst 1401}# 'shift) + (#{search 1378}# + #{sym 1394}# + (cdr #{subst 1395}#) + (cdr #{marks 1396}#)) (begin - (let ((#{symnames 1402}# - (#{ribcage-symnames 398}# #{fst 1400}#))) - (if (vector? #{symnames 1402}#) - (#{search-vector-rib 1381}# - #{sym 1393}# - #{subst 1394}# - #{marks 1395}# - #{symnames 1402}# - #{fst 1400}#) - (#{search-list-rib 1379}# - #{sym 1393}# - #{subst 1394}# - #{marks 1395}# - #{symnames 1402}# - #{fst 1400}#)))))))))) - (#{search-list-rib 1379}# - (lambda (#{sym 1403}# - #{subst 1404}# - #{marks 1405}# - #{symnames 1406}# - #{ribcage 1407}#) + (let ((#{symnames 1403}# + (#{ribcage-symnames 399}# #{fst 1401}#))) + (if (vector? #{symnames 1403}#) + (#{search-vector-rib 1382}# + #{sym 1394}# + #{subst 1395}# + #{marks 1396}# + #{symnames 1403}# + #{fst 1401}#) + (#{search-list-rib 1380}# + #{sym 1394}# + #{subst 1395}# + #{marks 1396}# + #{symnames 1403}# + #{fst 1401}#)))))))))) + (#{search-list-rib 1380}# + (lambda (#{sym 1404}# + #{subst 1405}# + #{marks 1406}# + #{symnames 1407}# + #{ribcage 1408}#) (letrec* - ((#{f 1416}# - (lambda (#{symnames 1417}# #{i 1418}#) - (if (null? #{symnames 1417}#) - (#{search 1377}# - #{sym 1403}# - (cdr #{subst 1404}#) - #{marks 1405}#) - (if (if (eq? (car #{symnames 1417}#) #{sym 1403}#) - (#{same-marks? 428}# - #{marks 1405}# + ((#{f 1417}# + (lambda (#{symnames 1418}# #{i 1419}#) + (if (null? #{symnames 1418}#) + (#{search 1378}# + #{sym 1404}# + (cdr #{subst 1405}#) + #{marks 1406}#) + (if (if (eq? (car #{symnames 1418}#) #{sym 1404}#) + (#{same-marks? 429}# + #{marks 1406}# (list-ref - (#{ribcage-marks 400}# #{ribcage 1407}#) - #{i 1418}#)) + (#{ribcage-marks 401}# #{ribcage 1408}#) + #{i 1419}#)) #f) (values (list-ref - (#{ribcage-labels 402}# #{ribcage 1407}#) - #{i 1418}#) - #{marks 1405}#) - (#{f 1416}# - (cdr #{symnames 1417}#) - (#{1+}# #{i 1418}#))))))) - (begin (#{f 1416}# #{symnames 1406}# 0))))) - (#{search-vector-rib 1381}# - (lambda (#{sym 1427}# - #{subst 1428}# - #{marks 1429}# - #{symnames 1430}# - #{ribcage 1431}#) + (#{ribcage-labels 403}# #{ribcage 1408}#) + #{i 1419}#) + #{marks 1406}#) + (#{f 1417}# + (cdr #{symnames 1418}#) + (#{1+}# #{i 1419}#))))))) + (begin (#{f 1417}# #{symnames 1407}# 0))))) + (#{search-vector-rib 1382}# + (lambda (#{sym 1428}# + #{subst 1429}# + #{marks 1430}# + #{symnames 1431}# + #{ribcage 1432}#) (begin - (let ((#{n 1438}# (vector-length #{symnames 1430}#))) + (let ((#{n 1439}# (vector-length #{symnames 1431}#))) (letrec* - ((#{f 1441}# - (lambda (#{i 1442}#) - (if (= #{i 1442}# #{n 1438}#) - (#{search 1377}# - #{sym 1427}# - (cdr #{subst 1428}#) - #{marks 1429}#) + ((#{f 1442}# + (lambda (#{i 1443}#) + (if (= #{i 1443}# #{n 1439}#) + (#{search 1378}# + #{sym 1428}# + (cdr #{subst 1429}#) + #{marks 1430}#) (if (if (eq? (vector-ref - #{symnames 1430}# - #{i 1442}#) - #{sym 1427}#) - (#{same-marks? 428}# - #{marks 1429}# + #{symnames 1431}# + #{i 1443}#) + #{sym 1428}#) + (#{same-marks? 429}# + #{marks 1430}# (vector-ref - (#{ribcage-marks 400}# - #{ribcage 1431}#) - #{i 1442}#)) + (#{ribcage-marks 401}# + #{ribcage 1432}#) + #{i 1443}#)) #f) (values (vector-ref - (#{ribcage-labels 402}# #{ribcage 1431}#) - #{i 1442}#) - #{marks 1429}#) - (#{f 1441}# (#{1+}# #{i 1442}#))))))) - (begin (#{f 1441}# 0)))))))) + (#{ribcage-labels 403}# #{ribcage 1432}#) + #{i 1443}#) + #{marks 1430}#) + (#{f 1442}# (#{1+}# #{i 1443}#))))))) + (begin (#{f 1442}# 0)))))))) (begin - (if (symbol? #{id 1371}#) + (if (symbol? #{id 1372}#) (begin - (let ((#{t 1454}# - (call-with-values - (lambda () - (#{search 1377}# - #{id 1371}# - (cdr #{w 1372}#) - (car #{w 1372}#))) - (lambda (#{x 1458}# . #{ignore 1459}#) - #{x 1458}#)))) - (if #{t 1454}# #{t 1454}# #{id 1371}#))) - (if (#{syntax-object? 342}# #{id 1371}#) + (let ((#{t 1455}# + (#{search 1378}# + #{id 1372}# + (cdr #{w 1373}#) + (car #{w 1373}#)))) + (if #{t 1455}# #{t 1455}# #{id 1372}#))) + (if (#{syntax-object? 343}# #{id 1372}#) (begin - (let ((#{id 1467}# - (#{syntax-object-expression 344}# #{id 1371}#)) - (#{w1 1468}# - (#{syntax-object-wrap 346}# #{id 1371}#))) + (let ((#{id 1464}# + (#{syntax-object-expression 345}# #{id 1372}#)) + (#{w1 1465}# + (#{syntax-object-wrap 347}# #{id 1372}#))) (begin - (let ((#{marks 1470}# - (#{join-marks 426}# - (car #{w 1372}#) - (car #{w1 1468}#)))) + (let ((#{marks 1467}# + (#{join-marks 427}# + (car #{w 1373}#) + (car #{w1 1465}#)))) (call-with-values (lambda () - (#{search 1377}# - #{id 1467}# - (cdr #{w 1372}#) - #{marks 1470}#)) - (lambda (#{new-id 1474}# #{marks 1475}#) + (#{search 1378}# + #{id 1464}# + (cdr #{w 1373}#) + #{marks 1467}#)) + (lambda (#{new-id 1471}# #{marks 1472}#) (begin - (let ((#{t 1480}# #{new-id 1474}#)) - (if #{t 1480}# - #{t 1480}# + (let ((#{t 1477}# #{new-id 1471}#)) + (if #{t 1477}# + #{t 1477}# (begin - (let ((#{t 1483}# - (call-with-values - (lambda () - (#{search 1377}# - #{id 1467}# - (cdr #{w1 1468}#) - #{marks 1475}#)) - (lambda (#{x 1486}# - . - #{ignore 1487}#) - #{x 1486}#)))) - (if #{t 1483}# - #{t 1483}# - #{id 1467}#)))))))))))) + (let ((#{t 1480}# + (#{search 1378}# + #{id 1464}# + (cdr #{w1 1465}#) + #{marks 1472}#))) + (if #{t 1480}# + #{t 1480}# + #{id 1464}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{id 1371}#))))))) - (#{free-id=? 432}# - (lambda (#{i 1492}# #{j 1493}#) - (if (eq? (begin - (let ((#{x 1499}# #{i 1492}#)) - (if (#{syntax-object? 342}# #{x 1499}#) - (#{syntax-object-expression 344}# #{x 1499}#) - #{x 1499}#))) - (begin - (let ((#{x 1502}# #{j 1493}#)) - (if (#{syntax-object? 342}# #{x 1502}#) - (#{syntax-object-expression 344}# #{x 1502}#) - #{x 1502}#)))) - (eq? (#{id-var-name 430}# #{i 1492}# '(())) - (#{id-var-name 430}# #{j 1493}# '(()))) - #f))) - (#{bound-id=? 434}# - (lambda (#{i 1506}# #{j 1507}#) - (if (if (#{syntax-object? 342}# #{i 1506}#) - (#{syntax-object? 342}# #{j 1507}#) - #f) - (if (eq? (#{syntax-object-expression 344}# #{i 1506}#) - (#{syntax-object-expression 344}# #{j 1507}#)) - (#{same-marks? 428}# - (car (#{syntax-object-wrap 346}# #{i 1506}#)) - (car (#{syntax-object-wrap 346}# #{j 1507}#))) - #f) - (eq? #{i 1506}# #{j 1507}#)))) - (#{valid-bound-ids? 436}# - (lambda (#{ids 1516}#) - (if (letrec* - ((#{all-ids? 1521}# - (lambda (#{ids 1522}#) + #{id 1372}#))))))) + (#{free-id=? 433}# + (lambda (#{i 1485}# #{j 1486}#) + (begin + (let ((#{ni 1491}# + (#{id-var-name 431}# #{i 1485}# '(()))) + (#{nj 1492}# + (#{id-var-name 431}# #{j 1486}# '(())))) + (letrec* + ((#{id-module-binding 1496}# + (lambda (#{id 1497}#) (begin - (let ((#{t 1525}# (null? #{ids 1522}#))) - (if #{t 1525}# - #{t 1525}# - (if (#{id? 376}# (car #{ids 1522}#)) - (#{all-ids? 1521}# (cdr #{ids 1522}#)) - #f))))))) - (begin (#{all-ids? 1521}# #{ids 1516}#))) - (#{distinct-bound-ids? 438}# #{ids 1516}#) - #f))) - (#{distinct-bound-ids? 438}# - (lambda (#{ids 1530}#) - (letrec* - ((#{distinct? 1534}# - (lambda (#{ids 1535}#) - (begin - (let ((#{t 1538}# (null? #{ids 1535}#))) - (if #{t 1538}# - #{t 1538}# - (if (not (#{bound-id-member? 440}# - (car #{ids 1535}#) - (cdr #{ids 1535}#))) - (#{distinct? 1534}# (cdr #{ids 1535}#)) - #f))))))) - (begin (#{distinct? 1534}# #{ids 1530}#))))) - (#{bound-id-member? 440}# - (lambda (#{x 1542}# #{list 1543}#) - (if (not (null? #{list 1543}#)) - (begin - (let ((#{t 1550}# - (#{bound-id=? 434}# - #{x 1542}# - (car #{list 1543}#)))) - (if #{t 1550}# - #{t 1550}# - (#{bound-id-member? 440}# - #{x 1542}# - (cdr #{list 1543}#))))) - #f))) - (#{wrap 442}# - (lambda (#{x 1552}# #{w 1553}# #{defmod 1554}#) - (if (if (null? (car #{w 1553}#)) - (null? (cdr #{w 1553}#)) + (let ((#{mod 1500}# + (if (#{syntax-object? 343}# #{id 1497}#) + (#{syntax-object-module 349}# #{id 1497}#) + #f))) + (module-variable + (if #{mod 1500}# + (resolve-module (cdr #{mod 1500}#)) + (current-module)) + (begin + (let ((#{x 1505}# #{id 1497}#)) + (if (#{syntax-object? 343}# #{x 1505}#) + (#{syntax-object-expression 345}# #{x 1505}#) + #{x 1505}#))))))))) + (begin + (if (eq? #{ni 1491}# + (begin + (let ((#{x 1508}# #{i 1485}#)) + (if (#{syntax-object? 343}# #{x 1508}#) + (#{syntax-object-expression 345}# #{x 1508}#) + #{x 1508}#)))) + (if (eq? #{nj 1492}# + (begin + (let ((#{x 1512}# #{j 1486}#)) + (if (#{syntax-object? 343}# #{x 1512}#) + (#{syntax-object-expression 345}# + #{x 1512}#) + #{x 1512}#)))) + (if (begin + (let ((#{bi 1515}# + (#{id-module-binding 1496}# #{i 1485}#))) + (if #{bi 1515}# + (eq? #{bi 1515}# + (#{id-module-binding 1496}# #{j 1486}#)) + (if (not (#{id-module-binding 1496}# + #{j 1486}#)) + (eq? #{ni 1491}# #{nj 1492}#) + #f)))) + (eq? (#{id-module-binding 1496}# #{i 1485}#) + (#{id-module-binding 1496}# #{j 1486}#)) + #f) + #f) + (if (eq? #{ni 1491}# #{nj 1492}#) + (not (eq? #{nj 1492}# + (begin + (let ((#{x 1523}# #{j 1486}#)) + (if (#{syntax-object? 343}# #{x 1523}#) + (#{syntax-object-expression 345}# + #{x 1523}#) + #{x 1523}#))))) + #f)))))))) + (#{bound-id=? 435}# + (lambda (#{i 1524}# #{j 1525}#) + (if (if (#{syntax-object? 343}# #{i 1524}#) + (#{syntax-object? 343}# #{j 1525}#) #f) - #{x 1552}# - (if (#{syntax-object? 342}# #{x 1552}#) - (#{make-syntax-object 340}# - (#{syntax-object-expression 344}# #{x 1552}#) - (#{join-wraps 424}# - #{w 1553}# - (#{syntax-object-wrap 346}# #{x 1552}#)) - (#{syntax-object-module 348}# #{x 1552}#)) - (if (null? #{x 1552}#) - #{x 1552}# - (#{make-syntax-object 340}# - #{x 1552}# - #{w 1553}# - #{defmod 1554}#)))))) - (#{source-wrap 444}# - (lambda (#{x 1569}# - #{w 1570}# - #{s 1571}# - #{defmod 1572}#) - (#{wrap 442}# - (#{decorate-source 296}# #{x 1569}# #{s 1571}#) - #{w 1570}# - #{defmod 1572}#))) - (#{chi-sequence 446}# - (lambda (#{body 1577}# - #{r 1578}# - #{w 1579}# - #{s 1580}# - #{mod 1581}#) - (#{build-sequence 330}# - #{s 1580}# + (if (eq? (#{syntax-object-expression 345}# #{i 1524}#) + (#{syntax-object-expression 345}# #{j 1525}#)) + (#{same-marks? 429}# + (car (#{syntax-object-wrap 347}# #{i 1524}#)) + (car (#{syntax-object-wrap 347}# #{j 1525}#))) + #f) + (eq? #{i 1524}# #{j 1525}#)))) + (#{valid-bound-ids? 437}# + (lambda (#{ids 1534}#) + (if (letrec* + ((#{all-ids? 1539}# + (lambda (#{ids 1540}#) + (begin + (let ((#{t 1543}# (null? #{ids 1540}#))) + (if #{t 1543}# + #{t 1543}# + (if (#{id? 377}# (car #{ids 1540}#)) + (#{all-ids? 1539}# (cdr #{ids 1540}#)) + #f))))))) + (begin (#{all-ids? 1539}# #{ids 1534}#))) + (#{distinct-bound-ids? 439}# #{ids 1534}#) + #f))) + (#{distinct-bound-ids? 439}# + (lambda (#{ids 1548}#) + (letrec* + ((#{distinct? 1552}# + (lambda (#{ids 1553}#) + (begin + (let ((#{t 1556}# (null? #{ids 1553}#))) + (if #{t 1556}# + #{t 1556}# + (if (not (#{bound-id-member? 441}# + (car #{ids 1553}#) + (cdr #{ids 1553}#))) + (#{distinct? 1552}# (cdr #{ids 1553}#)) + #f))))))) + (begin (#{distinct? 1552}# #{ids 1548}#))))) + (#{bound-id-member? 441}# + (lambda (#{x 1560}# #{list 1561}#) + (if (not (null? #{list 1561}#)) + (begin + (let ((#{t 1568}# + (#{bound-id=? 435}# + #{x 1560}# + (car #{list 1561}#)))) + (if #{t 1568}# + #{t 1568}# + (#{bound-id-member? 441}# + #{x 1560}# + (cdr #{list 1561}#))))) + #f))) + (#{wrap 443}# + (lambda (#{x 1570}# #{w 1571}# #{defmod 1572}#) + (if (if (null? (car #{w 1571}#)) + (null? (cdr #{w 1571}#)) + #f) + #{x 1570}# + (if (#{syntax-object? 343}# #{x 1570}#) + (#{make-syntax-object 341}# + (#{syntax-object-expression 345}# #{x 1570}#) + (#{join-wraps 425}# + #{w 1571}# + (#{syntax-object-wrap 347}# #{x 1570}#)) + (#{syntax-object-module 349}# #{x 1570}#)) + (if (null? #{x 1570}#) + #{x 1570}# + (#{make-syntax-object 341}# + #{x 1570}# + #{w 1571}# + #{defmod 1572}#)))))) + (#{source-wrap 445}# + (lambda (#{x 1587}# + #{w 1588}# + #{s 1589}# + #{defmod 1590}#) + (#{wrap 443}# + (#{decorate-source 297}# #{x 1587}# #{s 1589}#) + #{w 1588}# + #{defmod 1590}#))) + (#{chi-sequence 447}# + (lambda (#{body 1595}# + #{r 1596}# + #{w 1597}# + #{s 1598}# + #{mod 1599}#) + (#{build-sequence 331}# + #{s 1598}# (letrec* - ((#{dobody 1592}# - (lambda (#{body 1593}# - #{r 1594}# - #{w 1595}# - #{mod 1596}#) - (if (null? #{body 1593}#) + ((#{dobody 1610}# + (lambda (#{body 1611}# + #{r 1612}# + #{w 1613}# + #{mod 1614}#) + (if (null? #{body 1611}#) '() (begin - (let ((#{first 1598}# - (#{chi 456}# - (car #{body 1593}#) - #{r 1594}# - #{w 1595}# - #{mod 1596}#))) - (cons #{first 1598}# - (#{dobody 1592}# - (cdr #{body 1593}#) - #{r 1594}# - #{w 1595}# - #{mod 1596}#)))))))) + (let ((#{first 1616}# + (#{chi 457}# + (car #{body 1611}#) + #{r 1612}# + #{w 1613}# + #{mod 1614}#))) + (cons #{first 1616}# + (#{dobody 1610}# + (cdr #{body 1611}#) + #{r 1612}# + #{w 1613}# + #{mod 1614}#)))))))) (begin - (#{dobody 1592}# - #{body 1577}# - #{r 1578}# - #{w 1579}# - #{mod 1581}#)))))) - (#{chi-top-sequence 448}# - (lambda (#{body 1599}# - #{r 1600}# - #{w 1601}# - #{s 1602}# - #{m 1603}# - #{esew 1604}# - #{mod 1605}#) + (#{dobody 1610}# + #{body 1595}# + #{r 1596}# + #{w 1597}# + #{mod 1599}#)))))) + (#{chi-top-sequence 449}# + (lambda (#{body 1617}# + #{r 1618}# + #{w 1619}# + #{s 1620}# + #{m 1621}# + #{esew 1622}# + #{mod 1623}#) (letrec* - ((#{scan 1614}# - (lambda (#{body 1615}# - #{r 1616}# - #{w 1617}# - #{s 1618}# - #{m 1619}# - #{esew 1620}# - #{mod 1621}# - #{exps 1622}#) - (if (null? #{body 1615}#) - #{exps 1622}# + ((#{scan 1632}# + (lambda (#{body 1633}# + #{r 1634}# + #{w 1635}# + #{s 1636}# + #{m 1637}# + #{esew 1638}# + #{mod 1639}# + #{exps 1640}#) + (if (null? #{body 1633}#) + #{exps 1640}# (call-with-values (lambda () (call-with-values (lambda () (begin - (let ((#{e 1635}# (car #{body 1615}#))) - (#{syntax-type 454}# - #{e 1635}# - #{r 1616}# - #{w 1617}# + (let ((#{e 1653}# (car #{body 1633}#))) + (#{syntax-type 455}# + #{e 1653}# + #{r 1634}# + #{w 1635}# (begin - (let ((#{t 1638}# - (#{source-annotation 357}# - #{e 1635}#))) - (if #{t 1638}# #{t 1638}# #{s 1618}#))) + (let ((#{t 1656}# + (#{source-annotation 358}# + #{e 1653}#))) + (if #{t 1656}# #{t 1656}# #{s 1636}#))) #f - #{mod 1621}# + #{mod 1639}# #f)))) - (lambda (#{type 1640}# - #{value 1641}# - #{e 1642}# - #{w 1643}# - #{s 1644}# - #{mod 1645}#) - (if (eqv? #{type 1640}# 'begin-form) - (let ((#{tmp 1653}# #{e 1642}#)) - (let ((#{tmp 1654}# - ($sc-dispatch #{tmp 1653}# '(_)))) - (if #{tmp 1654}# + (lambda (#{type 1658}# + #{value 1659}# + #{e 1660}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#) + (if (eqv? #{type 1658}# 'begin-form) + (let ((#{tmp 1671}# #{e 1660}#)) + (let ((#{tmp 1672}# + ($sc-dispatch #{tmp 1671}# '(_)))) + (if #{tmp 1672}# (@apply - (lambda () #{exps 1622}#) - #{tmp 1654}#) - (let ((#{tmp 1655}# + (lambda () #{exps 1640}#) + #{tmp 1672}#) + (let ((#{tmp 1673}# ($sc-dispatch - #{tmp 1653}# + #{tmp 1671}# '(_ any . each-any)))) - (if #{tmp 1655}# + (if #{tmp 1673}# (@apply - (lambda (#{e1 1658}# #{e2 1659}#) - (#{scan 1614}# - (cons #{e1 1658}# #{e2 1659}#) - #{r 1616}# - #{w 1643}# - #{s 1644}# - #{m 1619}# - #{esew 1620}# - #{mod 1645}# - #{exps 1622}#)) - #{tmp 1655}#) + (lambda (#{e1 1676}# #{e2 1677}#) + (#{scan 1632}# + (cons #{e1 1676}# #{e2 1677}#) + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{m 1637}# + #{esew 1638}# + #{mod 1663}# + #{exps 1640}#)) + #{tmp 1673}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1653}#)))))) - (if (eqv? #{type 1640}# 'local-syntax-form) - (#{chi-local-syntax 466}# - #{value 1641}# - #{e 1642}# - #{r 1616}# - #{w 1643}# - #{s 1644}# - #{mod 1645}# - (lambda (#{body 1662}# - #{r 1663}# - #{w 1664}# - #{s 1665}# - #{mod 1666}#) - (#{scan 1614}# - #{body 1662}# - #{r 1663}# - #{w 1664}# - #{s 1665}# - #{m 1619}# - #{esew 1620}# - #{mod 1666}# - #{exps 1622}#))) - (if (eqv? #{type 1640}# 'eval-when-form) - (let ((#{tmp 1673}# #{e 1642}#)) - (let ((#{tmp 1674}# + #{tmp 1671}#)))))) + (if (eqv? #{type 1658}# 'local-syntax-form) + (#{chi-local-syntax 467}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}# + (lambda (#{body 1680}# + #{r 1681}# + #{w 1682}# + #{s 1683}# + #{mod 1684}#) + (#{scan 1632}# + #{body 1680}# + #{r 1681}# + #{w 1682}# + #{s 1683}# + #{m 1637}# + #{esew 1638}# + #{mod 1684}# + #{exps 1640}#))) + (if (eqv? #{type 1658}# 'eval-when-form) + (let ((#{tmp 1691}# #{e 1660}#)) + (let ((#{tmp 1692}# ($sc-dispatch - #{tmp 1673}# + #{tmp 1691}# '(_ each-any any . each-any)))) - (if #{tmp 1674}# + (if #{tmp 1692}# (@apply - (lambda (#{x 1678}# - #{e1 1679}# - #{e2 1680}#) + (lambda (#{x 1696}# + #{e1 1697}# + #{e2 1698}#) (begin - (let ((#{when-list 1683}# - (#{chi-when-list 452}# - #{e 1642}# - #{x 1678}# - #{w 1643}#)) - (#{body 1684}# - (cons #{e1 1679}# - #{e2 1680}#))) - (if (eq? #{m 1619}# 'e) + (let ((#{when-list 1701}# + (#{chi-when-list 453}# + #{e 1660}# + #{x 1696}# + #{w 1661}#)) + (#{body 1702}# + (cons #{e1 1697}# + #{e2 1698}#))) + (if (eq? #{m 1637}# 'e) (if (memq 'eval - #{when-list 1683}#) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + #{when-list 1701}#) + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# (if (memq 'expand - #{when-list 1683}#) + #{when-list 1701}#) 'c&e 'e) '(eval) - #{mod 1645}# - #{exps 1622}#) + #{mod 1663}# + #{exps 1640}#) (begin (if (memq 'expand - #{when-list 1683}#) - (#{top-level-eval-hook 287}# - (#{chi-top-sequence 448}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + #{when-list 1701}#) + (#{top-level-eval-hook 288}# + (#{chi-top-sequence 449}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'e '(eval) - #{mod 1645}#) - #{mod 1645}#)) - #{exps 1622}#)) + #{mod 1663}#) + #{mod 1663}#)) + #{exps 1640}#)) (if (memq 'load - #{when-list 1683}#) + #{when-list 1701}#) (if (begin - (let ((#{t 1693}# + (let ((#{t 1711}# (memq 'compile - #{when-list 1683}#))) - (if #{t 1693}# - #{t 1693}# + #{when-list 1701}#))) + (if #{t 1711}# + #{t 1711}# (begin - (let ((#{t 1696}# + (let ((#{t 1714}# (memq 'expand - #{when-list 1683}#))) - (if #{t 1696}# - #{t 1696}# - (if (eq? #{m 1619}# + #{when-list 1701}#))) + (if #{t 1714}# + #{t 1714}# + (if (eq? #{m 1637}# 'c&e) (memq 'eval - #{when-list 1683}#) + #{when-list 1701}#) #f))))))) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'c&e '(compile load) - #{mod 1645}# - #{exps 1622}#) - (if (if (eq? #{m 1619}# + #{mod 1663}# + #{exps 1640}#) + (if (if (eq? #{m 1637}# 'c) #t - (eq? #{m 1619}# + (eq? #{m 1637}# 'c&e)) - (#{scan 1614}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{scan 1632}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'c '(load) - #{mod 1645}# - #{exps 1622}#) - #{exps 1622}#)) + #{mod 1663}# + #{exps 1640}#) + #{exps 1640}#)) (if (begin - (let ((#{t 1704}# + (let ((#{t 1722}# (memq 'compile - #{when-list 1683}#))) - (if #{t 1704}# - #{t 1704}# + #{when-list 1701}#))) + (if #{t 1722}# + #{t 1722}# (begin - (let ((#{t 1707}# + (let ((#{t 1725}# (memq 'expand - #{when-list 1683}#))) - (if #{t 1707}# - #{t 1707}# - (if (eq? #{m 1619}# + #{when-list 1701}#))) + (if #{t 1725}# + #{t 1725}# + (if (eq? #{m 1637}# 'c&e) (memq 'eval - #{when-list 1683}#) + #{when-list 1701}#) #f))))))) (begin - (#{top-level-eval-hook 287}# - (#{chi-top-sequence 448}# - #{body 1684}# - #{r 1616}# - #{w 1643}# - #{s 1644}# + (#{top-level-eval-hook 288}# + (#{chi-top-sequence 449}# + #{body 1702}# + #{r 1634}# + #{w 1661}# + #{s 1662}# 'e '(eval) - #{mod 1645}#) - #{mod 1645}#) - #{exps 1622}#) - #{exps 1622}#)))))) - #{tmp 1674}#) + #{mod 1663}#) + #{mod 1663}#) + #{exps 1640}#) + #{exps 1640}#)))))) + #{tmp 1692}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1673}#)))) - (if (eqv? #{type 1640}# 'define-syntax-form) + #{tmp 1691}#)))) + (if (eqv? #{type 1658}# 'define-syntax-form) (begin - (let ((#{n 1715}# - (#{id-var-name 430}# - #{value 1641}# - #{w 1643}#)) - (#{r 1716}# - (#{macros-only-env 368}# - #{r 1616}#))) - (if (eqv? #{m 1619}# 'c) - (if (memq 'compile #{esew 1620}#) + (let ((#{n 1733}# + (#{id-var-name 431}# + #{value 1659}# + #{w 1661}#)) + (#{r 1734}# + (#{macros-only-env 369}# + #{r 1634}#))) + (if (eqv? #{m 1637}# 'c) + (if (memq 'compile #{esew 1638}#) (begin - (let ((#{e 1719}# - (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)))) + (let ((#{e 1737}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{e 1719}# - #{mod 1645}#) + (#{top-level-eval-hook 288}# + #{e 1737}# + #{mod 1663}#) (if (memq 'load - #{esew 1620}#) - (cons #{e 1719}# - #{exps 1622}#) - #{exps 1622}#)))) - (if (memq 'load #{esew 1620}#) - (cons (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)) - #{exps 1622}#) - #{exps 1622}#)) - (if (eqv? #{m 1619}# 'c&e) + #{esew 1638}#) + (cons #{e 1737}# + #{exps 1640}#) + #{exps 1640}#)))) + (if (memq 'load #{esew 1638}#) + (cons (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)) + #{exps 1640}#) + #{exps 1640}#)) + (if (eqv? #{m 1637}# 'c&e) (begin - (let ((#{e 1722}# - (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)))) + (let ((#{e 1740}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{e 1722}# - #{mod 1645}#) - (cons #{e 1722}# - #{exps 1622}#)))) + (#{top-level-eval-hook 288}# + #{e 1740}# + #{mod 1663}#) + (cons #{e 1740}# + #{exps 1640}#)))) (begin - (if (memq 'eval #{esew 1620}#) - (#{top-level-eval-hook 287}# - (#{chi-install-global 450}# - #{n 1715}# - (#{chi 456}# - #{e 1642}# - #{r 1716}# - #{w 1643}# - #{mod 1645}#)) - #{mod 1645}#)) - #{exps 1622}#))))) - (if (eqv? #{type 1640}# 'define-form) + (if (memq 'eval #{esew 1638}#) + (#{top-level-eval-hook 288}# + (#{chi-install-global 451}# + #{n 1733}# + (#{chi 457}# + #{e 1660}# + #{r 1734}# + #{w 1661}# + #{mod 1663}#)) + #{mod 1663}#)) + #{exps 1640}#))))) + (if (eqv? #{type 1658}# 'define-form) (begin - (let ((#{n 1727}# - (#{id-var-name 430}# - #{value 1641}# - #{w 1643}#))) + (let ((#{n 1745}# + (#{id-var-name 431}# + #{value 1659}# + #{w 1661}#))) (begin - (let ((#{type 1729}# - (car (#{lookup 370}# - #{n 1727}# - #{r 1616}# - #{mod 1645}#)))) - (if (if (eqv? #{type 1729}# + (let ((#{type 1747}# + (car (#{lookup 371}# + #{n 1745}# + #{r 1634}# + #{mod 1663}#)))) + (if (if (eqv? #{type 1747}# 'global) #t - (if (eqv? #{type 1729}# + (if (eqv? #{type 1747}# 'core) #t - (if (eqv? #{type 1729}# + (if (eqv? #{type 1747}# 'macro) #t - (eqv? #{type 1729}# + (eqv? #{type 1747}# 'module-ref)))) (begin - (if (if (if (eq? #{m 1619}# + (if (if (if (eq? #{m 1637}# 'c) #t - (eq? #{m 1619}# + (eq? #{m 1637}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 1727}#)) + #{n 1745}#)) (current-module) #f) #f) (begin - (let ((#{old 1736}# + (let ((#{old 1754}# (module-variable (current-module) - #{n 1727}#))) + #{n 1745}#))) (if (if (variable? - #{old 1736}#) + #{old 1754}#) (variable-bound? - #{old 1736}#) + #{old 1754}#) #f) (module-define! (current-module) - #{n 1727}# + #{n 1745}# (variable-ref - #{old 1736}#)) + #{old 1754}#)) (module-add! (current-module) - #{n 1727}# + #{n 1745}# (make-undefined-variable)))))) - (cons (if (eq? #{m 1619}# + (cons (if (eq? #{m 1637}# 'c&e) (begin - (let ((#{x 1740}# - (#{build-global-definition 318}# - #{s 1644}# - #{n 1727}# - (#{chi 456}# - #{e 1642}# - #{r 1616}# - #{w 1643}# - #{mod 1645}#)))) + (let ((#{x 1758}# + (#{build-global-definition 319}# + #{s 1662}# + #{n 1745}# + (#{chi 457}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{mod 1663}#)))) (begin - (#{top-level-eval-hook 287}# - #{x 1740}# - #{mod 1645}#) - #{x 1740}#))) + (#{top-level-eval-hook 288}# + #{x 1758}# + #{mod 1663}#) + #{x 1758}#))) (lambda () - (#{build-global-definition 318}# - #{s 1644}# - #{n 1727}# - (#{chi 456}# - #{e 1642}# - #{r 1616}# - #{w 1643}# - #{mod 1645}#)))) - #{exps 1622}#)) - (if (eqv? #{type 1729}# + (#{build-global-definition 319}# + #{s 1662}# + #{n 1745}# + (#{chi 457}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{mod 1663}#)))) + #{exps 1640}#)) + (if (eqv? #{type 1747}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 1642}# - (#{wrap 442}# - #{value 1641}# - #{w 1643}# - #{mod 1645}#)) + #{e 1660}# + (#{wrap 443}# + #{value 1659}# + #{w 1661}# + #{mod 1663}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 1642}# - (#{wrap 442}# - #{value 1641}# - #{w 1643}# - #{mod 1645}#)))))))) - (cons (if (eq? #{m 1619}# 'c&e) + #{e 1660}# + (#{wrap 443}# + #{value 1659}# + #{w 1661}# + #{mod 1663}#)))))))) + (cons (if (eq? #{m 1637}# 'c&e) (begin - (let ((#{x 1745}# - (#{chi-expr 458}# - #{type 1640}# - #{value 1641}# - #{e 1642}# - #{r 1616}# - #{w 1643}# - #{s 1644}# - #{mod 1645}#))) + (let ((#{x 1763}# + (#{chi-expr 459}# + #{type 1658}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#))) (begin - (#{top-level-eval-hook 287}# - #{x 1745}# - #{mod 1645}#) - #{x 1745}#))) + (#{top-level-eval-hook 288}# + #{x 1763}# + #{mod 1663}#) + #{x 1763}#))) (lambda () - (#{chi-expr 458}# - #{type 1640}# - #{value 1641}# - #{e 1642}# - #{r 1616}# - #{w 1643}# - #{s 1644}# - #{mod 1645}#))) - #{exps 1622}#))))))))) - (lambda (#{exps 1746}#) - (#{scan 1614}# - (cdr #{body 1615}#) - #{r 1616}# - #{w 1617}# - #{s 1618}# - #{m 1619}# - #{esew 1620}# - #{mod 1621}# - #{exps 1746}#))))))) + (#{chi-expr 459}# + #{type 1658}# + #{value 1659}# + #{e 1660}# + #{r 1634}# + #{w 1661}# + #{s 1662}# + #{mod 1663}#))) + #{exps 1640}#))))))))) + (lambda (#{exps 1764}#) + (#{scan 1632}# + (cdr #{body 1633}#) + #{r 1634}# + #{w 1635}# + #{s 1636}# + #{m 1637}# + #{esew 1638}# + #{mod 1639}# + #{exps 1764}#))))))) (begin (call-with-values (lambda () - (#{scan 1614}# - #{body 1599}# - #{r 1600}# - #{w 1601}# - #{s 1602}# - #{m 1603}# - #{esew 1604}# - #{mod 1605}# + (#{scan 1632}# + #{body 1617}# + #{r 1618}# + #{w 1619}# + #{s 1620}# + #{m 1621}# + #{esew 1622}# + #{mod 1623}# '())) - (lambda (#{exps 1748}#) - (if (null? #{exps 1748}#) - (#{build-void 300}# #{s 1602}#) - (#{build-sequence 330}# - #{s 1602}# + (lambda (#{exps 1766}#) + (if (null? #{exps 1766}#) + (#{build-void 301}# #{s 1620}#) + (#{build-sequence 331}# + #{s 1620}# (letrec* - ((#{lp 1753}# - (lambda (#{in 1754}# #{out 1755}#) - (if (null? #{in 1754}#) - #{out 1755}# + ((#{lp 1771}# + (lambda (#{in 1772}# #{out 1773}#) + (if (null? #{in 1772}#) + #{out 1773}# (begin - (let ((#{e 1757}# (car #{in 1754}#))) - (#{lp 1753}# - (cdr #{in 1754}#) - (cons (if (procedure? #{e 1757}#) - (#{e 1757}#) - #{e 1757}#) - #{out 1755}#)))))))) - (begin (#{lp 1753}# #{exps 1748}# '()))))))))))) - (#{chi-install-global 450}# - (lambda (#{name 1758}# #{e 1759}#) - (#{build-global-definition 318}# + (let ((#{e 1775}# (car #{in 1772}#))) + (#{lp 1771}# + (cdr #{in 1772}#) + (cons (if (procedure? #{e 1775}#) + (#{e 1775}#) + #{e 1775}#) + #{out 1773}#)))))))) + (begin (#{lp 1771}# #{exps 1766}# '()))))))))))) + (#{chi-install-global 451}# + (lambda (#{name 1776}# #{e 1777}#) + (#{build-global-definition 319}# #f - #{name 1758}# - (#{build-application 302}# + #{name 1776}# + (#{build-application 303}# #f - (#{build-primref 326}# + (#{build-primref 327}# #f 'make-syntax-transformer) - (list (#{build-data 328}# #f #{name 1758}#) - (#{build-data 328}# #f 'macro) - #{e 1759}#))))) - (#{chi-when-list 452}# - (lambda (#{e 1767}# #{when-list 1768}# #{w 1769}#) + (list (#{build-data 329}# #f #{name 1776}#) + (#{build-data 329}# #f 'macro) + #{e 1777}#))))) + (#{chi-when-list 453}# + (lambda (#{e 1785}# #{when-list 1786}# #{w 1787}#) (letrec* - ((#{f 1776}# - (lambda (#{when-list 1777}# #{situations 1778}#) - (if (null? #{when-list 1777}#) - #{situations 1778}# - (#{f 1776}# - (cdr #{when-list 1777}#) + ((#{f 1794}# + (lambda (#{when-list 1795}# #{situations 1796}#) + (if (null? #{when-list 1795}#) + #{situations 1796}# + (#{f 1794}# + (cdr #{when-list 1795}#) (cons (begin - (let ((#{x 1780}# (car #{when-list 1777}#))) - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(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)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'compile - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(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)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'load - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(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)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'eval - (if (#{free-id=? 432}# - #{x 1780}# - '#(syntax-object - expand - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i1779")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i1773" "i1774" "i1775")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i1770" "i1771" "i1772")) - #(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)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" - "i417" - "i416" - "i415" - "i413" - "i412" - "i411" - "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" - "i388" - "i387" - "i386" - "i385" - "i384" - "i383" - "i382" - "i381" - "i380" - "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" - "i363" - "i362" - "i361" - "i360" - "i359" - "i358" - "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" - "i291" - "i290" - "i288" - "i286" - "i285" - "i284" - "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors - and-map*) - ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) - (hygiene guile))) - 'expand - (syntax-violation - 'eval-when - "invalid situation" - #{e 1767}# - (#{wrap 442}# - #{x 1780}# - #{w 1769}# - #f)))))))) - #{situations 1778}#)))))) - (begin (#{f 1776}# #{when-list 1768}# '()))))) - (#{syntax-type 454}# - (lambda (#{e 1790}# - #{r 1791}# - #{w 1792}# - #{s 1793}# - #{rib 1794}# - #{mod 1795}# - #{for-car? 1796}#) - (if (symbol? #{e 1790}#) + (let ((#{x 1798}# + (syntax->datum + (car #{when-list 1795}#)))) + (if (if (eq? #{x 1798}# 'compile) + #t + (if (eq? #{x 1798}# 'load) + #t + (if (eq? #{x 1798}# 'eval) + #t + (eq? #{x 1798}# 'expand)))) + #{x 1798}# + (syntax-violation + 'eval-when + "invalid situation" + #{e 1785}# + (#{wrap 443}# + (car #{when-list 1795}#) + #{w 1787}# + #f))))) + #{situations 1796}#)))))) + (begin (#{f 1794}# #{when-list 1786}# '()))))) + (#{syntax-type 455}# + (lambda (#{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# + #{for-car? 1805}#) + (if (symbol? #{e 1799}#) (begin - (let ((#{n 1808}# - (#{id-var-name 430}# #{e 1790}# #{w 1792}#))) + (let ((#{n 1817}# + (#{id-var-name 431}# #{e 1799}# #{w 1801}#))) (begin - (let ((#{b 1810}# - (#{lookup 370}# - #{n 1808}# - #{r 1791}# - #{mod 1795}#))) + (let ((#{b 1819}# + (#{lookup 371}# + #{n 1817}# + #{r 1800}# + #{mod 1804}#))) (begin - (let ((#{type 1812}# (car #{b 1810}#))) - (if (eqv? #{type 1812}# 'lexical) + (let ((#{type 1821}# (car #{b 1819}#))) + (if (eqv? #{type 1821}# 'lexical) (values - #{type 1812}# - (cdr #{b 1810}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{type 1812}# 'global) + #{type 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{type 1821}# 'global) (values - #{type 1812}# - #{n 1808}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{type 1812}# 'macro) - (if #{for-car? 1796}# + #{type 1821}# + #{n 1817}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{type 1821}# 'macro) + (if #{for-car? 1805}# (values - #{type 1812}# - (cdr #{b 1810}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (#{syntax-type 454}# - (#{chi-macro 462}# - (cdr #{b 1810}#) - #{e 1790}# - #{r 1791}# - #{w 1792}# - #{s 1793}# - #{rib 1794}# - #{mod 1795}#) - #{r 1791}# + #{type 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (#{syntax-type 455}# + (#{chi-macro 463}# + (cdr #{b 1819}#) + #{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}#) + #{r 1800}# '(()) - #{s 1793}# - #{rib 1794}# - #{mod 1795}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# #f)) (values - #{type 1812}# - (cdr #{b 1810}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)))))))))) - (if (pair? #{e 1790}#) + #{type 1821}# + (cdr #{b 1819}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)))))))))) + (if (pair? #{e 1799}#) (begin - (let ((#{first 1826}# (car #{e 1790}#))) + (let ((#{first 1835}# (car #{e 1799}#))) (call-with-values (lambda () - (#{syntax-type 454}# - #{first 1826}# - #{r 1791}# - #{w 1792}# - #{s 1793}# - #{rib 1794}# - #{mod 1795}# + (#{syntax-type 455}# + #{first 1835}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}# #t)) - (lambda (#{ftype 1827}# - #{fval 1828}# - #{fe 1829}# - #{fw 1830}# - #{fs 1831}# - #{fmod 1832}#) - (if (eqv? #{ftype 1827}# 'lexical) + (lambda (#{ftype 1836}# + #{fval 1837}# + #{fe 1838}# + #{fw 1839}# + #{fs 1840}# + #{fmod 1841}#) + (if (eqv? #{ftype 1836}# 'lexical) (values 'lexical-call - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'global) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'global) (values 'global-call - (#{make-syntax-object 340}# - #{fval 1828}# - #{w 1792}# - #{fmod 1832}#) - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'macro) - (#{syntax-type 454}# - (#{chi-macro 462}# - #{fval 1828}# - #{e 1790}# - #{r 1791}# - #{w 1792}# - #{s 1793}# - #{rib 1794}# - #{mod 1795}#) - #{r 1791}# + (#{make-syntax-object 341}# + #{fval 1837}# + #{w 1801}# + #{fmod 1841}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'macro) + (#{syntax-type 455}# + (#{chi-macro 463}# + #{fval 1837}# + #{e 1799}# + #{r 1800}# + #{w 1801}# + #{s 1802}# + #{rib 1803}# + #{mod 1804}#) + #{r 1800}# '(()) - #{s 1793}# - #{rib 1794}# - #{mod 1795}# - #{for-car? 1796}#) - (if (eqv? #{ftype 1827}# 'module-ref) + #{s 1802}# + #{rib 1803}# + #{mod 1804}# + #{for-car? 1805}#) + (if (eqv? #{ftype 1836}# 'module-ref) (call-with-values (lambda () - (#{fval 1828}# - #{e 1790}# - #{r 1791}# - #{w 1792}#)) - (lambda (#{e 1844}# - #{r 1845}# - #{w 1846}# - #{s 1847}# - #{mod 1848}#) - (#{syntax-type 454}# - #{e 1844}# - #{r 1845}# - #{w 1846}# - #{s 1847}# - #{rib 1794}# - #{mod 1848}# - #{for-car? 1796}#))) - (if (eqv? #{ftype 1827}# 'core) + (#{fval 1837}# + #{e 1799}# + #{r 1800}# + #{w 1801}#)) + (lambda (#{e 1853}# + #{r 1854}# + #{w 1855}# + #{s 1856}# + #{mod 1857}#) + (#{syntax-type 455}# + #{e 1853}# + #{r 1854}# + #{w 1855}# + #{s 1856}# + #{rib 1803}# + #{mod 1857}# + #{for-car? 1805}#))) + (if (eqv? #{ftype 1836}# 'core) (values 'core-form - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'local-syntax) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'local-syntax) (values 'local-syntax-form - #{fval 1828}# - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'begin) + #{fval 1837}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'begin) (values 'begin-form #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'eval-when) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'eval-when) (values 'eval-when-form #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) - (if (eqv? #{ftype 1827}# 'define) - (let ((#{tmp 1859}# #{e 1790}#)) - (let ((#{tmp 1860}# + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) + (if (eqv? #{ftype 1836}# 'define) + (let ((#{tmp 1868}# #{e 1799}#)) + (let ((#{tmp 1869}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ any any)))) - (if (if #{tmp 1860}# + (if (if #{tmp 1869}# (@apply - (lambda (#{name 1863}# - #{val 1864}#) - (#{id? 376}# - #{name 1863}#)) - #{tmp 1860}#) + (lambda (#{name 1872}# + #{val 1873}#) + (#{id? 377}# + #{name 1872}#)) + #{tmp 1869}#) #f) (@apply - (lambda (#{name 1867}# - #{val 1868}#) + (lambda (#{name 1876}# + #{val 1877}#) (values 'define-form - #{name 1867}# - #{val 1868}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)) - #{tmp 1860}#) - (let ((#{tmp 1869}# + #{name 1876}# + #{val 1877}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1869}#) + (let ((#{tmp 1878}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 1869}# + (if (if #{tmp 1878}# (@apply - (lambda (#{name 1874}# - #{args 1875}# - #{e1 1876}# - #{e2 1877}#) - (if (#{id? 376}# - #{name 1874}#) - (#{valid-bound-ids? 436}# - (#{lambda-var-list 486}# - #{args 1875}#)) + (lambda (#{name 1883}# + #{args 1884}# + #{e1 1885}# + #{e2 1886}#) + (if (#{id? 377}# + #{name 1883}#) + (#{valid-bound-ids? 437}# + (#{lambda-var-list 487}# + #{args 1884}#)) #f)) - #{tmp 1869}#) + #{tmp 1878}#) #f) (@apply - (lambda (#{name 1884}# - #{args 1885}# - #{e1 1886}# - #{e2 1887}#) + (lambda (#{name 1893}# + #{args 1894}# + #{e1 1895}# + #{e2 1896}#) (values 'define-form - (#{wrap 442}# - #{name 1884}# - #{w 1792}# - #{mod 1795}#) - (#{decorate-source 296}# + (#{wrap 443}# + #{name 1893}# + #{w 1801}# + #{mod 1804}#) + (#{decorate-source 297}# (cons '#(syntax-object lambda ((top) @@ -3572,10 +1864,10 @@ (top) (top) (top)) - #("i1880" - "i1881" - "i1882" - "i1883")) + #("i1889" + "i1890" + "i1891" + "i1892")) #(ribcage () () @@ -3597,12 +1889,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -3610,7 +1902,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -3638,13 +1930,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -3918,57 +2210,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -3977,83 +2270,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -4063,49 +2355,49 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) - (#{wrap 442}# - (cons #{args 1885}# - (cons #{e1 1886}# - #{e2 1887}#)) - #{w 1792}# - #{mod 1795}#)) - #{s 1793}#) + (#{wrap 443}# + (cons #{args 1894}# + (cons #{e1 1895}# + #{e2 1896}#)) + #{w 1801}# + #{mod 1804}#)) + #{s 1802}#) '(()) - #{s 1793}# - #{mod 1795}#)) - #{tmp 1869}#) - (let ((#{tmp 1890}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1878}#) + (let ((#{tmp 1899}# ($sc-dispatch - #{tmp 1859}# + #{tmp 1868}# '(_ any)))) - (if (if #{tmp 1890}# + (if (if #{tmp 1899}# (@apply - (lambda (#{name 1892}#) - (#{id? 376}# - #{name 1892}#)) - #{tmp 1890}#) + (lambda (#{name 1901}#) + (#{id? 377}# + #{name 1901}#)) + #{tmp 1899}#) #f) (@apply - (lambda (#{name 1894}#) + (lambda (#{name 1903}#) (values 'define-form - (#{wrap 442}# - #{name 1894}# - #{w 1792}# - #{mod 1795}#) + (#{wrap 443}# + #{name 1903}# + #{w 1801}# + #{mod 1804}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -4127,12 +2419,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -4140,7 +2432,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -4168,13 +2460,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -4448,57 +2740,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -4507,83 +2800,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -4593,10 +2885,10 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) #(syntax-object @@ -4605,7 +2897,7 @@ #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -4627,12 +2919,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -4640,7 +2932,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -4668,13 +2960,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -4948,57 +3240,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -5007,83 +3300,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -5093,10 +3385,10 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)) #(syntax-object @@ -5105,7 +3397,7 @@ #(ribcage #(name) #((top)) - #("i1893")) + #("i1902")) #(ribcage () () @@ -5127,12 +3419,12 @@ (top) (top) (top)) - #("i1833" - "i1834" - "i1835" - "i1836" - "i1837" - "i1838")) + #("i1842" + "i1843" + "i1844" + "i1845" + "i1846" + "i1847")) #(ribcage () () @@ -5140,7 +3432,7 @@ #(ribcage #(first) #((top)) - #("i1825")) + #("i1834")) #(ribcage () () @@ -5168,13 +3460,13 @@ (top) (top) (top)) - #("i1797" - "i1798" - "i1799" - "i1800" - "i1801" - "i1802" - "i1803")) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811" + "i1812")) #(ribcage (lambda-var-list gen-var @@ -5448,57 +3740,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -5507,83 +3800,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -5593,841 +3885,841 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile))) '(()) - #{s 1793}# - #{mod 1795}#)) - #{tmp 1890}#) + #{s 1802}# + #{mod 1804}#)) + #{tmp 1899}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1859}#)))))))) - (if (eqv? #{ftype 1827}# + #{tmp 1868}#)))))))) + (if (eqv? #{ftype 1836}# 'define-syntax) - (let ((#{tmp 1897}# #{e 1790}#)) - (let ((#{tmp 1898}# + (let ((#{tmp 1906}# #{e 1799}#)) + (let ((#{tmp 1907}# ($sc-dispatch - #{tmp 1897}# + #{tmp 1906}# '(_ any any)))) - (if (if #{tmp 1898}# + (if (if #{tmp 1907}# (@apply - (lambda (#{name 1901}# - #{val 1902}#) - (#{id? 376}# - #{name 1901}#)) - #{tmp 1898}#) + (lambda (#{name 1910}# + #{val 1911}#) + (#{id? 377}# + #{name 1910}#)) + #{tmp 1907}#) #f) (@apply - (lambda (#{name 1905}# - #{val 1906}#) + (lambda (#{name 1914}# + #{val 1915}#) (values 'define-syntax-form - #{name 1905}# - #{val 1906}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#)) - #{tmp 1898}#) + #{name 1914}# + #{val 1915}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#)) + #{tmp 1907}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1897}#)))) + #{tmp 1906}#)))) (values 'call #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#))))))))))))))) - (if (#{syntax-object? 342}# #{e 1790}#) - (#{syntax-type 454}# - (#{syntax-object-expression 344}# #{e 1790}#) - #{r 1791}# - (#{join-wraps 424}# - #{w 1792}# - (#{syntax-object-wrap 346}# #{e 1790}#)) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#))))))))))))))) + (if (#{syntax-object? 343}# #{e 1799}#) + (#{syntax-type 455}# + (#{syntax-object-expression 345}# #{e 1799}#) + #{r 1800}# + (#{join-wraps 425}# + #{w 1801}# + (#{syntax-object-wrap 347}# #{e 1799}#)) (begin - (let ((#{t 1912}# - (#{source-annotation 357}# #{e 1790}#))) - (if #{t 1912}# #{t 1912}# #{s 1793}#))) - #{rib 1794}# + (let ((#{t 1921}# + (#{source-annotation 358}# #{e 1799}#))) + (if #{t 1921}# #{t 1921}# #{s 1802}#))) + #{rib 1803}# (begin - (let ((#{t 1916}# - (#{syntax-object-module 348}# #{e 1790}#))) - (if #{t 1916}# #{t 1916}# #{mod 1795}#))) - #{for-car? 1796}#) - (if (self-evaluating? #{e 1790}#) + (let ((#{t 1925}# + (#{syntax-object-module 349}# #{e 1799}#))) + (if #{t 1925}# #{t 1925}# #{mod 1804}#))) + #{for-car? 1805}#) + (if (self-evaluating? #{e 1799}#) (values 'constant #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#) (values 'other #f - #{e 1790}# - #{w 1792}# - #{s 1793}# - #{mod 1795}#))))))) - (#{chi 456}# - (lambda (#{e 1921}# #{r 1922}# #{w 1923}# #{mod 1924}#) + #{e 1799}# + #{w 1801}# + #{s 1802}# + #{mod 1804}#))))))) + (#{chi 457}# + (lambda (#{e 1930}# #{r 1931}# #{w 1932}# #{mod 1933}#) (call-with-values (lambda () - (#{syntax-type 454}# - #{e 1921}# - #{r 1922}# - #{w 1923}# - (#{source-annotation 357}# #{e 1921}#) - #f - #{mod 1924}# - #f)) - (lambda (#{type 1929}# - #{value 1930}# - #{e 1931}# - #{w 1932}# - #{s 1933}# - #{mod 1934}#) - (#{chi-expr 458}# - #{type 1929}# - #{value 1930}# - #{e 1931}# - #{r 1922}# + (#{syntax-type 455}# + #{e 1930}# + #{r 1931}# #{w 1932}# - #{s 1933}# - #{mod 1934}#))))) - (#{chi-expr 458}# - (lambda (#{type 1941}# - #{value 1942}# - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'lexical) - (#{build-lexical-reference 308}# + (#{source-annotation 358}# #{e 1930}#) + #f + #{mod 1933}# + #f)) + (lambda (#{type 1938}# + #{value 1939}# + #{e 1940}# + #{w 1941}# + #{s 1942}# + #{mod 1943}#) + (#{chi-expr 459}# + #{type 1938}# + #{value 1939}# + #{e 1940}# + #{r 1931}# + #{w 1941}# + #{s 1942}# + #{mod 1943}#))))) + (#{chi-expr 459}# + (lambda (#{type 1950}# + #{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'lexical) + (#{build-lexical-reference 309}# 'value - #{s 1946}# - #{e 1943}# - #{value 1942}#) - (if (if (eqv? #{type 1941}# 'core) + #{s 1955}# + #{e 1952}# + #{value 1951}#) + (if (if (eqv? #{type 1950}# 'core) #t - (eqv? #{type 1941}# 'core-form)) - (#{value 1942}# - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'module-ref) + (eqv? #{type 1950}# 'core-form)) + (#{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'module-ref) (call-with-values (lambda () - (#{value 1942}# #{e 1943}# #{r 1944}# #{w 1945}#)) - (lambda (#{e 1958}# - #{r 1959}# - #{w 1960}# - #{s 1961}# - #{mod 1962}#) - (#{chi 456}# - #{e 1958}# - #{r 1959}# - #{w 1960}# - #{mod 1962}#))) - (if (eqv? #{type 1941}# 'lexical-call) - (#{chi-application 460}# + (#{value 1951}# #{e 1952}# #{r 1953}# #{w 1954}#)) + (lambda (#{e 1967}# + #{r 1968}# + #{w 1969}# + #{s 1970}# + #{mod 1971}#) + (#{chi 457}# + #{e 1967}# + #{r 1968}# + #{w 1969}# + #{mod 1971}#))) + (if (eqv? #{type 1950}# 'lexical-call) + (#{chi-application 461}# (begin - (let ((#{id 1970}# (car #{e 1943}#))) - (#{build-lexical-reference 308}# + (let ((#{id 1979}# (car #{e 1952}#))) + (#{build-lexical-reference 309}# 'fun - (#{source-annotation 357}# #{id 1970}#) - (if (#{syntax-object? 342}# #{id 1970}#) - (syntax->datum #{id 1970}#) - #{id 1970}#) - #{value 1942}#))) - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'global-call) - (#{chi-application 460}# - (#{build-global-reference 314}# - (#{source-annotation 357}# (car #{e 1943}#)) - (if (#{syntax-object? 342}# #{value 1942}#) - (#{syntax-object-expression 344}# #{value 1942}#) - #{value 1942}#) - (if (#{syntax-object? 342}# #{value 1942}#) - (#{syntax-object-module 348}# #{value 1942}#) - #{mod 1947}#)) - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'constant) - (#{build-data 328}# - #{s 1946}# - (#{strip 482}# - (#{source-wrap 444}# - #{e 1943}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) + (#{source-annotation 358}# #{id 1979}#) + (if (#{syntax-object? 343}# #{id 1979}#) + (syntax->datum #{id 1979}#) + #{id 1979}#) + #{value 1951}#))) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'global-call) + (#{chi-application 461}# + (#{build-global-reference 315}# + (#{source-annotation 358}# (car #{e 1952}#)) + (if (#{syntax-object? 343}# #{value 1951}#) + (#{syntax-object-expression 345}# #{value 1951}#) + #{value 1951}#) + (if (#{syntax-object? 343}# #{value 1951}#) + (#{syntax-object-module 349}# #{value 1951}#) + #{mod 1956}#)) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'constant) + (#{build-data 329}# + #{s 1955}# + (#{strip 483}# + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) '(()))) - (if (eqv? #{type 1941}# 'global) - (#{build-global-reference 314}# - #{s 1946}# - #{value 1942}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'call) - (#{chi-application 460}# - (#{chi 456}# - (car #{e 1943}#) - #{r 1944}# - #{w 1945}# - #{mod 1947}#) - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (if (eqv? #{type 1941}# 'begin-form) - (let ((#{tmp 1977}# #{e 1943}#)) - (let ((#{tmp 1978}# + (if (eqv? #{type 1950}# 'global) + (#{build-global-reference 315}# + #{s 1955}# + #{value 1951}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'call) + (#{chi-application 461}# + (#{chi 457}# + (car #{e 1952}#) + #{r 1953}# + #{w 1954}# + #{mod 1956}#) + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (if (eqv? #{type 1950}# 'begin-form) + (let ((#{tmp 1986}# #{e 1952}#)) + (let ((#{tmp 1987}# ($sc-dispatch - #{tmp 1977}# + #{tmp 1986}# '(_ any . each-any)))) - (if #{tmp 1978}# + (if #{tmp 1987}# (@apply - (lambda (#{e1 1981}# #{e2 1982}#) - (#{chi-sequence 446}# - (cons #{e1 1981}# #{e2 1982}#) - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#)) - #{tmp 1978}#) + (lambda (#{e1 1990}# #{e2 1991}#) + (#{chi-sequence 447}# + (cons #{e1 1990}# #{e2 1991}#) + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) + #{tmp 1987}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1977}#)))) - (if (eqv? #{type 1941}# 'local-syntax-form) - (#{chi-local-syntax 466}# - #{value 1942}# - #{e 1943}# - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}# - #{chi-sequence 446}#) - (if (eqv? #{type 1941}# 'eval-when-form) - (let ((#{tmp 1986}# #{e 1943}#)) - (let ((#{tmp 1987}# + #{tmp 1986}#)))) + (if (eqv? #{type 1950}# 'local-syntax-form) + (#{chi-local-syntax 467}# + #{value 1951}# + #{e 1952}# + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}# + #{chi-sequence 447}#) + (if (eqv? #{type 1950}# 'eval-when-form) + (let ((#{tmp 1995}# #{e 1952}#)) + (let ((#{tmp 1996}# ($sc-dispatch - #{tmp 1986}# + #{tmp 1995}# '(_ each-any any . each-any)))) - (if #{tmp 1987}# + (if #{tmp 1996}# (@apply - (lambda (#{x 1991}# - #{e1 1992}# - #{e2 1993}#) + (lambda (#{x 2000}# + #{e1 2001}# + #{e2 2002}#) (begin - (let ((#{when-list 1995}# - (#{chi-when-list 452}# - #{e 1943}# - #{x 1991}# - #{w 1945}#))) + (let ((#{when-list 2004}# + (#{chi-when-list 453}# + #{e 1952}# + #{x 2000}# + #{w 1954}#))) (if (memq 'eval - #{when-list 1995}#) - (#{chi-sequence 446}# - (cons #{e1 1992}# - #{e2 1993}#) - #{r 1944}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#) - (#{chi-void 470}#))))) - #{tmp 1987}#) + #{when-list 2004}#) + (#{chi-sequence 447}# + (cons #{e1 2001}# + #{e2 2002}#) + #{r 1953}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#) + (#{chi-void 471}#))))) + #{tmp 1996}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1986}#)))) - (if (if (eqv? #{type 1941}# 'define-form) + #{tmp 1995}#)))) + (if (if (eqv? #{type 1950}# 'define-form) #t - (eqv? #{type 1941}# + (eqv? #{type 1950}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 1943}# - (#{wrap 442}# - #{value 1942}# - #{w 1945}# - #{mod 1947}#)) - (if (eqv? #{type 1941}# 'syntax) + #{e 1952}# + (#{wrap 443}# + #{value 1951}# + #{w 1954}# + #{mod 1956}#)) + (if (eqv? #{type 1950}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap 444}# - #{e 1943}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#)) - (if (eqv? #{type 1941}# + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) + (if (eqv? #{type 1950}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap 444}# - #{e 1943}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#)) + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap 444}# - #{e 1943}# - #{w 1945}# - #{s 1946}# - #{mod 1947}#)))))))))))))))))) - (#{chi-application 460}# - (lambda (#{x 2002}# - #{e 2003}# - #{r 2004}# - #{w 2005}# - #{s 2006}# - #{mod 2007}#) - (let ((#{tmp 2014}# #{e 2003}#)) - (let ((#{tmp 2015}# - ($sc-dispatch #{tmp 2014}# '(any . each-any)))) - (if #{tmp 2015}# + (#{source-wrap 445}# + #{e 1952}# + #{w 1954}# + #{s 1955}# + #{mod 1956}#)))))))))))))))))) + (#{chi-application 461}# + (lambda (#{x 2011}# + #{e 2012}# + #{r 2013}# + #{w 2014}# + #{s 2015}# + #{mod 2016}#) + (let ((#{tmp 2023}# #{e 2012}#)) + (let ((#{tmp 2024}# + ($sc-dispatch #{tmp 2023}# '(any . each-any)))) + (if #{tmp 2024}# (@apply - (lambda (#{e0 2018}# #{e1 2019}#) - (#{build-application 302}# - #{s 2006}# - #{x 2002}# - (map (lambda (#{e 2020}#) - (#{chi 456}# - #{e 2020}# - #{r 2004}# - #{w 2005}# - #{mod 2007}#)) - #{e1 2019}#))) - #{tmp 2015}#) + (lambda (#{e0 2027}# #{e1 2028}#) + (#{build-application 303}# + #{s 2015}# + #{x 2011}# + (map (lambda (#{e 2029}#) + (#{chi 457}# + #{e 2029}# + #{r 2013}# + #{w 2014}# + #{mod 2016}#)) + #{e1 2028}#))) + #{tmp 2024}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2014}#)))))) - (#{chi-macro 462}# - (lambda (#{p 2023}# - #{e 2024}# - #{r 2025}# - #{w 2026}# - #{s 2027}# - #{rib 2028}# - #{mod 2029}#) + #{tmp 2023}#)))))) + (#{chi-macro 463}# + (lambda (#{p 2032}# + #{e 2033}# + #{r 2034}# + #{w 2035}# + #{s 2036}# + #{rib 2037}# + #{mod 2038}#) (letrec* - ((#{rebuild-macro-output 2038}# - (lambda (#{x 2039}# #{m 2040}#) - (if (pair? #{x 2039}#) - (#{decorate-source 296}# - (cons (#{rebuild-macro-output 2038}# - (car #{x 2039}#) - #{m 2040}#) - (#{rebuild-macro-output 2038}# - (cdr #{x 2039}#) - #{m 2040}#)) - #{s 2027}#) - (if (#{syntax-object? 342}# #{x 2039}#) + ((#{rebuild-macro-output 2047}# + (lambda (#{x 2048}# #{m 2049}#) + (if (pair? #{x 2048}#) + (#{decorate-source 297}# + (cons (#{rebuild-macro-output 2047}# + (car #{x 2048}#) + #{m 2049}#) + (#{rebuild-macro-output 2047}# + (cdr #{x 2048}#) + #{m 2049}#)) + #{s 2036}#) + (if (#{syntax-object? 343}# #{x 2048}#) (begin - (let ((#{w 2048}# - (#{syntax-object-wrap 346}# #{x 2039}#))) + (let ((#{w 2057}# + (#{syntax-object-wrap 347}# #{x 2048}#))) (begin - (let ((#{ms 2051}# (car #{w 2048}#)) - (#{s 2052}# (cdr #{w 2048}#))) - (if (if (pair? #{ms 2051}#) - (eq? (car #{ms 2051}#) #f) + (let ((#{ms 2060}# (car #{w 2057}#)) + (#{s 2061}# (cdr #{w 2057}#))) + (if (if (pair? #{ms 2060}#) + (eq? (car #{ms 2060}#) #f) #f) - (#{make-syntax-object 340}# - (#{syntax-object-expression 344}# #{x 2039}#) - (cons (cdr #{ms 2051}#) - (if #{rib 2028}# - (cons #{rib 2028}# (cdr #{s 2052}#)) - (cdr #{s 2052}#))) - (#{syntax-object-module 348}# #{x 2039}#)) - (#{make-syntax-object 340}# - (#{decorate-source 296}# - (#{syntax-object-expression 344}# - #{x 2039}#) - #{s 2052}#) - (cons (cons #{m 2040}# #{ms 2051}#) - (if #{rib 2028}# - (cons #{rib 2028}# - (cons 'shift #{s 2052}#)) - (cons 'shift #{s 2052}#))) - (#{syntax-object-module 348}# - #{x 2039}#))))))) - (if (vector? #{x 2039}#) + (#{make-syntax-object 341}# + (#{syntax-object-expression 345}# #{x 2048}#) + (cons (cdr #{ms 2060}#) + (if #{rib 2037}# + (cons #{rib 2037}# (cdr #{s 2061}#)) + (cdr #{s 2061}#))) + (#{syntax-object-module 349}# #{x 2048}#)) + (#{make-syntax-object 341}# + (#{decorate-source 297}# + (#{syntax-object-expression 345}# + #{x 2048}#) + #{s 2061}#) + (cons (cons #{m 2049}# #{ms 2060}#) + (if #{rib 2037}# + (cons #{rib 2037}# + (cons 'shift #{s 2061}#)) + (cons 'shift #{s 2061}#))) + (#{syntax-object-module 349}# + #{x 2048}#))))))) + (if (vector? #{x 2048}#) (begin - (let ((#{n 2064}# (vector-length #{x 2039}#))) + (let ((#{n 2073}# (vector-length #{x 2048}#))) (begin - (let ((#{v 2066}# - (#{decorate-source 296}# - (make-vector #{n 2064}#) - #{x 2039}#))) + (let ((#{v 2075}# + (#{decorate-source 297}# + (make-vector #{n 2073}#) + #{x 2048}#))) (letrec* - ((#{loop 2069}# - (lambda (#{i 2070}#) - (if (= #{i 2070}# #{n 2064}#) - (begin (if #f #f) #{v 2066}#) + ((#{loop 2078}# + (lambda (#{i 2079}#) + (if (= #{i 2079}# #{n 2073}#) + (begin (if #f #f) #{v 2075}#) (begin (vector-set! - #{v 2066}# - #{i 2070}# - (#{rebuild-macro-output 2038}# + #{v 2075}# + #{i 2079}# + (#{rebuild-macro-output 2047}# (vector-ref - #{x 2039}# - #{i 2070}#) - #{m 2040}#)) - (#{loop 2069}# - (#{1+}# #{i 2070}#))))))) - (begin (#{loop 2069}# 0))))))) - (if (symbol? #{x 2039}#) + #{x 2048}# + #{i 2079}#) + #{m 2049}#)) + (#{loop 2078}# + (#{1+}# #{i 2079}#))))))) + (begin (#{loop 2078}# 0))))))) + (if (symbol? #{x 2048}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap 444}# - #{e 2024}# - #{w 2026}# - (cdr #{w 2026}#) - #{mod 2029}#) - #{x 2039}#) - (#{decorate-source 296}# - #{x 2039}# - #{s 2027}#)))))))) + (#{source-wrap 445}# + #{e 2033}# + #{w 2035}# + (cdr #{w 2035}#) + #{mod 2038}#) + #{x 2048}#) + (#{decorate-source 297}# + #{x 2048}# + #{s 2036}#)))))))) (begin - (#{rebuild-macro-output 2038}# - (#{p 2023}# - (#{source-wrap 444}# - #{e 2024}# - (#{anti-mark 414}# #{w 2026}#) - #{s 2027}# - #{mod 2029}#)) + (#{rebuild-macro-output 2047}# + (#{p 2032}# + (#{source-wrap 445}# + #{e 2033}# + (#{anti-mark 415}# #{w 2035}#) + #{s 2036}# + #{mod 2038}#)) (gensym "m")))))) - (#{chi-body 464}# - (lambda (#{body 2080}# - #{outer-form 2081}# - #{r 2082}# - #{w 2083}# - #{mod 2084}#) + (#{chi-body 465}# + (lambda (#{body 2089}# + #{outer-form 2090}# + #{r 2091}# + #{w 2092}# + #{mod 2093}#) (begin - (let ((#{r 2092}# - (cons '("placeholder" placeholder) #{r 2082}#))) + (let ((#{r 2101}# + (cons '("placeholder" placeholder) #{r 2091}#))) (begin - (let ((#{ribcage 2094}# - (#{make-ribcage 394}# '() '() '()))) + (let ((#{ribcage 2103}# + (#{make-ribcage 395}# '() '() '()))) (begin - (let ((#{w 2097}# - (cons (car #{w 2083}#) - (cons #{ribcage 2094}# (cdr #{w 2083}#))))) + (let ((#{w 2106}# + (cons (car #{w 2092}#) + (cons #{ribcage 2103}# (cdr #{w 2092}#))))) (letrec* - ((#{parse 2109}# - (lambda (#{body 2110}# - #{ids 2111}# - #{labels 2112}# - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# - #{bindings 2116}#) - (if (null? #{body 2110}#) + ((#{parse 2118}# + (lambda (#{body 2119}# + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#) + (if (null? #{body 2119}#) (syntax-violation #f "no expressions in body" - #{outer-form 2081}#) + #{outer-form 2090}#) (begin - (let ((#{e 2121}# (cdr (car #{body 2110}#))) - (#{er 2122}# - (car (car #{body 2110}#)))) + (let ((#{e 2130}# (cdr (car #{body 2119}#))) + (#{er 2131}# + (car (car #{body 2119}#)))) (call-with-values (lambda () - (#{syntax-type 454}# - #{e 2121}# - #{er 2122}# + (#{syntax-type 455}# + #{e 2130}# + #{er 2131}# '(()) - (#{source-annotation 357}# - #{er 2122}#) - #{ribcage 2094}# - #{mod 2084}# + (#{source-annotation 358}# + #{er 2131}#) + #{ribcage 2103}# + #{mod 2093}# #f)) - (lambda (#{type 2124}# - #{value 2125}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#) - (if (eqv? #{type 2124}# 'define-form) + (lambda (#{type 2133}# + #{value 2134}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#) + (if (eqv? #{type 2133}# 'define-form) (begin - (let ((#{id 2139}# - (#{wrap 442}# - #{value 2125}# - #{w 2127}# - #{mod 2129}#)) - (#{label 2140}# - (#{gen-label 389}#))) + (let ((#{id 2148}# + (#{wrap 443}# + #{value 2134}# + #{w 2136}# + #{mod 2138}#)) + (#{label 2149}# + (#{gen-label 390}#))) (begin - (let ((#{var 2142}# - (#{gen-var 484}# - #{id 2139}#))) + (let ((#{var 2151}# + (#{gen-var 485}# + #{id 2148}#))) (begin - (#{extend-ribcage! 418}# - #{ribcage 2094}# - #{id 2139}# - #{label 2140}#) - (#{parse 2109}# - (cdr #{body 2110}#) - (cons #{id 2139}# - #{ids 2111}#) - (cons #{label 2140}# - #{labels 2112}#) - (cons #{id 2139}# - #{var-ids 2113}#) - (cons #{var 2142}# - #{vars 2114}#) - (cons (cons #{er 2122}# - (#{wrap 442}# - #{e 2126}# - #{w 2127}# - #{mod 2129}#)) - #{vals 2115}#) + (#{extend-ribcage! 419}# + #{ribcage 2103}# + #{id 2148}# + #{label 2149}#) + (#{parse 2118}# + (cdr #{body 2119}#) + (cons #{id 2148}# + #{ids 2120}#) + (cons #{label 2149}# + #{labels 2121}#) + (cons #{id 2148}# + #{var-ids 2122}#) + (cons #{var 2151}# + #{vars 2123}#) + (cons (cons #{er 2131}# + (#{wrap 443}# + #{e 2135}# + #{w 2136}# + #{mod 2138}#)) + #{vals 2124}#) (cons (cons 'lexical - #{var 2142}#) - #{bindings 2116}#))))))) - (if (eqv? #{type 2124}# + #{var 2151}#) + #{bindings 2125}#))))))) + (if (eqv? #{type 2133}# 'define-syntax-form) (begin - (let ((#{id 2147}# - (#{wrap 442}# - #{value 2125}# - #{w 2127}# - #{mod 2129}#)) - (#{label 2148}# - (#{gen-label 389}#))) + (let ((#{id 2156}# + (#{wrap 443}# + #{value 2134}# + #{w 2136}# + #{mod 2138}#)) + (#{label 2157}# + (#{gen-label 390}#))) (begin - (#{extend-ribcage! 418}# - #{ribcage 2094}# - #{id 2147}# - #{label 2148}#) - (#{parse 2109}# - (cdr #{body 2110}#) - (cons #{id 2147}# - #{ids 2111}#) - (cons #{label 2148}# - #{labels 2112}#) - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# + (#{extend-ribcage! 419}# + #{ribcage 2103}# + #{id 2156}# + #{label 2157}#) + (#{parse 2118}# + (cdr #{body 2119}#) + (cons #{id 2156}# + #{ids 2120}#) + (cons #{label 2157}# + #{labels 2121}#) + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# (cons (cons 'macro - (cons #{er 2122}# - (#{wrap 442}# - #{e 2126}# - #{w 2127}# - #{mod 2129}#))) - #{bindings 2116}#))))) - (if (eqv? #{type 2124}# + (cons #{er 2131}# + (#{wrap 443}# + #{e 2135}# + #{w 2136}# + #{mod 2138}#))) + #{bindings 2125}#))))) + (if (eqv? #{type 2133}# 'begin-form) - (let ((#{tmp 2151}# #{e 2126}#)) - (let ((#{tmp 2152}# + (let ((#{tmp 2160}# #{e 2135}#)) + (let ((#{tmp 2161}# ($sc-dispatch - #{tmp 2151}# + #{tmp 2160}# '(_ . each-any)))) - (if #{tmp 2152}# + (if #{tmp 2161}# (@apply - (lambda (#{e1 2154}#) - (#{parse 2109}# + (lambda (#{e1 2163}#) + (#{parse 2118}# (letrec* - ((#{f 2157}# - (lambda (#{forms 2158}#) - (if (null? #{forms 2158}#) - (cdr #{body 2110}#) - (cons (cons #{er 2122}# - (#{wrap 442}# - (car #{forms 2158}#) - #{w 2127}# - #{mod 2129}#)) - (#{f 2157}# - (cdr #{forms 2158}#))))))) + ((#{f 2166}# + (lambda (#{forms 2167}#) + (if (null? #{forms 2167}#) + (cdr #{body 2119}#) + (cons (cons #{er 2131}# + (#{wrap 443}# + (car #{forms 2167}#) + #{w 2136}# + #{mod 2138}#)) + (#{f 2166}# + (cdr #{forms 2167}#))))))) (begin - (#{f 2157}# - #{e1 2154}#))) - #{ids 2111}# - #{labels 2112}# - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# - #{bindings 2116}#)) - #{tmp 2152}#) + (#{f 2166}# + #{e1 2163}#))) + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#)) + #{tmp 2161}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2151}#)))) - (if (eqv? #{type 2124}# + #{tmp 2160}#)))) + (if (eqv? #{type 2133}# 'local-syntax-form) - (#{chi-local-syntax 466}# - #{value 2125}# - #{e 2126}# - #{er 2122}# - #{w 2127}# - #{s 2128}# - #{mod 2129}# - (lambda (#{forms 2161}# - #{er 2162}# - #{w 2163}# - #{s 2164}# - #{mod 2165}#) - (#{parse 2109}# + (#{chi-local-syntax 467}# + #{value 2134}# + #{e 2135}# + #{er 2131}# + #{w 2136}# + #{s 2137}# + #{mod 2138}# + (lambda (#{forms 2170}# + #{er 2171}# + #{w 2172}# + #{s 2173}# + #{mod 2174}#) + (#{parse 2118}# (letrec* - ((#{f 2173}# - (lambda (#{forms 2174}#) - (if (null? #{forms 2174}#) - (cdr #{body 2110}#) - (cons (cons #{er 2162}# - (#{wrap 442}# - (car #{forms 2174}#) - #{w 2163}# - #{mod 2165}#)) - (#{f 2173}# - (cdr #{forms 2174}#))))))) + ((#{f 2182}# + (lambda (#{forms 2183}#) + (if (null? #{forms 2183}#) + (cdr #{body 2119}#) + (cons (cons #{er 2171}# + (#{wrap 443}# + (car #{forms 2183}#) + #{w 2172}# + #{mod 2174}#)) + (#{f 2182}# + (cdr #{forms 2183}#))))))) (begin - (#{f 2173}# - #{forms 2161}#))) - #{ids 2111}# - #{labels 2112}# - #{var-ids 2113}# - #{vars 2114}# - #{vals 2115}# - #{bindings 2116}#))) - (if (null? #{ids 2111}#) - (#{build-sequence 330}# + (#{f 2182}# + #{forms 2170}#))) + #{ids 2120}# + #{labels 2121}# + #{var-ids 2122}# + #{vars 2123}# + #{vals 2124}# + #{bindings 2125}#))) + (if (null? #{ids 2120}#) + (#{build-sequence 331}# #f - (map (lambda (#{x 2177}#) - (#{chi 456}# - (cdr #{x 2177}#) - (car #{x 2177}#) + (map (lambda (#{x 2186}#) + (#{chi 457}# + (cdr #{x 2186}#) + (car #{x 2186}#) '(()) - #{mod 2129}#)) - (cons (cons #{er 2122}# - (#{source-wrap 444}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#)) - (cdr #{body 2110}#)))) + #{mod 2138}#)) + (cons (cons #{er 2131}# + (#{source-wrap 445}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#)) + (cdr #{body 2119}#)))) (begin - (if (not (#{valid-bound-ids? 436}# - #{ids 2111}#)) + (if (not (#{valid-bound-ids? 437}# + #{ids 2120}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 2081}#)) + #{outer-form 2090}#)) (letrec* - ((#{loop 2184}# - (lambda (#{bs 2185}# - #{er-cache 2186}# - #{r-cache 2187}#) - (if (not (null? #{bs 2185}#)) + ((#{loop 2193}# + (lambda (#{bs 2194}# + #{er-cache 2195}# + #{r-cache 2196}#) + (if (not (null? #{bs 2194}#)) (begin - (let ((#{b 2190}# - (car #{bs 2185}#))) - (if (eq? (car #{b 2190}#) + (let ((#{b 2199}# + (car #{bs 2194}#))) + (if (eq? (car #{b 2199}#) 'macro) (begin - (let ((#{er 2193}# - (car (cdr #{b 2190}#)))) + (let ((#{er 2202}# + (car (cdr #{b 2199}#)))) (begin - (let ((#{r-cache 2195}# - (if (eq? #{er 2193}# - #{er-cache 2186}#) - #{r-cache 2187}# - (#{macros-only-env 368}# - #{er 2193}#)))) + (let ((#{r-cache 2204}# + (if (eq? #{er 2202}# + #{er-cache 2195}#) + #{r-cache 2196}# + (#{macros-only-env 369}# + #{er 2202}#)))) (begin (set-cdr! - #{b 2190}# - (#{eval-local-transformer 468}# - (#{chi 456}# - (cdr (cdr #{b 2190}#)) - #{r-cache 2195}# + #{b 2199}# + (#{eval-local-transformer 469}# + (#{chi 457}# + (cdr (cdr #{b 2199}#)) + #{r-cache 2204}# '(()) - #{mod 2129}#) - #{mod 2129}#)) - (#{loop 2184}# - (cdr #{bs 2185}#) - #{er 2193}# - #{r-cache 2195}#)))))) - (#{loop 2184}# - (cdr #{bs 2185}#) - #{er-cache 2186}# - #{r-cache 2187}#)))))))) + #{mod 2138}#) + #{mod 2138}#)) + (#{loop 2193}# + (cdr #{bs 2194}#) + #{er 2202}# + #{r-cache 2204}#)))))) + (#{loop 2193}# + (cdr #{bs 2194}#) + #{er-cache 2195}# + #{r-cache 2196}#)))))))) (begin - (#{loop 2184}# - #{bindings 2116}# + (#{loop 2193}# + #{bindings 2125}# #f #f))) (set-cdr! - #{r 2092}# - (#{extend-env 364}# - #{labels 2112}# - #{bindings 2116}# - (cdr #{r 2092}#))) - (#{build-letrec 336}# + #{r 2101}# + (#{extend-env 365}# + #{labels 2121}# + #{bindings 2125}# + (cdr #{r 2101}#))) + (#{build-letrec 337}# #f #t (reverse (map syntax->datum - #{var-ids 2113}#)) - (reverse #{vars 2114}#) - (map (lambda (#{x 2198}#) - (#{chi 456}# - (cdr #{x 2198}#) - (car #{x 2198}#) + #{var-ids 2122}#)) + (reverse #{vars 2123}#) + (map (lambda (#{x 2207}#) + (#{chi 457}# + (cdr #{x 2207}#) + (car #{x 2207}#) '(()) - #{mod 2129}#)) + #{mod 2138}#)) (reverse - #{vals 2115}#)) - (#{build-sequence 330}# + #{vals 2124}#)) + (#{build-sequence 331}# #f - (map (lambda (#{x 2202}#) - (#{chi 456}# - (cdr #{x 2202}#) - (car #{x 2202}#) + (map (lambda (#{x 2211}#) + (#{chi 457}# + (cdr #{x 2211}#) + (car #{x 2211}#) '(()) - #{mod 2129}#)) - (cons (cons #{er 2122}# - (#{source-wrap 444}# - #{e 2126}# - #{w 2127}# - #{s 2128}# - #{mod 2129}#)) - (cdr #{body 2110}#))))))))))))))))))) + #{mod 2138}#)) + (cons (cons #{er 2131}# + (#{source-wrap 445}# + #{e 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#)) + (cdr #{body 2119}#))))))))))))))))))) (begin - (#{parse 2109}# - (map (lambda (#{x 2117}#) - (cons #{r 2092}# - (#{wrap 442}# - #{x 2117}# - #{w 2097}# - #{mod 2084}#))) - #{body 2080}#) + (#{parse 2118}# + (map (lambda (#{x 2126}#) + (cons #{r 2101}# + (#{wrap 443}# + #{x 2126}# + #{w 2106}# + #{mod 2093}#))) + #{body 2089}#) '() '() '() '() '() '()))))))))))) - (#{chi-local-syntax 466}# - (lambda (#{rec? 2205}# - #{e 2206}# - #{r 2207}# - #{w 2208}# - #{s 2209}# - #{mod 2210}# - #{k 2211}#) - (let ((#{tmp 2219}# #{e 2206}#)) - (let ((#{tmp 2220}# + (#{chi-local-syntax 467}# + (lambda (#{rec? 2214}# + #{e 2215}# + #{r 2216}# + #{w 2217}# + #{s 2218}# + #{mod 2219}# + #{k 2220}#) + (let ((#{tmp 2228}# #{e 2215}#)) + (let ((#{tmp 2229}# ($sc-dispatch - #{tmp 2219}# + #{tmp 2228}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2220}# + (if #{tmp 2229}# (@apply - (lambda (#{id 2225}# - #{val 2226}# - #{e1 2227}# - #{e2 2228}#) + (lambda (#{id 2234}# + #{val 2235}# + #{e1 2236}# + #{e2 2237}#) (begin - (let ((#{ids 2230}# #{id 2225}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 2230}#)) + (let ((#{ids 2239}# #{id 2234}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 2239}#)) (syntax-violation #f "duplicate bound keyword" - #{e 2206}#) + #{e 2215}#) (begin - (let ((#{labels 2233}# - (#{gen-labels 391}# #{ids 2230}#))) + (let ((#{labels 2242}# + (#{gen-labels 392}# #{ids 2239}#))) (begin - (let ((#{new-w 2235}# - (#{make-binding-wrap 420}# - #{ids 2230}# - #{labels 2233}# - #{w 2208}#))) - (#{k 2211}# - (cons #{e1 2227}# #{e2 2228}#) - (#{extend-env 364}# - #{labels 2233}# + (let ((#{new-w 2244}# + (#{make-binding-wrap 421}# + #{ids 2239}# + #{labels 2242}# + #{w 2217}#))) + (#{k 2220}# + (cons #{e1 2236}# #{e2 2237}#) + (#{extend-env 365}# + #{labels 2242}# (begin - (let ((#{w 2239}# - (if #{rec? 2205}# - #{new-w 2235}# - #{w 2208}#)) - (#{trans-r 2240}# - (#{macros-only-env 368}# - #{r 2207}#))) - (map (lambda (#{x 2241}#) + (let ((#{w 2248}# + (if #{rec? 2214}# + #{new-w 2244}# + #{w 2217}#)) + (#{trans-r 2249}# + (#{macros-only-env 369}# + #{r 2216}#))) + (map (lambda (#{x 2250}#) (cons 'macro - (#{eval-local-transformer 468}# - (#{chi 456}# - #{x 2241}# - #{trans-r 2240}# - #{w 2239}# - #{mod 2210}#) - #{mod 2210}#))) - #{val 2226}#))) - #{r 2207}#) - #{new-w 2235}# - #{s 2209}# - #{mod 2210}#))))))))) - #{tmp 2220}#) - (let ((#{_ 2246}# #{tmp 2219}#)) + (#{eval-local-transformer 469}# + (#{chi 457}# + #{x 2250}# + #{trans-r 2249}# + #{w 2248}# + #{mod 2219}#) + #{mod 2219}#))) + #{val 2235}#))) + #{r 2216}#) + #{new-w 2244}# + #{s 2218}# + #{mod 2219}#))))))))) + #{tmp 2229}#) + (let ((#{_ 2255}# #{tmp 2228}#)) (syntax-violation #f "bad local syntax definition" - (#{source-wrap 444}# - #{e 2206}# - #{w 2208}# - #{s 2209}# - #{mod 2210}#)))))))) - (#{eval-local-transformer 468}# - (lambda (#{expanded 2247}# #{mod 2248}#) + (#{source-wrap 445}# + #{e 2215}# + #{w 2217}# + #{s 2218}# + #{mod 2219}#)))))))) + (#{eval-local-transformer 469}# + (lambda (#{expanded 2256}# #{mod 2257}#) (begin - (let ((#{p 2252}# - (#{local-eval-hook 289}# - #{expanded 2247}# - #{mod 2248}#))) - (if (procedure? #{p 2252}#) - #{p 2252}# + (let ((#{p 2261}# + (#{local-eval-hook 290}# + #{expanded 2256}# + #{mod 2257}#))) + (if (procedure? #{p 2261}#) + #{p 2261}# (syntax-violation #f "nonprocedure transformer" - #{p 2252}#)))))) - (#{chi-void 470}# - (lambda () (#{build-void 300}# #f))) - (#{ellipsis? 472}# - (lambda (#{x 2254}#) - (if (#{nonsymbol-id? 374}# #{x 2254}#) - (#{free-id=? 432}# - #{x 2254}# + #{p 2261}#)))))) + (#{chi-void 471}# + (lambda () (#{build-void 301}# #f))) + (#{ellipsis? 473}# + (lambda (#{x 2263}#) + (if (#{nonsymbol-id? 375}# #{x 2263}#) + (#{free-id=? 433}# + #{x 2263}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2255")) + #(ribcage #(x) #((top)) #("i2264")) #(ribcage (lambda-var-list gen-var @@ -6701,57 +4993,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -6760,341 +5053,340 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) #f))) - (#{lambda-formals 474}# - (lambda (#{orig-args 2258}#) + (#{lambda-formals 475}# + (lambda (#{orig-args 2267}#) (letrec* - ((#{req 2261}# - (lambda (#{args 2264}# #{rreq 2265}#) - (let ((#{tmp 2268}# #{args 2264}#)) - (let ((#{tmp 2269}# ($sc-dispatch #{tmp 2268}# '()))) - (if #{tmp 2269}# + ((#{req 2270}# + (lambda (#{args 2273}# #{rreq 2274}#) + (let ((#{tmp 2277}# #{args 2273}#)) + (let ((#{tmp 2278}# ($sc-dispatch #{tmp 2277}# '()))) + (if #{tmp 2278}# (@apply (lambda () - (#{check 2263}# (reverse #{rreq 2265}#) #f)) - #{tmp 2269}#) - (let ((#{tmp 2270}# - ($sc-dispatch #{tmp 2268}# '(any . any)))) - (if (if #{tmp 2270}# + (#{check 2272}# (reverse #{rreq 2274}#) #f)) + #{tmp 2278}#) + (let ((#{tmp 2279}# + ($sc-dispatch #{tmp 2277}# '(any . any)))) + (if (if #{tmp 2279}# (@apply - (lambda (#{a 2273}# #{b 2274}#) - (#{id? 376}# #{a 2273}#)) - #{tmp 2270}#) + (lambda (#{a 2282}# #{b 2283}#) + (#{id? 377}# #{a 2282}#)) + #{tmp 2279}#) #f) (@apply - (lambda (#{a 2277}# #{b 2278}#) - (#{req 2261}# - #{b 2278}# - (cons #{a 2277}# #{rreq 2265}#))) - #{tmp 2270}#) - (let ((#{tmp 2279}# (list #{tmp 2268}#))) - (if (if #{tmp 2279}# + (lambda (#{a 2286}# #{b 2287}#) + (#{req 2270}# + #{b 2287}# + (cons #{a 2286}# #{rreq 2274}#))) + #{tmp 2279}#) + (let ((#{tmp 2288}# (list #{tmp 2277}#))) + (if (if #{tmp 2288}# (@apply - (lambda (#{r 2281}#) - (#{id? 376}# #{r 2281}#)) - #{tmp 2279}#) + (lambda (#{r 2290}#) + (#{id? 377}# #{r 2290}#)) + #{tmp 2288}#) #f) (@apply - (lambda (#{r 2283}#) - (#{check 2263}# - (reverse #{rreq 2265}#) - #{r 2283}#)) - #{tmp 2279}#) - (let ((#{else 2285}# #{tmp 2268}#)) + (lambda (#{r 2292}#) + (#{check 2272}# + (reverse #{rreq 2274}#) + #{r 2292}#)) + #{tmp 2288}#) + (let ((#{else 2294}# #{tmp 2277}#)) (syntax-violation 'lambda "invalid argument list" - #{orig-args 2258}# - #{args 2264}#))))))))))) - (#{check 2263}# - (lambda (#{req 2286}# #{rest 2287}#) - (if (#{distinct-bound-ids? 438}# - (if #{rest 2287}# - (cons #{rest 2287}# #{req 2286}#) - #{req 2286}#)) - (values #{req 2286}# #f #{rest 2287}# #f) + #{orig-args 2267}# + #{args 2273}#))))))))))) + (#{check 2272}# + (lambda (#{req 2295}# #{rest 2296}#) + (if (#{distinct-bound-ids? 439}# + (if #{rest 2296}# + (cons #{rest 2296}# #{req 2295}#) + #{req 2295}#)) + (values #{req 2295}# #f #{rest 2296}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 2258}#))))) - (begin (#{req 2261}# #{orig-args 2258}# '()))))) - (#{chi-simple-lambda 476}# - (lambda (#{e 2293}# - #{r 2294}# - #{w 2295}# - #{s 2296}# - #{mod 2297}# - #{req 2298}# - #{rest 2299}# - #{meta 2300}# - #{body 2301}#) + #{orig-args 2267}#))))) + (begin (#{req 2270}# #{orig-args 2267}# '()))))) + (#{chi-simple-lambda 477}# + (lambda (#{e 2302}# + #{r 2303}# + #{w 2304}# + #{s 2305}# + #{mod 2306}# + #{req 2307}# + #{rest 2308}# + #{meta 2309}# + #{body 2310}#) (begin - (let ((#{ids 2313}# - (if #{rest 2299}# - (append #{req 2298}# (list #{rest 2299}#)) - #{req 2298}#))) + (let ((#{ids 2322}# + (if #{rest 2308}# + (append #{req 2307}# (list #{rest 2308}#)) + #{req 2307}#))) (begin - (let ((#{vars 2315}# - (map #{gen-var 484}# #{ids 2313}#))) + (let ((#{vars 2324}# + (map #{gen-var 485}# #{ids 2322}#))) (begin - (let ((#{labels 2317}# - (#{gen-labels 391}# #{ids 2313}#))) - (#{build-simple-lambda 320}# - #{s 2296}# - (map syntax->datum #{req 2298}#) - (if #{rest 2299}# - (syntax->datum #{rest 2299}#) + (let ((#{labels 2326}# + (#{gen-labels 392}# #{ids 2322}#))) + (#{build-simple-lambda 321}# + #{s 2305}# + (map syntax->datum #{req 2307}#) + (if #{rest 2308}# + (syntax->datum #{rest 2308}#) #f) - #{vars 2315}# - #{meta 2300}# - (#{chi-body 464}# - #{body 2301}# - (#{source-wrap 444}# - #{e 2293}# - #{w 2295}# - #{s 2296}# - #{mod 2297}#) - (#{extend-var-env 366}# - #{labels 2317}# - #{vars 2315}# - #{r 2294}#) - (#{make-binding-wrap 420}# - #{ids 2313}# - #{labels 2317}# - #{w 2295}#) - #{mod 2297}#)))))))))) - (#{lambda*-formals 478}# - (lambda (#{orig-args 2320}#) + #{vars 2324}# + #{meta 2309}# + (#{chi-body 465}# + #{body 2310}# + (#{source-wrap 445}# + #{e 2302}# + #{w 2304}# + #{s 2305}# + #{mod 2306}#) + (#{extend-var-env 367}# + #{labels 2326}# + #{vars 2324}# + #{r 2303}#) + (#{make-binding-wrap 421}# + #{ids 2322}# + #{labels 2326}# + #{w 2304}#) + #{mod 2306}#)))))))))) + (#{lambda*-formals 479}# + (lambda (#{orig-args 2329}#) (letrec* - ((#{req 2323}# - (lambda (#{args 2332}# #{rreq 2333}#) - (let ((#{tmp 2336}# #{args 2332}#)) - (let ((#{tmp 2337}# ($sc-dispatch #{tmp 2336}# '()))) - (if #{tmp 2337}# + ((#{req 2332}# + (lambda (#{args 2341}# #{rreq 2342}#) + (let ((#{tmp 2345}# #{args 2341}#)) + (let ((#{tmp 2346}# ($sc-dispatch #{tmp 2345}# '()))) + (if #{tmp 2346}# (@apply (lambda () - (#{check 2331}# - (reverse #{rreq 2333}#) + (#{check 2340}# + (reverse #{rreq 2342}#) '() #f '())) - #{tmp 2337}#) - (let ((#{tmp 2338}# - ($sc-dispatch #{tmp 2336}# '(any . any)))) - (if (if #{tmp 2338}# + #{tmp 2346}#) + (let ((#{tmp 2347}# + ($sc-dispatch #{tmp 2345}# '(any . any)))) + (if (if #{tmp 2347}# (@apply - (lambda (#{a 2341}# #{b 2342}#) - (#{id? 376}# #{a 2341}#)) - #{tmp 2338}#) + (lambda (#{a 2350}# #{b 2351}#) + (#{id? 377}# #{a 2350}#)) + #{tmp 2347}#) #f) (@apply - (lambda (#{a 2345}# #{b 2346}#) - (#{req 2323}# - #{b 2346}# - (cons #{a 2345}# #{rreq 2333}#))) - #{tmp 2338}#) - (let ((#{tmp 2347}# - ($sc-dispatch #{tmp 2336}# '(any . any)))) - (if (if #{tmp 2347}# + (lambda (#{a 2354}# #{b 2355}#) + (#{req 2332}# + #{b 2355}# + (cons #{a 2354}# #{rreq 2342}#))) + #{tmp 2347}#) + (let ((#{tmp 2356}# + ($sc-dispatch #{tmp 2345}# '(any . any)))) + (if (if #{tmp 2356}# (@apply - (lambda (#{a 2350}# #{b 2351}#) - (eq? (syntax->datum #{a 2350}#) + (lambda (#{a 2359}# #{b 2360}#) + (eq? (syntax->datum #{a 2359}#) #:optional)) - #{tmp 2347}#) + #{tmp 2356}#) #f) (@apply - (lambda (#{a 2354}# #{b 2355}#) - (#{opt 2325}# - #{b 2355}# - (reverse #{rreq 2333}#) + (lambda (#{a 2363}# #{b 2364}#) + (#{opt 2334}# + #{b 2364}# + (reverse #{rreq 2342}#) '())) - #{tmp 2347}#) - (let ((#{tmp 2356}# + #{tmp 2356}#) + (let ((#{tmp 2365}# ($sc-dispatch - #{tmp 2336}# + #{tmp 2345}# '(any . any)))) - (if (if #{tmp 2356}# + (if (if #{tmp 2365}# (@apply - (lambda (#{a 2359}# #{b 2360}#) - (eq? (syntax->datum #{a 2359}#) + (lambda (#{a 2368}# #{b 2369}#) + (eq? (syntax->datum #{a 2368}#) #:key)) - #{tmp 2356}#) + #{tmp 2365}#) #f) (@apply - (lambda (#{a 2363}# #{b 2364}#) - (#{key 2327}# - #{b 2364}# - (reverse #{rreq 2333}#) + (lambda (#{a 2372}# #{b 2373}#) + (#{key 2336}# + #{b 2373}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2356}#) - (let ((#{tmp 2365}# + #{tmp 2365}#) + (let ((#{tmp 2374}# ($sc-dispatch - #{tmp 2336}# + #{tmp 2345}# '(any any)))) - (if (if #{tmp 2365}# + (if (if #{tmp 2374}# (@apply - (lambda (#{a 2368}# #{b 2369}#) - (eq? (syntax->datum #{a 2368}#) + (lambda (#{a 2377}# #{b 2378}#) + (eq? (syntax->datum #{a 2377}#) #:rest)) - #{tmp 2365}#) + #{tmp 2374}#) #f) (@apply - (lambda (#{a 2372}# #{b 2373}#) - (#{rest 2329}# - #{b 2373}# - (reverse #{rreq 2333}#) + (lambda (#{a 2381}# #{b 2382}#) + (#{rest 2338}# + #{b 2382}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2365}#) - (let ((#{tmp 2374}# - (list #{tmp 2336}#))) - (if (if #{tmp 2374}# + #{tmp 2374}#) + (let ((#{tmp 2383}# + (list #{tmp 2345}#))) + (if (if #{tmp 2383}# (@apply - (lambda (#{r 2376}#) - (#{id? 376}# #{r 2376}#)) - #{tmp 2374}#) + (lambda (#{r 2385}#) + (#{id? 377}# #{r 2385}#)) + #{tmp 2383}#) #f) (@apply - (lambda (#{r 2378}#) - (#{rest 2329}# - #{r 2378}# - (reverse #{rreq 2333}#) + (lambda (#{r 2387}#) + (#{rest 2338}# + #{r 2387}# + (reverse #{rreq 2342}#) '() '())) - #{tmp 2374}#) - (let ((#{else 2380}# #{tmp 2336}#)) + #{tmp 2383}#) + (let ((#{else 2389}# #{tmp 2345}#)) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 2320}# - #{args 2332}#))))))))))))))))) - (#{opt 2325}# - (lambda (#{args 2381}# #{req 2382}# #{ropt 2383}#) - (let ((#{tmp 2387}# #{args 2381}#)) - (let ((#{tmp 2388}# ($sc-dispatch #{tmp 2387}# '()))) - (if #{tmp 2388}# + #{orig-args 2329}# + #{args 2341}#))))))))))))))))) + (#{opt 2334}# + (lambda (#{args 2390}# #{req 2391}# #{ropt 2392}#) + (let ((#{tmp 2396}# #{args 2390}#)) + (let ((#{tmp 2397}# ($sc-dispatch #{tmp 2396}# '()))) + (if #{tmp 2397}# (@apply (lambda () - (#{check 2331}# - #{req 2382}# - (reverse #{ropt 2383}#) + (#{check 2340}# + #{req 2391}# + (reverse #{ropt 2392}#) #f '())) - #{tmp 2388}#) - (let ((#{tmp 2389}# - ($sc-dispatch #{tmp 2387}# '(any . any)))) - (if (if #{tmp 2389}# + #{tmp 2397}#) + (let ((#{tmp 2398}# + ($sc-dispatch #{tmp 2396}# '(any . any)))) + (if (if #{tmp 2398}# (@apply - (lambda (#{a 2392}# #{b 2393}#) - (#{id? 376}# #{a 2392}#)) - #{tmp 2389}#) + (lambda (#{a 2401}# #{b 2402}#) + (#{id? 377}# #{a 2401}#)) + #{tmp 2398}#) #f) (@apply - (lambda (#{a 2396}# #{b 2397}#) - (#{opt 2325}# - #{b 2397}# - #{req 2382}# - (cons (cons #{a 2396}# + (lambda (#{a 2405}# #{b 2406}#) + (#{opt 2334}# + #{b 2406}# + #{req 2391}# + (cons (cons #{a 2405}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2394" "i2395")) + #("i2403" "i2404")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2384" - "i2385" - "i2386")) + #("i2393" + "i2394" + "i2395")) #(ribcage (check rest key opt req) ((top) @@ -7102,15 +5394,15 @@ (top) (top) (top)) - ("i2330" - "i2328" - "i2326" - "i2324" - "i2322")) + ("i2339" + "i2337" + "i2335" + "i2333" + "i2331")) #(ribcage #(orig-args) #((top)) - #("i2321")) + #("i2330")) #(ribcage (lambda-var-list gen-var @@ -7384,57 +5676,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -7443,212 +5736,211 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile)))) - #{ropt 2383}#))) - #{tmp 2389}#) - (let ((#{tmp 2398}# + #{ropt 2392}#))) + #{tmp 2398}#) + (let ((#{tmp 2407}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '((any any) . any)))) - (if (if #{tmp 2398}# + (if (if #{tmp 2407}# (@apply - (lambda (#{a 2402}# - #{init 2403}# - #{b 2404}#) - (#{id? 376}# #{a 2402}#)) - #{tmp 2398}#) + (lambda (#{a 2411}# + #{init 2412}# + #{b 2413}#) + (#{id? 377}# #{a 2411}#)) + #{tmp 2407}#) #f) (@apply - (lambda (#{a 2408}# #{init 2409}# #{b 2410}#) - (#{opt 2325}# - #{b 2410}# - #{req 2382}# - (cons (list #{a 2408}# #{init 2409}#) - #{ropt 2383}#))) - #{tmp 2398}#) - (let ((#{tmp 2411}# + (lambda (#{a 2417}# #{init 2418}# #{b 2419}#) + (#{opt 2334}# + #{b 2419}# + #{req 2391}# + (cons (list #{a 2417}# #{init 2418}#) + #{ropt 2392}#))) + #{tmp 2407}#) + (let ((#{tmp 2420}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '(any . any)))) - (if (if #{tmp 2411}# + (if (if #{tmp 2420}# (@apply - (lambda (#{a 2414}# #{b 2415}#) - (eq? (syntax->datum #{a 2414}#) + (lambda (#{a 2423}# #{b 2424}#) + (eq? (syntax->datum #{a 2423}#) #:key)) - #{tmp 2411}#) + #{tmp 2420}#) #f) (@apply - (lambda (#{a 2418}# #{b 2419}#) - (#{key 2327}# - #{b 2419}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{a 2427}# #{b 2428}#) + (#{key 2336}# + #{b 2428}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2411}#) - (let ((#{tmp 2420}# + #{tmp 2420}#) + (let ((#{tmp 2429}# ($sc-dispatch - #{tmp 2387}# + #{tmp 2396}# '(any any)))) - (if (if #{tmp 2420}# + (if (if #{tmp 2429}# (@apply - (lambda (#{a 2423}# #{b 2424}#) - (eq? (syntax->datum #{a 2423}#) + (lambda (#{a 2432}# #{b 2433}#) + (eq? (syntax->datum #{a 2432}#) #:rest)) - #{tmp 2420}#) + #{tmp 2429}#) #f) (@apply - (lambda (#{a 2427}# #{b 2428}#) - (#{rest 2329}# - #{b 2428}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{a 2436}# #{b 2437}#) + (#{rest 2338}# + #{b 2437}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2420}#) - (let ((#{tmp 2429}# - (list #{tmp 2387}#))) - (if (if #{tmp 2429}# + #{tmp 2429}#) + (let ((#{tmp 2438}# + (list #{tmp 2396}#))) + (if (if #{tmp 2438}# (@apply - (lambda (#{r 2431}#) - (#{id? 376}# #{r 2431}#)) - #{tmp 2429}#) + (lambda (#{r 2440}#) + (#{id? 377}# #{r 2440}#)) + #{tmp 2438}#) #f) (@apply - (lambda (#{r 2433}#) - (#{rest 2329}# - #{r 2433}# - #{req 2382}# - (reverse #{ropt 2383}#) + (lambda (#{r 2442}#) + (#{rest 2338}# + #{r 2442}# + #{req 2391}# + (reverse #{ropt 2392}#) '())) - #{tmp 2429}#) - (let ((#{else 2435}# #{tmp 2387}#)) + #{tmp 2438}#) + (let ((#{else 2444}# #{tmp 2396}#)) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 2320}# - #{args 2381}#))))))))))))))))) - (#{key 2327}# - (lambda (#{args 2436}# - #{req 2437}# - #{opt 2438}# - #{rkey 2439}#) - (let ((#{tmp 2444}# #{args 2436}#)) - (let ((#{tmp 2445}# ($sc-dispatch #{tmp 2444}# '()))) - (if #{tmp 2445}# + #{orig-args 2329}# + #{args 2390}#))))))))))))))))) + (#{key 2336}# + (lambda (#{args 2445}# + #{req 2446}# + #{opt 2447}# + #{rkey 2448}#) + (let ((#{tmp 2453}# #{args 2445}#)) + (let ((#{tmp 2454}# ($sc-dispatch #{tmp 2453}# '()))) + (if #{tmp 2454}# (@apply (lambda () - (#{check 2331}# - #{req 2437}# - #{opt 2438}# + (#{check 2340}# + #{req 2446}# + #{opt 2447}# #f - (cons #f (reverse #{rkey 2439}#)))) - #{tmp 2445}#) - (let ((#{tmp 2446}# - ($sc-dispatch #{tmp 2444}# '(any . any)))) - (if (if #{tmp 2446}# + (cons #f (reverse #{rkey 2448}#)))) + #{tmp 2454}#) + (let ((#{tmp 2455}# + ($sc-dispatch #{tmp 2453}# '(any . any)))) + (if (if #{tmp 2455}# (@apply - (lambda (#{a 2449}# #{b 2450}#) - (#{id? 376}# #{a 2449}#)) - #{tmp 2446}#) + (lambda (#{a 2458}# #{b 2459}#) + (#{id? 377}# #{a 2458}#)) + #{tmp 2455}#) #f) (@apply - (lambda (#{a 2453}# #{b 2454}#) - (let ((#{tmp 2456}# + (lambda (#{a 2462}# #{b 2463}#) + (let ((#{tmp 2465}# (symbol->keyword - (syntax->datum #{a 2453}#)))) - (let ((#{k 2458}# #{tmp 2456}#)) - (#{key 2327}# - #{b 2454}# - #{req 2437}# - #{opt 2438}# - (cons (cons #{k 2458}# - (cons #{a 2453}# + (syntax->datum #{a 2462}#)))) + (let ((#{k 2467}# #{tmp 2465}#)) + (#{key 2336}# + #{b 2463}# + #{req 2446}# + #{opt 2447}# + (cons (cons #{k 2467}# + (cons #{a 2462}# '(#(syntax-object #f ((top) @@ -7659,12 +5951,12 @@ #(ribcage #(k) #((top)) - #("i2457")) + #("i2466")) #(ribcage #(a b) #((top) (top)) - #("i2451" - "i2452")) + #("i2460" + "i2461")) #(ribcage () () @@ -7678,10 +5970,10 @@ (top) (top) (top)) - #("i2440" - "i2441" - "i2442" - "i2443")) + #("i2449" + "i2450" + "i2451" + "i2452")) #(ribcage (check rest key @@ -7692,15 +5984,15 @@ (top) (top) (top)) - ("i2330" - "i2328" - "i2326" - "i2324" - "i2322")) + ("i2339" + "i2337" + "i2335" + "i2333" + "i2331")) #(ribcage #(orig-args) #((top)) - #("i2321")) + #("i2330")) #(ribcage (lambda-var-list gen-var @@ -7974,57 +6266,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -8033,83 +6326,82 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors @@ -8119,1975 +6411,1975 @@ (top) (top) (top)) - ("i41" + ("i42" + "i41" "i40" - "i39" - "i37"))) + "i38"))) (hygiene guile))))) - #{rkey 2439}#))))) - #{tmp 2446}#) - (let ((#{tmp 2459}# + #{rkey 2448}#))))) + #{tmp 2455}#) + (let ((#{tmp 2468}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '((any any) . any)))) - (if (if #{tmp 2459}# + (if (if #{tmp 2468}# (@apply - (lambda (#{a 2463}# - #{init 2464}# - #{b 2465}#) - (#{id? 376}# #{a 2463}#)) - #{tmp 2459}#) + (lambda (#{a 2472}# + #{init 2473}# + #{b 2474}#) + (#{id? 377}# #{a 2472}#)) + #{tmp 2468}#) #f) (@apply - (lambda (#{a 2469}# #{init 2470}# #{b 2471}#) - (let ((#{tmp 2473}# + (lambda (#{a 2478}# #{init 2479}# #{b 2480}#) + (let ((#{tmp 2482}# (symbol->keyword - (syntax->datum #{a 2469}#)))) - (let ((#{k 2475}# #{tmp 2473}#)) - (#{key 2327}# - #{b 2471}# - #{req 2437}# - #{opt 2438}# - (cons (list #{k 2475}# - #{a 2469}# - #{init 2470}#) - #{rkey 2439}#))))) - #{tmp 2459}#) - (let ((#{tmp 2476}# + (syntax->datum #{a 2478}#)))) + (let ((#{k 2484}# #{tmp 2482}#)) + (#{key 2336}# + #{b 2480}# + #{req 2446}# + #{opt 2447}# + (cons (list #{k 2484}# + #{a 2478}# + #{init 2479}#) + #{rkey 2448}#))))) + #{tmp 2468}#) + (let ((#{tmp 2485}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '((any any any) . any)))) - (if (if #{tmp 2476}# + (if (if #{tmp 2485}# (@apply - (lambda (#{a 2481}# - #{init 2482}# - #{k 2483}# - #{b 2484}#) - (if (#{id? 376}# #{a 2481}#) + (lambda (#{a 2490}# + #{init 2491}# + #{k 2492}# + #{b 2493}#) + (if (#{id? 377}# #{a 2490}#) (keyword? - (syntax->datum #{k 2483}#)) + (syntax->datum #{k 2492}#)) #f)) - #{tmp 2476}#) + #{tmp 2485}#) #f) (@apply - (lambda (#{a 2491}# - #{init 2492}# - #{k 2493}# - #{b 2494}#) - (#{key 2327}# - #{b 2494}# - #{req 2437}# - #{opt 2438}# - (cons (list #{k 2493}# - #{a 2491}# - #{init 2492}#) - #{rkey 2439}#))) - #{tmp 2476}#) - (let ((#{tmp 2495}# + (lambda (#{a 2500}# + #{init 2501}# + #{k 2502}# + #{b 2503}#) + (#{key 2336}# + #{b 2503}# + #{req 2446}# + #{opt 2447}# + (cons (list #{k 2502}# + #{a 2500}# + #{init 2501}#) + #{rkey 2448}#))) + #{tmp 2485}#) + (let ((#{tmp 2504}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any)))) - (if (if #{tmp 2495}# + (if (if #{tmp 2504}# (@apply - (lambda (#{aok 2497}#) + (lambda (#{aok 2506}#) (eq? (syntax->datum - #{aok 2497}#) + #{aok 2506}#) #:allow-other-keys)) - #{tmp 2495}#) + #{tmp 2504}#) #f) (@apply - (lambda (#{aok 2499}#) - (#{check 2331}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2508}#) + (#{check 2340}# + #{req 2446}# + #{opt 2447}# #f (cons #t - (reverse #{rkey 2439}#)))) - #{tmp 2495}#) - (let ((#{tmp 2500}# + (reverse #{rkey 2448}#)))) + #{tmp 2504}#) + (let ((#{tmp 2509}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any any any)))) - (if (if #{tmp 2500}# + (if (if #{tmp 2509}# (@apply - (lambda (#{aok 2504}# - #{a 2505}# - #{b 2506}#) + (lambda (#{aok 2513}# + #{a 2514}# + #{b 2515}#) (if (eq? (syntax->datum - #{aok 2504}#) + #{aok 2513}#) #:allow-other-keys) (eq? (syntax->datum - #{a 2505}#) + #{a 2514}#) #:rest) #f)) - #{tmp 2500}#) + #{tmp 2509}#) #f) (@apply - (lambda (#{aok 2512}# - #{a 2513}# - #{b 2514}#) - (#{rest 2329}# - #{b 2514}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2521}# + #{a 2522}# + #{b 2523}#) + (#{rest 2338}# + #{b 2523}# + #{req 2446}# + #{opt 2447}# (cons #t (reverse - #{rkey 2439}#)))) - #{tmp 2500}#) - (let ((#{tmp 2515}# + #{rkey 2448}#)))) + #{tmp 2509}#) + (let ((#{tmp 2524}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any . any)))) - (if (if #{tmp 2515}# + (if (if #{tmp 2524}# (@apply - (lambda (#{aok 2518}# - #{r 2519}#) + (lambda (#{aok 2527}# + #{r 2528}#) (if (eq? (syntax->datum - #{aok 2518}#) + #{aok 2527}#) #:allow-other-keys) - (#{id? 376}# - #{r 2519}#) + (#{id? 377}# + #{r 2528}#) #f)) - #{tmp 2515}#) + #{tmp 2524}#) #f) (@apply - (lambda (#{aok 2524}# - #{r 2525}#) - (#{rest 2329}# - #{r 2525}# - #{req 2437}# - #{opt 2438}# + (lambda (#{aok 2533}# + #{r 2534}#) + (#{rest 2338}# + #{r 2534}# + #{req 2446}# + #{opt 2447}# (cons #t (reverse - #{rkey 2439}#)))) - #{tmp 2515}#) - (let ((#{tmp 2526}# + #{rkey 2448}#)))) + #{tmp 2524}#) + (let ((#{tmp 2535}# ($sc-dispatch - #{tmp 2444}# + #{tmp 2453}# '(any any)))) - (if (if #{tmp 2526}# + (if (if #{tmp 2535}# (@apply - (lambda (#{a 2529}# - #{b 2530}#) + (lambda (#{a 2538}# + #{b 2539}#) (eq? (syntax->datum - #{a 2529}#) + #{a 2538}#) #:rest)) - #{tmp 2526}#) + #{tmp 2535}#) #f) (@apply - (lambda (#{a 2533}# - #{b 2534}#) - (#{rest 2329}# - #{b 2534}# - #{req 2437}# - #{opt 2438}# + (lambda (#{a 2542}# + #{b 2543}#) + (#{rest 2338}# + #{b 2543}# + #{req 2446}# + #{opt 2447}# (cons #f (reverse - #{rkey 2439}#)))) - #{tmp 2526}#) - (let ((#{tmp 2535}# - (list #{tmp 2444}#))) - (if (if #{tmp 2535}# + #{rkey 2448}#)))) + #{tmp 2535}#) + (let ((#{tmp 2544}# + (list #{tmp 2453}#))) + (if (if #{tmp 2544}# (@apply - (lambda (#{r 2537}#) - (#{id? 376}# - #{r 2537}#)) - #{tmp 2535}#) + (lambda (#{r 2546}#) + (#{id? 377}# + #{r 2546}#)) + #{tmp 2544}#) #f) (@apply - (lambda (#{r 2539}#) - (#{rest 2329}# - #{r 2539}# - #{req 2437}# - #{opt 2438}# + (lambda (#{r 2548}#) + (#{rest 2338}# + #{r 2548}# + #{req 2446}# + #{opt 2447}# (cons #f (reverse - #{rkey 2439}#)))) - #{tmp 2535}#) - (let ((#{else 2541}# - #{tmp 2444}#)) + #{rkey 2448}#)))) + #{tmp 2544}#) + (let ((#{else 2550}# + #{tmp 2453}#)) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 2320}# - #{args 2436}#))))))))))))))))))))))) - (#{rest 2329}# - (lambda (#{args 2542}# - #{req 2543}# - #{opt 2544}# - #{kw 2545}#) - (let ((#{tmp 2550}# #{args 2542}#)) - (let ((#{tmp 2551}# (list #{tmp 2550}#))) - (if (if #{tmp 2551}# + #{orig-args 2329}# + #{args 2445}#))))))))))))))))))))))) + (#{rest 2338}# + (lambda (#{args 2551}# + #{req 2552}# + #{opt 2553}# + #{kw 2554}#) + (let ((#{tmp 2559}# #{args 2551}#)) + (let ((#{tmp 2560}# (list #{tmp 2559}#))) + (if (if #{tmp 2560}# (@apply - (lambda (#{r 2553}#) (#{id? 376}# #{r 2553}#)) - #{tmp 2551}#) + (lambda (#{r 2562}#) (#{id? 377}# #{r 2562}#)) + #{tmp 2560}#) #f) (@apply - (lambda (#{r 2555}#) - (#{check 2331}# - #{req 2543}# - #{opt 2544}# - #{r 2555}# - #{kw 2545}#)) - #{tmp 2551}#) - (let ((#{else 2557}# #{tmp 2550}#)) + (lambda (#{r 2564}#) + (#{check 2340}# + #{req 2552}# + #{opt 2553}# + #{r 2564}# + #{kw 2554}#)) + #{tmp 2560}#) + (let ((#{else 2566}# #{tmp 2559}#)) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 2320}# - #{args 2542}#))))))) - (#{check 2331}# - (lambda (#{req 2558}# - #{opt 2559}# - #{rest 2560}# - #{kw 2561}#) - (if (#{distinct-bound-ids? 438}# + #{orig-args 2329}# + #{args 2551}#))))))) + (#{check 2340}# + (lambda (#{req 2567}# + #{opt 2568}# + #{rest 2569}# + #{kw 2570}#) + (if (#{distinct-bound-ids? 439}# (append - #{req 2558}# - (map car #{opt 2559}#) - (if #{rest 2560}# (list #{rest 2560}#) '()) - (if (pair? #{kw 2561}#) - (map cadr (cdr #{kw 2561}#)) + #{req 2567}# + (map car #{opt 2568}#) + (if #{rest 2569}# (list #{rest 2569}#) '()) + (if (pair? #{kw 2570}#) + (map cadr (cdr #{kw 2570}#)) '()))) (values - #{req 2558}# - #{opt 2559}# - #{rest 2560}# - #{kw 2561}#) + #{req 2567}# + #{opt 2568}# + #{rest 2569}# + #{kw 2570}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 2320}#))))) - (begin (#{req 2323}# #{orig-args 2320}# '()))))) - (#{chi-lambda-case 480}# - (lambda (#{e 2569}# - #{r 2570}# - #{w 2571}# - #{s 2572}# - #{mod 2573}# - #{get-formals 2574}# - #{clauses 2575}#) + #{orig-args 2329}#))))) + (begin (#{req 2332}# #{orig-args 2329}# '()))))) + (#{chi-lambda-case 481}# + (lambda (#{e 2578}# + #{r 2579}# + #{w 2580}# + #{s 2581}# + #{mod 2582}# + #{get-formals 2583}# + #{clauses 2584}#) (letrec* - ((#{expand-req 2584}# - (lambda (#{req 2591}# - #{opt 2592}# - #{rest 2593}# - #{kw 2594}# - #{body 2595}#) + ((#{expand-req 2593}# + (lambda (#{req 2600}# + #{opt 2601}# + #{rest 2602}# + #{kw 2603}# + #{body 2604}#) (begin - (let ((#{vars 2603}# - (map #{gen-var 484}# #{req 2591}#)) - (#{labels 2604}# - (#{gen-labels 391}# #{req 2591}#))) + (let ((#{vars 2612}# + (map #{gen-var 485}# #{req 2600}#)) + (#{labels 2613}# + (#{gen-labels 392}# #{req 2600}#))) (begin - (let ((#{r* 2607}# - (#{extend-var-env 366}# - #{labels 2604}# - #{vars 2603}# - #{r 2570}#)) - (#{w* 2608}# - (#{make-binding-wrap 420}# - #{req 2591}# - #{labels 2604}# - #{w 2571}#))) - (#{expand-opt 2586}# - (map syntax->datum #{req 2591}#) - #{opt 2592}# - #{rest 2593}# - #{kw 2594}# - #{body 2595}# - (reverse #{vars 2603}#) - #{r* 2607}# - #{w* 2608}# + (let ((#{r* 2616}# + (#{extend-var-env 367}# + #{labels 2613}# + #{vars 2612}# + #{r 2579}#)) + (#{w* 2617}# + (#{make-binding-wrap 421}# + #{req 2600}# + #{labels 2613}# + #{w 2580}#))) + (#{expand-opt 2595}# + (map syntax->datum #{req 2600}#) + #{opt 2601}# + #{rest 2602}# + #{kw 2603}# + #{body 2604}# + (reverse #{vars 2612}#) + #{r* 2616}# + #{w* 2617}# '() '()))))))) - (#{expand-opt 2586}# - (lambda (#{req 2609}# - #{opt 2610}# - #{rest 2611}# - #{kw 2612}# - #{body 2613}# - #{vars 2614}# - #{r* 2615}# - #{w* 2616}# - #{out 2617}# - #{inits 2618}#) - (if (pair? #{opt 2610}#) - (let ((#{tmp 2631}# (car #{opt 2610}#))) - (let ((#{tmp 2632}# - ($sc-dispatch #{tmp 2631}# '(any any)))) - (if #{tmp 2632}# + (#{expand-opt 2595}# + (lambda (#{req 2618}# + #{opt 2619}# + #{rest 2620}# + #{kw 2621}# + #{body 2622}# + #{vars 2623}# + #{r* 2624}# + #{w* 2625}# + #{out 2626}# + #{inits 2627}#) + (if (pair? #{opt 2619}#) + (let ((#{tmp 2640}# (car #{opt 2619}#))) + (let ((#{tmp 2641}# + ($sc-dispatch #{tmp 2640}# '(any any)))) + (if #{tmp 2641}# (@apply - (lambda (#{id 2635}# #{i 2636}#) + (lambda (#{id 2644}# #{i 2645}#) (begin - (let ((#{v 2639}# - (#{gen-var 484}# #{id 2635}#))) + (let ((#{v 2648}# + (#{gen-var 485}# #{id 2644}#))) (begin - (let ((#{l 2641}# - (#{gen-labels 391}# - (list #{v 2639}#)))) + (let ((#{l 2650}# + (#{gen-labels 392}# + (list #{v 2648}#)))) (begin - (let ((#{r** 2643}# - (#{extend-var-env 366}# - #{l 2641}# - (list #{v 2639}#) - #{r* 2615}#))) + (let ((#{r** 2652}# + (#{extend-var-env 367}# + #{l 2650}# + (list #{v 2648}#) + #{r* 2624}#))) (begin - (let ((#{w** 2645}# - (#{make-binding-wrap 420}# - (list #{id 2635}#) - #{l 2641}# - #{w* 2616}#))) - (#{expand-opt 2586}# - #{req 2609}# - (cdr #{opt 2610}#) - #{rest 2611}# - #{kw 2612}# - #{body 2613}# - (cons #{v 2639}# #{vars 2614}#) - #{r** 2643}# - #{w** 2645}# + (let ((#{w** 2654}# + (#{make-binding-wrap 421}# + (list #{id 2644}#) + #{l 2650}# + #{w* 2625}#))) + (#{expand-opt 2595}# + #{req 2618}# + (cdr #{opt 2619}#) + #{rest 2620}# + #{kw 2621}# + #{body 2622}# + (cons #{v 2648}# #{vars 2623}#) + #{r** 2652}# + #{w** 2654}# (cons (syntax->datum - #{id 2635}#) - #{out 2617}#) - (cons (#{chi 456}# - #{i 2636}# - #{r* 2615}# - #{w* 2616}# - #{mod 2573}#) - #{inits 2618}#))))))))))) - #{tmp 2632}#) + #{id 2644}#) + #{out 2626}#) + (cons (#{chi 457}# + #{i 2645}# + #{r* 2624}# + #{w* 2625}# + #{mod 2582}#) + #{inits 2627}#))))))))))) + #{tmp 2641}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2631}#)))) - (if #{rest 2611}# + #{tmp 2640}#)))) + (if #{rest 2620}# (begin - (let ((#{v 2650}# (#{gen-var 484}# #{rest 2611}#))) + (let ((#{v 2659}# (#{gen-var 485}# #{rest 2620}#))) (begin - (let ((#{l 2652}# - (#{gen-labels 391}# (list #{v 2650}#)))) + (let ((#{l 2661}# + (#{gen-labels 392}# (list #{v 2659}#)))) (begin - (let ((#{r* 2654}# - (#{extend-var-env 366}# - #{l 2652}# - (list #{v 2650}#) - #{r* 2615}#))) + (let ((#{r* 2663}# + (#{extend-var-env 367}# + #{l 2661}# + (list #{v 2659}#) + #{r* 2624}#))) (begin - (let ((#{w* 2656}# - (#{make-binding-wrap 420}# - (list #{rest 2611}#) - #{l 2652}# - #{w* 2616}#))) - (#{expand-kw 2588}# - #{req 2609}# - (if (pair? #{out 2617}#) - (reverse #{out 2617}#) + (let ((#{w* 2665}# + (#{make-binding-wrap 421}# + (list #{rest 2620}#) + #{l 2661}# + #{w* 2625}#))) + (#{expand-kw 2597}# + #{req 2618}# + (if (pair? #{out 2626}#) + (reverse #{out 2626}#) #f) - (syntax->datum #{rest 2611}#) - (if (pair? #{kw 2612}#) - (cdr #{kw 2612}#) - #{kw 2612}#) - #{body 2613}# - (cons #{v 2650}# #{vars 2614}#) - #{r* 2654}# - #{w* 2656}# - (if (pair? #{kw 2612}#) - (car #{kw 2612}#) + (syntax->datum #{rest 2620}#) + (if (pair? #{kw 2621}#) + (cdr #{kw 2621}#) + #{kw 2621}#) + #{body 2622}# + (cons #{v 2659}# #{vars 2623}#) + #{r* 2663}# + #{w* 2665}# + (if (pair? #{kw 2621}#) + (car #{kw 2621}#) #f) '() - #{inits 2618}#))))))))) - (#{expand-kw 2588}# - #{req 2609}# - (if (pair? #{out 2617}#) - (reverse #{out 2617}#) + #{inits 2627}#))))))))) + (#{expand-kw 2597}# + #{req 2618}# + (if (pair? #{out 2626}#) + (reverse #{out 2626}#) #f) #f - (if (pair? #{kw 2612}#) - (cdr #{kw 2612}#) - #{kw 2612}#) - #{body 2613}# - #{vars 2614}# - #{r* 2615}# - #{w* 2616}# - (if (pair? #{kw 2612}#) (car #{kw 2612}#) #f) + (if (pair? #{kw 2621}#) + (cdr #{kw 2621}#) + #{kw 2621}#) + #{body 2622}# + #{vars 2623}# + #{r* 2624}# + #{w* 2625}# + (if (pair? #{kw 2621}#) (car #{kw 2621}#) #f) '() - #{inits 2618}#))))) - (#{expand-kw 2588}# - (lambda (#{req 2658}# - #{opt 2659}# - #{rest 2660}# - #{kw 2661}# - #{body 2662}# - #{vars 2663}# - #{r* 2664}# - #{w* 2665}# - #{aok 2666}# - #{out 2667}# - #{inits 2668}#) - (if (pair? #{kw 2661}#) - (let ((#{tmp 2682}# (car #{kw 2661}#))) - (let ((#{tmp 2683}# - ($sc-dispatch #{tmp 2682}# '(any any any)))) - (if #{tmp 2683}# + #{inits 2627}#))))) + (#{expand-kw 2597}# + (lambda (#{req 2667}# + #{opt 2668}# + #{rest 2669}# + #{kw 2670}# + #{body 2671}# + #{vars 2672}# + #{r* 2673}# + #{w* 2674}# + #{aok 2675}# + #{out 2676}# + #{inits 2677}#) + (if (pair? #{kw 2670}#) + (let ((#{tmp 2691}# (car #{kw 2670}#))) + (let ((#{tmp 2692}# + ($sc-dispatch #{tmp 2691}# '(any any any)))) + (if #{tmp 2692}# (@apply - (lambda (#{k 2687}# #{id 2688}# #{i 2689}#) + (lambda (#{k 2696}# #{id 2697}# #{i 2698}#) (begin - (let ((#{v 2692}# - (#{gen-var 484}# #{id 2688}#))) + (let ((#{v 2701}# + (#{gen-var 485}# #{id 2697}#))) (begin - (let ((#{l 2694}# - (#{gen-labels 391}# - (list #{v 2692}#)))) + (let ((#{l 2703}# + (#{gen-labels 392}# + (list #{v 2701}#)))) (begin - (let ((#{r** 2696}# - (#{extend-var-env 366}# - #{l 2694}# - (list #{v 2692}#) - #{r* 2664}#))) + (let ((#{r** 2705}# + (#{extend-var-env 367}# + #{l 2703}# + (list #{v 2701}#) + #{r* 2673}#))) (begin - (let ((#{w** 2698}# - (#{make-binding-wrap 420}# - (list #{id 2688}#) - #{l 2694}# - #{w* 2665}#))) - (#{expand-kw 2588}# - #{req 2658}# - #{opt 2659}# - #{rest 2660}# - (cdr #{kw 2661}#) - #{body 2662}# - (cons #{v 2692}# #{vars 2663}#) - #{r** 2696}# - #{w** 2698}# - #{aok 2666}# + (let ((#{w** 2707}# + (#{make-binding-wrap 421}# + (list #{id 2697}#) + #{l 2703}# + #{w* 2674}#))) + (#{expand-kw 2597}# + #{req 2667}# + #{opt 2668}# + #{rest 2669}# + (cdr #{kw 2670}#) + #{body 2671}# + (cons #{v 2701}# #{vars 2672}#) + #{r** 2705}# + #{w** 2707}# + #{aok 2675}# (cons (list (syntax->datum - #{k 2687}#) + #{k 2696}#) (syntax->datum - #{id 2688}#) - #{v 2692}#) - #{out 2667}#) - (cons (#{chi 456}# - #{i 2689}# - #{r* 2664}# - #{w* 2665}# - #{mod 2573}#) - #{inits 2668}#))))))))))) - #{tmp 2683}#) + #{id 2697}#) + #{v 2701}#) + #{out 2676}#) + (cons (#{chi 457}# + #{i 2698}# + #{r* 2673}# + #{w* 2674}# + #{mod 2582}#) + #{inits 2677}#))))))))))) + #{tmp 2692}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2682}#)))) - (#{expand-body 2590}# - #{req 2658}# - #{opt 2659}# - #{rest 2660}# + #{tmp 2691}#)))) + (#{expand-body 2599}# + #{req 2667}# + #{opt 2668}# + #{rest 2669}# (if (begin - (let ((#{t 2702}# #{aok 2666}#)) - (if #{t 2702}# #{t 2702}# (pair? #{out 2667}#)))) - (cons #{aok 2666}# (reverse #{out 2667}#)) + (let ((#{t 2711}# #{aok 2675}#)) + (if #{t 2711}# #{t 2711}# (pair? #{out 2676}#)))) + (cons #{aok 2675}# (reverse #{out 2676}#)) #f) - #{body 2662}# - (reverse #{vars 2663}#) - #{r* 2664}# - #{w* 2665}# - (reverse #{inits 2668}#) + #{body 2671}# + (reverse #{vars 2672}#) + #{r* 2673}# + #{w* 2674}# + (reverse #{inits 2677}#) '())))) - (#{expand-body 2590}# - (lambda (#{req 2704}# - #{opt 2705}# - #{rest 2706}# - #{kw 2707}# - #{body 2708}# - #{vars 2709}# - #{r* 2710}# - #{w* 2711}# - #{inits 2712}# - #{meta 2713}#) - (let ((#{tmp 2724}# #{body 2708}#)) - (let ((#{tmp 2725}# - ($sc-dispatch #{tmp 2724}# '(any any . each-any)))) - (if (if #{tmp 2725}# + (#{expand-body 2599}# + (lambda (#{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + #{body 2717}# + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# + #{meta 2722}#) + (let ((#{tmp 2733}# #{body 2717}#)) + (let ((#{tmp 2734}# + ($sc-dispatch #{tmp 2733}# '(any any . each-any)))) + (if (if #{tmp 2734}# (@apply - (lambda (#{docstring 2729}# - #{e1 2730}# - #{e2 2731}#) - (string? (syntax->datum #{docstring 2729}#))) - #{tmp 2725}#) + (lambda (#{docstring 2738}# + #{e1 2739}# + #{e2 2740}#) + (string? (syntax->datum #{docstring 2738}#))) + #{tmp 2734}#) #f) (@apply - (lambda (#{docstring 2735}# #{e1 2736}# #{e2 2737}#) - (#{expand-body 2590}# - #{req 2704}# - #{opt 2705}# - #{rest 2706}# - #{kw 2707}# - (cons #{e1 2736}# #{e2 2737}#) - #{vars 2709}# - #{r* 2710}# - #{w* 2711}# - #{inits 2712}# + (lambda (#{docstring 2744}# #{e1 2745}# #{e2 2746}#) + (#{expand-body 2599}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + (cons #{e1 2745}# #{e2 2746}#) + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# (append - #{meta 2713}# + #{meta 2722}# (list (cons 'documentation (syntax->datum - #{docstring 2735}#)))))) - #{tmp 2725}#) - (let ((#{tmp 2740}# + #{docstring 2744}#)))))) + #{tmp 2734}#) + (let ((#{tmp 2749}# ($sc-dispatch - #{tmp 2724}# + #{tmp 2733}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 2740}# + (if #{tmp 2749}# (@apply - (lambda (#{k 2745}# - #{v 2746}# - #{e1 2747}# - #{e2 2748}#) - (#{expand-body 2590}# - #{req 2704}# - #{opt 2705}# - #{rest 2706}# - #{kw 2707}# - (cons #{e1 2747}# #{e2 2748}#) - #{vars 2709}# - #{r* 2710}# - #{w* 2711}# - #{inits 2712}# + (lambda (#{k 2754}# + #{v 2755}# + #{e1 2756}# + #{e2 2757}#) + (#{expand-body 2599}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + (cons #{e1 2756}# #{e2 2757}#) + #{vars 2718}# + #{r* 2719}# + #{w* 2720}# + #{inits 2721}# (append - #{meta 2713}# + #{meta 2722}# (syntax->datum - (map cons #{k 2745}# #{v 2746}#))))) - #{tmp 2740}#) - (let ((#{tmp 2752}# + (map cons #{k 2754}# #{v 2755}#))))) + #{tmp 2749}#) + (let ((#{tmp 2761}# ($sc-dispatch - #{tmp 2724}# + #{tmp 2733}# '(any . each-any)))) - (if #{tmp 2752}# + (if #{tmp 2761}# (@apply - (lambda (#{e1 2755}# #{e2 2756}#) + (lambda (#{e1 2764}# #{e2 2765}#) (values - #{meta 2713}# - #{req 2704}# - #{opt 2705}# - #{rest 2706}# - #{kw 2707}# - #{inits 2712}# - #{vars 2709}# - (#{chi-body 464}# - (cons #{e1 2755}# #{e2 2756}#) - (#{source-wrap 444}# - #{e 2569}# - #{w 2571}# - #{s 2572}# - #{mod 2573}#) - #{r* 2710}# - #{w* 2711}# - #{mod 2573}#))) - #{tmp 2752}#) + #{meta 2722}# + #{req 2713}# + #{opt 2714}# + #{rest 2715}# + #{kw 2716}# + #{inits 2721}# + #{vars 2718}# + (#{chi-body 465}# + (cons #{e1 2764}# #{e2 2765}#) + (#{source-wrap 445}# + #{e 2578}# + #{w 2580}# + #{s 2581}# + #{mod 2582}#) + #{r* 2719}# + #{w* 2720}# + #{mod 2582}#))) + #{tmp 2761}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2724}#))))))))))) + #{tmp 2733}#))))))))))) (begin - (let ((#{tmp 2758}# #{clauses 2575}#)) - (let ((#{tmp 2759}# ($sc-dispatch #{tmp 2758}# '()))) - (if #{tmp 2759}# - (@apply (lambda () (values '() #f)) #{tmp 2759}#) - (let ((#{tmp 2760}# + (let ((#{tmp 2767}# #{clauses 2584}#)) + (let ((#{tmp 2768}# ($sc-dispatch #{tmp 2767}# '()))) + (if #{tmp 2768}# + (@apply (lambda () (values '() #f)) #{tmp 2768}#) + (let ((#{tmp 2769}# ($sc-dispatch - #{tmp 2758}# + #{tmp 2767}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 2760}# + (if #{tmp 2769}# (@apply - (lambda (#{args 2767}# - #{e1 2768}# - #{e2 2769}# - #{args* 2770}# - #{e1* 2771}# - #{e2* 2772}#) + (lambda (#{args 2776}# + #{e1 2777}# + #{e2 2778}# + #{args* 2779}# + #{e1* 2780}# + #{e2* 2781}#) (call-with-values - (lambda () (#{get-formals 2574}# #{args 2767}#)) - (lambda (#{req 2773}# - #{opt 2774}# - #{rest 2775}# - #{kw 2776}#) + (lambda () (#{get-formals 2583}# #{args 2776}#)) + (lambda (#{req 2782}# + #{opt 2783}# + #{rest 2784}# + #{kw 2785}#) (call-with-values (lambda () - (#{expand-req 2584}# - #{req 2773}# - #{opt 2774}# - #{rest 2775}# - #{kw 2776}# - (cons #{e1 2768}# #{e2 2769}#))) - (lambda (#{meta 2782}# - #{req 2783}# - #{opt 2784}# - #{rest 2785}# - #{kw 2786}# - #{inits 2787}# - #{vars 2788}# - #{body 2789}#) + (#{expand-req 2593}# + #{req 2782}# + #{opt 2783}# + #{rest 2784}# + #{kw 2785}# + (cons #{e1 2777}# #{e2 2778}#))) + (lambda (#{meta 2791}# + #{req 2792}# + #{opt 2793}# + #{rest 2794}# + #{kw 2795}# + #{inits 2796}# + #{vars 2797}# + #{body 2798}#) (call-with-values (lambda () - (#{chi-lambda-case 480}# - #{e 2569}# - #{r 2570}# - #{w 2571}# - #{s 2572}# - #{mod 2573}# - #{get-formals 2574}# - (map (lambda (#{tmp 2800}# - #{tmp 2799}# - #{tmp 2798}#) - (cons #{tmp 2798}# - (cons #{tmp 2799}# - #{tmp 2800}#))) - #{e2* 2772}# - #{e1* 2771}# - #{args* 2770}#))) - (lambda (#{meta* 2802}# #{else* 2803}#) + (#{chi-lambda-case 481}# + #{e 2578}# + #{r 2579}# + #{w 2580}# + #{s 2581}# + #{mod 2582}# + #{get-formals 2583}# + (map (lambda (#{tmp 2809}# + #{tmp 2808}# + #{tmp 2807}#) + (cons #{tmp 2807}# + (cons #{tmp 2808}# + #{tmp 2809}#))) + #{e2* 2781}# + #{e1* 2780}# + #{args* 2779}#))) + (lambda (#{meta* 2811}# #{else* 2812}#) (values (append - #{meta 2782}# - #{meta* 2802}#) - (#{build-lambda-case 324}# - #{s 2572}# - #{req 2783}# - #{opt 2784}# - #{rest 2785}# - #{kw 2786}# - #{inits 2787}# - #{vars 2788}# - #{body 2789}# - #{else* 2803}#))))))))) - #{tmp 2760}#) + #{meta 2791}# + #{meta* 2811}#) + (#{build-lambda-case 325}# + #{s 2581}# + #{req 2792}# + #{opt 2793}# + #{rest 2794}# + #{kw 2795}# + #{inits 2796}# + #{vars 2797}# + #{body 2798}# + #{else* 2812}#))))))))) + #{tmp 2769}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2758}#)))))))))) - (#{strip 482}# - (lambda (#{x 2806}# #{w 2807}#) - (if (memq 'top (car #{w 2807}#)) - #{x 2806}# + #{tmp 2767}#)))))))))) + (#{strip 483}# + (lambda (#{x 2815}# #{w 2816}#) + (if (memq 'top (car #{w 2816}#)) + #{x 2815}# (letrec* - ((#{f 2814}# - (lambda (#{x 2815}#) - (if (#{syntax-object? 342}# #{x 2815}#) - (#{strip 482}# - (#{syntax-object-expression 344}# #{x 2815}#) - (#{syntax-object-wrap 346}# #{x 2815}#)) - (if (pair? #{x 2815}#) + ((#{f 2823}# + (lambda (#{x 2824}#) + (if (#{syntax-object? 343}# #{x 2824}#) + (#{strip 483}# + (#{syntax-object-expression 345}# #{x 2824}#) + (#{syntax-object-wrap 347}# #{x 2824}#)) + (if (pair? #{x 2824}#) (begin - (let ((#{a 2822}# (#{f 2814}# (car #{x 2815}#))) - (#{d 2823}# (#{f 2814}# (cdr #{x 2815}#)))) - (if (if (eq? #{a 2822}# (car #{x 2815}#)) - (eq? #{d 2823}# (cdr #{x 2815}#)) + (let ((#{a 2831}# (#{f 2823}# (car #{x 2824}#))) + (#{d 2832}# (#{f 2823}# (cdr #{x 2824}#)))) + (if (if (eq? #{a 2831}# (car #{x 2824}#)) + (eq? #{d 2832}# (cdr #{x 2824}#)) #f) - #{x 2815}# - (cons #{a 2822}# #{d 2823}#)))) - (if (vector? #{x 2815}#) + #{x 2824}# + (cons #{a 2831}# #{d 2832}#)))) + (if (vector? #{x 2824}#) (begin - (let ((#{old 2829}# (vector->list #{x 2815}#))) + (let ((#{old 2838}# (vector->list #{x 2824}#))) (begin - (let ((#{new 2831}# - (map #{f 2814}# #{old 2829}#))) - (if (#{and-map* 38}# + (let ((#{new 2840}# + (map #{f 2823}# #{old 2838}#))) + (if (#{and-map* 39}# eq? - #{old 2829}# - #{new 2831}#) - #{x 2815}# - (list->vector #{new 2831}#)))))) - #{x 2815}#)))))) - (begin (#{f 2814}# #{x 2806}#)))))) - (#{gen-var 484}# - (lambda (#{id 2833}#) + #{old 2838}# + #{new 2840}#) + #{x 2824}# + (list->vector #{new 2840}#)))))) + #{x 2824}#)))))) + (begin (#{f 2823}# #{x 2815}#)))))) + (#{gen-var 485}# + (lambda (#{id 2842}#) (begin - (let ((#{id 2836}# - (if (#{syntax-object? 342}# #{id 2833}#) - (#{syntax-object-expression 344}# #{id 2833}#) - #{id 2833}#))) + (let ((#{id 2845}# + (if (#{syntax-object? 343}# #{id 2842}#) + (#{syntax-object-expression 345}# #{id 2842}#) + #{id 2842}#))) (gensym - (string-append (symbol->string #{id 2836}#) " ")))))) - (#{lambda-var-list 486}# - (lambda (#{vars 2838}#) + (string-append (symbol->string #{id 2845}#) " ")))))) + (#{lambda-var-list 487}# + (lambda (#{vars 2847}#) (letrec* - ((#{lvl 2844}# - (lambda (#{vars 2845}# #{ls 2846}# #{w 2847}#) - (if (pair? #{vars 2845}#) - (#{lvl 2844}# - (cdr #{vars 2845}#) - (cons (#{wrap 442}# (car #{vars 2845}#) #{w 2847}# #f) - #{ls 2846}#) - #{w 2847}#) - (if (#{id? 376}# #{vars 2845}#) - (cons (#{wrap 442}# #{vars 2845}# #{w 2847}# #f) - #{ls 2846}#) - (if (null? #{vars 2845}#) - #{ls 2846}# - (if (#{syntax-object? 342}# #{vars 2845}#) - (#{lvl 2844}# - (#{syntax-object-expression 344}# #{vars 2845}#) - #{ls 2846}# - (#{join-wraps 424}# - #{w 2847}# - (#{syntax-object-wrap 346}# #{vars 2845}#))) - (cons #{vars 2845}# #{ls 2846}#)))))))) - (begin (#{lvl 2844}# #{vars 2838}# '() '(()))))))) + ((#{lvl 2853}# + (lambda (#{vars 2854}# #{ls 2855}# #{w 2856}#) + (if (pair? #{vars 2854}#) + (#{lvl 2853}# + (cdr #{vars 2854}#) + (cons (#{wrap 443}# (car #{vars 2854}#) #{w 2856}# #f) + #{ls 2855}#) + #{w 2856}#) + (if (#{id? 377}# #{vars 2854}#) + (cons (#{wrap 443}# #{vars 2854}# #{w 2856}# #f) + #{ls 2855}#) + (if (null? #{vars 2854}#) + #{ls 2855}# + (if (#{syntax-object? 343}# #{vars 2854}#) + (#{lvl 2853}# + (#{syntax-object-expression 345}# #{vars 2854}#) + #{ls 2855}# + (#{join-wraps 425}# + #{w 2856}# + (#{syntax-object-wrap 347}# #{vars 2854}#))) + (cons #{vars 2854}# #{ls 2855}#)))))))) + (begin (#{lvl 2853}# #{vars 2847}# '() '(()))))))) (begin - (lambda (#{src 804}# #{name 805}#) + (lambda (#{src 805}# #{name 806}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) - #{src 804}# - #{name 805}#)) - (lambda (#{x 1182}# #{update 1183}#) - (vector-set! #{x 1182}# 1 #{update 1183}#)) - (lambda (#{x 1186}# #{update 1187}#) - (vector-set! #{x 1186}# 2 #{update 1187}#)) - (lambda (#{x 1190}# #{update 1191}#) - (vector-set! #{x 1190}# 3 #{update 1191}#)) - (lambda (#{x 1271}#) - (if (vector? #{x 1271}#) - (if (= (vector-length #{x 1271}#) 4) - (eq? (vector-ref #{x 1271}# 0) 'ribcage) + #{src 805}# + #{name 806}#)) + (lambda (#{x 1183}# #{update 1184}#) + (vector-set! #{x 1183}# 1 #{update 1184}#)) + (lambda (#{x 1187}# #{update 1188}#) + (vector-set! #{x 1187}# 2 #{update 1188}#)) + (lambda (#{x 1191}# #{update 1192}#) + (vector-set! #{x 1191}# 3 #{update 1192}#)) + (lambda (#{x 1272}#) + (if (vector? #{x 1272}#) + (if (= (vector-length #{x 1272}#) 4) + (eq? (vector-ref #{x 1272}# 0) 'ribcage) #f) #f)) (begin - (#{global-extend 372}# + (#{global-extend 373}# 'local-syntax 'letrec-syntax #t) - (#{global-extend 372}# + (#{global-extend 373}# 'local-syntax 'let-syntax #f) - (#{global-extend 372}# + (#{global-extend 373}# 'core 'fluid-let-syntax - (lambda (#{e 2858}# - #{r 2859}# - #{w 2860}# - #{s 2861}# - #{mod 2862}#) - (let ((#{tmp 2868}# #{e 2858}#)) - (let ((#{tmp 2869}# + (lambda (#{e 2867}# + #{r 2868}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#) + (let ((#{tmp 2877}# #{e 2867}#)) + (let ((#{tmp 2878}# ($sc-dispatch - #{tmp 2868}# + #{tmp 2877}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2869}# + (if (if #{tmp 2878}# (@apply - (lambda (#{var 2874}# - #{val 2875}# - #{e1 2876}# - #{e2 2877}#) - (#{valid-bound-ids? 436}# #{var 2874}#)) - #{tmp 2869}#) + (lambda (#{var 2883}# + #{val 2884}# + #{e1 2885}# + #{e2 2886}#) + (#{valid-bound-ids? 437}# #{var 2883}#)) + #{tmp 2878}#) #f) (@apply - (lambda (#{var 2883}# - #{val 2884}# - #{e1 2885}# - #{e2 2886}#) + (lambda (#{var 2892}# + #{val 2893}# + #{e1 2894}# + #{e2 2895}#) (begin - (let ((#{names 2888}# - (map (lambda (#{x 2889}#) - (#{id-var-name 430}# - #{x 2889}# - #{w 2860}#)) - #{var 2883}#))) + (let ((#{names 2897}# + (map (lambda (#{x 2898}#) + (#{id-var-name 431}# + #{x 2898}# + #{w 2869}#)) + #{var 2892}#))) (begin (for-each - (lambda (#{id 2892}# #{n 2893}#) + (lambda (#{id 2901}# #{n 2902}#) (begin - (let ((#{atom-key 2898}# - (car (#{lookup 370}# - #{n 2893}# - #{r 2859}# - #{mod 2862}#)))) - (if (eqv? #{atom-key 2898}# + (let ((#{atom-key 2907}# + (car (#{lookup 371}# + #{n 2902}# + #{r 2868}# + #{mod 2871}#)))) + (if (eqv? #{atom-key 2907}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 2858}# - (#{source-wrap 444}# - #{id 2892}# - #{w 2860}# - #{s 2861}# - #{mod 2862}#)))))) - #{var 2883}# - #{names 2888}#) - (#{chi-body 464}# - (cons #{e1 2885}# #{e2 2886}#) - (#{source-wrap 444}# - #{e 2858}# - #{w 2860}# - #{s 2861}# - #{mod 2862}#) - (#{extend-env 364}# - #{names 2888}# + #{e 2867}# + (#{source-wrap 445}# + #{id 2901}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#)))))) + #{var 2892}# + #{names 2897}#) + (#{chi-body 465}# + (cons #{e1 2894}# #{e2 2895}#) + (#{source-wrap 445}# + #{e 2867}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#) + (#{extend-env 365}# + #{names 2897}# (begin - (let ((#{trans-r 2904}# - (#{macros-only-env 368}# - #{r 2859}#))) - (map (lambda (#{x 2905}#) + (let ((#{trans-r 2913}# + (#{macros-only-env 369}# + #{r 2868}#))) + (map (lambda (#{x 2914}#) (cons 'macro - (#{eval-local-transformer 468}# - (#{chi 456}# - #{x 2905}# - #{trans-r 2904}# - #{w 2860}# - #{mod 2862}#) - #{mod 2862}#))) - #{val 2884}#))) - #{r 2859}#) - #{w 2860}# - #{mod 2862}#))))) - #{tmp 2869}#) - (let ((#{_ 2910}# #{tmp 2868}#)) + (#{eval-local-transformer 469}# + (#{chi 457}# + #{x 2914}# + #{trans-r 2913}# + #{w 2869}# + #{mod 2871}#) + #{mod 2871}#))) + #{val 2893}#))) + #{r 2868}#) + #{w 2869}# + #{mod 2871}#))))) + #{tmp 2878}#) + (let ((#{_ 2919}# #{tmp 2877}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap 444}# - #{e 2858}# - #{w 2860}# - #{s 2861}# - #{mod 2862}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 2867}# + #{w 2869}# + #{s 2870}# + #{mod 2871}#)))))))) + (#{global-extend 373}# 'core 'quote - (lambda (#{e 2911}# - #{r 2912}# - #{w 2913}# - #{s 2914}# - #{mod 2915}#) - (let ((#{tmp 2921}# #{e 2911}#)) - (let ((#{tmp 2922}# - ($sc-dispatch #{tmp 2921}# '(_ any)))) - (if #{tmp 2922}# + (lambda (#{e 2920}# + #{r 2921}# + #{w 2922}# + #{s 2923}# + #{mod 2924}#) + (let ((#{tmp 2930}# #{e 2920}#)) + (let ((#{tmp 2931}# + ($sc-dispatch #{tmp 2930}# '(_ any)))) + (if #{tmp 2931}# (@apply - (lambda (#{e 2924}#) - (#{build-data 328}# - #{s 2914}# - (#{strip 482}# #{e 2924}# #{w 2913}#))) - #{tmp 2922}#) - (let ((#{_ 2926}# #{tmp 2921}#)) + (lambda (#{e 2933}#) + (#{build-data 329}# + #{s 2923}# + (#{strip 483}# #{e 2933}# #{w 2922}#))) + #{tmp 2931}#) + (let ((#{_ 2935}# #{tmp 2930}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap 444}# - #{e 2911}# - #{w 2913}# - #{s 2914}# - #{mod 2915}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 2920}# + #{w 2922}# + #{s 2923}# + #{mod 2924}#)))))))) + (#{global-extend 373}# 'core 'syntax (letrec* - ((#{gen-syntax 2928}# - (lambda (#{src 2943}# - #{e 2944}# - #{r 2945}# - #{maps 2946}# - #{ellipsis? 2947}# - #{mod 2948}#) - (if (#{id? 376}# #{e 2944}#) + ((#{gen-syntax 2937}# + (lambda (#{src 2952}# + #{e 2953}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#) + (if (#{id? 377}# #{e 2953}#) (begin - (let ((#{label 2956}# - (#{id-var-name 430}# #{e 2944}# '(())))) + (let ((#{label 2965}# + (#{id-var-name 431}# #{e 2953}# '(())))) (begin - (let ((#{b 2959}# - (#{lookup 370}# - #{label 2956}# - #{r 2945}# - #{mod 2948}#))) - (if (eq? (car #{b 2959}#) 'syntax) + (let ((#{b 2968}# + (#{lookup 371}# + #{label 2965}# + #{r 2954}# + #{mod 2957}#))) + (if (eq? (car #{b 2968}#) 'syntax) (call-with-values (lambda () (begin - (let ((#{var.lev 2962}# (cdr #{b 2959}#))) - (#{gen-ref 2930}# - #{src 2943}# - (car #{var.lev 2962}#) - (cdr #{var.lev 2962}#) - #{maps 2946}#)))) - (lambda (#{var 2964}# #{maps 2965}#) + (let ((#{var.lev 2971}# (cdr #{b 2968}#))) + (#{gen-ref 2939}# + #{src 2952}# + (car #{var.lev 2971}#) + (cdr #{var.lev 2971}#) + #{maps 2955}#)))) + (lambda (#{var 2973}# #{maps 2974}#) (values - (list 'ref #{var 2964}#) - #{maps 2965}#))) - (if (#{ellipsis? 2947}# #{e 2944}#) + (list 'ref #{var 2973}#) + #{maps 2974}#))) + (if (#{ellipsis? 2956}# #{e 2953}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 2943}#) + #{src 2952}#) (values - (list 'quote #{e 2944}#) - #{maps 2946}#))))))) - (let ((#{tmp 2970}# #{e 2944}#)) - (let ((#{tmp 2971}# - ($sc-dispatch #{tmp 2970}# '(any any)))) - (if (if #{tmp 2971}# + (list 'quote #{e 2953}#) + #{maps 2955}#))))))) + (let ((#{tmp 2979}# #{e 2953}#)) + (let ((#{tmp 2980}# + ($sc-dispatch #{tmp 2979}# '(any any)))) + (if (if #{tmp 2980}# (@apply - (lambda (#{dots 2974}# #{e 2975}#) - (#{ellipsis? 2947}# #{dots 2974}#)) - #{tmp 2971}#) + (lambda (#{dots 2983}# #{e 2984}#) + (#{ellipsis? 2956}# #{dots 2983}#)) + #{tmp 2980}#) #f) (@apply - (lambda (#{dots 2978}# #{e 2979}#) - (#{gen-syntax 2928}# - #{src 2943}# - #{e 2979}# - #{r 2945}# - #{maps 2946}# - (lambda (#{x 2980}#) #f) - #{mod 2948}#)) - #{tmp 2971}#) - (let ((#{tmp 2982}# + (lambda (#{dots 2987}# #{e 2988}#) + (#{gen-syntax 2937}# + #{src 2952}# + #{e 2988}# + #{r 2954}# + #{maps 2955}# + (lambda (#{x 2989}#) #f) + #{mod 2957}#)) + #{tmp 2980}#) + (let ((#{tmp 2991}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '(any any . any)))) - (if (if #{tmp 2982}# + (if (if #{tmp 2991}# (@apply - (lambda (#{x 2986}# - #{dots 2987}# - #{y 2988}#) - (#{ellipsis? 2947}# #{dots 2987}#)) - #{tmp 2982}#) + (lambda (#{x 2995}# + #{dots 2996}# + #{y 2997}#) + (#{ellipsis? 2956}# #{dots 2996}#)) + #{tmp 2991}#) #f) (@apply - (lambda (#{x 2992}# #{dots 2993}# #{y 2994}#) + (lambda (#{x 3001}# #{dots 3002}# #{y 3003}#) (letrec* - ((#{f 2998}# - (lambda (#{y 2999}# #{k 3000}#) - (let ((#{tmp 3007}# #{y 2999}#)) - (let ((#{tmp 3008}# + ((#{f 3007}# + (lambda (#{y 3008}# #{k 3009}#) + (let ((#{tmp 3016}# #{y 3008}#)) + (let ((#{tmp 3017}# ($sc-dispatch - #{tmp 3007}# + #{tmp 3016}# '(any . any)))) - (if (if #{tmp 3008}# + (if (if #{tmp 3017}# (@apply - (lambda (#{dots 3011}# - #{y 3012}#) - (#{ellipsis? 2947}# - #{dots 3011}#)) - #{tmp 3008}#) + (lambda (#{dots 3020}# + #{y 3021}#) + (#{ellipsis? 2956}# + #{dots 3020}#)) + #{tmp 3017}#) #f) (@apply - (lambda (#{dots 3015}# - #{y 3016}#) - (#{f 2998}# - #{y 3016}# - (lambda (#{maps 3017}#) + (lambda (#{dots 3024}# + #{y 3025}#) + (#{f 3007}# + #{y 3025}# + (lambda (#{maps 3026}#) (call-with-values (lambda () - (#{k 3000}# + (#{k 3009}# (cons '() - #{maps 3017}#))) - (lambda (#{x 3019}# - #{maps 3020}#) - (if (null? (car #{maps 3020}#)) + #{maps 3026}#))) + (lambda (#{x 3028}# + #{maps 3029}#) + (if (null? (car #{maps 3029}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2943}#) + #{src 2952}#) (values - (#{gen-mappend 2932}# - #{x 3019}# - (car #{maps 3020}#)) - (cdr #{maps 3020}#)))))))) - #{tmp 3008}#) - (let ((#{_ 3024}# - #{tmp 3007}#)) + (#{gen-mappend 2941}# + #{x 3028}# + (car #{maps 3029}#)) + (cdr #{maps 3029}#)))))))) + #{tmp 3017}#) + (let ((#{_ 3033}# + #{tmp 3016}#)) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{src 2943}# - #{y 2999}# - #{r 2945}# - #{maps 2946}# - #{ellipsis? 2947}# - #{mod 2948}#)) - (lambda (#{y 3025}# - #{maps 3026}#) + (#{gen-syntax 2937}# + #{src 2952}# + #{y 3008}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{y 3034}# + #{maps 3035}#) (call-with-values (lambda () - (#{k 3000}# - #{maps 3026}#)) - (lambda (#{x 3029}# - #{maps 3030}#) + (#{k 3009}# + #{maps 3035}#)) + (lambda (#{x 3038}# + #{maps 3039}#) (values - (#{gen-append 2938}# - #{x 3029}# - #{y 3025}#) - #{maps 3030}#)))))))))))) + (#{gen-append 2947}# + #{x 3038}# + #{y 3034}#) + #{maps 3039}#)))))))))))) (begin - (#{f 2998}# - #{y 2994}# - (lambda (#{maps 3001}#) + (#{f 3007}# + #{y 3003}# + (lambda (#{maps 3010}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{src 2943}# - #{x 2992}# - #{r 2945}# - (cons '() #{maps 3001}#) - #{ellipsis? 2947}# - #{mod 2948}#)) - (lambda (#{x 3003}# #{maps 3004}#) - (if (null? (car #{maps 3004}#)) + (#{gen-syntax 2937}# + #{src 2952}# + #{x 3001}# + #{r 2954}# + (cons '() #{maps 3010}#) + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{x 3012}# #{maps 3013}#) + (if (null? (car #{maps 3013}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2943}#) + #{src 2952}#) (values - (#{gen-map 2934}# - #{x 3003}# - (car #{maps 3004}#)) - (cdr #{maps 3004}#)))))))))) - #{tmp 2982}#) - (let ((#{tmp 3033}# + (#{gen-map 2943}# + #{x 3012}# + (car #{maps 3013}#)) + (cdr #{maps 3013}#)))))))))) + #{tmp 2991}#) + (let ((#{tmp 3042}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '(any . any)))) - (if #{tmp 3033}# + (if #{tmp 3042}# (@apply - (lambda (#{x 3036}# #{y 3037}#) + (lambda (#{x 3045}# #{y 3046}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{src 2943}# - #{x 3036}# - #{r 2945}# - #{maps 2946}# - #{ellipsis? 2947}# - #{mod 2948}#)) - (lambda (#{x 3038}# #{maps 3039}#) + (#{gen-syntax 2937}# + #{src 2952}# + #{x 3045}# + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{x 3047}# #{maps 3048}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{src 2943}# - #{y 3037}# - #{r 2945}# - #{maps 3039}# - #{ellipsis? 2947}# - #{mod 2948}#)) - (lambda (#{y 3042}# #{maps 3043}#) + (#{gen-syntax 2937}# + #{src 2952}# + #{y 3046}# + #{r 2954}# + #{maps 3048}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{y 3051}# #{maps 3052}#) (values - (#{gen-cons 2936}# - #{x 3038}# - #{y 3042}#) - #{maps 3043}#)))))) - #{tmp 3033}#) - (let ((#{tmp 3046}# + (#{gen-cons 2945}# + #{x 3047}# + #{y 3051}#) + #{maps 3052}#)))))) + #{tmp 3042}#) + (let ((#{tmp 3055}# ($sc-dispatch - #{tmp 2970}# + #{tmp 2979}# '#(vector (any . each-any))))) - (if #{tmp 3046}# + (if #{tmp 3055}# (@apply - (lambda (#{e1 3049}# #{e2 3050}#) + (lambda (#{e1 3058}# #{e2 3059}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{src 2943}# - (cons #{e1 3049}# #{e2 3050}#) - #{r 2945}# - #{maps 2946}# - #{ellipsis? 2947}# - #{mod 2948}#)) - (lambda (#{e 3052}# #{maps 3053}#) + (#{gen-syntax 2937}# + #{src 2952}# + (cons #{e1 3058}# #{e2 3059}#) + #{r 2954}# + #{maps 2955}# + #{ellipsis? 2956}# + #{mod 2957}#)) + (lambda (#{e 3061}# #{maps 3062}#) (values - (#{gen-vector 2940}# - #{e 3052}#) - #{maps 3053}#)))) - #{tmp 3046}#) - (let ((#{_ 3057}# #{tmp 2970}#)) + (#{gen-vector 2949}# + #{e 3061}#) + #{maps 3062}#)))) + #{tmp 3055}#) + (let ((#{_ 3066}# #{tmp 2979}#)) (values - (list 'quote #{e 2944}#) - #{maps 2946}#)))))))))))))) - (#{gen-ref 2930}# - (lambda (#{src 3059}# - #{var 3060}# - #{level 3061}# - #{maps 3062}#) - (if (= #{level 3061}# 0) - (values #{var 3060}# #{maps 3062}#) - (if (null? #{maps 3062}#) + (list 'quote #{e 2953}#) + #{maps 2955}#)))))))))))))) + (#{gen-ref 2939}# + (lambda (#{src 3068}# + #{var 3069}# + #{level 3070}# + #{maps 3071}#) + (if (= #{level 3070}# 0) + (values #{var 3069}# #{maps 3071}#) + (if (null? #{maps 3071}#) (syntax-violation 'syntax "missing ellipsis" - #{src 3059}#) + #{src 3068}#) (call-with-values (lambda () - (#{gen-ref 2930}# - #{src 3059}# - #{var 3060}# - (#{1-}# #{level 3061}#) - (cdr #{maps 3062}#))) - (lambda (#{outer-var 3069}# #{outer-maps 3070}#) + (#{gen-ref 2939}# + #{src 3068}# + #{var 3069}# + (#{1-}# #{level 3070}#) + (cdr #{maps 3071}#))) + (lambda (#{outer-var 3078}# #{outer-maps 3079}#) (begin - (let ((#{b 3074}# - (assq #{outer-var 3069}# - (car #{maps 3062}#)))) - (if #{b 3074}# - (values (cdr #{b 3074}#) #{maps 3062}#) + (let ((#{b 3083}# + (assq #{outer-var 3078}# + (car #{maps 3071}#)))) + (if #{b 3083}# + (values (cdr #{b 3083}#) #{maps 3071}#) (begin - (let ((#{inner-var 3076}# - (#{gen-var 484}# 'tmp))) + (let ((#{inner-var 3085}# + (#{gen-var 485}# 'tmp))) (values - #{inner-var 3076}# - (cons (cons (cons #{outer-var 3069}# - #{inner-var 3076}#) - (car #{maps 3062}#)) - #{outer-maps 3070}#))))))))))))) - (#{gen-mappend 2932}# - (lambda (#{e 3077}# #{map-env 3078}#) + #{inner-var 3085}# + (cons (cons (cons #{outer-var 3078}# + #{inner-var 3085}#) + (car #{maps 3071}#)) + #{outer-maps 3079}#))))))))))))) + (#{gen-mappend 2941}# + (lambda (#{e 3086}# #{map-env 3087}#) (list 'apply '(primitive append) - (#{gen-map 2934}# #{e 3077}# #{map-env 3078}#)))) - (#{gen-map 2934}# - (lambda (#{e 3082}# #{map-env 3083}#) + (#{gen-map 2943}# #{e 3086}# #{map-env 3087}#)))) + (#{gen-map 2943}# + (lambda (#{e 3091}# #{map-env 3092}#) (begin - (let ((#{formals 3088}# (map cdr #{map-env 3083}#)) - (#{actuals 3089}# - (map (lambda (#{x 3090}#) - (list 'ref (car #{x 3090}#))) - #{map-env 3083}#))) - (if (eq? (car #{e 3082}#) 'ref) - (car #{actuals 3089}#) + (let ((#{formals 3097}# (map cdr #{map-env 3092}#)) + (#{actuals 3098}# + (map (lambda (#{x 3099}#) + (list 'ref (car #{x 3099}#))) + #{map-env 3092}#))) + (if (eq? (car #{e 3091}#) 'ref) + (car #{actuals 3098}#) (if (and-map - (lambda (#{x 3097}#) - (if (eq? (car #{x 3097}#) 'ref) - (memq (car (cdr #{x 3097}#)) - #{formals 3088}#) + (lambda (#{x 3106}#) + (if (eq? (car #{x 3106}#) 'ref) + (memq (car (cdr #{x 3106}#)) + #{formals 3097}#) #f)) - (cdr #{e 3082}#)) + (cdr #{e 3091}#)) (cons 'map - (cons (list 'primitive (car #{e 3082}#)) + (cons (list 'primitive (car #{e 3091}#)) (map (begin - (let ((#{r 3103}# + (let ((#{r 3112}# (map cons - #{formals 3088}# - #{actuals 3089}#))) - (lambda (#{x 3104}#) - (cdr (assq (car (cdr #{x 3104}#)) - #{r 3103}#))))) - (cdr #{e 3082}#)))) + #{formals 3097}# + #{actuals 3098}#))) + (lambda (#{x 3113}#) + (cdr (assq (car (cdr #{x 3113}#)) + #{r 3112}#))))) + (cdr #{e 3091}#)))) (cons 'map (cons (list 'lambda - #{formals 3088}# - #{e 3082}#) - #{actuals 3089}#)))))))) - (#{gen-cons 2936}# - (lambda (#{x 3108}# #{y 3109}#) + #{formals 3097}# + #{e 3091}#) + #{actuals 3098}#)))))))) + (#{gen-cons 2945}# + (lambda (#{x 3117}# #{y 3118}#) (begin - (let ((#{atom-key 3114}# (car #{y 3109}#))) - (if (eqv? #{atom-key 3114}# 'quote) - (if (eq? (car #{x 3108}#) 'quote) + (let ((#{atom-key 3123}# (car #{y 3118}#))) + (if (eqv? #{atom-key 3123}# 'quote) + (if (eq? (car #{x 3117}#) 'quote) (list 'quote - (cons (car (cdr #{x 3108}#)) - (car (cdr #{y 3109}#)))) - (if (eq? (car (cdr #{y 3109}#)) '()) - (list 'list #{x 3108}#) - (list 'cons #{x 3108}# #{y 3109}#))) - (if (eqv? #{atom-key 3114}# 'list) - (cons 'list (cons #{x 3108}# (cdr #{y 3109}#))) - (list 'cons #{x 3108}# #{y 3109}#))))))) - (#{gen-append 2938}# - (lambda (#{x 3123}# #{y 3124}#) - (if (equal? #{y 3124}# ''()) - #{x 3123}# - (list 'append #{x 3123}# #{y 3124}#)))) - (#{gen-vector 2940}# - (lambda (#{x 3128}#) - (if (eq? (car #{x 3128}#) 'list) - (cons 'vector (cdr #{x 3128}#)) - (if (eq? (car #{x 3128}#) 'quote) + (cons (car (cdr #{x 3117}#)) + (car (cdr #{y 3118}#)))) + (if (eq? (car (cdr #{y 3118}#)) '()) + (list 'list #{x 3117}#) + (list 'cons #{x 3117}# #{y 3118}#))) + (if (eqv? #{atom-key 3123}# 'list) + (cons 'list (cons #{x 3117}# (cdr #{y 3118}#))) + (list 'cons #{x 3117}# #{y 3118}#))))))) + (#{gen-append 2947}# + (lambda (#{x 3132}# #{y 3133}#) + (if (equal? #{y 3133}# ''()) + #{x 3132}# + (list 'append #{x 3132}# #{y 3133}#)))) + (#{gen-vector 2949}# + (lambda (#{x 3137}#) + (if (eq? (car #{x 3137}#) 'list) + (cons 'vector (cdr #{x 3137}#)) + (if (eq? (car #{x 3137}#) 'quote) (list 'quote - (list->vector (car (cdr #{x 3128}#)))) - (list 'list->vector #{x 3128}#))))) - (#{regen 2942}# - (lambda (#{x 3138}#) + (list->vector (car (cdr #{x 3137}#)))) + (list 'list->vector #{x 3137}#))))) + (#{regen 2951}# + (lambda (#{x 3147}#) (begin - (let ((#{atom-key 3142}# (car #{x 3138}#))) - (if (eqv? #{atom-key 3142}# 'ref) - (#{build-lexical-reference 308}# + (let ((#{atom-key 3151}# (car #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'ref) + (#{build-lexical-reference 309}# 'value #f - (car (cdr #{x 3138}#)) - (car (cdr #{x 3138}#))) - (if (eqv? #{atom-key 3142}# 'primitive) - (#{build-primref 326}# #f (car (cdr #{x 3138}#))) - (if (eqv? #{atom-key 3142}# 'quote) - (#{build-data 328}# #f (car (cdr #{x 3138}#))) - (if (eqv? #{atom-key 3142}# 'lambda) - (if (list? (car (cdr #{x 3138}#))) - (#{build-simple-lambda 320}# + (car (cdr #{x 3147}#)) + (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'primitive) + (#{build-primref 327}# #f (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'quote) + (#{build-data 329}# #f (car (cdr #{x 3147}#))) + (if (eqv? #{atom-key 3151}# 'lambda) + (if (list? (car (cdr #{x 3147}#))) + (#{build-simple-lambda 321}# #f - (car (cdr #{x 3138}#)) + (car (cdr #{x 3147}#)) #f - (car (cdr #{x 3138}#)) + (car (cdr #{x 3147}#)) '() - (#{regen 2942}# - (car (cdr (cdr #{x 3138}#))))) - (error "how did we get here" #{x 3138}#)) - (#{build-application 302}# + (#{regen 2951}# + (car (cdr (cdr #{x 3147}#))))) + (error "how did we get here" #{x 3147}#)) + (#{build-application 303}# #f - (#{build-primref 326}# #f (car #{x 3138}#)) - (map #{regen 2942}# - (cdr #{x 3138}#)))))))))))) + (#{build-primref 327}# #f (car #{x 3147}#)) + (map #{regen 2951}# + (cdr #{x 3147}#)))))))))))) (begin - (lambda (#{e 3154}# - #{r 3155}# - #{w 3156}# - #{s 3157}# - #{mod 3158}#) + (lambda (#{e 3163}# + #{r 3164}# + #{w 3165}# + #{s 3166}# + #{mod 3167}#) (begin - (let ((#{e 3165}# - (#{source-wrap 444}# - #{e 3154}# - #{w 3156}# - #{s 3157}# - #{mod 3158}#))) - (let ((#{tmp 3166}# #{e 3165}#)) - (let ((#{tmp 3167}# - ($sc-dispatch #{tmp 3166}# '(_ any)))) - (if #{tmp 3167}# + (let ((#{e 3174}# + (#{source-wrap 445}# + #{e 3163}# + #{w 3165}# + #{s 3166}# + #{mod 3167}#))) + (let ((#{tmp 3175}# #{e 3174}#)) + (let ((#{tmp 3176}# + ($sc-dispatch #{tmp 3175}# '(_ any)))) + (if #{tmp 3176}# (@apply - (lambda (#{x 3169}#) + (lambda (#{x 3178}#) (call-with-values (lambda () - (#{gen-syntax 2928}# - #{e 3165}# - #{x 3169}# - #{r 3155}# + (#{gen-syntax 2937}# + #{e 3174}# + #{x 3178}# + #{r 3164}# '() - #{ellipsis? 472}# - #{mod 3158}#)) - (lambda (#{e 3170}# #{maps 3171}#) - (#{regen 2942}# #{e 3170}#)))) - #{tmp 3167}#) - (let ((#{_ 3175}# #{tmp 3166}#)) + #{ellipsis? 473}# + #{mod 3167}#)) + (lambda (#{e 3179}# #{maps 3180}#) + (#{regen 2951}# #{e 3179}#)))) + #{tmp 3176}#) + (let ((#{_ 3184}# #{tmp 3175}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e 3165}#))))))))))) - (#{global-extend 372}# + #{e 3174}#))))))))))) + (#{global-extend 373}# 'core 'lambda - (lambda (#{e 3176}# - #{r 3177}# - #{w 3178}# - #{s 3179}# - #{mod 3180}#) - (let ((#{tmp 3186}# #{e 3176}#)) - (let ((#{tmp 3187}# + (lambda (#{e 3185}# + #{r 3186}# + #{w 3187}# + #{s 3188}# + #{mod 3189}#) + (let ((#{tmp 3195}# #{e 3185}#)) + (let ((#{tmp 3196}# ($sc-dispatch - #{tmp 3186}# + #{tmp 3195}# '(_ any any . each-any)))) - (if #{tmp 3187}# + (if #{tmp 3196}# (@apply - (lambda (#{args 3191}# #{e1 3192}# #{e2 3193}#) + (lambda (#{args 3200}# #{e1 3201}# #{e2 3202}#) (call-with-values (lambda () - (#{lambda-formals 474}# #{args 3191}#)) - (lambda (#{req 3194}# - #{opt 3195}# - #{rest 3196}# - #{kw 3197}#) + (#{lambda-formals 475}# #{args 3200}#)) + (lambda (#{req 3203}# + #{opt 3204}# + #{rest 3205}# + #{kw 3206}#) (letrec* - ((#{lp 3205}# - (lambda (#{body 3206}# #{meta 3207}#) - (let ((#{tmp 3209}# #{body 3206}#)) - (let ((#{tmp 3210}# + ((#{lp 3214}# + (lambda (#{body 3215}# #{meta 3216}#) + (let ((#{tmp 3218}# #{body 3215}#)) + (let ((#{tmp 3219}# ($sc-dispatch - #{tmp 3209}# + #{tmp 3218}# '(any any . each-any)))) - (if (if #{tmp 3210}# + (if (if #{tmp 3219}# (@apply - (lambda (#{docstring 3214}# - #{e1 3215}# - #{e2 3216}#) + (lambda (#{docstring 3223}# + #{e1 3224}# + #{e2 3225}#) (string? (syntax->datum - #{docstring 3214}#))) - #{tmp 3210}#) + #{docstring 3223}#))) + #{tmp 3219}#) #f) (@apply - (lambda (#{docstring 3220}# - #{e1 3221}# - #{e2 3222}#) - (#{lp 3205}# - (cons #{e1 3221}# #{e2 3222}#) + (lambda (#{docstring 3229}# + #{e1 3230}# + #{e2 3231}#) + (#{lp 3214}# + (cons #{e1 3230}# #{e2 3231}#) (append - #{meta 3207}# + #{meta 3216}# (list (cons 'documentation (syntax->datum - #{docstring 3220}#)))))) - #{tmp 3210}#) - (let ((#{tmp 3225}# + #{docstring 3229}#)))))) + #{tmp 3219}#) + (let ((#{tmp 3234}# ($sc-dispatch - #{tmp 3209}# + #{tmp 3218}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 3225}# + (if #{tmp 3234}# (@apply - (lambda (#{k 3230}# - #{v 3231}# - #{e1 3232}# - #{e2 3233}#) - (#{lp 3205}# - (cons #{e1 3232}# - #{e2 3233}#) + (lambda (#{k 3239}# + #{v 3240}# + #{e1 3241}# + #{e2 3242}#) + (#{lp 3214}# + (cons #{e1 3241}# + #{e2 3242}#) (append - #{meta 3207}# + #{meta 3216}# (syntax->datum (map cons - #{k 3230}# - #{v 3231}#))))) - #{tmp 3225}#) - (let ((#{_ 3238}# #{tmp 3209}#)) - (#{chi-simple-lambda 476}# - #{e 3176}# - #{r 3177}# - #{w 3178}# - #{s 3179}# - #{mod 3180}# - #{req 3194}# - #{rest 3196}# - #{meta 3207}# - #{body 3206}#)))))))))) + #{k 3239}# + #{v 3240}#))))) + #{tmp 3234}#) + (let ((#{_ 3247}# #{tmp 3218}#)) + (#{chi-simple-lambda 477}# + #{e 3185}# + #{r 3186}# + #{w 3187}# + #{s 3188}# + #{mod 3189}# + #{req 3203}# + #{rest 3205}# + #{meta 3216}# + #{body 3215}#)))))))))) (begin - (#{lp 3205}# - (cons #{e1 3192}# #{e2 3193}#) + (#{lp 3214}# + (cons #{e1 3201}# #{e2 3202}#) '())))))) - #{tmp 3187}#) - (let ((#{_ 3240}# #{tmp 3186}#)) + #{tmp 3196}#) + (let ((#{_ 3249}# #{tmp 3195}#)) (syntax-violation 'lambda "bad lambda" - #{e 3176}#))))))) - (#{global-extend 372}# + #{e 3185}#))))))) + (#{global-extend 373}# 'core 'lambda* - (lambda (#{e 3241}# - #{r 3242}# - #{w 3243}# - #{s 3244}# - #{mod 3245}#) - (let ((#{tmp 3251}# #{e 3241}#)) - (let ((#{tmp 3252}# + (lambda (#{e 3250}# + #{r 3251}# + #{w 3252}# + #{s 3253}# + #{mod 3254}#) + (let ((#{tmp 3260}# #{e 3250}#)) + (let ((#{tmp 3261}# ($sc-dispatch - #{tmp 3251}# + #{tmp 3260}# '(_ any any . each-any)))) - (if #{tmp 3252}# + (if #{tmp 3261}# (@apply - (lambda (#{args 3256}# #{e1 3257}# #{e2 3258}#) + (lambda (#{args 3265}# #{e1 3266}# #{e2 3267}#) (call-with-values (lambda () - (#{chi-lambda-case 480}# - #{e 3241}# - #{r 3242}# - #{w 3243}# - #{s 3244}# - #{mod 3245}# - #{lambda*-formals 478}# - (list (cons #{args 3256}# - (cons #{e1 3257}# #{e2 3258}#))))) - (lambda (#{meta 3260}# #{lcase 3261}#) - (#{build-case-lambda 322}# - #{s 3244}# - #{meta 3260}# - #{lcase 3261}#)))) - #{tmp 3252}#) - (let ((#{_ 3265}# #{tmp 3251}#)) + (#{chi-lambda-case 481}# + #{e 3250}# + #{r 3251}# + #{w 3252}# + #{s 3253}# + #{mod 3254}# + #{lambda*-formals 479}# + (list (cons #{args 3265}# + (cons #{e1 3266}# #{e2 3267}#))))) + (lambda (#{meta 3269}# #{lcase 3270}#) + (#{build-case-lambda 323}# + #{s 3253}# + #{meta 3269}# + #{lcase 3270}#)))) + #{tmp 3261}#) + (let ((#{_ 3274}# #{tmp 3260}#)) (syntax-violation 'lambda "bad lambda*" - #{e 3241}#))))))) - (#{global-extend 372}# + #{e 3250}#))))))) + (#{global-extend 373}# 'core 'case-lambda - (lambda (#{e 3266}# - #{r 3267}# - #{w 3268}# - #{s 3269}# - #{mod 3270}#) - (let ((#{tmp 3276}# #{e 3266}#)) - (let ((#{tmp 3277}# + (lambda (#{e 3275}# + #{r 3276}# + #{w 3277}# + #{s 3278}# + #{mod 3279}#) + (let ((#{tmp 3285}# #{e 3275}#)) + (let ((#{tmp 3286}# ($sc-dispatch - #{tmp 3276}# + #{tmp 3285}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3277}# + (if #{tmp 3286}# (@apply - (lambda (#{args 3284}# - #{e1 3285}# - #{e2 3286}# - #{args* 3287}# - #{e1* 3288}# - #{e2* 3289}#) + (lambda (#{args 3293}# + #{e1 3294}# + #{e2 3295}# + #{args* 3296}# + #{e1* 3297}# + #{e2* 3298}#) (call-with-values (lambda () - (#{chi-lambda-case 480}# - #{e 3266}# - #{r 3267}# - #{w 3268}# - #{s 3269}# - #{mod 3270}# - #{lambda-formals 474}# - (cons (cons #{args 3284}# - (cons #{e1 3285}# #{e2 3286}#)) - (map (lambda (#{tmp 3293}# - #{tmp 3292}# - #{tmp 3291}#) - (cons #{tmp 3291}# - (cons #{tmp 3292}# - #{tmp 3293}#))) - #{e2* 3289}# - #{e1* 3288}# - #{args* 3287}#)))) - (lambda (#{meta 3295}# #{lcase 3296}#) - (#{build-case-lambda 322}# - #{s 3269}# - #{meta 3295}# - #{lcase 3296}#)))) - #{tmp 3277}#) - (let ((#{_ 3300}# #{tmp 3276}#)) + (#{chi-lambda-case 481}# + #{e 3275}# + #{r 3276}# + #{w 3277}# + #{s 3278}# + #{mod 3279}# + #{lambda-formals 475}# + (cons (cons #{args 3293}# + (cons #{e1 3294}# #{e2 3295}#)) + (map (lambda (#{tmp 3302}# + #{tmp 3301}# + #{tmp 3300}#) + (cons #{tmp 3300}# + (cons #{tmp 3301}# + #{tmp 3302}#))) + #{e2* 3298}# + #{e1* 3297}# + #{args* 3296}#)))) + (lambda (#{meta 3304}# #{lcase 3305}#) + (#{build-case-lambda 323}# + #{s 3278}# + #{meta 3304}# + #{lcase 3305}#)))) + #{tmp 3286}#) + (let ((#{_ 3309}# #{tmp 3285}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e 3266}#))))))) - (#{global-extend 372}# + #{e 3275}#))))))) + (#{global-extend 373}# 'core 'case-lambda* - (lambda (#{e 3301}# - #{r 3302}# - #{w 3303}# - #{s 3304}# - #{mod 3305}#) - (let ((#{tmp 3311}# #{e 3301}#)) - (let ((#{tmp 3312}# + (lambda (#{e 3310}# + #{r 3311}# + #{w 3312}# + #{s 3313}# + #{mod 3314}#) + (let ((#{tmp 3320}# #{e 3310}#)) + (let ((#{tmp 3321}# ($sc-dispatch - #{tmp 3311}# + #{tmp 3320}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3312}# + (if #{tmp 3321}# (@apply - (lambda (#{args 3319}# - #{e1 3320}# - #{e2 3321}# - #{args* 3322}# - #{e1* 3323}# - #{e2* 3324}#) + (lambda (#{args 3328}# + #{e1 3329}# + #{e2 3330}# + #{args* 3331}# + #{e1* 3332}# + #{e2* 3333}#) (call-with-values (lambda () - (#{chi-lambda-case 480}# - #{e 3301}# - #{r 3302}# - #{w 3303}# - #{s 3304}# - #{mod 3305}# - #{lambda*-formals 478}# - (cons (cons #{args 3319}# - (cons #{e1 3320}# #{e2 3321}#)) - (map (lambda (#{tmp 3328}# - #{tmp 3327}# - #{tmp 3326}#) - (cons #{tmp 3326}# - (cons #{tmp 3327}# - #{tmp 3328}#))) - #{e2* 3324}# - #{e1* 3323}# - #{args* 3322}#)))) - (lambda (#{meta 3330}# #{lcase 3331}#) - (#{build-case-lambda 322}# - #{s 3304}# - #{meta 3330}# - #{lcase 3331}#)))) - #{tmp 3312}#) - (let ((#{_ 3335}# #{tmp 3311}#)) + (#{chi-lambda-case 481}# + #{e 3310}# + #{r 3311}# + #{w 3312}# + #{s 3313}# + #{mod 3314}# + #{lambda*-formals 479}# + (cons (cons #{args 3328}# + (cons #{e1 3329}# #{e2 3330}#)) + (map (lambda (#{tmp 3337}# + #{tmp 3336}# + #{tmp 3335}#) + (cons #{tmp 3335}# + (cons #{tmp 3336}# + #{tmp 3337}#))) + #{e2* 3333}# + #{e1* 3332}# + #{args* 3331}#)))) + (lambda (#{meta 3339}# #{lcase 3340}#) + (#{build-case-lambda 323}# + #{s 3313}# + #{meta 3339}# + #{lcase 3340}#)))) + #{tmp 3321}#) + (let ((#{_ 3344}# #{tmp 3320}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 3301}#))))))) - (#{global-extend 372}# + #{e 3310}#))))))) + (#{global-extend 373}# 'core 'let (letrec* - ((#{chi-let 3337}# - (lambda (#{e 3338}# - #{r 3339}# - #{w 3340}# - #{s 3341}# - #{mod 3342}# - #{constructor 3343}# - #{ids 3344}# - #{vals 3345}# - #{exps 3346}#) - (if (not (#{valid-bound-ids? 436}# #{ids 3344}#)) + ((#{chi-let 3346}# + (lambda (#{e 3347}# + #{r 3348}# + #{w 3349}# + #{s 3350}# + #{mod 3351}# + #{constructor 3352}# + #{ids 3353}# + #{vals 3354}# + #{exps 3355}#) + (if (not (#{valid-bound-ids? 437}# #{ids 3353}#)) (syntax-violation 'let "duplicate bound variable" - #{e 3338}#) + #{e 3347}#) (begin - (let ((#{labels 3358}# - (#{gen-labels 391}# #{ids 3344}#)) - (#{new-vars 3359}# - (map #{gen-var 484}# #{ids 3344}#))) + (let ((#{labels 3367}# + (#{gen-labels 392}# #{ids 3353}#)) + (#{new-vars 3368}# + (map #{gen-var 485}# #{ids 3353}#))) (begin - (let ((#{nw 3362}# - (#{make-binding-wrap 420}# - #{ids 3344}# - #{labels 3358}# - #{w 3340}#)) - (#{nr 3363}# - (#{extend-var-env 366}# - #{labels 3358}# - #{new-vars 3359}# - #{r 3339}#))) - (#{constructor 3343}# - #{s 3341}# - (map syntax->datum #{ids 3344}#) - #{new-vars 3359}# - (map (lambda (#{x 3364}#) - (#{chi 456}# - #{x 3364}# - #{r 3339}# - #{w 3340}# - #{mod 3342}#)) - #{vals 3345}#) - (#{chi-body 464}# - #{exps 3346}# - (#{source-wrap 444}# - #{e 3338}# - #{nw 3362}# - #{s 3341}# - #{mod 3342}#) - #{nr 3363}# - #{nw 3362}# - #{mod 3342}#)))))))))) + (let ((#{nw 3371}# + (#{make-binding-wrap 421}# + #{ids 3353}# + #{labels 3367}# + #{w 3349}#)) + (#{nr 3372}# + (#{extend-var-env 367}# + #{labels 3367}# + #{new-vars 3368}# + #{r 3348}#))) + (#{constructor 3352}# + #{s 3350}# + (map syntax->datum #{ids 3353}#) + #{new-vars 3368}# + (map (lambda (#{x 3373}#) + (#{chi 457}# + #{x 3373}# + #{r 3348}# + #{w 3349}# + #{mod 3351}#)) + #{vals 3354}#) + (#{chi-body 465}# + #{exps 3355}# + (#{source-wrap 445}# + #{e 3347}# + #{nw 3371}# + #{s 3350}# + #{mod 3351}#) + #{nr 3372}# + #{nw 3371}# + #{mod 3351}#)))))))))) (begin - (lambda (#{e 3366}# - #{r 3367}# - #{w 3368}# - #{s 3369}# - #{mod 3370}#) - (let ((#{tmp 3376}# #{e 3366}#)) - (let ((#{tmp 3377}# + (lambda (#{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}#) + (let ((#{tmp 3385}# #{e 3375}#)) + (let ((#{tmp 3386}# ($sc-dispatch - #{tmp 3376}# + #{tmp 3385}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3377}# + (if (if #{tmp 3386}# (@apply - (lambda (#{id 3382}# - #{val 3383}# - #{e1 3384}# - #{e2 3385}#) - (and-map #{id? 376}# #{id 3382}#)) - #{tmp 3377}#) + (lambda (#{id 3391}# + #{val 3392}# + #{e1 3393}# + #{e2 3394}#) + (and-map #{id? 377}# #{id 3391}#)) + #{tmp 3386}#) #f) (@apply - (lambda (#{id 3391}# - #{val 3392}# - #{e1 3393}# - #{e2 3394}#) - (#{chi-let 3337}# - #{e 3366}# - #{r 3367}# - #{w 3368}# - #{s 3369}# - #{mod 3370}# - #{build-let 332}# - #{id 3391}# - #{val 3392}# - (cons #{e1 3393}# #{e2 3394}#))) - #{tmp 3377}#) - (let ((#{tmp 3398}# + (lambda (#{id 3400}# + #{val 3401}# + #{e1 3402}# + #{e2 3403}#) + (#{chi-let 3346}# + #{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}# + #{build-let 333}# + #{id 3400}# + #{val 3401}# + (cons #{e1 3402}# #{e2 3403}#))) + #{tmp 3386}#) + (let ((#{tmp 3407}# ($sc-dispatch - #{tmp 3376}# + #{tmp 3385}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3398}# + (if (if #{tmp 3407}# (@apply - (lambda (#{f 3404}# - #{id 3405}# - #{val 3406}# - #{e1 3407}# - #{e2 3408}#) - (if (#{id? 376}# #{f 3404}#) - (and-map #{id? 376}# #{id 3405}#) + (lambda (#{f 3413}# + #{id 3414}# + #{val 3415}# + #{e1 3416}# + #{e2 3417}#) + (if (#{id? 377}# #{f 3413}#) + (and-map #{id? 377}# #{id 3414}#) #f)) - #{tmp 3398}#) + #{tmp 3407}#) #f) (@apply - (lambda (#{f 3417}# - #{id 3418}# - #{val 3419}# - #{e1 3420}# - #{e2 3421}#) - (#{chi-let 3337}# - #{e 3366}# - #{r 3367}# - #{w 3368}# - #{s 3369}# - #{mod 3370}# - #{build-named-let 334}# - (cons #{f 3417}# #{id 3418}#) - #{val 3419}# - (cons #{e1 3420}# #{e2 3421}#))) - #{tmp 3398}#) - (let ((#{_ 3426}# #{tmp 3376}#)) + (lambda (#{f 3426}# + #{id 3427}# + #{val 3428}# + #{e1 3429}# + #{e2 3430}#) + (#{chi-let 3346}# + #{e 3375}# + #{r 3376}# + #{w 3377}# + #{s 3378}# + #{mod 3379}# + #{build-named-let 335}# + (cons #{f 3426}# #{id 3427}#) + #{val 3428}# + (cons #{e1 3429}# #{e2 3430}#))) + #{tmp 3407}#) + (let ((#{_ 3435}# #{tmp 3385}#)) (syntax-violation 'let "bad let" - (#{source-wrap 444}# - #{e 3366}# - #{w 3368}# - #{s 3369}# - #{mod 3370}#)))))))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3375}# + #{w 3377}# + #{s 3378}# + #{mod 3379}#)))))))))))) + (#{global-extend 373}# 'core 'letrec - (lambda (#{e 3427}# - #{r 3428}# - #{w 3429}# - #{s 3430}# - #{mod 3431}#) - (let ((#{tmp 3437}# #{e 3427}#)) - (let ((#{tmp 3438}# + (lambda (#{e 3436}# + #{r 3437}# + #{w 3438}# + #{s 3439}# + #{mod 3440}#) + (let ((#{tmp 3446}# #{e 3436}#)) + (let ((#{tmp 3447}# ($sc-dispatch - #{tmp 3437}# + #{tmp 3446}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3438}# + (if (if #{tmp 3447}# (@apply - (lambda (#{id 3443}# - #{val 3444}# - #{e1 3445}# - #{e2 3446}#) - (and-map #{id? 376}# #{id 3443}#)) - #{tmp 3438}#) + (lambda (#{id 3452}# + #{val 3453}# + #{e1 3454}# + #{e2 3455}#) + (and-map #{id? 377}# #{id 3452}#)) + #{tmp 3447}#) #f) (@apply - (lambda (#{id 3452}# - #{val 3453}# - #{e1 3454}# - #{e2 3455}#) + (lambda (#{id 3461}# + #{val 3462}# + #{e1 3463}# + #{e2 3464}#) (begin - (let ((#{ids 3457}# #{id 3452}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 3457}#)) + (let ((#{ids 3466}# #{id 3461}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 3466}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 3427}#) + #{e 3436}#) (begin - (let ((#{labels 3461}# - (#{gen-labels 391}# #{ids 3457}#)) - (#{new-vars 3462}# - (map #{gen-var 484}# #{ids 3457}#))) + (let ((#{labels 3470}# + (#{gen-labels 392}# #{ids 3466}#)) + (#{new-vars 3471}# + (map #{gen-var 485}# #{ids 3466}#))) (begin - (let ((#{w 3465}# - (#{make-binding-wrap 420}# - #{ids 3457}# - #{labels 3461}# - #{w 3429}#)) - (#{r 3466}# - (#{extend-var-env 366}# - #{labels 3461}# - #{new-vars 3462}# - #{r 3428}#))) - (#{build-letrec 336}# - #{s 3430}# + (let ((#{w 3474}# + (#{make-binding-wrap 421}# + #{ids 3466}# + #{labels 3470}# + #{w 3438}#)) + (#{r 3475}# + (#{extend-var-env 367}# + #{labels 3470}# + #{new-vars 3471}# + #{r 3437}#))) + (#{build-letrec 337}# + #{s 3439}# #f - (map syntax->datum #{ids 3457}#) - #{new-vars 3462}# - (map (lambda (#{x 3467}#) - (#{chi 456}# - #{x 3467}# - #{r 3466}# - #{w 3465}# - #{mod 3431}#)) - #{val 3453}#) - (#{chi-body 464}# - (cons #{e1 3454}# #{e2 3455}#) - (#{source-wrap 444}# - #{e 3427}# - #{w 3465}# - #{s 3430}# - #{mod 3431}#) - #{r 3466}# - #{w 3465}# - #{mod 3431}#)))))))))) - #{tmp 3438}#) - (let ((#{_ 3472}# #{tmp 3437}#)) + (map syntax->datum #{ids 3466}#) + #{new-vars 3471}# + (map (lambda (#{x 3476}#) + (#{chi 457}# + #{x 3476}# + #{r 3475}# + #{w 3474}# + #{mod 3440}#)) + #{val 3462}#) + (#{chi-body 465}# + (cons #{e1 3463}# #{e2 3464}#) + (#{source-wrap 445}# + #{e 3436}# + #{w 3474}# + #{s 3439}# + #{mod 3440}#) + #{r 3475}# + #{w 3474}# + #{mod 3440}#)))))))))) + #{tmp 3447}#) + (let ((#{_ 3481}# #{tmp 3446}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap 444}# - #{e 3427}# - #{w 3429}# - #{s 3430}# - #{mod 3431}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3436}# + #{w 3438}# + #{s 3439}# + #{mod 3440}#)))))))) + (#{global-extend 373}# 'core 'letrec* - (lambda (#{e 3473}# - #{r 3474}# - #{w 3475}# - #{s 3476}# - #{mod 3477}#) - (let ((#{tmp 3483}# #{e 3473}#)) - (let ((#{tmp 3484}# + (lambda (#{e 3482}# + #{r 3483}# + #{w 3484}# + #{s 3485}# + #{mod 3486}#) + (let ((#{tmp 3492}# #{e 3482}#)) + (let ((#{tmp 3493}# ($sc-dispatch - #{tmp 3483}# + #{tmp 3492}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3484}# + (if (if #{tmp 3493}# (@apply - (lambda (#{id 3489}# - #{val 3490}# - #{e1 3491}# - #{e2 3492}#) - (and-map #{id? 376}# #{id 3489}#)) - #{tmp 3484}#) + (lambda (#{id 3498}# + #{val 3499}# + #{e1 3500}# + #{e2 3501}#) + (and-map #{id? 377}# #{id 3498}#)) + #{tmp 3493}#) #f) (@apply - (lambda (#{id 3498}# - #{val 3499}# - #{e1 3500}# - #{e2 3501}#) + (lambda (#{id 3507}# + #{val 3508}# + #{e1 3509}# + #{e2 3510}#) (begin - (let ((#{ids 3503}# #{id 3498}#)) - (if (not (#{valid-bound-ids? 436}# #{ids 3503}#)) + (let ((#{ids 3512}# #{id 3507}#)) + (if (not (#{valid-bound-ids? 437}# #{ids 3512}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 3473}#) + #{e 3482}#) (begin - (let ((#{labels 3507}# - (#{gen-labels 391}# #{ids 3503}#)) - (#{new-vars 3508}# - (map #{gen-var 484}# #{ids 3503}#))) + (let ((#{labels 3516}# + (#{gen-labels 392}# #{ids 3512}#)) + (#{new-vars 3517}# + (map #{gen-var 485}# #{ids 3512}#))) (begin - (let ((#{w 3511}# - (#{make-binding-wrap 420}# - #{ids 3503}# - #{labels 3507}# - #{w 3475}#)) - (#{r 3512}# - (#{extend-var-env 366}# - #{labels 3507}# - #{new-vars 3508}# - #{r 3474}#))) - (#{build-letrec 336}# - #{s 3476}# + (let ((#{w 3520}# + (#{make-binding-wrap 421}# + #{ids 3512}# + #{labels 3516}# + #{w 3484}#)) + (#{r 3521}# + (#{extend-var-env 367}# + #{labels 3516}# + #{new-vars 3517}# + #{r 3483}#))) + (#{build-letrec 337}# + #{s 3485}# #t - (map syntax->datum #{ids 3503}#) - #{new-vars 3508}# - (map (lambda (#{x 3513}#) - (#{chi 456}# - #{x 3513}# - #{r 3512}# - #{w 3511}# - #{mod 3477}#)) - #{val 3499}#) - (#{chi-body 464}# - (cons #{e1 3500}# #{e2 3501}#) - (#{source-wrap 444}# - #{e 3473}# - #{w 3511}# - #{s 3476}# - #{mod 3477}#) - #{r 3512}# - #{w 3511}# - #{mod 3477}#)))))))))) - #{tmp 3484}#) - (let ((#{_ 3518}# #{tmp 3483}#)) + (map syntax->datum #{ids 3512}#) + #{new-vars 3517}# + (map (lambda (#{x 3522}#) + (#{chi 457}# + #{x 3522}# + #{r 3521}# + #{w 3520}# + #{mod 3486}#)) + #{val 3508}#) + (#{chi-body 465}# + (cons #{e1 3509}# #{e2 3510}#) + (#{source-wrap 445}# + #{e 3482}# + #{w 3520}# + #{s 3485}# + #{mod 3486}#) + #{r 3521}# + #{w 3520}# + #{mod 3486}#)))))))))) + #{tmp 3493}#) + (let ((#{_ 3527}# #{tmp 3492}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap 444}# - #{e 3473}# - #{w 3475}# - #{s 3476}# - #{mod 3477}#)))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3482}# + #{w 3484}# + #{s 3485}# + #{mod 3486}#)))))))) + (#{global-extend 373}# 'core 'set! - (lambda (#{e 3519}# - #{r 3520}# - #{w 3521}# - #{s 3522}# - #{mod 3523}#) - (let ((#{tmp 3529}# #{e 3519}#)) - (let ((#{tmp 3530}# - ($sc-dispatch #{tmp 3529}# '(_ any any)))) - (if (if #{tmp 3530}# + (lambda (#{e 3528}# + #{r 3529}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#) + (let ((#{tmp 3538}# #{e 3528}#)) + (let ((#{tmp 3539}# + ($sc-dispatch #{tmp 3538}# '(_ any any)))) + (if (if #{tmp 3539}# (@apply - (lambda (#{id 3533}# #{val 3534}#) - (#{id? 376}# #{id 3533}#)) - #{tmp 3530}#) + (lambda (#{id 3542}# #{val 3543}#) + (#{id? 377}# #{id 3542}#)) + #{tmp 3539}#) #f) (@apply - (lambda (#{id 3537}# #{val 3538}#) + (lambda (#{id 3546}# #{val 3547}#) (begin - (let ((#{n 3541}# - (#{id-var-name 430}# #{id 3537}# #{w 3521}#)) - (#{id-mod 3542}# - (if (#{syntax-object? 342}# #{id 3537}#) - (#{syntax-object-module 348}# #{id 3537}#) - #{mod 3523}#))) + (let ((#{n 3550}# + (#{id-var-name 431}# #{id 3546}# #{w 3530}#)) + (#{id-mod 3551}# + (if (#{syntax-object? 343}# #{id 3546}#) + (#{syntax-object-module 349}# #{id 3546}#) + #{mod 3532}#))) (begin - (let ((#{b 3544}# - (#{lookup 370}# - #{n 3541}# - #{r 3520}# - #{id-mod 3542}#))) + (let ((#{b 3553}# + (#{lookup 371}# + #{n 3550}# + #{r 3529}# + #{id-mod 3551}#))) (begin - (let ((#{atom-key 3547}# (car #{b 3544}#))) - (if (eqv? #{atom-key 3547}# 'lexical) - (#{build-lexical-assignment 310}# - #{s 3522}# - (syntax->datum #{id 3537}#) - (cdr #{b 3544}#) - (#{chi 456}# - #{val 3538}# - #{r 3520}# - #{w 3521}# - #{mod 3523}#)) - (if (eqv? #{atom-key 3547}# 'global) - (#{build-global-assignment 316}# - #{s 3522}# - #{n 3541}# - (#{chi 456}# - #{val 3538}# - #{r 3520}# - #{w 3521}# - #{mod 3523}#) - #{id-mod 3542}#) - (if (eqv? #{atom-key 3547}# 'macro) + (let ((#{atom-key 3556}# (car #{b 3553}#))) + (if (eqv? #{atom-key 3556}# 'lexical) + (#{build-lexical-assignment 311}# + #{s 3531}# + (syntax->datum #{id 3546}#) + (cdr #{b 3553}#) + (#{chi 457}# + #{val 3547}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#)) + (if (eqv? #{atom-key 3556}# 'global) + (#{build-global-assignment 317}# + #{s 3531}# + #{n 3550}# + (#{chi 457}# + #{val 3547}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#) + #{id-mod 3551}#) + (if (eqv? #{atom-key 3556}# 'macro) (begin - (let ((#{p 3554}# - (cdr #{b 3544}#))) + (let ((#{p 3563}# + (cdr #{b 3553}#))) (if (procedure-property - #{p 3554}# + #{p 3563}# 'variable-transformer) - (#{chi 456}# - (#{chi-macro 462}# - #{p 3554}# - #{e 3519}# - #{r 3520}# - #{w 3521}# - #{s 3522}# + (#{chi 457}# + (#{chi-macro 463}# + #{p 3563}# + #{e 3528}# + #{r 3529}# + #{w 3530}# + #{s 3531}# #f - #{mod 3523}#) - #{r 3520}# + #{mod 3532}#) + #{r 3529}# '(()) - #{mod 3523}#) + #{mod 3532}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 442}# - #{e 3519}# - #{w 3521}# - #{mod 3523}#) - (#{wrap 442}# - #{id 3537}# - #{w 3521}# - #{id-mod 3542}#))))) - (if (eqv? #{atom-key 3547}# + (#{wrap 443}# + #{e 3528}# + #{w 3530}# + #{mod 3532}#) + (#{wrap 443}# + #{id 3546}# + #{w 3530}# + #{id-mod 3551}#))))) + (if (eqv? #{atom-key 3556}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 442}# - #{id 3537}# - #{w 3521}# - #{mod 3523}#)) + (#{wrap 443}# + #{id 3546}# + #{w 3530}# + #{mod 3532}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 444}# - #{e 3519}# - #{w 3521}# - #{s 3522}# - #{mod 3523}#))))))))))))) - #{tmp 3530}#) - (let ((#{tmp 3559}# + (#{source-wrap 445}# + #{e 3528}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#))))))))))))) + #{tmp 3539}#) + (let ((#{tmp 3568}# ($sc-dispatch - #{tmp 3529}# + #{tmp 3538}# '(_ (any . each-any) any)))) - (if #{tmp 3559}# + (if #{tmp 3568}# (@apply - (lambda (#{head 3563}# #{tail 3564}# #{val 3565}#) + (lambda (#{head 3572}# #{tail 3573}# #{val 3574}#) (call-with-values (lambda () - (#{syntax-type 454}# - #{head 3563}# - #{r 3520}# + (#{syntax-type 455}# + #{head 3572}# + #{r 3529}# '(()) #f #f - #{mod 3523}# + #{mod 3532}# #t)) - (lambda (#{type 3568}# - #{value 3569}# - #{ee 3570}# - #{ww 3571}# - #{ss 3572}# - #{modmod 3573}#) - (if (eqv? #{type 3568}# 'module-ref) + (lambda (#{type 3577}# + #{value 3578}# + #{ee 3579}# + #{ww 3580}# + #{ss 3581}# + #{modmod 3582}#) + (if (eqv? #{type 3577}# 'module-ref) (begin - (let ((#{val 3582}# - (#{chi 456}# - #{val 3565}# - #{r 3520}# - #{w 3521}# - #{mod 3523}#))) + (let ((#{val 3591}# + (#{chi 457}# + #{val 3574}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#))) (call-with-values (lambda () - (#{value 3569}# - (cons #{head 3563}# #{tail 3564}#) - #{r 3520}# - #{w 3521}#)) - (lambda (#{e 3584}# - #{r 3585}# - #{w 3586}# - #{s* 3587}# - #{mod 3588}#) - (let ((#{tmp 3594}# #{e 3584}#)) - (let ((#{tmp 3595}# - (list #{tmp 3594}#))) - (if (if #{tmp 3595}# + (#{value 3578}# + (cons #{head 3572}# #{tail 3573}#) + #{r 3529}# + #{w 3530}#)) + (lambda (#{e 3593}# + #{r 3594}# + #{w 3595}# + #{s* 3596}# + #{mod 3597}#) + (let ((#{tmp 3603}# #{e 3593}#)) + (let ((#{tmp 3604}# + (list #{tmp 3603}#))) + (if (if #{tmp 3604}# (@apply - (lambda (#{e 3597}#) - (#{id? 376}# - #{e 3597}#)) - #{tmp 3595}#) + (lambda (#{e 3606}#) + (#{id? 377}# + #{e 3606}#)) + #{tmp 3604}#) #f) (@apply - (lambda (#{e 3599}#) - (#{build-global-assignment 316}# - #{s 3522}# + (lambda (#{e 3608}#) + (#{build-global-assignment 317}# + #{s 3531}# (syntax->datum - #{e 3599}#) - #{val 3582}# - #{mod 3588}#)) - #{tmp 3595}#) + #{e 3608}#) + #{val 3591}# + #{mod 3597}#)) + #{tmp 3604}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3594}#)))))))) - (#{build-application 302}# - #{s 3522}# - (#{chi 456}# + #{tmp 3603}#)))))))) + (#{build-application 303}# + #{s 3531}# + (#{chi 457}# (list '#(syntax-object setter ((top) @@ -10101,16 +8393,16 @@ (top) (top) (top)) - #("i3574" - "i3575" - "i3576" - "i3577" - "i3578" - "i3579")) + #("i3583" + "i3584" + "i3585" + "i3586" + "i3587" + "i3588")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3560" "i3561" "i3562")) + #("i3569" "i3570" "i3571")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10119,11 +8411,11 @@ (top) (top) (top)) - #("i3524" - "i3525" - "i3526" - "i3527" - "i3528")) + #("i3533" + "i3534" + "i3535" + "i3536" + "i3537")) #(ribcage (lambda-var-list gen-var @@ -10397,57 +8689,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -10456,135 +8749,134 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{head 3563}#) - #{r 3520}# - #{w 3521}# - #{mod 3523}#) - (map (lambda (#{e 3601}#) - (#{chi 456}# - #{e 3601}# - #{r 3520}# - #{w 3521}# - #{mod 3523}#)) + #{head 3572}#) + #{r 3529}# + #{w 3530}# + #{mod 3532}#) + (map (lambda (#{e 3610}#) + (#{chi 457}# + #{e 3610}# + #{r 3529}# + #{w 3530}# + #{mod 3532}#)) (append - #{tail 3564}# - (list #{val 3565}#)))))))) - #{tmp 3559}#) - (let ((#{_ 3605}# #{tmp 3529}#)) + #{tail 3573}# + (list #{val 3574}#)))))))) + #{tmp 3568}#) + (let ((#{_ 3614}# #{tmp 3538}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 444}# - #{e 3519}# - #{w 3521}# - #{s 3522}# - #{mod 3523}#)))))))))) - (#{global-extend 372}# + (#{source-wrap 445}# + #{e 3528}# + #{w 3530}# + #{s 3531}# + #{mod 3532}#)))))))))) + (#{global-extend 373}# 'module-ref '@ - (lambda (#{e 3606}# #{r 3607}# #{w 3608}#) - (let ((#{tmp 3612}# #{e 3606}#)) - (let ((#{tmp 3613}# - ($sc-dispatch #{tmp 3612}# '(_ each-any any)))) - (if (if #{tmp 3613}# + (lambda (#{e 3615}# #{r 3616}# #{w 3617}#) + (let ((#{tmp 3621}# #{e 3615}#)) + (let ((#{tmp 3622}# + ($sc-dispatch #{tmp 3621}# '(_ each-any any)))) + (if (if #{tmp 3622}# (@apply - (lambda (#{mod 3616}# #{id 3617}#) - (if (and-map #{id? 376}# #{mod 3616}#) - (#{id? 376}# #{id 3617}#) + (lambda (#{mod 3625}# #{id 3626}#) + (if (and-map #{id? 377}# #{mod 3625}#) + (#{id? 377}# #{id 3626}#) #f)) - #{tmp 3613}#) + #{tmp 3622}#) #f) (@apply - (lambda (#{mod 3623}# #{id 3624}#) + (lambda (#{mod 3632}# #{id 3633}#) (values - (syntax->datum #{id 3624}#) - #{r 3607}# - #{w 3608}# + (syntax->datum #{id 3633}#) + #{r 3616}# + #{w 3617}# #f (syntax->datum (cons '#(syntax-object @@ -10593,12 +8885,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3621" "i3622")) + #("i3630" "i3631")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3609" "i3610" "i3611")) + #("i3618" "i3619" "i3620")) #(ribcage (lambda-var-list gen-var @@ -10872,57 +9164,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -10931,155 +9224,154 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{mod 3623}#)))) - #{tmp 3613}#) + #{mod 3632}#)))) + #{tmp 3622}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3612}#)))))) - (#{global-extend 372}# + #{tmp 3621}#)))))) + (#{global-extend 373}# 'module-ref '@@ - (lambda (#{e 3626}# #{r 3627}# #{w 3628}#) + (lambda (#{e 3635}# #{r 3636}# #{w 3637}#) (letrec* - ((#{remodulate 3633}# - (lambda (#{x 3634}# #{mod 3635}#) - (if (pair? #{x 3634}#) - (cons (#{remodulate 3633}# - (car #{x 3634}#) - #{mod 3635}#) - (#{remodulate 3633}# - (cdr #{x 3634}#) - #{mod 3635}#)) - (if (#{syntax-object? 342}# #{x 3634}#) - (#{make-syntax-object 340}# - (#{remodulate 3633}# - (#{syntax-object-expression 344}# #{x 3634}#) - #{mod 3635}#) - (#{syntax-object-wrap 346}# #{x 3634}#) - #{mod 3635}#) - (if (vector? #{x 3634}#) + ((#{remodulate 3642}# + (lambda (#{x 3643}# #{mod 3644}#) + (if (pair? #{x 3643}#) + (cons (#{remodulate 3642}# + (car #{x 3643}#) + #{mod 3644}#) + (#{remodulate 3642}# + (cdr #{x 3643}#) + #{mod 3644}#)) + (if (#{syntax-object? 343}# #{x 3643}#) + (#{make-syntax-object 341}# + (#{remodulate 3642}# + (#{syntax-object-expression 345}# #{x 3643}#) + #{mod 3644}#) + (#{syntax-object-wrap 347}# #{x 3643}#) + #{mod 3644}#) + (if (vector? #{x 3643}#) (begin - (let ((#{n 3646}# (vector-length #{x 3634}#))) + (let ((#{n 3655}# (vector-length #{x 3643}#))) (begin - (let ((#{v 3648}# (make-vector #{n 3646}#))) + (let ((#{v 3657}# (make-vector #{n 3655}#))) (letrec* - ((#{loop 3651}# - (lambda (#{i 3652}#) - (if (= #{i 3652}# #{n 3646}#) - (begin (if #f #f) #{v 3648}#) + ((#{loop 3660}# + (lambda (#{i 3661}#) + (if (= #{i 3661}# #{n 3655}#) + (begin (if #f #f) #{v 3657}#) (begin (vector-set! - #{v 3648}# - #{i 3652}# - (#{remodulate 3633}# + #{v 3657}# + #{i 3661}# + (#{remodulate 3642}# (vector-ref - #{x 3634}# - #{i 3652}#) - #{mod 3635}#)) - (#{loop 3651}# - (#{1+}# #{i 3652}#))))))) - (begin (#{loop 3651}# 0))))))) - #{x 3634}#)))))) + #{x 3643}# + #{i 3661}#) + #{mod 3644}#)) + (#{loop 3660}# + (#{1+}# #{i 3661}#))))))) + (begin (#{loop 3660}# 0))))))) + #{x 3643}#)))))) (begin - (let ((#{tmp 3658}# #{e 3626}#)) - (let ((#{tmp 3659}# - ($sc-dispatch #{tmp 3658}# '(_ each-any any)))) - (if (if #{tmp 3659}# + (let ((#{tmp 3667}# #{e 3635}#)) + (let ((#{tmp 3668}# + ($sc-dispatch #{tmp 3667}# '(_ each-any any)))) + (if (if #{tmp 3668}# (@apply - (lambda (#{mod 3662}# #{exp 3663}#) - (and-map #{id? 376}# #{mod 3662}#)) - #{tmp 3659}#) + (lambda (#{mod 3671}# #{exp 3672}#) + (and-map #{id? 377}# #{mod 3671}#)) + #{tmp 3668}#) #f) (@apply - (lambda (#{mod 3667}# #{exp 3668}#) + (lambda (#{mod 3676}# #{exp 3677}#) (begin - (let ((#{mod 3670}# + (let ((#{mod 3679}# (syntax->datum (cons '#(syntax-object private @@ -11087,15 +9379,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3665" "i3666")) + #("i3674" "i3675")) #(ribcage (remodulate) ((top)) - ("i3632")) + ("i3641")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3629" "i3630" "i3631")) + #("i3638" "i3639" "i3640")) #(ribcage (lambda-var-list gen-var @@ -11369,57 +9661,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -11428,256 +9721,255 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{mod 3667}#)))) + #{mod 3676}#)))) (values - (#{remodulate 3633}# - #{exp 3668}# - #{mod 3670}#) - #{r 3627}# - #{w 3628}# - (#{source-annotation 357}# #{exp 3668}#) - #{mod 3670}#)))) - #{tmp 3659}#) + (#{remodulate 3642}# + #{exp 3677}# + #{mod 3679}#) + #{r 3636}# + #{w 3637}# + (#{source-annotation 358}# #{exp 3677}#) + #{mod 3679}#)))) + #{tmp 3668}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3658}#)))))))) - (#{global-extend 372}# + #{tmp 3667}#)))))))) + (#{global-extend 373}# 'core 'if - (lambda (#{e 3672}# - #{r 3673}# - #{w 3674}# - #{s 3675}# - #{mod 3676}#) - (let ((#{tmp 3682}# #{e 3672}#)) - (let ((#{tmp 3683}# - ($sc-dispatch #{tmp 3682}# '(_ any any)))) - (if #{tmp 3683}# + (lambda (#{e 3681}# + #{r 3682}# + #{w 3683}# + #{s 3684}# + #{mod 3685}#) + (let ((#{tmp 3691}# #{e 3681}#)) + (let ((#{tmp 3692}# + ($sc-dispatch #{tmp 3691}# '(_ any any)))) + (if #{tmp 3692}# (@apply - (lambda (#{test 3686}# #{then 3687}#) - (#{build-conditional 304}# - #{s 3675}# - (#{chi 456}# - #{test 3686}# - #{r 3673}# - #{w 3674}# - #{mod 3676}#) - (#{chi 456}# - #{then 3687}# - #{r 3673}# - #{w 3674}# - #{mod 3676}#) - (#{build-void 300}# #f))) - #{tmp 3683}#) - (let ((#{tmp 3689}# - ($sc-dispatch #{tmp 3682}# '(_ any any any)))) - (if #{tmp 3689}# + (lambda (#{test 3695}# #{then 3696}#) + (#{build-conditional 305}# + #{s 3684}# + (#{chi 457}# + #{test 3695}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{then 3696}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{build-void 301}# #f))) + #{tmp 3692}#) + (let ((#{tmp 3698}# + ($sc-dispatch #{tmp 3691}# '(_ any any any)))) + (if #{tmp 3698}# (@apply - (lambda (#{test 3693}# #{then 3694}# #{else 3695}#) - (#{build-conditional 304}# - #{s 3675}# - (#{chi 456}# - #{test 3693}# - #{r 3673}# - #{w 3674}# - #{mod 3676}#) - (#{chi 456}# - #{then 3694}# - #{r 3673}# - #{w 3674}# - #{mod 3676}#) - (#{chi 456}# - #{else 3695}# - #{r 3673}# - #{w 3674}# - #{mod 3676}#))) - #{tmp 3689}#) + (lambda (#{test 3702}# #{then 3703}# #{else 3704}#) + (#{build-conditional 305}# + #{s 3684}# + (#{chi 457}# + #{test 3702}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{then 3703}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#) + (#{chi 457}# + #{else 3704}# + #{r 3682}# + #{w 3683}# + #{mod 3685}#))) + #{tmp 3698}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3682}#)))))))) - (#{global-extend 372}# + #{tmp 3691}#)))))))) + (#{global-extend 373}# 'core 'with-fluids - (lambda (#{e 3696}# - #{r 3697}# - #{w 3698}# - #{s 3699}# - #{mod 3700}#) - (let ((#{tmp 3706}# #{e 3696}#)) - (let ((#{tmp 3707}# + (lambda (#{e 3705}# + #{r 3706}# + #{w 3707}# + #{s 3708}# + #{mod 3709}#) + (let ((#{tmp 3715}# #{e 3705}#)) + (let ((#{tmp 3716}# ($sc-dispatch - #{tmp 3706}# + #{tmp 3715}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3707}# + (if #{tmp 3716}# (@apply - (lambda (#{fluid 3712}# - #{val 3713}# - #{b 3714}# - #{b* 3715}#) - (#{build-dynlet 306}# - #{s 3699}# - (map (lambda (#{x 3716}#) - (#{chi 456}# - #{x 3716}# - #{r 3697}# - #{w 3698}# - #{mod 3700}#)) - #{fluid 3712}#) - (map (lambda (#{x 3719}#) - (#{chi 456}# - #{x 3719}# - #{r 3697}# - #{w 3698}# - #{mod 3700}#)) - #{val 3713}#) - (#{chi-body 464}# - (cons #{b 3714}# #{b* 3715}#) - (#{source-wrap 444}# - #{e 3696}# - #{w 3698}# - #{s 3699}# - #{mod 3700}#) - #{r 3697}# - #{w 3698}# - #{mod 3700}#))) - #{tmp 3707}#) + (lambda (#{fluid 3721}# + #{val 3722}# + #{b 3723}# + #{b* 3724}#) + (#{build-dynlet 307}# + #{s 3708}# + (map (lambda (#{x 3725}#) + (#{chi 457}# + #{x 3725}# + #{r 3706}# + #{w 3707}# + #{mod 3709}#)) + #{fluid 3721}#) + (map (lambda (#{x 3728}#) + (#{chi 457}# + #{x 3728}# + #{r 3706}# + #{w 3707}# + #{mod 3709}#)) + #{val 3722}#) + (#{chi-body 465}# + (cons #{b 3723}# #{b* 3724}#) + (#{source-wrap 445}# + #{e 3705}# + #{w 3707}# + #{s 3708}# + #{mod 3709}#) + #{r 3706}# + #{w 3707}# + #{mod 3709}#))) + #{tmp 3716}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3706}#)))))) - (#{global-extend 372}# 'begin 'begin '()) - (#{global-extend 372}# 'define 'define '()) - (#{global-extend 372}# + #{tmp 3715}#)))))) + (#{global-extend 373}# 'begin 'begin '()) + (#{global-extend 373}# 'define 'define '()) + (#{global-extend 373}# 'define-syntax 'define-syntax '()) - (#{global-extend 372}# 'eval-when 'eval-when '()) - (#{global-extend 372}# + (#{global-extend 373}# 'eval-when 'eval-when '()) + (#{global-extend 373}# 'core 'syntax-case (letrec* - ((#{convert-pattern 3724}# - (lambda (#{pattern 3731}# #{keys 3732}#) + ((#{convert-pattern 3733}# + (lambda (#{pattern 3740}# #{keys 3741}#) (letrec* - ((#{cvt* 3736}# - (lambda (#{p* 3739}# #{n 3740}# #{ids 3741}#) - (if (null? #{p* 3739}#) - (values '() #{ids 3741}#) + ((#{cvt* 3745}# + (lambda (#{p* 3748}# #{n 3749}# #{ids 3750}#) + (if (null? #{p* 3748}#) + (values '() #{ids 3750}#) (call-with-values (lambda () - (#{cvt* 3736}# - (cdr #{p* 3739}#) - #{n 3740}# - #{ids 3741}#)) - (lambda (#{y 3745}# #{ids 3746}#) + (#{cvt* 3745}# + (cdr #{p* 3748}#) + #{n 3749}# + #{ids 3750}#)) + (lambda (#{y 3754}# #{ids 3755}#) (call-with-values (lambda () - (#{cvt 3738}# - (car #{p* 3739}#) - #{n 3740}# - #{ids 3746}#)) - (lambda (#{x 3749}# #{ids 3750}#) + (#{cvt 3747}# + (car #{p* 3748}#) + #{n 3749}# + #{ids 3755}#)) + (lambda (#{x 3758}# #{ids 3759}#) (values - (cons #{x 3749}# #{y 3745}#) - #{ids 3750}#)))))))) - (#{cvt 3738}# - (lambda (#{p 3753}# #{n 3754}# #{ids 3755}#) - (if (#{id? 376}# #{p 3753}#) - (if (#{bound-id-member? 440}# - #{p 3753}# - #{keys 3732}#) + (cons #{x 3758}# #{y 3754}#) + #{ids 3759}#)))))))) + (#{cvt 3747}# + (lambda (#{p 3762}# #{n 3763}# #{ids 3764}#) + (if (#{id? 377}# #{p 3762}#) + (if (#{bound-id-member? 441}# + #{p 3762}# + #{keys 3741}#) (values - (vector 'free-id #{p 3753}#) - #{ids 3755}#) - (if (#{free-id=? 432}# - #{p 3753}# + (vector 'free-id #{p 3762}#) + #{ids 3764}#) + (if (#{free-id=? 433}# + #{p 3762}# '#(syntax-object _ ((top) @@ -11685,22 +9977,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3756" "i3757" "i3758")) + #("i3765" "i3766" "i3767")) #(ribcage (cvt cvt*) ((top) (top)) - ("i3737" "i3735")) + ("i3746" "i3744")) #(ribcage #(pattern keys) #((top) (top)) - #("i3733" "i3734")) + #("i3742" "i3743")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -11974,57 +10266,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -12033,400 +10326,399 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) - (values '_ #{ids 3755}#) + (values '_ #{ids 3764}#) (values 'any - (cons (cons #{p 3753}# #{n 3754}#) - #{ids 3755}#)))) - (let ((#{tmp 3764}# #{p 3753}#)) - (let ((#{tmp 3765}# - ($sc-dispatch #{tmp 3764}# '(any any)))) - (if (if #{tmp 3765}# + (cons (cons #{p 3762}# #{n 3763}#) + #{ids 3764}#)))) + (let ((#{tmp 3773}# #{p 3762}#)) + (let ((#{tmp 3774}# + ($sc-dispatch #{tmp 3773}# '(any any)))) + (if (if #{tmp 3774}# (@apply - (lambda (#{x 3768}# #{dots 3769}#) - (#{ellipsis? 472}# #{dots 3769}#)) - #{tmp 3765}#) + (lambda (#{x 3777}# #{dots 3778}#) + (#{ellipsis? 473}# #{dots 3778}#)) + #{tmp 3774}#) #f) (@apply - (lambda (#{x 3772}# #{dots 3773}#) + (lambda (#{x 3781}# #{dots 3782}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3772}# - (#{1+}# #{n 3754}#) - #{ids 3755}#)) - (lambda (#{p 3775}# #{ids 3776}#) + (#{cvt 3747}# + #{x 3781}# + (#{1+}# #{n 3763}#) + #{ids 3764}#)) + (lambda (#{p 3784}# #{ids 3785}#) (values - (if (eq? #{p 3775}# 'any) + (if (eq? #{p 3784}# 'any) 'each-any - (vector 'each #{p 3775}#)) - #{ids 3776}#)))) - #{tmp 3765}#) - (let ((#{tmp 3779}# + (vector 'each #{p 3784}#)) + #{ids 3785}#)))) + #{tmp 3774}#) + (let ((#{tmp 3788}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '(any any . each-any)))) - (if (if #{tmp 3779}# + (if (if #{tmp 3788}# (@apply - (lambda (#{x 3783}# - #{dots 3784}# - #{ys 3785}#) - (#{ellipsis? 472}# - #{dots 3784}#)) - #{tmp 3779}#) + (lambda (#{x 3792}# + #{dots 3793}# + #{ys 3794}#) + (#{ellipsis? 473}# + #{dots 3793}#)) + #{tmp 3788}#) #f) (@apply - (lambda (#{x 3789}# - #{dots 3790}# - #{ys 3791}#) + (lambda (#{x 3798}# + #{dots 3799}# + #{ys 3800}#) (call-with-values (lambda () - (#{cvt* 3736}# - #{ys 3791}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{ys 3793}# #{ids 3794}#) + (#{cvt* 3745}# + #{ys 3800}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{ys 3802}# #{ids 3803}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3789}# - (#{1+}# #{n 3754}#) - #{ids 3794}#)) - (lambda (#{x 3797}# - #{ids 3798}#) + (#{cvt 3747}# + #{x 3798}# + (#{1+}# #{n 3763}#) + #{ids 3803}#)) + (lambda (#{x 3806}# + #{ids 3807}#) (values (vector 'each+ - #{x 3797}# - (reverse #{ys 3793}#) + #{x 3806}# + (reverse #{ys 3802}#) '()) - #{ids 3798}#)))))) - #{tmp 3779}#) - (let ((#{tmp 3802}# + #{ids 3807}#)))))) + #{tmp 3788}#) + (let ((#{tmp 3811}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '(any . any)))) - (if #{tmp 3802}# + (if #{tmp 3811}# (@apply - (lambda (#{x 3805}# #{y 3806}#) + (lambda (#{x 3814}# #{y 3815}#) (call-with-values (lambda () - (#{cvt 3738}# - #{y 3806}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{y 3807}# - #{ids 3808}#) + (#{cvt 3747}# + #{y 3815}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{y 3816}# + #{ids 3817}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3805}# - #{n 3754}# - #{ids 3808}#)) - (lambda (#{x 3811}# - #{ids 3812}#) + (#{cvt 3747}# + #{x 3814}# + #{n 3763}# + #{ids 3817}#)) + (lambda (#{x 3820}# + #{ids 3821}#) (values - (cons #{x 3811}# - #{y 3807}#) - #{ids 3812}#)))))) - #{tmp 3802}#) - (let ((#{tmp 3815}# + (cons #{x 3820}# + #{y 3816}#) + #{ids 3821}#)))))) + #{tmp 3811}#) + (let ((#{tmp 3824}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '()))) - (if #{tmp 3815}# + (if #{tmp 3824}# (@apply (lambda () - (values '() #{ids 3755}#)) - #{tmp 3815}#) - (let ((#{tmp 3816}# + (values '() #{ids 3764}#)) + #{tmp 3824}#) + (let ((#{tmp 3825}# ($sc-dispatch - #{tmp 3764}# + #{tmp 3773}# '#(vector each-any)))) - (if #{tmp 3816}# + (if #{tmp 3825}# (@apply - (lambda (#{x 3818}#) + (lambda (#{x 3827}#) (call-with-values (lambda () - (#{cvt 3738}# - #{x 3818}# - #{n 3754}# - #{ids 3755}#)) - (lambda (#{p 3820}# - #{ids 3821}#) + (#{cvt 3747}# + #{x 3827}# + #{n 3763}# + #{ids 3764}#)) + (lambda (#{p 3829}# + #{ids 3830}#) (values (vector 'vector - #{p 3820}#) - #{ids 3821}#)))) - #{tmp 3816}#) - (let ((#{x 3825}# - #{tmp 3764}#)) + #{p 3829}#) + #{ids 3830}#)))) + #{tmp 3825}#) + (let ((#{x 3834}# + #{tmp 3773}#)) (values (vector 'atom - (#{strip 482}# - #{p 3753}# + (#{strip 483}# + #{p 3762}# '(()))) - #{ids 3755}#))))))))))))))))) - (begin (#{cvt 3738}# #{pattern 3731}# 0 '()))))) - (#{build-dispatch-call 3726}# - (lambda (#{pvars 3827}# - #{exp 3828}# - #{y 3829}# - #{r 3830}# - #{mod 3831}#) + #{ids 3764}#))))))))))))))))) + (begin (#{cvt 3747}# #{pattern 3740}# 0 '()))))) + (#{build-dispatch-call 3735}# + (lambda (#{pvars 3836}# + #{exp 3837}# + #{y 3838}# + #{r 3839}# + #{mod 3840}#) (begin - (map cdr #{pvars 3827}#) - (let ((#{ids 3839}# (map car #{pvars 3827}#))) + (map cdr #{pvars 3836}#) + (let ((#{ids 3848}# (map car #{pvars 3836}#))) (begin - (let ((#{labels 3843}# - (#{gen-labels 391}# #{ids 3839}#)) - (#{new-vars 3844}# - (map #{gen-var 484}# #{ids 3839}#))) - (#{build-application 302}# + (let ((#{labels 3852}# + (#{gen-labels 392}# #{ids 3848}#)) + (#{new-vars 3853}# + (map #{gen-var 485}# #{ids 3848}#))) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'apply) - (list (#{build-simple-lambda 320}# + (#{build-primref 327}# #f 'apply) + (list (#{build-simple-lambda 321}# #f - (map syntax->datum #{ids 3839}#) + (map syntax->datum #{ids 3848}#) #f - #{new-vars 3844}# + #{new-vars 3853}# '() - (#{chi 456}# - #{exp 3828}# - (#{extend-env 364}# - #{labels 3843}# - (map (lambda (#{var 3848}# - #{level 3849}#) + (#{chi 457}# + #{exp 3837}# + (#{extend-env 365}# + #{labels 3852}# + (map (lambda (#{var 3857}# + #{level 3858}#) (cons 'syntax - (cons #{var 3848}# - #{level 3849}#))) - #{new-vars 3844}# - (map cdr #{pvars 3827}#)) - #{r 3830}#) - (#{make-binding-wrap 420}# - #{ids 3839}# - #{labels 3843}# + (cons #{var 3857}# + #{level 3858}#))) + #{new-vars 3853}# + (map cdr #{pvars 3836}#)) + #{r 3839}#) + (#{make-binding-wrap 421}# + #{ids 3848}# + #{labels 3852}# '(())) - #{mod 3831}#)) - #{y 3829}#)))))))) - (#{gen-clause 3728}# - (lambda (#{x 3855}# - #{keys 3856}# - #{clauses 3857}# - #{r 3858}# - #{pat 3859}# - #{fender 3860}# - #{exp 3861}# - #{mod 3862}#) + #{mod 3840}#)) + #{y 3838}#)))))))) + (#{gen-clause 3737}# + (lambda (#{x 3864}# + #{keys 3865}# + #{clauses 3866}# + #{r 3867}# + #{pat 3868}# + #{fender 3869}# + #{exp 3870}# + #{mod 3871}#) (call-with-values (lambda () - (#{convert-pattern 3724}# - #{pat 3859}# - #{keys 3856}#)) - (lambda (#{p 3871}# #{pvars 3872}#) - (if (not (#{distinct-bound-ids? 438}# - (map car #{pvars 3872}#))) + (#{convert-pattern 3733}# + #{pat 3868}# + #{keys 3865}#)) + (lambda (#{p 3880}# #{pvars 3881}#) + (if (not (#{distinct-bound-ids? 439}# + (map car #{pvars 3881}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 3859}#) + #{pat 3868}#) (if (not (and-map - (lambda (#{x 3879}#) - (not (#{ellipsis? 472}# - (car #{x 3879}#)))) - #{pvars 3872}#)) + (lambda (#{x 3888}#) + (not (#{ellipsis? 473}# + (car #{x 3888}#)))) + #{pvars 3881}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 3859}#) + #{pat 3868}#) (begin - (let ((#{y 3883}# (#{gen-var 484}# 'tmp))) - (#{build-application 302}# + (let ((#{y 3892}# (#{gen-var 485}# 'tmp))) + (#{build-application 303}# #f - (#{build-simple-lambda 320}# + (#{build-simple-lambda 321}# #f (list 'tmp) #f - (list #{y 3883}#) + (list #{y 3892}#) '() (begin - (let ((#{y 3887}# - (#{build-lexical-reference 308}# + (let ((#{y 3896}# + (#{build-lexical-reference 309}# 'value #f 'tmp - #{y 3883}#))) - (#{build-conditional 304}# + #{y 3892}#))) + (#{build-conditional 305}# #f - (let ((#{tmp 3890}# #{fender 3860}#)) - (let ((#{tmp 3891}# + (let ((#{tmp 3899}# #{fender 3869}#)) + (let ((#{tmp 3900}# ($sc-dispatch - #{tmp 3890}# + #{tmp 3899}# '#(atom #t)))) - (if #{tmp 3891}# + (if #{tmp 3900}# (@apply - (lambda () #{y 3887}#) - #{tmp 3891}#) - (let ((#{_ 3893}# #{tmp 3890}#)) - (#{build-conditional 304}# + (lambda () #{y 3896}#) + #{tmp 3900}#) + (let ((#{_ 3902}# #{tmp 3899}#)) + (#{build-conditional 305}# #f - #{y 3887}# - (#{build-dispatch-call 3726}# - #{pvars 3872}# - #{fender 3860}# - #{y 3887}# - #{r 3858}# - #{mod 3862}#) - (#{build-data 328}# + #{y 3896}# + (#{build-dispatch-call 3735}# + #{pvars 3881}# + #{fender 3869}# + #{y 3896}# + #{r 3867}# + #{mod 3871}#) + (#{build-data 329}# #f #f)))))) - (#{build-dispatch-call 3726}# - #{pvars 3872}# - #{exp 3861}# - #{y 3887}# - #{r 3858}# - #{mod 3862}#) - (#{gen-syntax-case 3730}# - #{x 3855}# - #{keys 3856}# - #{clauses 3857}# - #{r 3858}# - #{mod 3862}#))))) - (list (if (eq? #{p 3871}# 'any) - (#{build-application 302}# + (#{build-dispatch-call 3735}# + #{pvars 3881}# + #{exp 3870}# + #{y 3896}# + #{r 3867}# + #{mod 3871}#) + (#{gen-syntax-case 3739}# + #{x 3864}# + #{keys 3865}# + #{clauses 3866}# + #{r 3867}# + #{mod 3871}#))))) + (list (if (eq? #{p 3880}# 'any) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'list) - (list #{x 3855}#)) - (#{build-application 302}# + (#{build-primref 327}# #f 'list) + (list #{x 3864}#)) + (#{build-application 303}# #f - (#{build-primref 326}# + (#{build-primref 327}# #f '$sc-dispatch) - (list #{x 3855}# - (#{build-data 328}# + (list #{x 3864}# + (#{build-data 329}# #f - #{p 3871}#)))))))))))))) - (#{gen-syntax-case 3730}# - (lambda (#{x 3901}# - #{keys 3902}# - #{clauses 3903}# - #{r 3904}# - #{mod 3905}#) - (if (null? #{clauses 3903}#) - (#{build-application 302}# + #{p 3880}#)))))))))))))) + (#{gen-syntax-case 3739}# + (lambda (#{x 3910}# + #{keys 3911}# + #{clauses 3912}# + #{r 3913}# + #{mod 3914}#) + (if (null? #{clauses 3912}#) + (#{build-application 303}# #f - (#{build-primref 326}# #f 'syntax-violation) - (list (#{build-data 328}# #f #f) - (#{build-data 328}# + (#{build-primref 327}# #f 'syntax-violation) + (list (#{build-data 329}# #f #f) + (#{build-data 329}# #f "source expression failed to match any pattern") - #{x 3901}#)) - (let ((#{tmp 3915}# (car #{clauses 3903}#))) - (let ((#{tmp 3916}# - ($sc-dispatch #{tmp 3915}# '(any any)))) - (if #{tmp 3916}# + #{x 3910}#)) + (let ((#{tmp 3924}# (car #{clauses 3912}#))) + (let ((#{tmp 3925}# + ($sc-dispatch #{tmp 3924}# '(any any)))) + (if #{tmp 3925}# (@apply - (lambda (#{pat 3919}# #{exp 3920}#) - (if (if (#{id? 376}# #{pat 3919}#) + (lambda (#{pat 3928}# #{exp 3929}#) + (if (if (#{id? 377}# #{pat 3928}#) (and-map - (lambda (#{x 3923}#) - (not (#{free-id=? 432}# - #{pat 3919}# - #{x 3923}#))) + (lambda (#{x 3932}#) + (not (#{free-id=? 433}# + #{pat 3928}# + #{x 3932}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -12435,21 +10727,21 @@ (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" - "i3727" - "i3725" - "i3723")) + ("i3738" + "i3736" + "i3734" + "i3732")) #(ribcage (lambda-var-list gen-var @@ -12723,57 +11015,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -12782,117 +11075,116 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) - #{keys 3902}#)) + #{keys 3911}#)) #f) - (if (#{free-id=? 432}# + (if (#{free-id=? 433}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -13166,57 +11458,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -13225,90 +11518,89 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile)) '#(syntax-object _ @@ -13316,23 +11608,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3917" "i3918")) + #("i3926" "i3927")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3906" - "i3907" - "i3908" - "i3909" - "i3910")) + #("i3915" + "i3916" + "i3917" + "i3918" + "i3919")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3729" "i3727" "i3725" "i3723")) + ("i3738" "i3736" "i3734" "i3732")) #(ribcage (lambda-var-list gen-var @@ -13606,57 +11898,58 @@ (top) (top) (top)) - ("i485" - "i483" - "i481" - "i479" - "i477" - "i475" - "i473" - "i471" - "i469" - "i467" - "i465" - "i463" - "i461" - "i459" - "i457" - "i455" - "i453" - "i451" - "i449" - "i447" - "i445" - "i443" - "i441" - "i439" - "i437" - "i435" - "i433" - "i431" - "i429" - "i427" - "i425" - "i423" - "i421" - "i419" + ("i486" + "i484" + "i482" + "i480" + "i478" + "i476" + "i474" + "i472" + "i470" + "i468" + "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" "i417" "i416" - "i415" + "i414" "i413" "i412" "i411" "i410" - "i409" - "i407" - "i405" - "i403" - "i401" - "i399" - "i397" - "i395" - "i393" - "i390" + "i408" + "i406" + "i404" + "i402" + "i400" + "i398" + "i396" + "i394" + "i391" + "i389" "i388" "i387" "i386" @@ -13665,652 +11958,651 @@ "i383" "i382" "i381" - "i380" + "i379" "i378" - "i377" - "i375" - "i373" - "i371" - "i369" - "i367" - "i365" + "i376" + "i374" + "i372" + "i370" + "i368" + "i366" + "i364" "i363" "i362" "i361" "i360" "i359" - "i358" + "i357" "i356" - "i355" - "i353" - "i351" - "i349" - "i347" - "i345" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i329" - "i327" - "i325" - "i323" - "i321" - "i319" - "i317" - "i315" - "i313" - "i311" - "i309" - "i307" - "i305" - "i303" - "i301" - "i299" - "i297" - "i295" - "i293" + "i354" + "i352" + "i350" + "i348" + "i346" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" "i291" - "i290" - "i288" + "i289" + "i287" "i286" "i285" "i284" "i283" - "i282" - "i280" - "i278" - "i276" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i245" - "i243" - "i241" - "i239")) + "i281" + "i279" + "i277" + "i274" + "i272" + "i270" + "i268" + "i266" + "i264" + "i262" + "i260" + "i258" + "i256" + "i254" + "i252" + "i250" + "i248" + "i246" + "i244" + "i242" + "i240")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors and-map*) ((top) (top) (top) (top)) - ("i41" "i40" "i39" "i37"))) + ("i42" "i41" "i40" "i38"))) (hygiene guile))) - (#{chi 456}# - #{exp 3920}# - #{r 3904}# + (#{chi 457}# + #{exp 3929}# + #{r 3913}# '(()) - #{mod 3905}#) + #{mod 3914}#) (begin - (let ((#{labels 3928}# - (list (#{gen-label 389}#))) - (#{var 3929}# - (#{gen-var 484}# #{pat 3919}#))) - (#{build-application 302}# + (let ((#{labels 3937}# + (list (#{gen-label 390}#))) + (#{var 3938}# + (#{gen-var 485}# #{pat 3928}#))) + (#{build-application 303}# #f - (#{build-simple-lambda 320}# + (#{build-simple-lambda 321}# #f - (list (syntax->datum #{pat 3919}#)) + (list (syntax->datum #{pat 3928}#)) #f - (list #{var 3929}#) + (list #{var 3938}#) '() - (#{chi 456}# - #{exp 3920}# - (#{extend-env 364}# - #{labels 3928}# + (#{chi 457}# + #{exp 3929}# + (#{extend-env 365}# + #{labels 3937}# (list (cons 'syntax - (cons #{var 3929}# + (cons #{var 3938}# 0))) - #{r 3904}#) - (#{make-binding-wrap 420}# - (list #{pat 3919}#) - #{labels 3928}# + #{r 3913}#) + (#{make-binding-wrap 421}# + (list #{pat 3928}#) + #{labels 3937}# '(())) - #{mod 3905}#)) - (list #{x 3901}#))))) - (#{gen-clause 3728}# - #{x 3901}# - #{keys 3902}# - (cdr #{clauses 3903}#) - #{r 3904}# - #{pat 3919}# + #{mod 3914}#)) + (list #{x 3910}#))))) + (#{gen-clause 3737}# + #{x 3910}# + #{keys 3911}# + (cdr #{clauses 3912}#) + #{r 3913}# + #{pat 3928}# #t - #{exp 3920}# - #{mod 3905}#))) - #{tmp 3916}#) - (let ((#{tmp 3935}# - ($sc-dispatch #{tmp 3915}# '(any any any)))) - (if #{tmp 3935}# + #{exp 3929}# + #{mod 3914}#))) + #{tmp 3925}#) + (let ((#{tmp 3944}# + ($sc-dispatch #{tmp 3924}# '(any any any)))) + (if #{tmp 3944}# (@apply - (lambda (#{pat 3939}# - #{fender 3940}# - #{exp 3941}#) - (#{gen-clause 3728}# - #{x 3901}# - #{keys 3902}# - (cdr #{clauses 3903}#) - #{r 3904}# - #{pat 3939}# - #{fender 3940}# - #{exp 3941}# - #{mod 3905}#)) - #{tmp 3935}#) - (let ((#{_ 3943}# #{tmp 3915}#)) + (lambda (#{pat 3948}# + #{fender 3949}# + #{exp 3950}#) + (#{gen-clause 3737}# + #{x 3910}# + #{keys 3911}# + (cdr #{clauses 3912}#) + #{r 3913}# + #{pat 3948}# + #{fender 3949}# + #{exp 3950}# + #{mod 3914}#)) + #{tmp 3944}#) + (let ((#{_ 3952}# #{tmp 3924}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 3903}#)))))))))))) + (car #{clauses 3912}#)))))))))))) (begin - (lambda (#{e 3944}# - #{r 3945}# - #{w 3946}# - #{s 3947}# - #{mod 3948}#) + (lambda (#{e 3953}# + #{r 3954}# + #{w 3955}# + #{s 3956}# + #{mod 3957}#) (begin - (let ((#{e 3955}# - (#{source-wrap 444}# - #{e 3944}# - #{w 3946}# - #{s 3947}# - #{mod 3948}#))) - (let ((#{tmp 3956}# #{e 3955}#)) - (let ((#{tmp 3957}# + (let ((#{e 3964}# + (#{source-wrap 445}# + #{e 3953}# + #{w 3955}# + #{s 3956}# + #{mod 3957}#))) + (let ((#{tmp 3965}# #{e 3964}#)) + (let ((#{tmp 3966}# ($sc-dispatch - #{tmp 3956}# + #{tmp 3965}# '(_ any each-any . each-any)))) - (if #{tmp 3957}# + (if #{tmp 3966}# (@apply - (lambda (#{val 3961}# #{key 3962}# #{m 3963}#) + (lambda (#{val 3970}# #{key 3971}# #{m 3972}#) (if (and-map - (lambda (#{x 3964}#) - (if (#{id? 376}# #{x 3964}#) - (not (#{ellipsis? 472}# #{x 3964}#)) + (lambda (#{x 3973}#) + (if (#{id? 377}# #{x 3973}#) + (not (#{ellipsis? 473}# #{x 3973}#)) #f)) - #{key 3962}#) + #{key 3971}#) (begin - (let ((#{x 3970}# (#{gen-var 484}# 'tmp))) - (#{build-application 302}# - #{s 3947}# - (#{build-simple-lambda 320}# + (let ((#{x 3979}# (#{gen-var 485}# 'tmp))) + (#{build-application 303}# + #{s 3956}# + (#{build-simple-lambda 321}# #f (list 'tmp) #f - (list #{x 3970}#) + (list #{x 3979}#) '() - (#{gen-syntax-case 3730}# - (#{build-lexical-reference 308}# + (#{gen-syntax-case 3739}# + (#{build-lexical-reference 309}# 'value #f 'tmp - #{x 3970}#) - #{key 3962}# - #{m 3963}# - #{r 3945}# - #{mod 3948}#)) - (list (#{chi 456}# - #{val 3961}# - #{r 3945}# + #{x 3979}#) + #{key 3971}# + #{m 3972}# + #{r 3954}# + #{mod 3957}#)) + (list (#{chi 457}# + #{val 3970}# + #{r 3954}# '(()) - #{mod 3948}#))))) + #{mod 3957}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e 3955}#))) - #{tmp 3957}#) + #{e 3964}#))) + #{tmp 3966}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3956}#)))))))))) + #{tmp 3965}#)))))))))) (set! macroexpand (lambda* - (#{x 3976}# + (#{x 3985}# #:optional - (#{m 3978}# 'e) - (#{esew 3980}# '(eval))) - (#{chi-top-sequence 448}# - (list #{x 3976}#) + (#{m 3987}# 'e) + (#{esew 3989}# '(eval))) + (#{chi-top-sequence 449}# + (list #{x 3985}#) '() '((top)) #f - #{m 3978}# - #{esew 3980}# + #{m 3987}# + #{esew 3989}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 3984}#) - (#{nonsymbol-id? 374}# #{x 3984}#))) - (set! datum->syntax - (lambda (#{id 3986}# #{datum 3987}#) - (#{make-syntax-object 340}# - #{datum 3987}# - (#{syntax-object-wrap 346}# #{id 3986}#) - (#{syntax-object-module 348}# #{id 3986}#)))) - (set! syntax->datum - (lambda (#{x 3990}#) - (#{strip 482}# #{x 3990}# '(())))) - (set! syntax-source (lambda (#{x 3993}#) - (#{source-annotation 357}# #{x 3993}#))) + (#{nonsymbol-id? 375}# #{x 3993}#))) + (set! datum->syntax + (lambda (#{id 3995}# #{datum 3996}#) + (#{make-syntax-object 341}# + #{datum 3996}# + (#{syntax-object-wrap 347}# #{id 3995}#) + (#{syntax-object-module 349}# #{id 3995}#)))) + (set! syntax->datum + (lambda (#{x 3999}#) + (#{strip 483}# #{x 3999}# '(())))) + (set! syntax-source + (lambda (#{x 4002}#) + (#{source-annotation 358}# #{x 4002}#))) (set! generate-temporaries - (lambda (#{ls 3995}#) + (lambda (#{ls 4004}#) (begin (begin - (let ((#{x 3999}# #{ls 3995}#)) - (if (not (list? #{x 3999}#)) + (let ((#{x 4008}# #{ls 4004}#)) + (if (not (list? #{x 4008}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x 3999}#)))) - (map (lambda (#{x 4000}#) - (#{wrap 442}# (gensym) '((top)) #f)) - #{ls 3995}#)))) + #{x 4008}#)))) + (map (lambda (#{x 4009}#) + (#{wrap 443}# (gensym) '((top)) #f)) + #{ls 4004}#)))) (set! free-identifier=? - (lambda (#{x 4004}# #{y 4005}#) + (lambda (#{x 4013}# #{y 4014}#) (begin (begin - (let ((#{x 4010}# #{x 4004}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4010}#)) + (let ((#{x 4019}# #{x 4013}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4019}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 4010}#)))) + #{x 4019}#)))) (begin - (let ((#{x 4013}# #{y 4005}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4013}#)) + (let ((#{x 4022}# #{y 4014}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4022}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 4013}#)))) - (#{free-id=? 432}# #{x 4004}# #{y 4005}#)))) + #{x 4022}#)))) + (#{free-id=? 433}# #{x 4013}# #{y 4014}#)))) (set! bound-identifier=? - (lambda (#{x 4014}# #{y 4015}#) + (lambda (#{x 4023}# #{y 4024}#) (begin (begin - (let ((#{x 4020}# #{x 4014}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4020}#)) + (let ((#{x 4029}# #{x 4023}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4029}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 4020}#)))) + #{x 4029}#)))) (begin - (let ((#{x 4023}# #{y 4015}#)) - (if (not (#{nonsymbol-id? 374}# #{x 4023}#)) + (let ((#{x 4032}# #{y 4024}#)) + (if (not (#{nonsymbol-id? 375}# #{x 4032}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 4023}#)))) - (#{bound-id=? 434}# #{x 4014}# #{y 4015}#)))) + #{x 4032}#)))) + (#{bound-id=? 435}# #{x 4023}# #{y 4024}#)))) (set! syntax-violation (lambda* - (#{who 4024}# - #{message 4025}# - #{form 4026}# + (#{who 4033}# + #{message 4034}# + #{form 4035}# #:optional - (#{subform 4030}# #f)) + (#{subform 4039}# #f)) (begin (begin - (let ((#{x 4034}# #{who 4024}#)) - (if (not (let ((#{x 4035}# #{x 4034}#)) + (let ((#{x 4043}# #{who 4033}#)) + (if (not (let ((#{x 4044}# #{x 4043}#)) (begin - (let ((#{t 4039}# (not #{x 4035}#))) - (if #{t 4039}# - #{t 4039}# + (let ((#{t 4048}# (not #{x 4044}#))) + (if #{t 4048}# + #{t 4048}# (begin - (let ((#{t 4042}# (string? #{x 4035}#))) - (if #{t 4042}# - #{t 4042}# - (symbol? #{x 4035}#))))))))) + (let ((#{t 4051}# (string? #{x 4044}#))) + (if #{t 4051}# + #{t 4051}# + (symbol? #{x 4044}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x 4034}#)))) + #{x 4043}#)))) (begin - (let ((#{x 4046}# #{message 4025}#)) - (if (not (string? #{x 4046}#)) + (let ((#{x 4055}# #{message 4034}#)) + (if (not (string? #{x 4055}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x 4046}#)))) + #{x 4055}#)))) (throw 'syntax-error - #{who 4024}# - #{message 4025}# - (#{source-annotation 357}# + #{who 4033}# + #{message 4034}# + (#{source-annotation 358}# (begin - (let ((#{t 4049}# #{form 4026}#)) - (if #{t 4049}# #{t 4049}# #{subform 4030}#)))) - (#{strip 482}# #{form 4026}# '(())) - (if #{subform 4030}# - (#{strip 482}# #{subform 4030}# '(())) + (let ((#{t 4058}# #{form 4035}#)) + (if #{t 4058}# #{t 4058}# #{subform 4039}#)))) + (#{strip 483}# #{form 4035}# '(())) + (if #{subform 4039}# + (#{strip 483}# #{subform 4039}# '(())) #f))))) (letrec* - ((#{match-each 4056}# - (lambda (#{e 4069}# #{p 4070}# #{w 4071}# #{mod 4072}#) - (if (pair? #{e 4069}#) + ((#{match-each 4065}# + (lambda (#{e 4078}# #{p 4079}# #{w 4080}# #{mod 4081}#) + (if (pair? #{e 4078}#) (begin - (let ((#{first 4080}# - (#{match 4068}# - (car #{e 4069}#) - #{p 4070}# - #{w 4071}# + (let ((#{first 4089}# + (#{match 4077}# + (car #{e 4078}#) + #{p 4079}# + #{w 4080}# '() - #{mod 4072}#))) - (if #{first 4080}# + #{mod 4081}#))) + (if #{first 4089}# (begin - (let ((#{rest 4084}# - (#{match-each 4056}# - (cdr #{e 4069}#) - #{p 4070}# - #{w 4071}# - #{mod 4072}#))) - (if #{rest 4084}# - (cons #{first 4080}# #{rest 4084}#) + (let ((#{rest 4093}# + (#{match-each 4065}# + (cdr #{e 4078}#) + #{p 4079}# + #{w 4080}# + #{mod 4081}#))) + (if #{rest 4093}# + (cons #{first 4089}# #{rest 4093}#) #f))) #f))) - (if (null? #{e 4069}#) + (if (null? #{e 4078}#) '() - (if (#{syntax-object? 342}# #{e 4069}#) - (#{match-each 4056}# - (#{syntax-object-expression 344}# #{e 4069}#) - #{p 4070}# - (#{join-wraps 424}# - #{w 4071}# - (#{syntax-object-wrap 346}# #{e 4069}#)) - (#{syntax-object-module 348}# #{e 4069}#)) + (if (#{syntax-object? 343}# #{e 4078}#) + (#{match-each 4065}# + (#{syntax-object-expression 345}# #{e 4078}#) + #{p 4079}# + (#{join-wraps 425}# + #{w 4080}# + (#{syntax-object-wrap 347}# #{e 4078}#)) + (#{syntax-object-module 349}# #{e 4078}#)) #f))))) - (#{match-each+ 4058}# - (lambda (#{e 4092}# - #{x-pat 4093}# - #{y-pat 4094}# - #{z-pat 4095}# - #{w 4096}# - #{r 4097}# - #{mod 4098}#) + (#{match-each+ 4067}# + (lambda (#{e 4101}# + #{x-pat 4102}# + #{y-pat 4103}# + #{z-pat 4104}# + #{w 4105}# + #{r 4106}# + #{mod 4107}#) (letrec* - ((#{f 4109}# - (lambda (#{e 4110}# #{w 4111}#) - (if (pair? #{e 4110}#) + ((#{f 4118}# + (lambda (#{e 4119}# #{w 4120}#) + (if (pair? #{e 4119}#) (call-with-values (lambda () - (#{f 4109}# (cdr #{e 4110}#) #{w 4111}#)) - (lambda (#{xr* 4114}# #{y-pat 4115}# #{r 4116}#) - (if #{r 4116}# - (if (null? #{y-pat 4115}#) + (#{f 4118}# (cdr #{e 4119}#) #{w 4120}#)) + (lambda (#{xr* 4123}# #{y-pat 4124}# #{r 4125}#) + (if #{r 4125}# + (if (null? #{y-pat 4124}#) (begin - (let ((#{xr 4121}# - (#{match 4068}# - (car #{e 4110}#) - #{x-pat 4093}# - #{w 4111}# + (let ((#{xr 4130}# + (#{match 4077}# + (car #{e 4119}#) + #{x-pat 4102}# + #{w 4120}# '() - #{mod 4098}#))) - (if #{xr 4121}# + #{mod 4107}#))) + (if #{xr 4130}# (values - (cons #{xr 4121}# #{xr* 4114}#) - #{y-pat 4115}# - #{r 4116}#) + (cons #{xr 4130}# #{xr* 4123}#) + #{y-pat 4124}# + #{r 4125}#) (values #f #f #f)))) (values '() - (cdr #{y-pat 4115}#) - (#{match 4068}# - (car #{e 4110}#) - (car #{y-pat 4115}#) - #{w 4111}# - #{r 4116}# - #{mod 4098}#))) + (cdr #{y-pat 4124}#) + (#{match 4077}# + (car #{e 4119}#) + (car #{y-pat 4124}#) + #{w 4120}# + #{r 4125}# + #{mod 4107}#))) (values #f #f #f)))) - (if (#{syntax-object? 342}# #{e 4110}#) - (#{f 4109}# - (#{syntax-object-expression 344}# #{e 4110}#) - (#{join-wraps 424}# #{w 4111}# #{e 4110}#)) + (if (#{syntax-object? 343}# #{e 4119}#) + (#{f 4118}# + (#{syntax-object-expression 345}# #{e 4119}#) + (#{join-wraps 425}# #{w 4120}# #{e 4119}#)) (values '() - #{y-pat 4094}# - (#{match 4068}# - #{e 4110}# - #{z-pat 4095}# - #{w 4111}# - #{r 4097}# - #{mod 4098}#))))))) - (begin (#{f 4109}# #{e 4092}# #{w 4096}#))))) - (#{match-each-any 4060}# - (lambda (#{e 4125}# #{w 4126}# #{mod 4127}#) - (if (pair? #{e 4125}#) + #{y-pat 4103}# + (#{match 4077}# + #{e 4119}# + #{z-pat 4104}# + #{w 4120}# + #{r 4106}# + #{mod 4107}#))))))) + (begin (#{f 4118}# #{e 4101}# #{w 4105}#))))) + (#{match-each-any 4069}# + (lambda (#{e 4134}# #{w 4135}# #{mod 4136}#) + (if (pair? #{e 4134}#) (begin - (let ((#{l 4134}# - (#{match-each-any 4060}# - (cdr #{e 4125}#) - #{w 4126}# - #{mod 4127}#))) - (if #{l 4134}# - (cons (#{wrap 442}# - (car #{e 4125}#) - #{w 4126}# - #{mod 4127}#) - #{l 4134}#) + (let ((#{l 4143}# + (#{match-each-any 4069}# + (cdr #{e 4134}#) + #{w 4135}# + #{mod 4136}#))) + (if #{l 4143}# + (cons (#{wrap 443}# + (car #{e 4134}#) + #{w 4135}# + #{mod 4136}#) + #{l 4143}#) #f))) - (if (null? #{e 4125}#) + (if (null? #{e 4134}#) '() - (if (#{syntax-object? 342}# #{e 4125}#) - (#{match-each-any 4060}# - (#{syntax-object-expression 344}# #{e 4125}#) - (#{join-wraps 424}# - #{w 4126}# - (#{syntax-object-wrap 346}# #{e 4125}#)) - #{mod 4127}#) + (if (#{syntax-object? 343}# #{e 4134}#) + (#{match-each-any 4069}# + (#{syntax-object-expression 345}# #{e 4134}#) + (#{join-wraps 425}# + #{w 4135}# + (#{syntax-object-wrap 347}# #{e 4134}#)) + #{mod 4136}#) #f))))) - (#{match-empty 4062}# - (lambda (#{p 4142}# #{r 4143}#) - (if (null? #{p 4142}#) - #{r 4143}# - (if (eq? #{p 4142}# '_) - #{r 4143}# - (if (eq? #{p 4142}# 'any) - (cons '() #{r 4143}#) - (if (pair? #{p 4142}#) - (#{match-empty 4062}# - (car #{p 4142}#) - (#{match-empty 4062}# - (cdr #{p 4142}#) - #{r 4143}#)) - (if (eq? #{p 4142}# 'each-any) - (cons '() #{r 4143}#) + (#{match-empty 4071}# + (lambda (#{p 4151}# #{r 4152}#) + (if (null? #{p 4151}#) + #{r 4152}# + (if (eq? #{p 4151}# '_) + #{r 4152}# + (if (eq? #{p 4151}# 'any) + (cons '() #{r 4152}#) + (if (pair? #{p 4151}#) + (#{match-empty 4071}# + (car #{p 4151}#) + (#{match-empty 4071}# + (cdr #{p 4151}#) + #{r 4152}#)) + (if (eq? #{p 4151}# 'each-any) + (cons '() #{r 4152}#) (begin - (let ((#{atom-key 4159}# - (vector-ref #{p 4142}# 0))) - (if (eqv? #{atom-key 4159}# 'each) - (#{match-empty 4062}# - (vector-ref #{p 4142}# 1) - #{r 4143}#) - (if (eqv? #{atom-key 4159}# 'each+) - (#{match-empty 4062}# - (vector-ref #{p 4142}# 1) - (#{match-empty 4062}# - (reverse (vector-ref #{p 4142}# 2)) - (#{match-empty 4062}# - (vector-ref #{p 4142}# 3) - #{r 4143}#))) - (if (if (eqv? #{atom-key 4159}# 'free-id) + (let ((#{atom-key 4168}# + (vector-ref #{p 4151}# 0))) + (if (eqv? #{atom-key 4168}# 'each) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + #{r 4152}#) + (if (eqv? #{atom-key 4168}# 'each+) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + (#{match-empty 4071}# + (reverse (vector-ref #{p 4151}# 2)) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 3) + #{r 4152}#))) + (if (if (eqv? #{atom-key 4168}# 'free-id) #t - (eqv? #{atom-key 4159}# 'atom)) - #{r 4143}# - (if (eqv? #{atom-key 4159}# 'vector) - (#{match-empty 4062}# - (vector-ref #{p 4142}# 1) - #{r 4143}#)))))))))))))) - (#{combine 4064}# - (lambda (#{r* 4164}# #{r 4165}#) - (if (null? (car #{r* 4164}#)) - #{r 4165}# - (cons (map car #{r* 4164}#) - (#{combine 4064}# - (map cdr #{r* 4164}#) - #{r 4165}#))))) - (#{match* 4066}# - (lambda (#{e 4168}# - #{p 4169}# - #{w 4170}# - #{r 4171}# - #{mod 4172}#) - (if (null? #{p 4169}#) - (if (null? #{e 4168}#) #{r 4171}# #f) - (if (pair? #{p 4169}#) - (if (pair? #{e 4168}#) - (#{match 4068}# - (car #{e 4168}#) - (car #{p 4169}#) - #{w 4170}# - (#{match 4068}# - (cdr #{e 4168}#) - (cdr #{p 4169}#) - #{w 4170}# - #{r 4171}# - #{mod 4172}#) - #{mod 4172}#) + (eqv? #{atom-key 4168}# 'atom)) + #{r 4152}# + (if (eqv? #{atom-key 4168}# 'vector) + (#{match-empty 4071}# + (vector-ref #{p 4151}# 1) + #{r 4152}#)))))))))))))) + (#{combine 4073}# + (lambda (#{r* 4173}# #{r 4174}#) + (if (null? (car #{r* 4173}#)) + #{r 4174}# + (cons (map car #{r* 4173}#) + (#{combine 4073}# + (map cdr #{r* 4173}#) + #{r 4174}#))))) + (#{match* 4075}# + (lambda (#{e 4177}# + #{p 4178}# + #{w 4179}# + #{r 4180}# + #{mod 4181}#) + (if (null? #{p 4178}#) + (if (null? #{e 4177}#) #{r 4180}# #f) + (if (pair? #{p 4178}#) + (if (pair? #{e 4177}#) + (#{match 4077}# + (car #{e 4177}#) + (car #{p 4178}#) + #{w 4179}# + (#{match 4077}# + (cdr #{e 4177}#) + (cdr #{p 4178}#) + #{w 4179}# + #{r 4180}# + #{mod 4181}#) + #{mod 4181}#) #f) - (if (eq? #{p 4169}# 'each-any) + (if (eq? #{p 4178}# 'each-any) (begin - (let ((#{l 4189}# - (#{match-each-any 4060}# - #{e 4168}# - #{w 4170}# - #{mod 4172}#))) - (if #{l 4189}# (cons #{l 4189}# #{r 4171}#) #f))) + (let ((#{l 4198}# + (#{match-each-any 4069}# + #{e 4177}# + #{w 4179}# + #{mod 4181}#))) + (if #{l 4198}# (cons #{l 4198}# #{r 4180}#) #f))) (begin - (let ((#{atom-key 4195}# (vector-ref #{p 4169}# 0))) - (if (eqv? #{atom-key 4195}# 'each) - (if (null? #{e 4168}#) - (#{match-empty 4062}# - (vector-ref #{p 4169}# 1) - #{r 4171}#) + (let ((#{atom-key 4204}# (vector-ref #{p 4178}# 0))) + (if (eqv? #{atom-key 4204}# 'each) + (if (null? #{e 4177}#) + (#{match-empty 4071}# + (vector-ref #{p 4178}# 1) + #{r 4180}#) (begin - (let ((#{l 4198}# - (#{match-each 4056}# - #{e 4168}# - (vector-ref #{p 4169}# 1) - #{w 4170}# - #{mod 4172}#))) - (if #{l 4198}# + (let ((#{l 4207}# + (#{match-each 4065}# + #{e 4177}# + (vector-ref #{p 4178}# 1) + #{w 4179}# + #{mod 4181}#))) + (if #{l 4207}# (letrec* - ((#{collect 4203}# - (lambda (#{l 4204}#) - (if (null? (car #{l 4204}#)) - #{r 4171}# - (cons (map car #{l 4204}#) - (#{collect 4203}# + ((#{collect 4212}# + (lambda (#{l 4213}#) + (if (null? (car #{l 4213}#)) + #{r 4180}# + (cons (map car #{l 4213}#) + (#{collect 4212}# (map cdr - #{l 4204}#))))))) - (begin (#{collect 4203}# #{l 4198}#))) + #{l 4213}#))))))) + (begin (#{collect 4212}# #{l 4207}#))) #f)))) - (if (eqv? #{atom-key 4195}# 'each+) + (if (eqv? #{atom-key 4204}# 'each+) (call-with-values (lambda () - (#{match-each+ 4058}# - #{e 4168}# - (vector-ref #{p 4169}# 1) - (vector-ref #{p 4169}# 2) - (vector-ref #{p 4169}# 3) - #{w 4170}# - #{r 4171}# - #{mod 4172}#)) - (lambda (#{xr* 4206}# - #{y-pat 4207}# - #{r 4208}#) - (if #{r 4208}# - (if (null? #{y-pat 4207}#) - (if (null? #{xr* 4206}#) - (#{match-empty 4062}# - (vector-ref #{p 4169}# 1) - #{r 4208}#) - (#{combine 4064}# - #{xr* 4206}# - #{r 4208}#)) + (#{match-each+ 4067}# + #{e 4177}# + (vector-ref #{p 4178}# 1) + (vector-ref #{p 4178}# 2) + (vector-ref #{p 4178}# 3) + #{w 4179}# + #{r 4180}# + #{mod 4181}#)) + (lambda (#{xr* 4215}# + #{y-pat 4216}# + #{r 4217}#) + (if #{r 4217}# + (if (null? #{y-pat 4216}#) + (if (null? #{xr* 4215}#) + (#{match-empty 4071}# + (vector-ref #{p 4178}# 1) + #{r 4217}#) + (#{combine 4073}# + #{xr* 4215}# + #{r 4217}#)) #f) #f))) - (if (eqv? #{atom-key 4195}# 'free-id) - (if (#{id? 376}# #{e 4168}#) - (if (#{free-id=? 432}# - (#{wrap 442}# - #{e 4168}# - #{w 4170}# - #{mod 4172}#) - (vector-ref #{p 4169}# 1)) - #{r 4171}# + (if (eqv? #{atom-key 4204}# 'free-id) + (if (#{id? 377}# #{e 4177}#) + (if (#{free-id=? 433}# + (#{wrap 443}# + #{e 4177}# + #{w 4179}# + #{mod 4181}#) + (vector-ref #{p 4178}# 1)) + #{r 4180}# #f) #f) - (if (eqv? #{atom-key 4195}# 'atom) + (if (eqv? #{atom-key 4204}# 'atom) (if (equal? - (vector-ref #{p 4169}# 1) - (#{strip 482}# #{e 4168}# #{w 4170}#)) - #{r 4171}# + (vector-ref #{p 4178}# 1) + (#{strip 483}# #{e 4177}# #{w 4179}#)) + #{r 4180}# #f) - (if (eqv? #{atom-key 4195}# 'vector) - (if (vector? #{e 4168}#) - (#{match 4068}# - (vector->list #{e 4168}#) - (vector-ref #{p 4169}# 1) - #{w 4170}# - #{r 4171}# - #{mod 4172}#) + (if (eqv? #{atom-key 4204}# 'vector) + (if (vector? #{e 4177}#) + (#{match 4077}# + (vector->list #{e 4177}#) + (vector-ref #{p 4178}# 1) + #{w 4179}# + #{r 4180}# + #{mod 4181}#) #f))))))))))))) - (#{match 4068}# - (lambda (#{e 4225}# - #{p 4226}# - #{w 4227}# - #{r 4228}# - #{mod 4229}#) - (if (not #{r 4228}#) + (#{match 4077}# + (lambda (#{e 4234}# + #{p 4235}# + #{w 4236}# + #{r 4237}# + #{mod 4238}#) + (if (not #{r 4237}#) #f - (if (eq? #{p 4226}# '_) - #{r 4228}# - (if (eq? #{p 4226}# 'any) - (cons (#{wrap 442}# #{e 4225}# #{w 4227}# #{mod 4229}#) - #{r 4228}#) - (if (#{syntax-object? 342}# #{e 4225}#) - (#{match* 4066}# - (#{syntax-object-expression 344}# #{e 4225}#) - #{p 4226}# - (#{join-wraps 424}# - #{w 4227}# - (#{syntax-object-wrap 346}# #{e 4225}#)) - #{r 4228}# - (#{syntax-object-module 348}# #{e 4225}#)) - (#{match* 4066}# - #{e 4225}# - #{p 4226}# - #{w 4227}# - #{r 4228}# - #{mod 4229}#)))))))) + (if (eq? #{p 4235}# '_) + #{r 4237}# + (if (eq? #{p 4235}# 'any) + (cons (#{wrap 443}# #{e 4234}# #{w 4236}# #{mod 4238}#) + #{r 4237}#) + (if (#{syntax-object? 343}# #{e 4234}#) + (#{match* 4075}# + (#{syntax-object-expression 345}# #{e 4234}#) + #{p 4235}# + (#{join-wraps 425}# + #{w 4236}# + (#{syntax-object-wrap 347}# #{e 4234}#)) + #{r 4237}# + (#{syntax-object-module 349}# #{e 4234}#)) + (#{match* 4075}# + #{e 4234}# + #{p 4235}# + #{w 4236}# + #{r 4237}# + #{mod 4238}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e 4244}# #{p 4245}#) - (if (eq? #{p 4245}# 'any) - (list #{e 4244}#) - (if (eq? #{p 4245}# '_) + (lambda (#{e 4253}# #{p 4254}#) + (if (eq? #{p 4254}# 'any) + (list #{e 4253}#) + (if (eq? #{p 4254}# '_) '() - (if (#{syntax-object? 342}# #{e 4244}#) - (#{match* 4066}# - (#{syntax-object-expression 344}# #{e 4244}#) - #{p 4245}# - (#{syntax-object-wrap 346}# #{e 4244}#) + (if (#{syntax-object? 343}# #{e 4253}#) + (#{match* 4075}# + (#{syntax-object-expression 345}# #{e 4253}#) + #{p 4254}# + (#{syntax-object-wrap 347}# #{e 4253}#) '() - (#{syntax-object-module 348}# #{e 4244}#)) - (#{match* 4066}# - #{e 4244}# - #{p 4245}# + (#{syntax-object-module 349}# #{e 4253}#)) + (#{match* 4075}# + #{e 4253}# + #{p 4254}# '(()) '() #f))))))))))))) @@ -14319,82 +12611,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 4256}#) - (let ((#{tmp 4258}# #{x 4256}#)) - (let ((#{tmp 4259}# + (lambda (#{x 4265}#) + (let ((#{tmp 4267}# #{x 4265}#)) + (let ((#{tmp 4268}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ () any . each-any)))) - (if #{tmp 4259}# + (if #{tmp 4268}# (@apply - (lambda (#{e1 4262}# #{e2 4263}#) + (lambda (#{e1 4271}# #{e2 4272}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4260" "i4261")) + #("i4269" "i4270")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - (cons '() (cons #{e1 4262}# #{e2 4263}#)))) - #{tmp 4259}#) - (let ((#{tmp 4265}# + (cons '() (cons #{e1 4271}# #{e2 4272}#)))) + #{tmp 4268}#) + (let ((#{tmp 4274}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ ((any any)) any . each-any)))) - (if #{tmp 4265}# + (if #{tmp 4274}# (@apply - (lambda (#{out 4270}# - #{in 4271}# - #{e1 4272}# - #{e2 4273}#) + (lambda (#{out 4279}# + #{in 4280}# + #{e1 4281}# + #{e2 4282}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) + #("i4275" "i4276" "i4277" "i4278")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - #{in 4271}# + #{in 4280}# '() - (list #{out 4270}# + (list #{out 4279}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) + #("i4275" "i4276" "i4277" "i4278")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) (cons '() - (cons #{e1 4272}# #{e2 4273}#)))))) - #{tmp 4265}#) - (let ((#{tmp 4275}# + (cons #{e1 4281}# #{e2 4282}#)))))) + #{tmp 4274}#) + (let ((#{tmp 4284}# ($sc-dispatch - #{tmp 4258}# + #{tmp 4267}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 4275}# + (if #{tmp 4284}# (@apply - (lambda (#{out 4280}# - #{in 4281}# - #{e1 4282}# - #{e2 4283}#) + (lambda (#{out 4289}# + #{in 4290}# + #{e1 4291}# + #{e2 4292}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" "i4277" "i4278" "i4279")) + #("i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) (cons '#(syntax-object list @@ -14402,63 +12694,63 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" "i4277" "i4278" "i4279")) + #("i4285" "i4286" "i4287" "i4288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4257"))) + #(ribcage #(x) #((top)) #("i4266"))) (hygiene guile)) - #{in 4281}#) + #{in 4290}#) '() - (list #{out 4280}# + (list #{out 4289}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4276" - "i4277" - "i4278" - "i4279")) + #("i4285" + "i4286" + "i4287" + "i4288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4257"))) + #("i4266"))) (hygiene guile)) (cons '() - (cons #{e1 4282}# - #{e2 4283}#)))))) - #{tmp 4275}#) + (cons #{e1 4291}# + #{e2 4292}#)))))) + #{tmp 4284}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4258}#))))))))))) + #{tmp 4267}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 4287}#) - (let ((#{tmp 4289}# #{x 4287}#)) - (let ((#{tmp 4290}# + (lambda (#{x 4296}#) + (let ((#{tmp 4298}# #{x 4296}#)) + (let ((#{tmp 4299}# ($sc-dispatch - #{tmp 4289}# + #{tmp 4298}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 4290}# + (if #{tmp 4299}# (@apply - (lambda (#{k 4295}# - #{keyword 4296}# - #{pattern 4297}# - #{template 4298}#) + (lambda (#{k 4304}# + #{keyword 4305}# + #{pattern 4306}# + #{template 4307}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) '(#(syntax-object x @@ -14466,9 +12758,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (vector '(#(syntax-object @@ -14477,9 +12769,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) . #(syntax-object @@ -14488,9 +12780,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14498,20 +12790,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - #{pattern 4297}#)) + #{pattern 4306}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) (cons '#(syntax-object x @@ -14519,13 +12811,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4291" "i4292" "i4293" "i4294")) + #("i4300" "i4301" "i4302" "i4303")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - (cons #{k 4295}# - (map (lambda (#{tmp 4302}# - #{tmp 4301}#) + (cons #{k 4304}# + (map (lambda (#{tmp 4311}# + #{tmp 4310}#) (list (cons '#(syntax-object dummy ((top) @@ -14538,10 +12830,10 @@ (top) (top) (top)) - #("i4291" - "i4292" - "i4293" - "i4294")) + #("i4300" + "i4301" + "i4302" + "i4303")) #(ribcage () () @@ -14549,9 +12841,9 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4301}#) + #{tmp 4310}#) (list '#(syntax-object syntax ((top) @@ -14564,10 +12856,10 @@ (top) (top) (top)) - #("i4291" - "i4292" - "i4293" - "i4294")) + #("i4300" + "i4301" + "i4302" + "i4303")) #(ribcage () () @@ -14575,41 +12867,41 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4302}#))) - #{template 4298}# - #{pattern 4297}#)))))) - #{tmp 4290}#) - (let ((#{tmp 4303}# + #{tmp 4311}#))) + #{template 4307}# + #{pattern 4306}#)))))) + #{tmp 4299}#) + (let ((#{tmp 4312}# ($sc-dispatch - #{tmp 4289}# + #{tmp 4298}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 4303}# + (if (if #{tmp 4312}# (@apply - (lambda (#{k 4309}# - #{docstring 4310}# - #{keyword 4311}# - #{pattern 4312}# - #{template 4313}#) - (string? (syntax->datum #{docstring 4310}#))) - #{tmp 4303}#) + (lambda (#{k 4318}# + #{docstring 4319}# + #{keyword 4320}# + #{pattern 4321}# + #{template 4322}#) + (string? (syntax->datum #{docstring 4319}#))) + #{tmp 4312}#) #f) (@apply - (lambda (#{k 4319}# - #{docstring 4320}# - #{keyword 4321}# - #{pattern 4322}# - #{template 4323}#) + (lambda (#{k 4328}# + #{docstring 4329}# + #{keyword 4330}# + #{pattern 4331}# + #{template 4332}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) '(#(syntax-object x @@ -14617,11 +12909,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) - #{docstring 4320}# + #{docstring 4329}# (vector '(#(syntax-object macro-type @@ -14629,9 +12921,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) . #(syntax-object @@ -14640,9 +12932,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" "i4315" "i4316" "i4317" "i4318")) + #("i4323" "i4324" "i4325" "i4326" "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14650,28 +12942,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - #{pattern 4322}#)) + #{pattern 4331}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) (cons '#(syntax-object x @@ -14683,17 +12975,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4288"))) + #(ribcage #(x) #((top)) #("i4297"))) (hygiene guile)) - (cons #{k 4319}# - (map (lambda (#{tmp 4327}# - #{tmp 4326}#) + (cons #{k 4328}# + (map (lambda (#{tmp 4336}# + #{tmp 4335}#) (list (cons '#(syntax-object dummy ((top) @@ -14708,11 +13000,11 @@ (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () @@ -14720,10 +13012,10 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4326}#) + #{tmp 4335}#) (list '#(syntax-object syntax ((top) @@ -14738,11 +13030,11 @@ (top) (top) (top)) - #("i4314" - "i4315" - "i4316" - "i4317" - "i4318")) + #("i4323" + "i4324" + "i4325" + "i4326" + "i4327")) #(ribcage () () @@ -14750,48 +13042,48 @@ #(ribcage #(x) #((top)) - #("i4288"))) + #("i4297"))) (hygiene guile)) - #{tmp 4327}#))) - #{template 4323}# - #{pattern 4322}#)))))) - #{tmp 4303}#) + #{tmp 4336}#))) + #{template 4332}# + #{pattern 4331}#)))))) + #{tmp 4312}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4289}#))))))))) + #{tmp 4298}#))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 4328}#) - (let ((#{tmp 4330}# #{x 4328}#)) - (let ((#{tmp 4331}# + (lambda (#{x 4337}#) + (let ((#{tmp 4339}# #{x 4337}#)) + (let ((#{tmp 4340}# ($sc-dispatch - #{tmp 4330}# + #{tmp 4339}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 4331}# + (if (if #{tmp 4340}# (@apply - (lambda (#{let* 4337}# - #{x 4338}# - #{v 4339}# - #{e1 4340}# - #{e2 4341}#) - (and-map identifier? #{x 4338}#)) - #{tmp 4331}#) + (lambda (#{let* 4346}# + #{x 4347}# + #{v 4348}# + #{e1 4349}# + #{e2 4350}#) + (and-map identifier? #{x 4347}#)) + #{tmp 4340}#) #f) (@apply - (lambda (#{let* 4348}# - #{x 4349}# - #{v 4350}# - #{e1 4351}# - #{e2 4352}#) + (lambda (#{let* 4357}# + #{x 4358}# + #{v 4359}# + #{e1 4360}# + #{e2 4361}#) (letrec* - ((#{f 4355}# - (lambda (#{bindings 4356}#) - (if (null? #{bindings 4356}#) + ((#{f 4364}# + (lambda (#{bindings 4365}#) + (if (null? #{bindings 4365}#) (cons '#(syntax-object let ((top) @@ -14799,27 +13091,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4353" "i4354")) + #("i4362" "i4363")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4343" - "i4344" - "i4345" - "i4346" - "i4347")) + #("i4352" + "i4353" + "i4354" + "i4355" + "i4356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4329"))) + #(ribcage #(x) #((top)) #("i4338"))) (hygiene guile)) - (cons '() (cons #{e1 4351}# #{e2 4352}#))) - (let ((#{tmp 4361}# - (list (#{f 4355}# (cdr #{bindings 4356}#)) - (car #{bindings 4356}#)))) - (let ((#{tmp 4362}# - ($sc-dispatch #{tmp 4361}# '(any any)))) - (if #{tmp 4362}# + (cons '() (cons #{e1 4360}# #{e2 4361}#))) + (let ((#{tmp 4370}# + (list (#{f 4364}# (cdr #{bindings 4365}#)) + (car #{bindings 4365}#)))) + (let ((#{tmp 4371}# + ($sc-dispatch #{tmp 4370}# '(any any)))) + (if #{tmp 4371}# (@apply - (lambda (#{body 4365}# #{binding 4366}#) + (lambda (#{body 4374}# #{binding 4375}#) (list '#(syntax-object let ((top) @@ -14827,96 +13119,96 @@ #(ribcage #(body binding) #((top) (top)) - #("i4363" "i4364")) + #("i4372" "i4373")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i4353" "i4354")) + #("i4362" "i4363")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4343" - "i4344" - "i4345" - "i4346" - "i4347")) + #("i4352" + "i4353" + "i4354" + "i4355" + "i4356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4329"))) + #("i4338"))) (hygiene guile)) - (list #{binding 4366}#) - #{body 4365}#)) - #{tmp 4362}#) + (list #{binding 4375}#) + #{body 4374}#)) + #{tmp 4371}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4361}#)))))))) + #{tmp 4370}#)))))))) (begin - (#{f 4355}# (map list #{x 4349}# #{v 4350}#))))) - #{tmp 4331}#) + (#{f 4364}# (map list #{x 4358}# #{v 4359}#))))) + #{tmp 4340}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4330}#))))))) + #{tmp 4339}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 4367}#) - (let ((#{tmp 4369}# #{orig-x 4367}#)) - (let ((#{tmp 4370}# + (lambda (#{orig-x 4376}#) + (let ((#{tmp 4378}# #{orig-x 4376}#)) + (let ((#{tmp 4379}# ($sc-dispatch - #{tmp 4369}# + #{tmp 4378}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 4370}# + (if #{tmp 4379}# (@apply - (lambda (#{var 4377}# - #{init 4378}# - #{step 4379}# - #{e0 4380}# - #{e1 4381}# - #{c 4382}#) - (let ((#{tmp 4384}# - (map (lambda (#{v 4405}# #{s 4406}#) - (let ((#{tmp 4409}# #{s 4406}#)) - (let ((#{tmp 4410}# - ($sc-dispatch #{tmp 4409}# '()))) - (if #{tmp 4410}# + (lambda (#{var 4386}# + #{init 4387}# + #{step 4388}# + #{e0 4389}# + #{e1 4390}# + #{c 4391}#) + (let ((#{tmp 4393}# + (map (lambda (#{v 4414}# #{s 4415}#) + (let ((#{tmp 4418}# #{s 4415}#)) + (let ((#{tmp 4419}# + ($sc-dispatch #{tmp 4418}# '()))) + (if #{tmp 4419}# (@apply - (lambda () #{v 4405}#) - #{tmp 4410}#) - (let ((#{tmp 4411}# + (lambda () #{v 4414}#) + #{tmp 4419}#) + (let ((#{tmp 4420}# ($sc-dispatch - #{tmp 4409}# + #{tmp 4418}# '(any)))) - (if #{tmp 4411}# + (if #{tmp 4420}# (@apply - (lambda (#{e 4413}#) #{e 4413}#) - #{tmp 4411}#) - (let ((#{_ 4415}# #{tmp 4409}#)) + (lambda (#{e 4422}#) #{e 4422}#) + #{tmp 4420}#) + (let ((#{_ 4424}# #{tmp 4418}#)) (syntax-violation 'do "bad step expression" - #{orig-x 4367}# - #{s 4406}#)))))))) - #{var 4377}# - #{step 4379}#))) - (let ((#{tmp 4385}# - ($sc-dispatch #{tmp 4384}# 'each-any))) - (if #{tmp 4385}# + #{orig-x 4376}# + #{s 4415}#)))))))) + #{var 4386}# + #{step 4388}#))) + (let ((#{tmp 4394}# + ($sc-dispatch #{tmp 4393}# 'each-any))) + (if #{tmp 4394}# (@apply - (lambda (#{step 4387}#) - (let ((#{tmp 4388}# #{e1 4381}#)) - (let ((#{tmp 4389}# - ($sc-dispatch #{tmp 4388}# '()))) - (if #{tmp 4389}# + (lambda (#{step 4396}#) + (let ((#{tmp 4397}# #{e1 4390}#)) + (let ((#{tmp 4398}# + ($sc-dispatch #{tmp 4397}# '()))) + (if #{tmp 4398}# (@apply (lambda () (list '#(syntax-object @@ -14926,7 +13218,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14935,17 +13227,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) '#(syntax-object doloop @@ -14954,7 +13246,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14963,19 +13255,19 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - (map list #{var 4377}# #{init 4378}#) + (map list #{var 4386}# #{init 4387}#) (list '#(syntax-object if ((top) @@ -14983,7 +13275,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14992,17 +13284,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (list '#(syntax-object not @@ -15011,7 +13303,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15025,19 +13317,19 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{e0 4380}#) + #{e0 4389}#) (cons '#(syntax-object begin ((top) @@ -15045,7 +13337,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15059,20 +13351,20 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (append - #{c 4382}# + #{c 4391}# (list (cons '#(syntax-object doloop ((top) @@ -15083,7 +13375,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15097,12 +13389,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15110,30 +13402,30 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{step 4387}#))))))) - #{tmp 4389}#) - (let ((#{tmp 4394}# + #{step 4396}#))))))) + #{tmp 4398}#) + (let ((#{tmp 4403}# ($sc-dispatch - #{tmp 4388}# + #{tmp 4397}# '(any . each-any)))) - (if #{tmp 4394}# + (if #{tmp 4403}# (@apply - (lambda (#{e1 4397}# #{e2 4398}#) + (lambda (#{e1 4406}# #{e2 4407}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15142,17 +13434,17 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) '#(syntax-object doloop @@ -15160,12 +13452,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15174,33 +13466,33 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (map list - #{var 4377}# - #{init 4378}#) + #{var 4386}# + #{init 4387}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" "i4396")) + #("i4404" "i4405")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15214,27 +13506,27 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{e0 4380}# + #{e0 4389}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15242,7 +13534,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15256,12 +13548,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15269,18 +13561,18 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - (cons #{e1 4397}# - #{e2 4398}#)) + (cons #{e1 4406}# + #{e2 4407}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15288,7 +13580,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15302,12 +13594,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15315,10 +13607,10 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) (append - #{c 4382}# + #{c 4391}# (list (cons '#(syntax-object doloop ((top) @@ -15327,8 +13619,8 @@ e2) #((top) (top)) - #("i4395" - "i4396")) + #("i4404" + "i4405")) #(ribcage () () @@ -15336,7 +13628,7 @@ #(ribcage #(step) #((top)) - #("i4386")) + #("i4395")) #(ribcage #(var init @@ -15350,12 +13642,12 @@ (top) (top) (top)) - #("i4371" - "i4372" - "i4373" - "i4374" - "i4375" - "i4376")) + #("i4380" + "i4381" + "i4382" + "i4383" + "i4384" + "i4385")) #(ribcage () () @@ -15363,37 +13655,37 @@ #(ribcage #(orig-x) #((top)) - #("i4368"))) + #("i4377"))) (hygiene guile)) - #{step 4387}#))))))) - #{tmp 4394}#) + #{step 4396}#))))))) + #{tmp 4403}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4388}#))))))) - #{tmp 4385}#) + #{tmp 4397}#))))))) + #{tmp 4394}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4384}#))))) - #{tmp 4370}#) + #{tmp 4393}#))))) + #{tmp 4379}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4369}#))))))) + #{tmp 4378}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 4419}# - (lambda (#{p 4432}# #{lev 4433}#) - (let ((#{tmp 4436}# #{p 4432}#)) - (let ((#{tmp 4437}# + ((#{quasi 4428}# + (lambda (#{p 4441}# #{lev 4442}#) + (let ((#{tmp 4445}# #{p 4441}#)) + (let ((#{tmp 4446}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '(#(free-id #(syntax-object unquote @@ -15402,7 +13694,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15411,28 +13703,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) any)))) - (if #{tmp 4437}# + (if #{tmp 4446}# (@apply - (lambda (#{p 4439}#) - (if (= #{lev 4433}# 0) + (lambda (#{p 4448}#) + (if (= #{lev 4442}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15441,25 +13733,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{p 4439}#) - (#{quasicons 4423}# + #{p 4448}#) + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15468,23 +13760,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4438")) + #(ribcage #(p) #((top)) #("i4447")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15493,21 +13785,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - (list #{p 4439}#) - (#{1-}# #{lev 4433}#))))) - #{tmp 4437}#) - (let ((#{tmp 4440}# + (#{quasi 4428}# + (list #{p 4448}#) + (#{1-}# #{lev 4442}#))))) + #{tmp 4446}#) + (let ((#{tmp 4449}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '(#(free-id #(syntax-object quasiquote @@ -15516,7 +13808,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15525,28 +13817,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) any)))) - (if #{tmp 4440}# + (if #{tmp 4449}# (@apply - (lambda (#{p 4442}#) - (#{quasicons 4423}# + (lambda (#{p 4451}#) + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4450")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15555,23 +13847,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4450")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15580,27 +13872,27 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - (list #{p 4442}#) - (#{1+}# #{lev 4433}#)))) - #{tmp 4440}#) - (let ((#{tmp 4443}# - ($sc-dispatch #{tmp 4436}# '(any . any)))) - (if #{tmp 4443}# + (#{quasi 4428}# + (list #{p 4451}#) + (#{1+}# #{lev 4442}#)))) + #{tmp 4449}#) + (let ((#{tmp 4452}# + ($sc-dispatch #{tmp 4445}# '(any . any)))) + (if #{tmp 4452}# (@apply - (lambda (#{p 4446}# #{q 4447}#) - (let ((#{tmp 4448}# #{p 4446}#)) - (let ((#{tmp 4449}# + (lambda (#{p 4455}# #{q 4456}#) + (let ((#{tmp 4457}# #{p 4455}#)) + (let ((#{tmp 4458}# ($sc-dispatch - #{tmp 4448}# + #{tmp 4457}# '(#(free-id #(syntax-object unquote @@ -15608,12 +13900,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15628,40 +13920,40 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4449}# + (if #{tmp 4458}# (@apply - (lambda (#{p 4451}#) - (if (= #{lev 4433}# 0) - (#{quasilist* 4427}# - (map (lambda (#{tmp 4452}#) + (lambda (#{p 4460}#) + (if (= #{lev 4442}# 0) + (#{quasilist* 4436}# + (map (lambda (#{tmp 4461}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" - "i4445")) + #("i4453" + "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" - "i4435")) + #("i4443" + "i4444")) #(ribcage (emit quasivector quasilist* @@ -15676,37 +13968,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4452}#)) - #{p 4451}#) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4461}#)) + #{p 4460}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15721,13 +14013,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote @@ -15735,16 +14027,16 @@ #(ribcage #(p) #((top)) - #("i4450")) + #("i4459")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15759,24 +14051,24 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4451}# - (#{1-}# #{lev 4433}#))) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)))) - #{tmp 4449}#) - (let ((#{tmp 4454}# + (#{quasi 4428}# + #{p 4460}# + (#{1-}# #{lev 4442}#))) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)))) + #{tmp 4458}#) + (let ((#{tmp 4463}# ($sc-dispatch - #{tmp 4448}# + #{tmp 4457}# '(#(free-id #(syntax-object unquote-splicing @@ -15784,12 +14076,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15804,35 +14096,35 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4454}# + (if #{tmp 4463}# (@apply - (lambda (#{p 4456}#) - (if (= #{lev 4433}# 0) - (#{quasiappend 4425}# - (map (lambda (#{tmp 4457}#) + (lambda (#{p 4465}#) + (if (= #{lev 4442}# 0) + (#{quasiappend 4434}# + (map (lambda (#{tmp 4466}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" - "i4445")) + #("i4453" + "i4454")) #(ribcage () () @@ -15841,8 +14133,8 @@ #(p lev) #((top) (top)) - #("i4434" - "i4435")) + #("i4443" + "i4444")) #(ribcage (emit quasivector quasilist* @@ -15857,37 +14149,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4457}#)) - #{p 4456}#) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4466}#)) + #{p 4465}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15902,13 +14194,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -15916,16 +14208,16 @@ #(ribcage #(p) #((top)) - #("i4455")) + #("i4464")) #(ribcage #(p q) #((top) (top)) - #("i4444" "i4445")) + #("i4453" "i4454")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15940,50 +14232,50 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4456}# - (#{1-}# #{lev 4433}#))) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#)))) - #{tmp 4454}#) - (let ((#{_ 4460}# #{tmp 4448}#)) - (#{quasicons 4423}# - (#{quasi 4419}# - #{p 4446}# - #{lev 4433}#) - (#{quasi 4419}# - #{q 4447}# - #{lev 4433}#))))))))) - #{tmp 4443}#) - (let ((#{tmp 4461}# + (#{quasi 4428}# + #{p 4465}# + (#{1-}# #{lev 4442}#))) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#)))) + #{tmp 4463}#) + (let ((#{_ 4469}# #{tmp 4457}#)) + (#{quasicons 4432}# + (#{quasi 4428}# + #{p 4455}# + #{lev 4442}#) + (#{quasi 4428}# + #{q 4456}# + #{lev 4442}#))))))))) + #{tmp 4452}#) + (let ((#{tmp 4470}# ($sc-dispatch - #{tmp 4436}# + #{tmp 4445}# '#(vector each-any)))) - (if #{tmp 4461}# + (if #{tmp 4470}# (@apply - (lambda (#{x 4463}#) - (#{quasivector 4429}# - (#{vquasi 4421}# #{x 4463}# #{lev 4433}#))) - #{tmp 4461}#) - (let ((#{p 4466}# #{tmp 4436}#)) + (lambda (#{x 4472}#) + (#{quasivector 4438}# + (#{vquasi 4430}# #{x 4472}# #{lev 4442}#))) + #{tmp 4470}#) + (let ((#{p 4475}# #{tmp 4445}#)) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4465")) + #(ribcage #(p) #((top)) #("i4474")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4434" "i4435")) + #("i4443" "i4444")) #(ribcage (emit quasivector quasilist* @@ -15998,27 +14290,27 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{p 4466}#))))))))))))) - (#{vquasi 4421}# - (lambda (#{p 4467}# #{lev 4468}#) - (let ((#{tmp 4471}# #{p 4467}#)) - (let ((#{tmp 4472}# - ($sc-dispatch #{tmp 4471}# '(any . any)))) - (if #{tmp 4472}# + #{p 4475}#))))))))))))) + (#{vquasi 4430}# + (lambda (#{p 4476}# #{lev 4477}#) + (let ((#{tmp 4480}# #{p 4476}#)) + (let ((#{tmp 4481}# + ($sc-dispatch #{tmp 4480}# '(any . any)))) + (if #{tmp 4481}# (@apply - (lambda (#{p 4475}# #{q 4476}#) - (let ((#{tmp 4477}# #{p 4475}#)) - (let ((#{tmp 4478}# + (lambda (#{p 4484}# #{q 4485}#) + (let ((#{tmp 4486}# #{p 4484}#)) + (let ((#{tmp 4487}# ($sc-dispatch - #{tmp 4477}# + #{tmp 4486}# '(#(free-id #(syntax-object unquote @@ -16026,12 +14318,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16046,38 +14338,38 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4478}# + (if #{tmp 4487}# (@apply - (lambda (#{p 4480}#) - (if (= #{lev 4468}# 0) - (#{quasilist* 4427}# - (map (lambda (#{tmp 4481}#) + (lambda (#{p 4489}#) + (if (= #{lev 4477}# 0) + (#{quasilist* 4436}# + (map (lambda (#{tmp 4490}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4479")) + #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16092,32 +14384,32 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4481}#)) - #{p 4480}#) - (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4490}#)) + #{p 4489}#) + (#{vquasi 4430}# #{q 4485}# #{lev 4477}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4479")) + #(ribcage #(p) #((top)) #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16132,27 +14424,27 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4479")) + #(ribcage #(p) #((top)) #("i4488")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16167,22 +14459,22 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4480}# - (#{1-}# #{lev 4468}#))) - (#{vquasi 4421}# #{q 4476}# #{lev 4468}#)))) - #{tmp 4478}#) - (let ((#{tmp 4483}# + (#{quasi 4428}# + #{p 4489}# + (#{1-}# #{lev 4477}#))) + (#{vquasi 4430}# #{q 4485}# #{lev 4477}#)))) + #{tmp 4487}#) + (let ((#{tmp 4492}# ($sc-dispatch - #{tmp 4477}# + #{tmp 4486}# '(#(free-id #(syntax-object unquote-splicing @@ -16190,12 +14482,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16210,38 +14502,38 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) . each-any)))) - (if #{tmp 4483}# + (if #{tmp 4492}# (@apply - (lambda (#{p 4485}#) - (if (= #{lev 4468}# 0) - (#{quasiappend 4425}# - (map (lambda (#{tmp 4486}#) + (lambda (#{p 4494}#) + (if (= #{lev 4477}# 0) + (#{quasiappend 4434}# + (map (lambda (#{tmp 4495}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16256,37 +14548,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4486}#)) - #{p 4485}#) - (#{vquasi 4421}# - #{q 4476}# - #{lev 4468}#)) - (#{quasicons 4423}# - (#{quasicons 4423}# + #{tmp 4495}#)) + #{p 4494}#) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#)) + (#{quasicons 4432}# + (#{quasicons 4432}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16301,13 +14593,13 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -16315,16 +14607,16 @@ #(ribcage #(p) #((top)) - #("i4484")) + #("i4493")) #(ribcage #(p q) #((top) (top)) - #("i4473" "i4474")) + #("i4482" "i4483")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16339,30 +14631,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile))) - (#{quasi 4419}# - #{p 4485}# - (#{1-}# #{lev 4468}#))) - (#{vquasi 4421}# - #{q 4476}# - #{lev 4468}#)))) - #{tmp 4483}#) - (let ((#{_ 4489}# #{tmp 4477}#)) - (#{quasicons 4423}# - (#{quasi 4419}# #{p 4475}# #{lev 4468}#) - (#{vquasi 4421}# - #{q 4476}# - #{lev 4468}#))))))))) - #{tmp 4472}#) - (let ((#{tmp 4490}# ($sc-dispatch #{tmp 4471}# '()))) - (if #{tmp 4490}# + (#{quasi 4428}# + #{p 4494}# + (#{1-}# #{lev 4477}#))) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#)))) + #{tmp 4492}#) + (let ((#{_ 4498}# #{tmp 4486}#)) + (#{quasicons 4432}# + (#{quasi 4428}# #{p 4484}# #{lev 4477}#) + (#{vquasi 4430}# + #{q 4485}# + #{lev 4477}#))))))))) + #{tmp 4481}#) + (let ((#{tmp 4499}# ($sc-dispatch #{tmp 4480}# '()))) + (if #{tmp 4499}# (@apply (lambda () '(#(syntax-object @@ -16372,7 +14664,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4469" "i4470")) + #("i4478" "i4479")) #(ribcage (emit quasivector quasilist* @@ -16381,66 +14673,66 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) ())) - #{tmp 4490}#) + #{tmp 4499}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4471}#)))))))) - (#{quasicons 4423}# - (lambda (#{x 4491}# #{y 4492}#) - (let ((#{tmp 4496}# (list #{x 4491}# #{y 4492}#))) - (let ((#{tmp 4497}# - ($sc-dispatch #{tmp 4496}# '(any any)))) - (if #{tmp 4497}# + #{tmp 4480}#)))))))) + (#{quasicons 4432}# + (lambda (#{x 4500}# #{y 4501}#) + (let ((#{tmp 4505}# (list #{x 4500}# #{y 4501}#))) + (let ((#{tmp 4506}# + ($sc-dispatch #{tmp 4505}# '(any any)))) + (if #{tmp 4506}# (@apply - (lambda (#{x 4500}# #{y 4501}#) - (let ((#{tmp 4502}# #{y 4501}#)) - (let ((#{tmp 4503}# + (lambda (#{x 4509}# #{y 4510}#) + (let ((#{tmp 4511}# #{y 4510}#)) + (let ((#{tmp 4512}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "quote") any)))) - (if #{tmp 4503}# + (if #{tmp 4512}# (@apply - (lambda (#{dy 4505}#) - (let ((#{tmp 4506}# #{x 4500}#)) - (let ((#{tmp 4507}# + (lambda (#{dy 4514}#) + (let ((#{tmp 4515}# #{x 4509}#)) + (let ((#{tmp 4516}# ($sc-dispatch - #{tmp 4506}# + #{tmp 4515}# '(#(atom "quote") any)))) - (if #{tmp 4507}# + (if #{tmp 4516}# (@apply - (lambda (#{dx 4509}#) + (lambda (#{dx 4518}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i4508")) + #("i4517")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16455,40 +14747,40 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{dx 4509}# #{dy 4505}#))) - #{tmp 4507}#) - (let ((#{_ 4511}# #{tmp 4506}#)) - (if (null? #{dy 4505}#) + (cons #{dx 4518}# #{dy 4514}#))) + #{tmp 4516}#) + (let ((#{_ 4520}# #{tmp 4515}#)) + (if (null? #{dy 4514}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i4510")) + #("i4519")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16503,37 +14795,37 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}#) + #{x 4509}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4510")) + #("i4519")) #(ribcage #(dy) #((top)) - #("i4504")) + #("i4513")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16548,42 +14840,42 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}# - #{y 4501}#))))))) - #{tmp 4503}#) - (let ((#{tmp 4512}# + #{x 4509}# + #{y 4510}#))))))) + #{tmp 4512}#) + (let ((#{tmp 4521}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "list") . any)))) - (if #{tmp 4512}# + (if #{tmp 4521}# (@apply - (lambda (#{stuff 4514}#) + (lambda (#{stuff 4523}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i4513")) + #("i4522")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16598,41 +14890,41 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{x 4500}# #{stuff 4514}#))) - #{tmp 4512}#) - (let ((#{tmp 4515}# + (cons #{x 4509}# #{stuff 4523}#))) + #{tmp 4521}#) + (let ((#{tmp 4524}# ($sc-dispatch - #{tmp 4502}# + #{tmp 4511}# '(#(atom "list*") . any)))) - (if #{tmp 4515}# + (if #{tmp 4524}# (@apply - (lambda (#{stuff 4517}#) + (lambda (#{stuff 4526}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i4516")) + #("i4525")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16647,35 +14939,35 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (cons #{x 4500}# #{stuff 4517}#))) - #{tmp 4515}#) - (let ((#{_ 4519}# #{tmp 4502}#)) + (cons #{x 4509}# #{stuff 4526}#))) + #{tmp 4524}#) + (let ((#{_ 4528}# #{tmp 4511}#)) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4518")) + #("i4527")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4498" "i4499")) + #("i4507" "i4508")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4493" "i4494")) + #("i4502" "i4503")) #(ribcage (emit quasivector quasilist* @@ -16690,30 +14982,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4500}# - #{y 4501}#)))))))))) - #{tmp 4497}#) + #{x 4509}# + #{y 4510}#)))))))))) + #{tmp 4506}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4496}#)))))) - (#{quasiappend 4425}# - (lambda (#{x 4520}# #{y 4521}#) - (let ((#{tmp 4524}# #{y 4521}#)) - (let ((#{tmp 4525}# - ($sc-dispatch #{tmp 4524}# '(#(atom "quote") ())))) - (if #{tmp 4525}# + #{tmp 4505}#)))))) + (#{quasiappend 4434}# + (lambda (#{x 4529}# #{y 4530}#) + (let ((#{tmp 4533}# #{y 4530}#)) + (let ((#{tmp 4534}# + ($sc-dispatch #{tmp 4533}# '(#(atom "quote") ())))) + (if #{tmp 4534}# (@apply (lambda () - (if (null? #{x 4520}#) + (if (null? #{x 4529}#) '(#(syntax-object "quote" ((top) @@ -16721,7 +15013,7 @@ #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16730,23 +15022,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) ()) - (if (null? (cdr #{x 4520}#)) - (car #{x 4520}#) - (let ((#{tmp 4532}# #{x 4520}#)) - (let ((#{tmp 4533}# - ($sc-dispatch #{tmp 4532}# 'each-any))) - (if #{tmp 4533}# + (if (null? (cdr #{x 4529}#)) + (car #{x 4529}#) + (let ((#{tmp 4541}# #{x 4529}#)) + (let ((#{tmp 4542}# + ($sc-dispatch #{tmp 4541}# 'each-any))) + (if #{tmp 4542}# (@apply - (lambda (#{p 4535}#) + (lambda (#{p 4544}#) (cons '#(syntax-object "append" ((top) @@ -16754,12 +15046,12 @@ #(ribcage #(p) #((top)) - #("i4534")) + #("i4543")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16774,30 +15066,30 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{p 4535}#)) - #{tmp 4533}#) + #{p 4544}#)) + #{tmp 4542}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4532}#))))))) - #{tmp 4525}#) - (let ((#{_ 4538}# #{tmp 4524}#)) - (if (null? #{x 4520}#) - #{y 4521}# - (let ((#{tmp 4543}# (list #{x 4520}# #{y 4521}#))) - (let ((#{tmp 4544}# - ($sc-dispatch #{tmp 4543}# '(each-any any)))) - (if #{tmp 4544}# + #{tmp 4541}#))))))) + #{tmp 4534}#) + (let ((#{_ 4547}# #{tmp 4533}#)) + (if (null? #{x 4529}#) + #{y 4530}# + (let ((#{tmp 4552}# (list #{x 4529}# #{y 4530}#))) + (let ((#{tmp 4553}# + ($sc-dispatch #{tmp 4552}# '(each-any any)))) + (if #{tmp 4553}# (@apply - (lambda (#{p 4547}# #{y 4548}#) + (lambda (#{p 4556}# #{y 4557}#) (cons '#(syntax-object "append" ((top) @@ -16805,13 +15097,13 @@ #(ribcage #(p y) #((top) (top)) - #("i4545" "i4546")) - #(ribcage #(_) #((top)) #("i4537")) + #("i4554" "i4555")) + #(ribcage #(_) #((top)) #("i4546")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4522" "i4523")) + #("i4531" "i4532")) #(ribcage (emit quasivector quasilist* @@ -16826,47 +15118,47 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (append #{p 4547}# (list #{y 4548}#)))) - #{tmp 4544}#) + (append #{p 4556}# (list #{y 4557}#)))) + #{tmp 4553}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4543}#))))))))))) - (#{quasilist* 4427}# - (lambda (#{x 4550}# #{y 4551}#) + #{tmp 4552}#))))))))))) + (#{quasilist* 4436}# + (lambda (#{x 4559}# #{y 4560}#) (letrec* - ((#{f 4556}# - (lambda (#{x 4557}#) - (if (null? #{x 4557}#) - #{y 4551}# - (#{quasicons 4423}# - (car #{x 4557}#) - (#{f 4556}# (cdr #{x 4557}#))))))) - (begin (#{f 4556}# #{x 4550}#))))) - (#{quasivector 4429}# - (lambda (#{x 4558}#) - (let ((#{tmp 4560}# #{x 4558}#)) - (let ((#{tmp 4561}# + ((#{f 4565}# + (lambda (#{x 4566}#) + (if (null? #{x 4566}#) + #{y 4560}# + (#{quasicons 4432}# + (car #{x 4566}#) + (#{f 4565}# (cdr #{x 4566}#))))))) + (begin (#{f 4565}# #{x 4559}#))))) + (#{quasivector 4438}# + (lambda (#{x 4567}#) + (let ((#{tmp 4569}# #{x 4567}#)) + (let ((#{tmp 4570}# ($sc-dispatch - #{tmp 4560}# + #{tmp 4569}# '(#(atom "quote") each-any)))) - (if #{tmp 4561}# + (if #{tmp 4570}# (@apply - (lambda (#{x 4563}#) + (lambda (#{x 4572}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(x) #((top)) #("i4562")) + #(ribcage #(x) #((top)) #("i4571")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4559")) + #(ribcage #(x) #((top)) #("i4568")) #(ribcage (emit quasivector quasilist* @@ -16875,53 +15167,53 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - (list->vector #{x 4563}#))) - #{tmp 4561}#) - (let ((#{_ 4566}# #{tmp 4560}#)) + (list->vector #{x 4572}#))) + #{tmp 4570}#) + (let ((#{_ 4575}# #{tmp 4569}#)) (letrec* - ((#{f 4570}# - (lambda (#{y 4571}# #{k 4572}#) - (let ((#{tmp 4583}# #{y 4571}#)) - (let ((#{tmp 4584}# + ((#{f 4579}# + (lambda (#{y 4580}# #{k 4581}#) + (let ((#{tmp 4592}# #{y 4580}#)) + (let ((#{tmp 4593}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "quote") each-any)))) - (if #{tmp 4584}# + (if #{tmp 4593}# (@apply - (lambda (#{y 4586}#) - (#{k 4572}# - (map (lambda (#{tmp 4587}#) + (lambda (#{y 4595}#) + (#{k 4581}# + (map (lambda (#{tmp 4596}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i4585")) + #("i4594")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4567" - "i4568" - "i4569")) + #("i4576" + "i4577" + "i4578")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -16936,75 +15228,75 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{tmp 4587}#)) - #{y 4586}#))) - #{tmp 4584}#) - (let ((#{tmp 4588}# + #{tmp 4596}#)) + #{y 4595}#))) + #{tmp 4593}#) + (let ((#{tmp 4597}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "list") . each-any)))) - (if #{tmp 4588}# + (if #{tmp 4597}# (@apply - (lambda (#{y 4590}#) - (#{k 4572}# #{y 4590}#)) - #{tmp 4588}#) - (let ((#{tmp 4592}# + (lambda (#{y 4599}#) + (#{k 4581}# #{y 4599}#)) + #{tmp 4597}#) + (let ((#{tmp 4601}# ($sc-dispatch - #{tmp 4583}# + #{tmp 4592}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4592}# + (if #{tmp 4601}# (@apply - (lambda (#{y 4595}# #{z 4596}#) - (#{f 4570}# - #{z 4596}# - (lambda (#{ls 4597}#) - (#{k 4572}# + (lambda (#{y 4604}# #{z 4605}#) + (#{f 4579}# + #{z 4605}# + (lambda (#{ls 4606}#) + (#{k 4581}# (append - #{y 4595}# - #{ls 4597}#))))) - #{tmp 4592}#) - (let ((#{else 4601}# #{tmp 4583}#)) - (let ((#{tmp 4605}# #{x 4558}#)) - (let ((#{ g4602 4607}# - #{tmp 4605}#)) + #{y 4604}# + #{ls 4606}#))))) + #{tmp 4601}#) + (let ((#{else 4610}# #{tmp 4592}#)) + (let ((#{tmp 4614}# #{x 4567}#)) + (let ((#{ g4611 4616}# + #{tmp 4614}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4602}#) - #((m4603 top)) - #("i4606")) + #(#{ g4611}#) + #((m4612 top)) + #("i4615")) #(ribcage #(else) #((top)) - #("i4600")) + #("i4609")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4567" - "i4568" - "i4569")) + #("i4576" + "i4577" + "i4578")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -17019,49 +15311,49 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4602 4607}#)))))))))))))) + #{ g4611 4616}#)))))))))))))) (begin - (#{f 4570}# - #{x 4558}# - (lambda (#{ls 4573}#) - (let ((#{tmp 4578}# #{ls 4573}#)) - (let ((#{tmp 4579}# - ($sc-dispatch #{tmp 4578}# 'each-any))) - (if #{tmp 4579}# + (#{f 4579}# + #{x 4567}# + (lambda (#{ls 4582}#) + (let ((#{tmp 4587}# #{ls 4582}#)) + (let ((#{tmp 4588}# + ($sc-dispatch #{tmp 4587}# 'each-any))) + (if #{tmp 4588}# (@apply - (lambda (#{ g4575 4581}#) + (lambda (#{ g4584 4590}#) (cons '#(syntax-object "vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4575}#) - #((m4576 top)) - #("i4580")) + #(#{ g4584}#) + #((m4585 top)) + #("i4589")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) - #("i4574")) + #("i4583")) #(ribcage #(_) #((top)) - #("i4565")) + #("i4574")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4559")) + #("i4568")) #(ribcage (emit quasivector quasilist* @@ -17076,36 +15368,36 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4575 4581}#)) - #{tmp 4579}#) + #{ g4584 4590}#)) + #{tmp 4588}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4578}#)))))))))))))) - (#{emit 4431}# - (lambda (#{x 4608}#) - (let ((#{tmp 4610}# #{x 4608}#)) - (let ((#{tmp 4611}# + #{tmp 4587}#)))))))))))))) + (#{emit 4440}# + (lambda (#{x 4617}#) + (let ((#{tmp 4619}# #{x 4617}#)) + (let ((#{tmp 4620}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "quote") any)))) - (if #{tmp 4611}# + (if #{tmp 4620}# (@apply - (lambda (#{x 4613}#) + (lambda (#{x 4622}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4612")) + #(ribcage #(x) #((top)) #("i4621")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4609")) + #(ribcage #(x) #((top)) #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17114,46 +15406,46 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{x 4613}#)) - #{tmp 4611}#) - (let ((#{tmp 4614}# + #{x 4622}#)) + #{tmp 4620}#) + (let ((#{tmp 4623}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list") . each-any)))) - (if #{tmp 4614}# + (if #{tmp 4623}# (@apply - (lambda (#{x 4616}#) - (let ((#{tmp 4620}# (map #{emit 4431}# #{x 4616}#))) - (let ((#{tmp 4621}# - ($sc-dispatch #{tmp 4620}# 'each-any))) - (if #{tmp 4621}# + (lambda (#{x 4625}#) + (let ((#{tmp 4629}# (map #{emit 4440}# #{x 4625}#))) + (let ((#{tmp 4630}# + ($sc-dispatch #{tmp 4629}# 'each-any))) + (if #{tmp 4630}# (@apply - (lambda (#{ g4617 4623}#) + (lambda (#{ g4626 4632}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g4617}#) - #((m4618 top)) - #("i4622")) + #(#{ g4626}#) + #((m4627 top)) + #("i4631")) #(ribcage #(x) #((top)) - #("i4615")) + #("i4624")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17168,70 +15460,70 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4617 4623}#)) - #{tmp 4621}#) + #{ g4626 4632}#)) + #{tmp 4630}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4620}#))))) - #{tmp 4614}#) - (let ((#{tmp 4626}# + #{tmp 4629}#))))) + #{tmp 4623}#) + (let ((#{tmp 4635}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4626}# + (if #{tmp 4635}# (@apply - (lambda (#{x 4629}# #{y 4630}#) + (lambda (#{x 4638}# #{y 4639}#) (letrec* - ((#{f 4633}# - (lambda (#{x* 4634}#) - (if (null? #{x* 4634}#) - (#{emit 4431}# #{y 4630}#) - (let ((#{tmp 4640}# - (list (#{emit 4431}# - (car #{x* 4634}#)) - (#{f 4633}# - (cdr #{x* 4634}#))))) - (let ((#{tmp 4641}# + ((#{f 4642}# + (lambda (#{x* 4643}#) + (if (null? #{x* 4643}#) + (#{emit 4440}# #{y 4639}#) + (let ((#{tmp 4649}# + (list (#{emit 4440}# + (car #{x* 4643}#)) + (#{f 4642}# + (cdr #{x* 4643}#))))) + (let ((#{tmp 4650}# ($sc-dispatch - #{tmp 4640}# + #{tmp 4649}# '(any any)))) - (if #{tmp 4641}# + (if #{tmp 4650}# (@apply - (lambda (#{ g4637 4644}# - #{ g4636 4645}#) + (lambda (#{ g4646 4653}# + #{ g4645 4654}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g4637}# - #{ g4636}#) - #((m4638 top) - (m4638 top)) - #("i4642" "i4643")) + #(#{ g4646}# + #{ g4645}#) + #((m4647 top) + (m4647 top)) + #("i4651" "i4652")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i4631" "i4632")) + #("i4640" "i4641")) #(ribcage #(x y) #((top) (top)) - #("i4627" "i4628")) + #("i4636" "i4637")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17246,56 +15538,56 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4637 4644}# - #{ g4636 4645}#)) - #{tmp 4641}#) + #{ g4646 4653}# + #{ g4645 4654}#)) + #{tmp 4650}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4640}#)))))))) - (begin (#{f 4633}# #{x 4629}#)))) - #{tmp 4626}#) - (let ((#{tmp 4646}# + #{tmp 4649}#)))))))) + (begin (#{f 4642}# #{x 4638}#)))) + #{tmp 4635}#) + (let ((#{tmp 4655}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "append") . each-any)))) - (if #{tmp 4646}# + (if #{tmp 4655}# (@apply - (lambda (#{x 4648}#) - (let ((#{tmp 4652}# - (map #{emit 4431}# #{x 4648}#))) - (let ((#{tmp 4653}# + (lambda (#{x 4657}#) + (let ((#{tmp 4661}# + (map #{emit 4440}# #{x 4657}#))) + (let ((#{tmp 4662}# ($sc-dispatch - #{tmp 4652}# + #{tmp 4661}# 'each-any))) - (if #{tmp 4653}# + (if #{tmp 4662}# (@apply - (lambda (#{ g4649 4655}#) + (lambda (#{ g4658 4664}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g4649}#) - #((m4650 top)) - #("i4654")) + #(#{ g4658}#) + #((m4659 top)) + #("i4663")) #(ribcage #(x) #((top)) - #("i4647")) + #("i4656")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17310,54 +15602,54 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4649 4655}#)) - #{tmp 4653}#) + #{ g4658 4664}#)) + #{tmp 4662}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4652}#))))) - #{tmp 4646}#) - (let ((#{tmp 4658}# + #{tmp 4661}#))))) + #{tmp 4655}#) + (let ((#{tmp 4667}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "vector") . each-any)))) - (if #{tmp 4658}# + (if #{tmp 4667}# (@apply - (lambda (#{x 4660}#) - (let ((#{tmp 4664}# - (map #{emit 4431}# #{x 4660}#))) - (let ((#{tmp 4665}# + (lambda (#{x 4669}#) + (let ((#{tmp 4673}# + (map #{emit 4440}# #{x 4669}#))) + (let ((#{tmp 4674}# ($sc-dispatch - #{tmp 4664}# + #{tmp 4673}# 'each-any))) - (if #{tmp 4665}# + (if #{tmp 4674}# (@apply - (lambda (#{ g4661 4667}#) + (lambda (#{ g4670 4676}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4661}#) - #((m4662 top)) - #("i4666")) + #(#{ g4670}#) + #((m4671 top)) + #("i4675")) #(ribcage #(x) #((top)) - #("i4659")) + #("i4668")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17372,49 +15664,49 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4661 4667}#)) - #{tmp 4665}#) + #{ g4670 4676}#)) + #{tmp 4674}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4664}#))))) - #{tmp 4658}#) - (let ((#{tmp 4670}# + #{tmp 4673}#))))) + #{tmp 4667}#) + (let ((#{tmp 4679}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "list->vector") any)))) - (if #{tmp 4670}# + (if #{tmp 4679}# (@apply - (lambda (#{x 4672}#) - (let ((#{tmp 4676}# - (#{emit 4431}# #{x 4672}#))) - (let ((#{ g4673 4678}# - #{tmp 4676}#)) + (lambda (#{x 4681}#) + (let ((#{tmp 4685}# + (#{emit 4440}# #{x 4681}#))) + (let ((#{ g4682 4687}# + #{tmp 4685}#)) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4673}#) - #((m4674 top)) - #("i4677")) + #(#{ g4682}#) + #((m4683 top)) + #("i4686")) #(ribcage #(x) #((top)) - #("i4671")) + #("i4680")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4609")) + #("i4618")) #(ribcage (emit quasivector quasilist* @@ -17429,83 +15721,83 @@ (top) (top) (top)) - ("i4430" - "i4428" - "i4426" - "i4424" - "i4422" - "i4420" - "i4418"))) + ("i4439" + "i4437" + "i4435" + "i4433" + "i4431" + "i4429" + "i4427"))) (hygiene guile)) - #{ g4673 4678}#)))) - #{tmp 4670}#) - (let ((#{tmp 4679}# + #{ g4682 4687}#)))) + #{tmp 4679}#) + (let ((#{tmp 4688}# ($sc-dispatch - #{tmp 4610}# + #{tmp 4619}# '(#(atom "value") any)))) - (if #{tmp 4679}# + (if #{tmp 4688}# (@apply - (lambda (#{x 4681}#) #{x 4681}#) - #{tmp 4679}#) + (lambda (#{x 4690}#) #{x 4690}#) + #{tmp 4688}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4610}#))))))))))))))))))) + #{tmp 4619}#))))))))))))))))))) (begin - (lambda (#{x 4682}#) - (let ((#{tmp 4684}# #{x 4682}#)) - (let ((#{tmp 4685}# - ($sc-dispatch #{tmp 4684}# '(_ any)))) - (if #{tmp 4685}# + (lambda (#{x 4691}#) + (let ((#{tmp 4693}# #{x 4691}#)) + (let ((#{tmp 4694}# + ($sc-dispatch #{tmp 4693}# '(_ any)))) + (if #{tmp 4694}# (@apply - (lambda (#{e 4687}#) - (#{emit 4431}# (#{quasi 4419}# #{e 4687}# 0))) - #{tmp 4685}#) + (lambda (#{e 4696}#) + (#{emit 4440}# (#{quasi 4428}# #{e 4696}# 0))) + #{tmp 4694}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4684}#))))))))) + #{tmp 4693}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 4688}#) + (lambda (#{x 4697}#) (letrec* - ((#{read-file 4691}# - (lambda (#{fn 4692}# #{k 4693}#) + ((#{read-file 4700}# + (lambda (#{fn 4701}# #{k 4702}#) (begin - (let ((#{p 4697}# (open-input-file #{fn 4692}#))) + (let ((#{p 4706}# (open-input-file #{fn 4701}#))) (letrec* - ((#{f 4701}# - (lambda (#{x 4702}# #{result 4703}#) - (if (eof-object? #{x 4702}#) + ((#{f 4710}# + (lambda (#{x 4711}# #{result 4712}#) + (if (eof-object? #{x 4711}#) (begin - (close-input-port #{p 4697}#) - (reverse #{result 4703}#)) - (#{f 4701}# - (read #{p 4697}#) - (cons (datum->syntax #{k 4693}# #{x 4702}#) - #{result 4703}#)))))) - (begin (#{f 4701}# (read #{p 4697}#) '())))))))) + (close-input-port #{p 4706}#) + (reverse #{result 4712}#)) + (#{f 4710}# + (read #{p 4706}#) + (cons (datum->syntax #{k 4702}# #{x 4711}#) + #{result 4712}#)))))) + (begin (#{f 4710}# (read #{p 4706}#) '())))))))) (begin - (let ((#{tmp 4704}# #{x 4688}#)) - (let ((#{tmp 4705}# - ($sc-dispatch #{tmp 4704}# '(any any)))) - (if #{tmp 4705}# + (let ((#{tmp 4713}# #{x 4697}#)) + (let ((#{tmp 4714}# + ($sc-dispatch #{tmp 4713}# '(any any)))) + (if #{tmp 4714}# (@apply - (lambda (#{k 4708}# #{filename 4709}#) + (lambda (#{k 4717}# #{filename 4718}#) (begin - (let ((#{fn 4711}# (syntax->datum #{filename 4709}#))) - (let ((#{tmp 4713}# - (#{read-file 4691}# - #{fn 4711}# - #{filename 4709}#))) - (let ((#{tmp 4714}# - ($sc-dispatch #{tmp 4713}# 'each-any))) - (if #{tmp 4714}# + (let ((#{fn 4720}# (syntax->datum #{filename 4718}#))) + (let ((#{tmp 4722}# + (#{read-file 4700}# + #{fn 4720}# + #{filename 4718}#))) + (let ((#{tmp 4723}# + ($sc-dispatch #{tmp 4722}# 'each-any))) + (if #{tmp 4723}# (@apply - (lambda (#{exp 4716}#) + (lambda (#{exp 4725}#) (cons '#(syntax-object begin ((top) @@ -17513,129 +15805,129 @@ #(ribcage #(exp) #((top)) - #("i4715")) + #("i4724")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4710")) + #("i4719")) #(ribcage #(k filename) #((top) (top)) - #("i4706" "i4707")) + #("i4715" "i4716")) #(ribcage (read-file) ((top)) - ("i4690")) + ("i4699")) #(ribcage #(x) #((top)) - #("i4689"))) + #("i4698"))) (hygiene guile)) - #{exp 4716}#)) - #{tmp 4714}#) + #{exp 4725}#)) + #{tmp 4723}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4713}#))))))) - #{tmp 4705}#) + #{tmp 4722}#))))))) + #{tmp 4714}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4704}#))))))))) + #{tmp 4713}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 4718}#) - (let ((#{tmp 4720}# #{x 4718}#)) - (let ((#{tmp 4721}# - ($sc-dispatch #{tmp 4720}# '(any any)))) - (if #{tmp 4721}# + (lambda (#{x 4727}#) + (let ((#{tmp 4729}# #{x 4727}#)) + (let ((#{tmp 4730}# + ($sc-dispatch #{tmp 4729}# '(any any)))) + (if #{tmp 4730}# (@apply - (lambda (#{k 4724}# #{filename 4725}#) + (lambda (#{k 4733}# #{filename 4734}#) (begin - (let ((#{fn 4727}# (syntax->datum #{filename 4725}#))) - (let ((#{tmp 4729}# + (let ((#{fn 4736}# (syntax->datum #{filename 4734}#))) + (let ((#{tmp 4738}# (datum->syntax - #{filename 4725}# + #{filename 4734}# (begin - (let ((#{t 4734}# - (%search-load-path #{fn 4727}#))) - (if #{t 4734}# - #{t 4734}# + (let ((#{t 4743}# + (%search-load-path #{fn 4736}#))) + (if #{t 4743}# + #{t 4743}# (syntax-violation 'include-from-path "file not found in path" - #{x 4718}# - #{filename 4725}#))))))) - (let ((#{fn 4731}# #{tmp 4729}#)) + #{x 4727}# + #{filename 4734}#))))))) + (let ((#{fn 4740}# #{tmp 4738}#)) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4730")) + #(ribcage #(fn) #((top)) #("i4739")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4726")) + #(ribcage #(fn) #((top)) #("i4735")) #(ribcage #(k filename) #((top) (top)) - #("i4722" "i4723")) + #("i4731" "i4732")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4719"))) + #(ribcage #(x) #((top)) #("i4728"))) (hygiene guile)) - #{fn 4731}#)))))) - #{tmp 4721}#) + #{fn 4740}#)))))) + #{tmp 4730}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4720}#))))))) + #{tmp 4729}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 4736}#) + (lambda (#{x 4745}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 4736}#)))) + #{x 4745}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 4738}#) + (lambda (#{x 4747}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 4738}#)))) + #{x 4747}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 4740}#) - (let ((#{tmp 4742}# #{x 4740}#)) - (let ((#{tmp 4743}# + (lambda (#{x 4749}#) + (let ((#{tmp 4751}# #{x 4749}#)) + (let ((#{tmp 4752}# ($sc-dispatch - #{tmp 4742}# + #{tmp 4751}# '(_ any any . each-any)))) - (if #{tmp 4743}# + (if #{tmp 4752}# (@apply - (lambda (#{e 4747}# #{m1 4748}# #{m2 4749}#) - (let ((#{tmp 4751}# + (lambda (#{e 4756}# #{m1 4757}# #{m2 4758}#) + (let ((#{tmp 4760}# (letrec* - ((#{f 4757}# - (lambda (#{clause 4758}# #{clauses 4759}#) - (if (null? #{clauses 4759}#) - (let ((#{tmp 4761}# #{clause 4758}#)) - (let ((#{tmp 4762}# + ((#{f 4766}# + (lambda (#{clause 4767}# #{clauses 4768}#) + (if (null? #{clauses 4768}#) + (let ((#{tmp 4770}# #{clause 4767}#)) + (let ((#{tmp 4771}# ($sc-dispatch - #{tmp 4761}# + #{tmp 4770}# '(#(free-id #(syntax-object else @@ -17644,92 +15936,92 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile))) any . each-any)))) - (if #{tmp 4762}# + (if #{tmp 4771}# (@apply - (lambda (#{e1 4765}# #{e2 4766}#) + (lambda (#{e1 4774}# #{e2 4775}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4763" "i4764")) + #("i4772" "i4773")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4765}# - #{e2 4766}#))) - #{tmp 4762}#) - (let ((#{tmp 4768}# + (cons #{e1 4774}# + #{e2 4775}#))) + #{tmp 4771}#) + (let ((#{tmp 4777}# ($sc-dispatch - #{tmp 4761}# + #{tmp 4770}# '(each-any any . each-any)))) - (if #{tmp 4768}# + (if #{tmp 4777}# (@apply - (lambda (#{k 4772}# - #{e1 4773}# - #{e2 4774}#) + (lambda (#{k 4781}# + #{e1 4782}# + #{e2 4783}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object memv @@ -17739,9 +16031,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17753,17 +16045,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17771,7 +16063,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) '#(syntax-object t @@ -17781,9 +16073,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17795,17 +16087,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17813,7 +16105,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object quote @@ -17825,9 +16117,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17839,9 +16131,9 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 @@ -17849,9 +16141,9 @@ #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17859,10 +16151,10 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - #{k 4772}#)) + #{k 4781}#)) (cons '#(syntax-object begin ((top) @@ -17871,9 +16163,9 @@ #((top) (top) (top)) - #("i4769" - "i4770" - "i4771")) + #("i4778" + "i4779" + "i4780")) #(ribcage () () @@ -17885,17 +16177,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -17903,64 +16195,64 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4773}# - #{e2 4774}#)))) - #{tmp 4768}#) - (let ((#{_ 4778}# #{tmp 4761}#)) + (cons #{e1 4782}# + #{e2 4783}#)))) + #{tmp 4777}#) + (let ((#{_ 4787}# #{tmp 4770}#)) (syntax-violation 'case "bad clause" - #{x 4740}# - #{clause 4758}#))))))) - (let ((#{tmp 4780}# - (#{f 4757}# - (car #{clauses 4759}#) - (cdr #{clauses 4759}#)))) - (let ((#{rest 4782}# #{tmp 4780}#)) - (let ((#{tmp 4783}# #{clause 4758}#)) - (let ((#{tmp 4784}# + #{x 4749}# + #{clause 4767}#))))))) + (let ((#{tmp 4789}# + (#{f 4766}# + (car #{clauses 4768}#) + (cdr #{clauses 4768}#)))) + (let ((#{rest 4791}# #{tmp 4789}#)) + (let ((#{tmp 4792}# #{clause 4767}#)) + (let ((#{tmp 4793}# ($sc-dispatch - #{tmp 4783}# + #{tmp 4792}# '(each-any any . each-any)))) - (if #{tmp 4784}# + (if #{tmp 4793}# (@apply - (lambda (#{k 4788}# - #{e1 4789}# - #{e2 4790}#) + (lambda (#{k 4797}# + #{e1 4798}# + #{e2 4799}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object memv @@ -17970,9 +16262,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -17980,7 +16272,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -17992,17 +16284,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18010,7 +16302,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) '#(syntax-object t @@ -18020,9 +16312,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18030,7 +16322,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18042,17 +16334,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18060,7 +16352,7 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) (list '#(syntax-object quote @@ -18072,9 +16364,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18082,7 +16374,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18094,9 +16386,9 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 @@ -18104,9 +16396,9 @@ #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18114,10 +16406,10 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - #{k 4788}#)) + #{k 4797}#)) (cons '#(syntax-object begin ((top) @@ -18126,9 +16418,9 @@ #((top) (top) (top)) - #("i4785" - "i4786" - "i4787")) + #("i4794" + "i4795" + "i4796")) #(ribcage () () @@ -18136,7 +16428,7 @@ #(ribcage #(rest) #((top)) - #("i4781")) + #("i4790")) #(ribcage () () @@ -18148,17 +16440,17 @@ #((top) (top) (top)) - #("i4754" - "i4755" - "i4756")) + #("i4763" + "i4764" + "i4765")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" - "i4745" - "i4746")) + #("i4753" + "i4754" + "i4755")) #(ribcage () () @@ -18166,31 +16458,31 @@ #(ribcage #(x) #((top)) - #("i4741"))) + #("i4750"))) (hygiene guile)) - (cons #{e1 4789}# - #{e2 4790}#)) - #{rest 4782}#)) - #{tmp 4784}#) - (let ((#{_ 4794}# #{tmp 4783}#)) + (cons #{e1 4798}# + #{e2 4799}#)) + #{rest 4791}#)) + #{tmp 4793}#) + (let ((#{_ 4803}# #{tmp 4792}#)) (syntax-violation 'case "bad clause" - #{x 4740}# - #{clause 4758}#))))))))))) - (begin (#{f 4757}# #{m1 4748}# #{m2 4749}#))))) - (let ((#{body 4753}# #{tmp 4751}#)) + #{x 4749}# + #{clause 4767}#))))))))))) + (begin (#{f 4766}# #{m1 4757}# #{m2 4758}#))))) + (let ((#{body 4762}# #{tmp 4760}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i4752")) + #(ribcage #(body) #((top)) #("i4761")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" "i4745" "i4746")) + #("i4753" "i4754" "i4755")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4741"))) + #(ribcage #(x) #((top)) #("i4750"))) (hygiene guile)) (list (list '#(syntax-object t @@ -18199,176 +16491,176 @@ #(ribcage #(body) #((top)) - #("i4752")) + #("i4761")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4744" "i4745" "i4746")) + #("i4753" "i4754" "i4755")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4741"))) + #(ribcage #(x) #((top)) #("i4750"))) (hygiene guile)) - #{e 4747}#)) - #{body 4753}#)))) - #{tmp 4743}#) + #{e 4756}#)) + #{body 4762}#)))) + #{tmp 4752}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4742}#))))))) + #{tmp 4751}#))))))) (define make-variable-transformer - (lambda (#{proc 4795}#) - (if (procedure? #{proc 4795}#) + (lambda (#{proc 4804}#) + (if (procedure? #{proc 4804}#) (begin (letrec* - ((#{trans 4798}# - (lambda (#{x 4799}#) (#{proc 4795}# #{x 4799}#)))) + ((#{trans 4807}# + (lambda (#{x 4808}#) (#{proc 4804}# #{x 4808}#)))) (begin (set-procedure-property! - #{trans 4798}# + #{trans 4807}# 'variable-transformer #t) - #{trans 4798}#))) + #{trans 4807}#))) (error "variable transformer not a procedure" - #{proc 4795}#)))) + #{proc 4804}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 4801}#) - (let ((#{tmp 4803}# #{x 4801}#)) - (let ((#{tmp 4804}# - ($sc-dispatch #{tmp 4803}# '(_ any)))) - (if #{tmp 4804}# + (lambda (#{x 4810}#) + (let ((#{tmp 4812}# #{x 4810}#)) + (let ((#{tmp 4813}# + ($sc-dispatch #{tmp 4812}# '(_ any)))) + (if #{tmp 4813}# (@apply - (lambda (#{e 4806}#) + (lambda (#{e 4815}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{e 4806}#)) + #{e 4815}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4805")) + #(ribcage #(e) #((top)) #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - (cons #{e 4806}# + (cons #{e 4815}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i4805")) + #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18376,55 +16668,55 @@ #(ribcage #(e) #((top)) - #("i4805")) + #("i4814")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile))))))))) - #{tmp 4804}#) - (let ((#{tmp 4807}# + #{tmp 4813}#) + (let ((#{tmp 4816}# ($sc-dispatch - #{tmp 4803}# + #{tmp 4812}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 4807}# + (if (if #{tmp 4816}# (@apply - (lambda (#{id 4813}# - #{exp1 4814}# - #{var 4815}# - #{val 4816}# - #{exp2 4817}#) - (if (identifier? #{id 4813}#) - (identifier? #{var 4815}#) + (lambda (#{id 4822}# + #{exp1 4823}# + #{var 4824}# + #{val 4825}# + #{exp2 4826}#) + (if (identifier? #{id 4822}#) + (identifier? #{var 4824}#) #f)) - #{tmp 4807}#) + #{tmp 4816}#) #f) (@apply - (lambda (#{id 4825}# - #{exp1 4826}# - #{var 4827}# - #{val 4828}# - #{exp2 4829}#) + (lambda (#{id 4834}# + #{exp1 4835}# + #{var 4836}# + #{val 4837}# + #{exp2 4838}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" "i4821" "i4822" "i4823" "i4824")) + #("i4829" "i4830" "i4831" "i4832" "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) (list '#(syntax-object lambda @@ -18432,13 +16724,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object x @@ -18446,13 +16738,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -18460,13 +16752,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) . #(syntax-object @@ -18475,13 +16767,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -18489,13 +16781,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '#(syntax-object x @@ -18503,13 +16795,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile)) '(#(syntax-object set! @@ -18517,13 +16809,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4802"))) + #(ribcage #(x) #((top)) #("i4811"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -18535,19 +16827,19 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{var 4827}# - #{val 4828}#) + #{var 4836}# + #{val 4837}#) (list '#(syntax-object syntax ((top) @@ -18558,19 +16850,19 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{exp2 4829}#)) - (list (cons #{id 4825}# + #{exp2 4838}#)) + (list (cons #{id 4834}# '(#(syntax-object x ((top) @@ -18585,16 +16877,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18610,16 +16902,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -18631,18 +16923,18 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - (cons #{exp1 4826}# + (cons #{exp1 4835}# '(#(syntax-object x ((top) @@ -18657,11 +16949,11 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () @@ -18669,7 +16961,7 @@ #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) #(syntax-object ... @@ -18685,11 +16977,11 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () @@ -18697,10 +16989,10 @@ #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)))))) - (list #{id 4825}# + (list #{id 4834}# (list '#(syntax-object identifier? ((top) @@ -18711,16 +17003,16 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) (list '#(syntax-object syntax @@ -18736,18 +17028,18 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{id 4825}#)) + #{id 4834}#)) (list '#(syntax-object syntax ((top) @@ -18758,69 +17050,69 @@ (top) (top) (top)) - #("i4820" - "i4821" - "i4822" - "i4823" - "i4824")) + #("i4829" + "i4830" + "i4831" + "i4832" + "i4833")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4802"))) + #("i4811"))) (hygiene guile)) - #{exp1 4826}#)))))) - #{tmp 4807}#) + #{exp1 4835}#)))))) + #{tmp 4816}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4803}#))))))))) + #{tmp 4812}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 4830}#) - (let ((#{tmp 4832}# #{x 4830}#)) - (let ((#{tmp 4833}# + (lambda (#{x 4839}#) + (let ((#{tmp 4841}# #{x 4839}#)) + (let ((#{tmp 4842}# ($sc-dispatch - #{tmp 4832}# + #{tmp 4841}# '(_ (any . any) any . each-any)))) - (if #{tmp 4833}# + (if #{tmp 4842}# (@apply - (lambda (#{id 4838}# - #{args 4839}# - #{b0 4840}# - #{b1 4841}#) + (lambda (#{id 4847}# + #{args 4848}# + #{b0 4849}# + #{b1 4850}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4834" "i4835" "i4836" "i4837")) + #("i4843" "i4844" "i4845" "i4846")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)) - #{id 4838}# + #{id 4847}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4834" "i4835" "i4836" "i4837")) + #("i4843" "i4844" "i4845" "i4846")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)) - (cons #{args 4839}# - (cons #{b0 4840}# #{b1 4841}#))))) - #{tmp 4833}#) - (let ((#{tmp 4843}# - ($sc-dispatch #{tmp 4832}# '(_ any any)))) - (if (if #{tmp 4843}# + (cons #{args 4848}# + (cons #{b0 4849}# #{b1 4850}#))))) + #{tmp 4842}#) + (let ((#{tmp 4852}# + ($sc-dispatch #{tmp 4841}# '(_ any any)))) + (if (if #{tmp 4852}# (@apply - (lambda (#{id 4846}# #{val 4847}#) + (lambda (#{id 4855}# #{val 4856}#) (identifier? '#(syntax-object x @@ -18828,29 +17120,29 @@ #(ribcage #(id val) #((top) (top)) - #("i4844" "i4845")) + #("i4853" "i4854")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)))) - #{tmp 4843}#) + #{tmp 4852}#) #f) (@apply - (lambda (#{id 4850}# #{val 4851}#) + (lambda (#{id 4859}# #{val 4860}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i4848" "i4849")) + #("i4857" "i4858")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4831"))) + #(ribcage #(x) #((top)) #("i4840"))) (hygiene guile)) - #{id 4850}# - #{val 4851}#)) - #{tmp 4843}#) + #{id 4859}# + #{val 4860}#)) + #{tmp 4852}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4832}#))))))))) + #{tmp 4841}#))))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 8232ad9f2..14b89f9a6 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -821,9 +821,35 @@ (define free-id=? (lambda (i j) - (and (eq? (id-sym-name i) (id-sym-name j)) ; accelerator - (eq? (id-var-name i empty-wrap) (id-var-name j empty-wrap))))) - + (let ((ni (id-var-name i empty-wrap)) + (nj (id-var-name j empty-wrap))) + (define (id-module-binding id) + (let ((mod (and (syntax-object? id) (syntax-object-module id)))) + (module-variable + (if mod + ;; The normal case. + (resolve-module (cdr mod)) + ;; Either modules have not been booted, or we have a + ;; raw symbol coming in, which is possible. + (current-module)) + (id-sym-name id)))) + (if (eq? ni (id-sym-name i)) + ;; `i' is not lexically bound. Assert that `j' is free, + ;; and if so, compare their bindings, that they are either + ;; bound to the same variable, or both unbound and have + ;; the same name. + (and (eq? nj (id-sym-name j)) + (let ((bi (id-module-binding i))) + (if bi + (eq? bi (id-module-binding j)) + (and (not (id-module-binding j)) + (eq? ni nj)))) + (eq? (id-module-binding i) (id-module-binding j))) + ;; Otherwise `i' is bound, so check that `j' is bound, and + ;; bound to the same thing. + (and (eq? ni nj) + (not (eq? nj (id-sym-name j)))))))) + ;; bound-id=? may be passed unwrapped (or partially wrapped) ids as ;; long as the missing portion of the wrap is common to both of the ids ;; since (bound-id=? x y) iff (bound-id=? (wrap x w) (wrap y w))