diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 15584 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 73 |
2 files changed, 7822 insertions, 7835 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 4cef609e3..d499b738a 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -3,1526 +3,1526 @@ (letrec* ((#{make-void 203}# - (lambda (#{src 761}#) + (lambda (#{src 774}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src 761}#))) + #{src 774}#))) (#{make-const 205}# - (lambda (#{src 763}# #{exp 764}#) + (lambda (#{src 776}# #{exp 777}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src 763}# - #{exp 764}#))) + #{src 776}# + #{exp 777}#))) (#{make-lexical-ref 209}# - (lambda (#{src 771}# #{name 772}# #{gensym 773}#) + (lambda (#{src 784}# #{name 785}# #{gensym 786}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 771}# - #{name 772}# - #{gensym 773}#))) + #{src 784}# + #{name 785}# + #{gensym 786}#))) (#{make-lexical-set 211}# - (lambda (#{src 777}# - #{name 778}# - #{gensym 779}# - #{exp 780}#) + (lambda (#{src 790}# + #{name 791}# + #{gensym 792}# + #{exp 793}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src 777}# - #{name 778}# - #{gensym 779}# - #{exp 780}#))) + #{src 790}# + #{name 791}# + #{gensym 792}# + #{exp 793}#))) (#{make-module-ref 213}# - (lambda (#{src 785}# - #{mod 786}# - #{name 787}# - #{public? 788}#) + (lambda (#{src 798}# + #{mod 799}# + #{name 800}# + #{public? 801}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src 785}# - #{mod 786}# - #{name 787}# - #{public? 788}#))) + #{src 798}# + #{mod 799}# + #{name 800}# + #{public? 801}#))) (#{make-module-set 215}# - (lambda (#{src 793}# - #{mod 794}# - #{name 795}# - #{public? 796}# - #{exp 797}#) + (lambda (#{src 806}# + #{mod 807}# + #{name 808}# + #{public? 809}# + #{exp 810}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src 793}# - #{mod 794}# - #{name 795}# - #{public? 796}# - #{exp 797}#))) + #{src 806}# + #{mod 807}# + #{name 808}# + #{public? 809}# + #{exp 810}#))) (#{make-toplevel-ref 217}# - (lambda (#{src 803}# #{name 804}#) + (lambda (#{src 816}# #{name 817}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src 803}# - #{name 804}#))) + #{src 816}# + #{name 817}#))) (#{make-toplevel-set 219}# - (lambda (#{src 807}# #{name 808}# #{exp 809}#) + (lambda (#{src 820}# #{name 821}# #{exp 822}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src 807}# - #{name 808}# - #{exp 809}#))) + #{src 820}# + #{name 821}# + #{exp 822}#))) (#{make-toplevel-define 221}# - (lambda (#{src 813}# #{name 814}# #{exp 815}#) + (lambda (#{src 826}# #{name 827}# #{exp 828}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src 813}# - #{name 814}# - #{exp 815}#))) + #{src 826}# + #{name 827}# + #{exp 828}#))) (#{make-conditional 223}# - (lambda (#{src 819}# - #{test 820}# - #{consequent 821}# - #{alternate 822}#) + (lambda (#{src 832}# + #{test 833}# + #{consequent 834}# + #{alternate 835}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src 819}# - #{test 820}# - #{consequent 821}# - #{alternate 822}#))) + #{src 832}# + #{test 833}# + #{consequent 834}# + #{alternate 835}#))) (#{make-application 225}# - (lambda (#{src 827}# #{proc 828}# #{args 829}#) + (lambda (#{src 840}# #{proc 841}# #{args 842}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 827}# - #{proc 828}# - #{args 829}#))) + #{src 840}# + #{proc 841}# + #{args 842}#))) (#{make-sequence 227}# - (lambda (#{src 833}# #{exps 834}#) + (lambda (#{src 846}# #{exps 847}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 833}# - #{exps 834}#))) + #{src 846}# + #{exps 847}#))) (#{make-lambda 229}# - (lambda (#{src 837}# #{meta 838}# #{body 839}#) + (lambda (#{src 850}# #{meta 851}# #{body 852}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 837}# - #{meta 838}# - #{body 839}#))) + #{src 850}# + #{meta 851}# + #{body 852}#))) (#{make-lambda-case 231}# - (lambda (#{src 843}# - #{req 844}# - #{opt 845}# - #{rest 846}# - #{kw 847}# - #{inits 848}# - #{gensyms 849}# - #{body 850}# - #{alternate 851}#) + (lambda (#{src 856}# + #{req 857}# + #{opt 858}# + #{rest 859}# + #{kw 860}# + #{inits 861}# + #{gensyms 862}# + #{body 863}# + #{alternate 864}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 843}# - #{req 844}# - #{opt 845}# - #{rest 846}# - #{kw 847}# - #{inits 848}# - #{gensyms 849}# - #{body 850}# - #{alternate 851}#))) + #{src 856}# + #{req 857}# + #{opt 858}# + #{rest 859}# + #{kw 860}# + #{inits 861}# + #{gensyms 862}# + #{body 863}# + #{alternate 864}#))) (#{make-let 233}# - (lambda (#{src 861}# - #{names 862}# - #{gensyms 863}# - #{vals 864}# - #{body 865}#) + (lambda (#{src 874}# + #{names 875}# + #{gensyms 876}# + #{vals 877}# + #{body 878}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 861}# - #{names 862}# - #{gensyms 863}# - #{vals 864}# - #{body 865}#))) + #{src 874}# + #{names 875}# + #{gensyms 876}# + #{vals 877}# + #{body 878}#))) (#{make-letrec 235}# - (lambda (#{src 871}# - #{in-order? 872}# - #{names 873}# - #{gensyms 874}# - #{vals 875}# - #{body 876}#) + (lambda (#{src 884}# + #{in-order? 885}# + #{names 886}# + #{gensyms 887}# + #{vals 888}# + #{body 889}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 871}# - #{in-order? 872}# - #{names 873}# - #{gensyms 874}# - #{vals 875}# - #{body 876}#))) + #{src 884}# + #{in-order? 885}# + #{names 886}# + #{gensyms 887}# + #{vals 888}# + #{body 889}#))) (#{make-dynlet 237}# - (lambda (#{src 883}# - #{fluids 884}# - #{vals 885}# - #{body 886}#) + (lambda (#{src 896}# + #{fluids 897}# + #{vals 898}# + #{body 899}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 883}# - #{fluids 884}# - #{vals 885}# - #{body 886}#))) + #{src 896}# + #{fluids 897}# + #{vals 898}# + #{body 899}#))) (#{lambda? 240}# - (lambda (#{x 891}#) - (if (struct? #{x 891}#) - (eq? (struct-vtable #{x 891}#) + (lambda (#{x 904}#) + (if (struct? #{x 904}#) + (eq? (struct-vtable #{x 904}#) (vector-ref %expanded-vtables 13)) #f))) (#{lambda-meta 242}# - (lambda (#{x 895}#) (struct-ref #{x 895}# 1))) + (lambda (#{x 908}#) (struct-ref #{x 908}# 1))) (#{set-lambda-meta! 244}# - (lambda (#{x 897}# #{v 898}#) - (struct-set! #{x 897}# 1 #{v 898}#))) + (lambda (#{x 910}# #{v 911}#) + (struct-set! #{x 910}# 1 #{v 911}#))) (#{top-level-eval-hook 250}# - (lambda (#{x 901}# #{mod 902}#) - (primitive-eval #{x 901}#))) + (lambda (#{x 914}# #{mod 915}#) + (primitive-eval #{x 914}#))) (#{local-eval-hook 252}# - (lambda (#{x 905}# #{mod 906}#) - (primitive-eval #{x 905}#))) - (#{put-global-definition-hook 255}# - (lambda (#{symbol 909}# #{type 910}# #{val 911}#) + (lambda (#{x 918}# #{mod 919}#) + (primitive-eval #{x 918}#))) + (#{put-global-definition-hook 256}# + (lambda (#{symbol 922}# #{type 923}# #{val 924}#) (module-define! (current-module) - #{symbol 909}# + #{symbol 922}# (make-syntax-transformer - #{symbol 909}# - #{type 910}# - #{val 911}#)))) - (#{get-global-definition-hook 257}# - (lambda (#{symbol 915}# #{module 916}#) + #{symbol 922}# + #{type 923}# + #{val 924}#)))) + (#{get-global-definition-hook 258}# + (lambda (#{symbol 928}# #{module 929}#) (begin - (if (if (not #{module 916}#) (current-module) #f) + (if (if (not #{module 929}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 915}#)) + #{symbol 928}#)) (begin - (let ((#{v 922}# (module-variable - (if #{module 916}# - (resolve-module (cdr #{module 916}#)) + (let ((#{v 935}# (module-variable + (if #{module 929}# + (resolve-module (cdr #{module 929}#)) (current-module)) - #{symbol 915}#))) - (if #{v 922}# - (if (variable-bound? #{v 922}#) + #{symbol 928}#))) + (if #{v 935}# + (if (variable-bound? #{v 935}#) (begin - (let ((#{val 927}# (variable-ref #{v 922}#))) - (if (macro? #{val 927}#) - (if (macro-type #{val 927}#) - (cons (macro-type #{val 927}#) - (macro-binding #{val 927}#)) + (let ((#{val 940}# (variable-ref #{v 935}#))) + (if (macro? #{val 940}#) + (if (macro-type #{val 940}#) + (cons (macro-type #{val 940}#) + (macro-binding #{val 940}#)) #f) #f))) #f) #f)))))) - (#{decorate-source 259}# - (lambda (#{e 931}# #{s 932}#) + (#{decorate-source 260}# + (lambda (#{e 944}# #{s 945}#) (begin - (if (if (pair? #{e 931}#) #{s 932}# #f) - (set-source-properties! #{e 931}# #{s 932}#)) - #{e 931}#))) - (#{maybe-name-value! 261}# - (lambda (#{name 937}# #{val 938}#) - (if (#{lambda? 240}# #{val 938}#) + (if (if (pair? #{e 944}#) #{s 945}# #f) + (set-source-properties! #{e 944}# #{s 945}#)) + #{e 944}#))) + (#{maybe-name-value! 262}# + (lambda (#{name 950}# #{val 951}#) + (if (#{lambda? 240}# #{val 951}#) (begin - (let ((#{meta 942}# (#{lambda-meta 242}# #{val 938}#))) - (if (not (assq 'name #{meta 942}#)) + (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#))) + (if (not (assq 'name #{meta 955}#)) (#{set-lambda-meta! 244}# - #{val 938}# - (cons (cons 'name #{name 937}#) #{meta 942}#)))))))) - (#{build-void 263}# - (lambda (#{source 943}#) - (#{make-void 203}# #{source 943}#))) - (#{build-application 265}# - (lambda (#{source 945}# #{fun-exp 946}# #{arg-exps 947}#) + #{val 951}# + (cons (cons 'name #{name 950}#) #{meta 955}#)))))))) + (#{build-void 264}# + (lambda (#{source 956}#) + (#{make-void 203}# #{source 956}#))) + (#{build-application 266}# + (lambda (#{source 958}# #{fun-exp 959}# #{arg-exps 960}#) (#{make-application 225}# - #{source 945}# - #{fun-exp 946}# - #{arg-exps 947}#))) - (#{build-conditional 267}# - (lambda (#{source 951}# - #{test-exp 952}# - #{then-exp 953}# - #{else-exp 954}#) + #{source 958}# + #{fun-exp 959}# + #{arg-exps 960}#))) + (#{build-conditional 268}# + (lambda (#{source 964}# + #{test-exp 965}# + #{then-exp 966}# + #{else-exp 967}#) (#{make-conditional 223}# - #{source 951}# - #{test-exp 952}# - #{then-exp 953}# - #{else-exp 954}#))) - (#{build-dynlet 269}# - (lambda (#{source 959}# - #{fluids 960}# - #{vals 961}# - #{body 962}#) + #{source 964}# + #{test-exp 965}# + #{then-exp 966}# + #{else-exp 967}#))) + (#{build-dynlet 270}# + (lambda (#{source 972}# + #{fluids 973}# + #{vals 974}# + #{body 975}#) (#{make-dynlet 237}# - #{source 959}# - #{fluids 960}# - #{vals 961}# - #{body 962}#))) - (#{build-lexical-reference 271}# - (lambda (#{type 967}# - #{source 968}# - #{name 969}# - #{var 970}#) + #{source 972}# + #{fluids 973}# + #{vals 974}# + #{body 975}#))) + (#{build-lexical-reference 272}# + (lambda (#{type 980}# + #{source 981}# + #{name 982}# + #{var 983}#) (#{make-lexical-ref 209}# - #{source 968}# - #{name 969}# - #{var 970}#))) - (#{build-lexical-assignment 273}# - (lambda (#{source 975}# - #{name 976}# - #{var 977}# - #{exp 978}#) + #{source 981}# + #{name 982}# + #{var 983}#))) + (#{build-lexical-assignment 274}# + (lambda (#{source 988}# + #{name 989}# + #{var 990}# + #{exp 991}#) (begin - (#{maybe-name-value! 261}# - #{name 976}# - #{exp 978}#) + (#{maybe-name-value! 262}# + #{name 989}# + #{exp 991}#) (#{make-lexical-set 211}# - #{source 975}# - #{name 976}# - #{var 977}# - #{exp 978}#)))) - (#{analyze-variable 275}# - (lambda (#{mod 983}# - #{var 984}# - #{modref-cont 985}# - #{bare-cont 986}#) - (if (not #{mod 983}#) - (#{bare-cont 986}# #{var 984}#) + #{source 988}# + #{name 989}# + #{var 990}# + #{exp 991}#)))) + (#{analyze-variable 276}# + (lambda (#{mod 996}# + #{var 997}# + #{modref-cont 998}# + #{bare-cont 999}#) + (if (not #{mod 996}#) + (#{bare-cont 999}# #{var 997}#) (begin - (let ((#{kind 993}# (car #{mod 983}#)) - (#{mod 994}# (cdr #{mod 983}#))) - (if (eqv? #{kind 993}# 'public) - (#{modref-cont 985}# #{mod 994}# #{var 984}# #t) - (if (eqv? #{kind 993}# 'private) + (let ((#{kind 1006}# (car #{mod 996}#)) + (#{mod 1007}# (cdr #{mod 996}#))) + (if (eqv? #{kind 1006}# 'public) + (#{modref-cont 998}# #{mod 1007}# #{var 997}# #t) + (if (eqv? #{kind 1006}# 'private) (if (not (equal? - #{mod 994}# + #{mod 1007}# (module-name (current-module)))) - (#{modref-cont 985}# #{mod 994}# #{var 984}# #f) - (#{bare-cont 986}# #{var 984}#)) - (if (eqv? #{kind 993}# 'bare) - (#{bare-cont 986}# #{var 984}#) - (if (eqv? #{kind 993}# 'hygiene) + (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f) + (#{bare-cont 999}# #{var 997}#)) + (if (eqv? #{kind 1006}# 'bare) + (#{bare-cont 999}# #{var 997}#) + (if (eqv? #{kind 1006}# 'hygiene) (if (if (not (equal? - #{mod 994}# + #{mod 1007}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 994}#) - #{var 984}#) + (resolve-module #{mod 1007}#) + #{var 997}#) #f) - (#{modref-cont 985}# #{mod 994}# #{var 984}# #f) - (#{bare-cont 986}# #{var 984}#)) + (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f) + (#{bare-cont 999}# #{var 997}#)) (syntax-violation #f "bad module kind" - #{var 984}# - #{mod 994}#)))))))))) - (#{build-global-reference 277}# - (lambda (#{source 1002}# #{var 1003}# #{mod 1004}#) - (#{analyze-variable 275}# - #{mod 1004}# - #{var 1003}# - (lambda (#{mod 1008}# #{var 1009}# #{public? 1010}#) + #{var 997}# + #{mod 1007}#)))))))))) + (#{build-global-reference 278}# + (lambda (#{source 1015}# #{var 1016}# #{mod 1017}#) + (#{analyze-variable 276}# + #{mod 1017}# + #{var 1016}# + (lambda (#{mod 1021}# #{var 1022}# #{public? 1023}#) (#{make-module-ref 213}# - #{source 1002}# - #{mod 1008}# - #{var 1009}# - #{public? 1010}#)) - (lambda (#{var 1014}#) + #{source 1015}# + #{mod 1021}# + #{var 1022}# + #{public? 1023}#)) + (lambda (#{var 1027}#) (#{make-toplevel-ref 217}# - #{source 1002}# - #{var 1014}#))))) - (#{build-global-assignment 279}# - (lambda (#{source 1016}# - #{var 1017}# - #{exp 1018}# - #{mod 1019}#) + #{source 1015}# + #{var 1027}#))))) + (#{build-global-assignment 280}# + (lambda (#{source 1029}# + #{var 1030}# + #{exp 1031}# + #{mod 1032}#) (begin - (#{maybe-name-value! 261}# - #{var 1017}# - #{exp 1018}#) - (#{analyze-variable 275}# - #{mod 1019}# - #{var 1017}# - (lambda (#{mod 1024}# #{var 1025}# #{public? 1026}#) + (#{maybe-name-value! 262}# + #{var 1030}# + #{exp 1031}#) + (#{analyze-variable 276}# + #{mod 1032}# + #{var 1030}# + (lambda (#{mod 1037}# #{var 1038}# #{public? 1039}#) (#{make-module-set 215}# - #{source 1016}# - #{mod 1024}# - #{var 1025}# - #{public? 1026}# - #{exp 1018}#)) - (lambda (#{var 1030}#) + #{source 1029}# + #{mod 1037}# + #{var 1038}# + #{public? 1039}# + #{exp 1031}#)) + (lambda (#{var 1043}#) (#{make-toplevel-set 219}# - #{source 1016}# - #{var 1030}# - #{exp 1018}#)))))) - (#{build-global-definition 281}# - (lambda (#{source 1032}# #{var 1033}# #{exp 1034}#) + #{source 1029}# + #{var 1043}# + #{exp 1031}#)))))) + (#{build-global-definition 282}# + (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#) (begin - (#{maybe-name-value! 261}# - #{var 1033}# - #{exp 1034}#) + (#{maybe-name-value! 262}# + #{var 1046}# + #{exp 1047}#) (#{make-toplevel-define 221}# - #{source 1032}# - #{var 1033}# - #{exp 1034}#)))) - (#{build-simple-lambda 283}# - (lambda (#{src 1038}# - #{req 1039}# - #{rest 1040}# - #{vars 1041}# - #{meta 1042}# - #{exp 1043}#) + #{source 1045}# + #{var 1046}# + #{exp 1047}#)))) + (#{build-simple-lambda 284}# + (lambda (#{src 1051}# + #{req 1052}# + #{rest 1053}# + #{vars 1054}# + #{meta 1055}# + #{exp 1056}#) (#{make-lambda 229}# - #{src 1038}# - #{meta 1042}# + #{src 1051}# + #{meta 1055}# (#{make-lambda-case 231}# - #{src 1038}# - #{req 1039}# + #{src 1051}# + #{req 1052}# #f - #{rest 1040}# + #{rest 1053}# #f '() - #{vars 1041}# - #{exp 1043}# + #{vars 1054}# + #{exp 1056}# #f)))) - (#{build-case-lambda 285}# - (lambda (#{src 1050}# #{meta 1051}# #{body 1052}#) + (#{build-case-lambda 286}# + (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#) (#{make-lambda 229}# - #{src 1050}# - #{meta 1051}# - #{body 1052}#))) - (#{build-lambda-case 287}# - (lambda (#{src 1056}# - #{req 1057}# - #{opt 1058}# - #{rest 1059}# - #{kw 1060}# - #{inits 1061}# - #{vars 1062}# - #{body 1063}# - #{else-case 1064}#) + #{src 1063}# + #{meta 1064}# + #{body 1065}#))) + (#{build-lambda-case 288}# + (lambda (#{src 1069}# + #{req 1070}# + #{opt 1071}# + #{rest 1072}# + #{kw 1073}# + #{inits 1074}# + #{vars 1075}# + #{body 1076}# + #{else-case 1077}#) (#{make-lambda-case 231}# - #{src 1056}# - #{req 1057}# - #{opt 1058}# - #{rest 1059}# - #{kw 1060}# - #{inits 1061}# - #{vars 1062}# - #{body 1063}# - #{else-case 1064}#))) - (#{build-primref 289}# - (lambda (#{src 1074}# #{name 1075}#) + #{src 1069}# + #{req 1070}# + #{opt 1071}# + #{rest 1072}# + #{kw 1073}# + #{inits 1074}# + #{vars 1075}# + #{body 1076}# + #{else-case 1077}#))) + (#{build-primref 290}# + (lambda (#{src 1087}# #{name 1088}#) (if (equal? (module-name (current-module)) '(guile)) (#{make-toplevel-ref 217}# - #{src 1074}# - #{name 1075}#) + #{src 1087}# + #{name 1088}#) (#{make-module-ref 213}# - #{src 1074}# + #{src 1087}# '(guile) - #{name 1075}# + #{name 1088}# #f)))) - (#{build-data 291}# - (lambda (#{src 1078}# #{exp 1079}#) - (#{make-const 205}# #{src 1078}# #{exp 1079}#))) - (#{build-sequence 293}# - (lambda (#{src 1082}# #{exps 1083}#) - (if (null? (cdr #{exps 1083}#)) - (car #{exps 1083}#) + (#{build-data 292}# + (lambda (#{src 1091}# #{exp 1092}#) + (#{make-const 205}# #{src 1091}# #{exp 1092}#))) + (#{build-sequence 294}# + (lambda (#{src 1095}# #{exps 1096}#) + (if (null? (cdr #{exps 1096}#)) + (car #{exps 1096}#) (#{make-sequence 227}# - #{src 1082}# - #{exps 1083}#)))) - (#{build-let 295}# - (lambda (#{src 1086}# - #{ids 1087}# - #{vars 1088}# - #{val-exps 1089}# - #{body-exp 1090}#) + #{src 1095}# + #{exps 1096}#)))) + (#{build-let 296}# + (lambda (#{src 1099}# + #{ids 1100}# + #{vars 1101}# + #{val-exps 1102}# + #{body-exp 1103}#) (begin (for-each - #{maybe-name-value! 261}# - #{ids 1087}# - #{val-exps 1089}#) - (if (null? #{vars 1088}#) - #{body-exp 1090}# + #{maybe-name-value! 262}# + #{ids 1100}# + #{val-exps 1102}#) + (if (null? #{vars 1101}#) + #{body-exp 1103}# (#{make-let 233}# - #{src 1086}# - #{ids 1087}# - #{vars 1088}# - #{val-exps 1089}# - #{body-exp 1090}#))))) - (#{build-named-let 297}# - (lambda (#{src 1096}# - #{ids 1097}# - #{vars 1098}# - #{val-exps 1099}# - #{body-exp 1100}#) + #{src 1099}# + #{ids 1100}# + #{vars 1101}# + #{val-exps 1102}# + #{body-exp 1103}#))))) + (#{build-named-let 298}# + (lambda (#{src 1109}# + #{ids 1110}# + #{vars 1111}# + #{val-exps 1112}# + #{body-exp 1113}#) (begin - (let ((#{f 1110}# (car #{vars 1098}#)) - (#{f-name 1111}# (car #{ids 1097}#)) - (#{vars 1112}# (cdr #{vars 1098}#)) - (#{ids 1113}# (cdr #{ids 1097}#))) + (let ((#{f 1123}# (car #{vars 1111}#)) + (#{f-name 1124}# (car #{ids 1110}#)) + (#{vars 1125}# (cdr #{vars 1111}#)) + (#{ids 1126}# (cdr #{ids 1110}#))) (begin - (let ((#{proc 1115}# - (#{build-simple-lambda 283}# - #{src 1096}# - #{ids 1113}# + (let ((#{proc 1128}# + (#{build-simple-lambda 284}# + #{src 1109}# + #{ids 1126}# #f - #{vars 1112}# + #{vars 1125}# '() - #{body-exp 1100}#))) + #{body-exp 1113}#))) (begin - (#{maybe-name-value! 261}# - #{f-name 1111}# - #{proc 1115}#) + (#{maybe-name-value! 262}# + #{f-name 1124}# + #{proc 1128}#) (for-each - #{maybe-name-value! 261}# - #{ids 1113}# - #{val-exps 1099}#) + #{maybe-name-value! 262}# + #{ids 1126}# + #{val-exps 1112}#) (#{make-letrec 235}# - #{src 1096}# + #{src 1109}# #f - (list #{f-name 1111}#) - (list #{f 1110}#) - (list #{proc 1115}#) - (#{build-application 265}# - #{src 1096}# - (#{build-lexical-reference 271}# + (list #{f-name 1124}#) + (list #{f 1123}#) + (list #{proc 1128}#) + (#{build-application 266}# + #{src 1109}# + (#{build-lexical-reference 272}# 'fun - #{src 1096}# - #{f-name 1111}# - #{f 1110}#) - #{val-exps 1099}#))))))))) - (#{build-letrec 299}# - (lambda (#{src 1116}# - #{in-order? 1117}# - #{ids 1118}# - #{vars 1119}# - #{val-exps 1120}# - #{body-exp 1121}#) - (if (null? #{vars 1119}#) - #{body-exp 1121}# + #{src 1109}# + #{f-name 1124}# + #{f 1123}#) + #{val-exps 1112}#))))))))) + (#{build-letrec 300}# + (lambda (#{src 1129}# + #{in-order? 1130}# + #{ids 1131}# + #{vars 1132}# + #{val-exps 1133}# + #{body-exp 1134}#) + (if (null? #{vars 1132}#) + #{body-exp 1134}# (begin (for-each - #{maybe-name-value! 261}# - #{ids 1118}# - #{val-exps 1120}#) + #{maybe-name-value! 262}# + #{ids 1131}# + #{val-exps 1133}#) (#{make-letrec 235}# - #{src 1116}# - #{in-order? 1117}# - #{ids 1118}# - #{vars 1119}# - #{val-exps 1120}# - #{body-exp 1121}#))))) - (#{make-syntax-object 303}# - (lambda (#{expression 1128}# - #{wrap 1129}# - #{module 1130}#) + #{src 1129}# + #{in-order? 1130}# + #{ids 1131}# + #{vars 1132}# + #{val-exps 1133}# + #{body-exp 1134}#))))) + (#{make-syntax-object 305}# + (lambda (#{expression 1141}# + #{wrap 1142}# + #{module 1143}#) (vector 'syntax-object - #{expression 1128}# - #{wrap 1129}# - #{module 1130}#))) - (#{syntax-object? 305}# - (lambda (#{x 1134}#) - (if (vector? #{x 1134}#) - (if (= (vector-length #{x 1134}#) 4) - (eq? (vector-ref #{x 1134}# 0) 'syntax-object) + #{expression 1141}# + #{wrap 1142}# + #{module 1143}#))) + (#{syntax-object? 307}# + (lambda (#{x 1147}#) + (if (vector? #{x 1147}#) + (if (= (vector-length #{x 1147}#) 4) + (eq? (vector-ref #{x 1147}# 0) 'syntax-object) #f) #f))) - (#{syntax-object-expression 307}# - (lambda (#{x 1139}#) (vector-ref #{x 1139}# 1))) - (#{syntax-object-wrap 309}# - (lambda (#{x 1141}#) (vector-ref #{x 1141}# 2))) - (#{syntax-object-module 311}# - (lambda (#{x 1143}#) (vector-ref #{x 1143}# 3))) - (#{source-annotation 320}# - (lambda (#{x 1157}#) - (if (#{syntax-object? 305}# #{x 1157}#) - (#{source-annotation 320}# - (#{syntax-object-expression 307}# #{x 1157}#)) - (if (pair? #{x 1157}#) + (#{syntax-object-expression 309}# + (lambda (#{x 1152}#) (vector-ref #{x 1152}# 1))) + (#{syntax-object-wrap 311}# + (lambda (#{x 1154}#) (vector-ref #{x 1154}# 2))) + (#{syntax-object-module 313}# + (lambda (#{x 1156}#) (vector-ref #{x 1156}# 3))) + (#{source-annotation 322}# + (lambda (#{x 1170}#) + (if (#{syntax-object? 307}# #{x 1170}#) + (#{source-annotation 322}# + (#{syntax-object-expression 309}# #{x 1170}#)) + (if (pair? #{x 1170}#) (begin - (let ((#{props 1164}# (source-properties #{x 1157}#))) - (if (pair? #{props 1164}#) #{props 1164}# #f))) + (let ((#{props 1177}# (source-properties #{x 1170}#))) + (if (pair? #{props 1177}#) #{props 1177}# #f))) #f)))) - (#{extend-env 327}# - (lambda (#{labels 1166}# #{bindings 1167}# #{r 1168}#) - (if (null? #{labels 1166}#) - #{r 1168}# - (#{extend-env 327}# - (cdr #{labels 1166}#) - (cdr #{bindings 1167}#) - (cons (cons (car #{labels 1166}#) - (car #{bindings 1167}#)) - #{r 1168}#))))) - (#{extend-var-env 329}# - (lambda (#{labels 1172}# #{vars 1173}# #{r 1174}#) - (if (null? #{labels 1172}#) - #{r 1174}# - (#{extend-var-env 329}# - (cdr #{labels 1172}#) - (cdr #{vars 1173}#) - (cons (cons (car #{labels 1172}#) - (cons 'lexical (car #{vars 1173}#))) - #{r 1174}#))))) - (#{macros-only-env 331}# - (lambda (#{r 1179}#) - (if (null? #{r 1179}#) + (#{extend-env 332}# + (lambda (#{labels 1179}# #{bindings 1180}# #{r 1181}#) + (if (null? #{labels 1179}#) + #{r 1181}# + (#{extend-env 332}# + (cdr #{labels 1179}#) + (cdr #{bindings 1180}#) + (cons (cons (car #{labels 1179}#) + (car #{bindings 1180}#)) + #{r 1181}#))))) + (#{extend-var-env 334}# + (lambda (#{labels 1185}# #{vars 1186}# #{r 1187}#) + (if (null? #{labels 1185}#) + #{r 1187}# + (#{extend-var-env 334}# + (cdr #{labels 1185}#) + (cdr #{vars 1186}#) + (cons (cons (car #{labels 1185}#) + (cons 'lexical (car #{vars 1186}#))) + #{r 1187}#))))) + (#{macros-only-env 336}# + (lambda (#{r 1192}#) + (if (null? #{r 1192}#) '() (begin - (let ((#{a 1182}# (car #{r 1179}#))) - (if (eq? (car (cdr #{a 1182}#)) 'macro) - (cons #{a 1182}# - (#{macros-only-env 331}# (cdr #{r 1179}#))) - (#{macros-only-env 331}# (cdr #{r 1179}#)))))))) - (#{lookup 333}# - (lambda (#{x 1183}# #{r 1184}# #{mod 1185}#) + (let ((#{a 1195}# (car #{r 1192}#))) + (if (eq? (car (cdr #{a 1195}#)) 'macro) + (cons #{a 1195}# + (#{macros-only-env 336}# (cdr #{r 1192}#))) + (#{macros-only-env 336}# (cdr #{r 1192}#)))))))) + (#{lookup 338}# + (lambda (#{x 1196}# #{r 1197}# #{mod 1198}#) (begin - (let ((#{t 1191}# (assq #{x 1183}# #{r 1184}#))) - (if #{t 1191}# - (cdr #{t 1191}#) - (if (symbol? #{x 1183}#) + (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#))) + (if #{t 1204}# + (cdr #{t 1204}#) + (if (symbol? #{x 1196}#) (begin - (let ((#{t 1197}# - (#{get-global-definition-hook 257}# - #{x 1183}# - #{mod 1185}#))) - (if #{t 1197}# #{t 1197}# '(global)))) + (let ((#{t 1210}# + (#{get-global-definition-hook 258}# + #{x 1196}# + #{mod 1198}#))) + (if #{t 1210}# #{t 1210}# '(global)))) '(displaced-lexical))))))) - (#{global-extend 335}# - (lambda (#{type 1202}# #{sym 1203}# #{val 1204}#) - (#{put-global-definition-hook 255}# - #{sym 1203}# - #{type 1202}# - #{val 1204}#))) - (#{nonsymbol-id? 337}# - (lambda (#{x 1208}#) - (if (#{syntax-object? 305}# #{x 1208}#) + (#{global-extend 340}# + (lambda (#{type 1215}# #{sym 1216}# #{val 1217}#) + (#{put-global-definition-hook 256}# + #{sym 1216}# + #{type 1215}# + #{val 1217}#))) + (#{nonsymbol-id? 342}# + (lambda (#{x 1221}#) + (if (#{syntax-object? 307}# #{x 1221}#) (symbol? - (#{syntax-object-expression 307}# #{x 1208}#)) + (#{syntax-object-expression 309}# #{x 1221}#)) #f))) - (#{id? 339}# - (lambda (#{x 1212}#) - (if (symbol? #{x 1212}#) + (#{id? 344}# + (lambda (#{x 1225}#) + (if (symbol? #{x 1225}#) #t - (if (#{syntax-object? 305}# #{x 1212}#) + (if (#{syntax-object? 307}# #{x 1225}#) (symbol? - (#{syntax-object-expression 307}# #{x 1212}#)) + (#{syntax-object-expression 309}# #{x 1225}#)) #f)))) - (#{id-sym-name&marks 342}# - (lambda (#{x 1219}# #{w 1220}#) - (if (#{syntax-object? 305}# #{x 1219}#) + (#{id-sym-name&marks 348}# + (lambda (#{x 1232}# #{w 1233}#) + (if (#{syntax-object? 307}# #{x 1232}#) (values - (#{syntax-object-expression 307}# #{x 1219}#) - (#{join-marks 389}# - (car #{w 1220}#) - (car (#{syntax-object-wrap 309}# #{x 1219}#)))) - (values #{x 1219}# (car #{w 1220}#))))) - (#{gen-label 352}# + (#{syntax-object-expression 309}# #{x 1232}#) + (#{join-marks 402}# + (car #{w 1233}#) + (car (#{syntax-object-wrap 311}# #{x 1232}#)))) + (values #{x 1232}# (car #{w 1233}#))))) + (#{gen-label 362}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 354}# - (lambda (#{ls 1226}#) - (if (null? #{ls 1226}#) + (#{gen-labels 364}# + (lambda (#{ls 1239}#) + (if (null? #{ls 1239}#) '() - (cons (#{gen-label 352}#) - (#{gen-labels 354}# (cdr #{ls 1226}#)))))) - (#{make-ribcage 357}# - (lambda (#{symnames 1228}# - #{marks 1229}# - #{labels 1230}#) + (cons (#{gen-label 362}#) + (#{gen-labels 364}# (cdr #{ls 1239}#)))))) + (#{make-ribcage 367}# + (lambda (#{symnames 1241}# + #{marks 1242}# + #{labels 1243}#) (vector 'ribcage - #{symnames 1228}# - #{marks 1229}# - #{labels 1230}#))) - (#{ribcage-symnames 361}# - (lambda (#{x 1239}#) (vector-ref #{x 1239}# 1))) - (#{ribcage-marks 363}# - (lambda (#{x 1241}#) (vector-ref #{x 1241}# 2))) - (#{ribcage-labels 365}# - (lambda (#{x 1243}#) (vector-ref #{x 1243}# 3))) - (#{set-ribcage-symnames! 367}# - (lambda (#{x 1245}# #{update 1246}#) - (vector-set! #{x 1245}# 1 #{update 1246}#))) - (#{set-ribcage-marks! 369}# - (lambda (#{x 1249}# #{update 1250}#) - (vector-set! #{x 1249}# 2 #{update 1250}#))) - (#{set-ribcage-labels! 371}# - (lambda (#{x 1253}# #{update 1254}#) - (vector-set! #{x 1253}# 3 #{update 1254}#))) - (#{anti-mark 377}# - (lambda (#{w 1257}#) - (cons (cons #f (car #{w 1257}#)) - (cons 'shift (cdr #{w 1257}#))))) - (#{extend-ribcage! 381}# - (lambda (#{ribcage 1263}# #{id 1264}# #{label 1265}#) + #{symnames 1241}# + #{marks 1242}# + #{labels 1243}#))) + (#{ribcage-symnames 371}# + (lambda (#{x 1252}#) (vector-ref #{x 1252}# 1))) + (#{ribcage-marks 373}# + (lambda (#{x 1254}#) (vector-ref #{x 1254}# 2))) + (#{ribcage-labels 375}# + (lambda (#{x 1256}#) (vector-ref #{x 1256}# 3))) + (#{set-ribcage-symnames! 377}# + (lambda (#{x 1258}# #{update 1259}#) + (vector-set! #{x 1258}# 1 #{update 1259}#))) + (#{set-ribcage-marks! 379}# + (lambda (#{x 1262}# #{update 1263}#) + (vector-set! #{x 1262}# 2 #{update 1263}#))) + (#{set-ribcage-labels! 381}# + (lambda (#{x 1266}# #{update 1267}#) + (vector-set! #{x 1266}# 3 #{update 1267}#))) + (#{anti-mark 388}# + (lambda (#{w 1270}#) + (cons (cons #f (car #{w 1270}#)) + (cons 'shift (cdr #{w 1270}#))))) + (#{extend-ribcage! 394}# + (lambda (#{ribcage 1276}# #{id 1277}# #{label 1278}#) (begin - (#{set-ribcage-symnames! 367}# - #{ribcage 1263}# - (cons (#{syntax-object-expression 307}# #{id 1264}#) - (#{ribcage-symnames 361}# #{ribcage 1263}#))) - (#{set-ribcage-marks! 369}# - #{ribcage 1263}# - (cons (car (#{syntax-object-wrap 309}# #{id 1264}#)) - (#{ribcage-marks 363}# #{ribcage 1263}#))) - (#{set-ribcage-labels! 371}# - #{ribcage 1263}# - (cons #{label 1265}# - (#{ribcage-labels 365}# #{ribcage 1263}#)))))) - (#{make-binding-wrap 383}# - (lambda (#{ids 1270}# #{labels 1271}# #{w 1272}#) - (if (null? #{ids 1270}#) - #{w 1272}# - (cons (car #{w 1272}#) + (#{set-ribcage-symnames! 377}# + #{ribcage 1276}# + (cons (#{syntax-object-expression 309}# #{id 1277}#) + (#{ribcage-symnames 371}# #{ribcage 1276}#))) + (#{set-ribcage-marks! 379}# + #{ribcage 1276}# + (cons (car (#{syntax-object-wrap 311}# #{id 1277}#)) + (#{ribcage-marks 373}# #{ribcage 1276}#))) + (#{set-ribcage-labels! 381}# + #{ribcage 1276}# + (cons #{label 1278}# + (#{ribcage-labels 375}# #{ribcage 1276}#)))))) + (#{make-binding-wrap 396}# + (lambda (#{ids 1283}# #{labels 1284}# #{w 1285}#) + (if (null? #{ids 1283}#) + #{w 1285}# + (cons (car #{w 1285}#) (cons (begin - (let ((#{labelvec 1279}# - (list->vector #{labels 1271}#))) + (let ((#{labelvec 1292}# + (list->vector #{labels 1284}#))) (begin - (let ((#{n 1281}# - (vector-length #{labelvec 1279}#))) + (let ((#{n 1294}# + (vector-length #{labelvec 1292}#))) (begin - (let ((#{symnamevec 1284}# - (make-vector #{n 1281}#)) - (#{marksvec 1285}# - (make-vector #{n 1281}#))) + (let ((#{symnamevec 1297}# + (make-vector #{n 1294}#)) + (#{marksvec 1298}# + (make-vector #{n 1294}#))) (begin (letrec* - ((#{f 1289}# - (lambda (#{ids 1290}# #{i 1291}#) - (if (not (null? #{ids 1290}#)) + ((#{f 1302}# + (lambda (#{ids 1303}# #{i 1304}#) + (if (not (null? #{ids 1303}#)) (call-with-values (lambda () - (#{id-sym-name&marks 342}# - (car #{ids 1290}#) - #{w 1272}#)) - (lambda (#{symname 1292}# - #{marks 1293}#) + (#{id-sym-name&marks 348}# + (car #{ids 1303}#) + #{w 1285}#)) + (lambda (#{symname 1305}# + #{marks 1306}#) (begin (vector-set! - #{symnamevec 1284}# - #{i 1291}# - #{symname 1292}#) + #{symnamevec 1297}# + #{i 1304}# + #{symname 1305}#) (vector-set! - #{marksvec 1285}# - #{i 1291}# - #{marks 1293}#) - (#{f 1289}# - (cdr #{ids 1290}#) - (#{1+}# #{i 1291}#))))))))) - (begin (#{f 1289}# #{ids 1270}# 0))) - (#{make-ribcage 357}# - #{symnamevec 1284}# - #{marksvec 1285}# - #{labelvec 1279}#)))))))) - (cdr #{w 1272}#)))))) - (#{smart-append 385}# - (lambda (#{m1 1298}# #{m2 1299}#) - (if (null? #{m2 1299}#) - #{m1 1298}# - (append #{m1 1298}# #{m2 1299}#)))) - (#{join-wraps 387}# - (lambda (#{w1 1302}# #{w2 1303}#) + #{marksvec 1298}# + #{i 1304}# + #{marks 1306}#) + (#{f 1302}# + (cdr #{ids 1303}#) + (#{1+}# #{i 1304}#))))))))) + (begin (#{f 1302}# #{ids 1283}# 0))) + (#{make-ribcage 367}# + #{symnamevec 1297}# + #{marksvec 1298}# + #{labelvec 1292}#)))))))) + (cdr #{w 1285}#)))))) + (#{smart-append 398}# + (lambda (#{m1 1311}# #{m2 1312}#) + (if (null? #{m2 1312}#) + #{m1 1311}# + (append #{m1 1311}# #{m2 1312}#)))) + (#{join-wraps 400}# + (lambda (#{w1 1315}# #{w2 1316}#) (begin - (let ((#{m1 1308}# (car #{w1 1302}#)) - (#{s1 1309}# (cdr #{w1 1302}#))) - (if (null? #{m1 1308}#) - (if (null? #{s1 1309}#) - #{w2 1303}# - (cons (car #{w2 1303}#) - (#{smart-append 385}# - #{s1 1309}# - (cdr #{w2 1303}#)))) - (cons (#{smart-append 385}# - #{m1 1308}# - (car #{w2 1303}#)) - (#{smart-append 385}# - #{s1 1309}# - (cdr #{w2 1303}#)))))))) - (#{join-marks 389}# - (lambda (#{m1 1318}# #{m2 1319}#) - (#{smart-append 385}# #{m1 1318}# #{m2 1319}#))) - (#{same-marks? 391}# - (lambda (#{x 1322}# #{y 1323}#) + (let ((#{m1 1321}# (car #{w1 1315}#)) + (#{s1 1322}# (cdr #{w1 1315}#))) + (if (null? #{m1 1321}#) + (if (null? #{s1 1322}#) + #{w2 1316}# + (cons (car #{w2 1316}#) + (#{smart-append 398}# + #{s1 1322}# + (cdr #{w2 1316}#)))) + (cons (#{smart-append 398}# + #{m1 1321}# + (car #{w2 1316}#)) + (#{smart-append 398}# + #{s1 1322}# + (cdr #{w2 1316}#)))))))) + (#{join-marks 402}# + (lambda (#{m1 1331}# #{m2 1332}#) + (#{smart-append 398}# #{m1 1331}# #{m2 1332}#))) + (#{same-marks? 404}# + (lambda (#{x 1335}# #{y 1336}#) (begin - (let ((#{t 1328}# (eq? #{x 1322}# #{y 1323}#))) - (if #{t 1328}# - #{t 1328}# - (if (not (null? #{x 1322}#)) - (if (not (null? #{y 1323}#)) - (if (eq? (car #{x 1322}#) (car #{y 1323}#)) - (#{same-marks? 391}# - (cdr #{x 1322}#) - (cdr #{y 1323}#)) + (let ((#{t 1341}# (eq? #{x 1335}# #{y 1336}#))) + (if #{t 1341}# + #{t 1341}# + (if (not (null? #{x 1335}#)) + (if (not (null? #{y 1336}#)) + (if (eq? (car #{x 1335}#) (car #{y 1336}#)) + (#{same-marks? 404}# + (cdr #{x 1335}#) + (cdr #{y 1336}#)) #f) #f) #f)))))) - (#{id-var-name 393}# - (lambda (#{id 1334}# #{w 1335}#) + (#{id-var-name 406}# + (lambda (#{id 1347}# #{w 1348}#) (letrec* - ((#{search 1340}# - (lambda (#{sym 1356}# #{subst 1357}# #{marks 1358}#) - (if (null? #{subst 1357}#) - (values #f #{marks 1358}#) + ((#{search 1354}# + (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#) + (if (null? #{subst 1371}#) + (values #f #{marks 1372}#) (begin - (let ((#{fst 1363}# (car #{subst 1357}#))) - (if (eq? #{fst 1363}# 'shift) - (#{search 1340}# - #{sym 1356}# - (cdr #{subst 1357}#) - (cdr #{marks 1358}#)) + (let ((#{fst 1377}# (car #{subst 1371}#))) + (if (eq? #{fst 1377}# 'shift) + (#{search 1354}# + #{sym 1370}# + (cdr #{subst 1371}#) + (cdr #{marks 1372}#)) (begin - (let ((#{symnames 1365}# - (#{ribcage-symnames 361}# #{fst 1363}#))) - (if (vector? #{symnames 1365}#) - (#{search-vector-rib 1344}# - #{sym 1356}# - #{subst 1357}# - #{marks 1358}# - #{symnames 1365}# - #{fst 1363}#) - (#{search-list-rib 1342}# - #{sym 1356}# - #{subst 1357}# - #{marks 1358}# - #{symnames 1365}# - #{fst 1363}#)))))))))) - (#{search-list-rib 1342}# - (lambda (#{sym 1366}# - #{subst 1367}# - #{marks 1368}# - #{symnames 1369}# - #{ribcage 1370}#) + (let ((#{symnames 1379}# + (#{ribcage-symnames 371}# #{fst 1377}#))) + (if (vector? #{symnames 1379}#) + (#{search-vector-rib 1358}# + #{sym 1370}# + #{subst 1371}# + #{marks 1372}# + #{symnames 1379}# + #{fst 1377}#) + (#{search-list-rib 1356}# + #{sym 1370}# + #{subst 1371}# + #{marks 1372}# + #{symnames 1379}# + #{fst 1377}#)))))))))) + (#{search-list-rib 1356}# + (lambda (#{sym 1380}# + #{subst 1381}# + #{marks 1382}# + #{symnames 1383}# + #{ribcage 1384}#) (letrec* - ((#{f 1379}# - (lambda (#{symnames 1380}# #{i 1381}#) - (if (null? #{symnames 1380}#) - (#{search 1340}# - #{sym 1366}# - (cdr #{subst 1367}#) - #{marks 1368}#) - (if (if (eq? (car #{symnames 1380}#) #{sym 1366}#) - (#{same-marks? 391}# - #{marks 1368}# + ((#{f 1393}# + (lambda (#{symnames 1394}# #{i 1395}#) + (if (null? #{symnames 1394}#) + (#{search 1354}# + #{sym 1380}# + (cdr #{subst 1381}#) + #{marks 1382}#) + (if (if (eq? (car #{symnames 1394}#) #{sym 1380}#) + (#{same-marks? 404}# + #{marks 1382}# (list-ref - (#{ribcage-marks 363}# #{ribcage 1370}#) - #{i 1381}#)) + (#{ribcage-marks 373}# #{ribcage 1384}#) + #{i 1395}#)) #f) (values (list-ref - (#{ribcage-labels 365}# #{ribcage 1370}#) - #{i 1381}#) - #{marks 1368}#) - (#{f 1379}# - (cdr #{symnames 1380}#) - (#{1+}# #{i 1381}#))))))) - (begin (#{f 1379}# #{symnames 1369}# 0))))) - (#{search-vector-rib 1344}# - (lambda (#{sym 1390}# - #{subst 1391}# - #{marks 1392}# - #{symnames 1393}# - #{ribcage 1394}#) + (#{ribcage-labels 375}# #{ribcage 1384}#) + #{i 1395}#) + #{marks 1382}#) + (#{f 1393}# + (cdr #{symnames 1394}#) + (#{1+}# #{i 1395}#))))))) + (begin (#{f 1393}# #{symnames 1383}# 0))))) + (#{search-vector-rib 1358}# + (lambda (#{sym 1404}# + #{subst 1405}# + #{marks 1406}# + #{symnames 1407}# + #{ribcage 1408}#) (begin - (let ((#{n 1401}# (vector-length #{symnames 1393}#))) + (let ((#{n 1415}# (vector-length #{symnames 1407}#))) (letrec* - ((#{f 1404}# - (lambda (#{i 1405}#) - (if (= #{i 1405}# #{n 1401}#) - (#{search 1340}# - #{sym 1390}# - (cdr #{subst 1391}#) - #{marks 1392}#) + ((#{f 1418}# + (lambda (#{i 1419}#) + (if (= #{i 1419}# #{n 1415}#) + (#{search 1354}# + #{sym 1404}# + (cdr #{subst 1405}#) + #{marks 1406}#) (if (if (eq? (vector-ref - #{symnames 1393}# - #{i 1405}#) - #{sym 1390}#) - (#{same-marks? 391}# - #{marks 1392}# + #{symnames 1407}# + #{i 1419}#) + #{sym 1404}#) + (#{same-marks? 404}# + #{marks 1406}# (vector-ref - (#{ribcage-marks 363}# #{ribcage 1394}#) - #{i 1405}#)) + (#{ribcage-marks 373}# #{ribcage 1408}#) + #{i 1419}#)) #f) (values (vector-ref - (#{ribcage-labels 365}# #{ribcage 1394}#) - #{i 1405}#) - #{marks 1392}#) - (#{f 1404}# (#{1+}# #{i 1405}#))))))) - (begin (#{f 1404}# 0)))))))) + (#{ribcage-labels 375}# #{ribcage 1408}#) + #{i 1419}#) + #{marks 1406}#) + (#{f 1418}# (#{1+}# #{i 1419}#))))))) + (begin (#{f 1418}# 0)))))))) (begin - (if (symbol? #{id 1334}#) + (if (symbol? #{id 1347}#) (begin - (let ((#{t 1417}# - (#{search 1340}# - #{id 1334}# - (cdr #{w 1335}#) - (car #{w 1335}#)))) - (if #{t 1417}# #{t 1417}# #{id 1334}#))) - (if (#{syntax-object? 305}# #{id 1334}#) + (let ((#{t 1431}# + (#{search 1354}# + #{id 1347}# + (cdr #{w 1348}#) + (car #{w 1348}#)))) + (if #{t 1431}# #{t 1431}# #{id 1347}#))) + (if (#{syntax-object? 307}# #{id 1347}#) (begin - (let ((#{id 1426}# - (#{syntax-object-expression 307}# #{id 1334}#)) - (#{w1 1427}# - (#{syntax-object-wrap 309}# #{id 1334}#))) + (let ((#{id 1440}# + (#{syntax-object-expression 309}# #{id 1347}#)) + (#{w1 1441}# + (#{syntax-object-wrap 311}# #{id 1347}#))) (begin - (let ((#{marks 1429}# - (#{join-marks 389}# - (car #{w 1335}#) - (car #{w1 1427}#)))) + (let ((#{marks 1443}# + (#{join-marks 402}# + (car #{w 1348}#) + (car #{w1 1441}#)))) (call-with-values (lambda () - (#{search 1340}# - #{id 1426}# - (cdr #{w 1335}#) - #{marks 1429}#)) - (lambda (#{new-id 1433}# #{marks 1434}#) + (#{search 1354}# + #{id 1440}# + (cdr #{w 1348}#) + #{marks 1443}#)) + (lambda (#{new-id 1447}# #{marks 1448}#) (begin - (let ((#{t 1439}# #{new-id 1433}#)) - (if #{t 1439}# - #{t 1439}# + (let ((#{t 1453}# #{new-id 1447}#)) + (if #{t 1453}# + #{t 1453}# (begin - (let ((#{t 1442}# - (#{search 1340}# - #{id 1426}# - (cdr #{w1 1427}#) - #{marks 1434}#))) - (if #{t 1442}# - #{t 1442}# - #{id 1426}#)))))))))))) + (let ((#{t 1456}# + (#{search 1354}# + #{id 1440}# + (cdr #{w1 1441}#) + #{marks 1448}#))) + (if #{t 1456}# + #{t 1456}# + #{id 1440}#)))))))))))) (syntax-violation 'id-var-name "invalid id" - #{id 1334}#))))))) - (#{free-id=? 395}# - (lambda (#{i 1447}# #{j 1448}#) + #{id 1347}#))))))) + (#{free-id=? 408}# + (lambda (#{i 1461}# #{j 1462}#) (if (eq? (begin - (let ((#{x 1454}# #{i 1447}#)) - (if (#{syntax-object? 305}# #{x 1454}#) - (#{syntax-object-expression 307}# #{x 1454}#) - #{x 1454}#))) + (let ((#{x 1468}# #{i 1461}#)) + (if (#{syntax-object? 307}# #{x 1468}#) + (#{syntax-object-expression 309}# #{x 1468}#) + #{x 1468}#))) (begin - (let ((#{x 1457}# #{j 1448}#)) - (if (#{syntax-object? 305}# #{x 1457}#) - (#{syntax-object-expression 307}# #{x 1457}#) - #{x 1457}#)))) - (eq? (#{id-var-name 393}# #{i 1447}# '(())) - (#{id-var-name 393}# #{j 1448}# '(()))) + (let ((#{x 1471}# #{j 1462}#)) + (if (#{syntax-object? 307}# #{x 1471}#) + (#{syntax-object-expression 309}# #{x 1471}#) + #{x 1471}#)))) + (eq? (#{id-var-name 406}# #{i 1461}# '(())) + (#{id-var-name 406}# #{j 1462}# '(()))) #f))) - (#{bound-id=? 397}# - (lambda (#{i 1461}# #{j 1462}#) - (if (if (#{syntax-object? 305}# #{i 1461}#) - (#{syntax-object? 305}# #{j 1462}#) + (#{bound-id=? 410}# + (lambda (#{i 1475}# #{j 1476}#) + (if (if (#{syntax-object? 307}# #{i 1475}#) + (#{syntax-object? 307}# #{j 1476}#) #f) - (if (eq? (#{syntax-object-expression 307}# #{i 1461}#) - (#{syntax-object-expression 307}# #{j 1462}#)) - (#{same-marks? 391}# - (car (#{syntax-object-wrap 309}# #{i 1461}#)) - (car (#{syntax-object-wrap 309}# #{j 1462}#))) + (if (eq? (#{syntax-object-expression 309}# #{i 1475}#) + (#{syntax-object-expression 309}# #{j 1476}#)) + (#{same-marks? 404}# + (car (#{syntax-object-wrap 311}# #{i 1475}#)) + (car (#{syntax-object-wrap 311}# #{j 1476}#))) #f) - (eq? #{i 1461}# #{j 1462}#)))) - (#{valid-bound-ids? 399}# - (lambda (#{ids 1471}#) + (eq? #{i 1475}# #{j 1476}#)))) + (#{valid-bound-ids? 412}# + (lambda (#{ids 1485}#) (if (letrec* - ((#{all-ids? 1476}# - (lambda (#{ids 1477}#) + ((#{all-ids? 1490}# + (lambda (#{ids 1491}#) (begin - (let ((#{t 1480}# (null? #{ids 1477}#))) - (if #{t 1480}# - #{t 1480}# - (if (#{id? 339}# (car #{ids 1477}#)) - (#{all-ids? 1476}# (cdr #{ids 1477}#)) + (let ((#{t 1494}# (null? #{ids 1491}#))) + (if #{t 1494}# + #{t 1494}# + (if (#{id? 344}# (car #{ids 1491}#)) + (#{all-ids? 1490}# (cdr #{ids 1491}#)) #f))))))) - (begin (#{all-ids? 1476}# #{ids 1471}#))) - (#{distinct-bound-ids? 401}# #{ids 1471}#) + (begin (#{all-ids? 1490}# #{ids 1485}#))) + (#{distinct-bound-ids? 414}# #{ids 1485}#) #f))) - (#{distinct-bound-ids? 401}# - (lambda (#{ids 1485}#) + (#{distinct-bound-ids? 414}# + (lambda (#{ids 1499}#) (letrec* - ((#{distinct? 1489}# - (lambda (#{ids 1490}#) + ((#{distinct? 1503}# + (lambda (#{ids 1504}#) (begin - (let ((#{t 1493}# (null? #{ids 1490}#))) - (if #{t 1493}# - #{t 1493}# - (if (not (#{bound-id-member? 403}# - (car #{ids 1490}#) - (cdr #{ids 1490}#))) - (#{distinct? 1489}# (cdr #{ids 1490}#)) + (let ((#{t 1507}# (null? #{ids 1504}#))) + (if #{t 1507}# + #{t 1507}# + (if (not (#{bound-id-member? 416}# + (car #{ids 1504}#) + (cdr #{ids 1504}#))) + (#{distinct? 1503}# (cdr #{ids 1504}#)) #f))))))) - (begin (#{distinct? 1489}# #{ids 1485}#))))) - (#{bound-id-member? 403}# - (lambda (#{x 1497}# #{list 1498}#) - (if (not (null? #{list 1498}#)) + (begin (#{distinct? 1503}# #{ids 1499}#))))) + (#{bound-id-member? 416}# + (lambda (#{x 1511}# #{list 1512}#) + (if (not (null? #{list 1512}#)) (begin - (let ((#{t 1505}# - (#{bound-id=? 397}# - #{x 1497}# - (car #{list 1498}#)))) - (if #{t 1505}# - #{t 1505}# - (#{bound-id-member? 403}# - #{x 1497}# - (cdr #{list 1498}#))))) + (let ((#{t 1519}# + (#{bound-id=? 410}# + #{x 1511}# + (car #{list 1512}#)))) + (if #{t 1519}# + #{t 1519}# + (#{bound-id-member? 416}# + #{x 1511}# + (cdr #{list 1512}#))))) #f))) - (#{wrap 405}# - (lambda (#{x 1507}# #{w 1508}# #{defmod 1509}#) - (if (if (null? (car #{w 1508}#)) - (null? (cdr #{w 1508}#)) + (#{wrap 418}# + (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#) + (if (if (null? (car #{w 1522}#)) + (null? (cdr #{w 1522}#)) #f) - #{x 1507}# - (if (#{syntax-object? 305}# #{x 1507}#) - (#{make-syntax-object 303}# - (#{syntax-object-expression 307}# #{x 1507}#) - (#{join-wraps 387}# - #{w 1508}# - (#{syntax-object-wrap 309}# #{x 1507}#)) - (#{syntax-object-module 311}# #{x 1507}#)) - (if (null? #{x 1507}#) - #{x 1507}# - (#{make-syntax-object 303}# - #{x 1507}# - #{w 1508}# - #{defmod 1509}#)))))) - (#{source-wrap 407}# - (lambda (#{x 1524}# - #{w 1525}# - #{s 1526}# - #{defmod 1527}#) - (#{wrap 405}# - (#{decorate-source 259}# #{x 1524}# #{s 1526}#) - #{w 1525}# - #{defmod 1527}#))) - (#{chi-sequence 409}# - (lambda (#{body 1532}# - #{r 1533}# - #{w 1534}# - #{s 1535}# - #{mod 1536}#) - (#{build-sequence 293}# - #{s 1535}# + #{x 1521}# + (if (#{syntax-object? 307}# #{x 1521}#) + (#{make-syntax-object 305}# + (#{syntax-object-expression 309}# #{x 1521}#) + (#{join-wraps 400}# + #{w 1522}# + (#{syntax-object-wrap 311}# #{x 1521}#)) + (#{syntax-object-module 313}# #{x 1521}#)) + (if (null? #{x 1521}#) + #{x 1521}# + (#{make-syntax-object 305}# + #{x 1521}# + #{w 1522}# + #{defmod 1523}#)))))) + (#{source-wrap 420}# + (lambda (#{x 1538}# + #{w 1539}# + #{s 1540}# + #{defmod 1541}#) + (#{wrap 418}# + (#{decorate-source 260}# #{x 1538}# #{s 1540}#) + #{w 1539}# + #{defmod 1541}#))) + (#{chi-sequence 422}# + (lambda (#{body 1546}# + #{r 1547}# + #{w 1548}# + #{s 1549}# + #{mod 1550}#) + (#{build-sequence 294}# + #{s 1549}# (letrec* - ((#{dobody 1547}# - (lambda (#{body 1548}# - #{r 1549}# - #{w 1550}# - #{mod 1551}#) - (if (null? #{body 1548}#) + ((#{dobody 1561}# + (lambda (#{body 1562}# + #{r 1563}# + #{w 1564}# + #{mod 1565}#) + (if (null? #{body 1562}#) '() (begin - (let ((#{first 1553}# - (#{chi 419}# - (car #{body 1548}#) - #{r 1549}# - #{w 1550}# - #{mod 1551}#))) - (cons #{first 1553}# - (#{dobody 1547}# - (cdr #{body 1548}#) - #{r 1549}# - #{w 1550}# - #{mod 1551}#)))))))) + (let ((#{first 1567}# + (#{chi 432}# + (car #{body 1562}#) + #{r 1563}# + #{w 1564}# + #{mod 1565}#))) + (cons #{first 1567}# + (#{dobody 1561}# + (cdr #{body 1562}#) + #{r 1563}# + #{w 1564}# + #{mod 1565}#)))))))) (begin - (#{dobody 1547}# - #{body 1532}# - #{r 1533}# - #{w 1534}# - #{mod 1536}#)))))) - (#{chi-top-sequence 411}# - (lambda (#{body 1554}# - #{r 1555}# - #{w 1556}# - #{s 1557}# - #{m 1558}# - #{esew 1559}# - #{mod 1560}#) + (#{dobody 1561}# + #{body 1546}# + #{r 1547}# + #{w 1548}# + #{mod 1550}#)))))) + (#{chi-top-sequence 424}# + (lambda (#{body 1568}# + #{r 1569}# + #{w 1570}# + #{s 1571}# + #{m 1572}# + #{esew 1573}# + #{mod 1574}#) (letrec* - ((#{scan 1569}# - (lambda (#{body 1570}# - #{r 1571}# - #{w 1572}# - #{s 1573}# - #{m 1574}# - #{esew 1575}# - #{mod 1576}# - #{exps 1577}#) - (if (null? #{body 1570}#) - #{exps 1577}# + ((#{scan 1583}# + (lambda (#{body 1584}# + #{r 1585}# + #{w 1586}# + #{s 1587}# + #{m 1588}# + #{esew 1589}# + #{mod 1590}# + #{exps 1591}#) + (if (null? #{body 1584}#) + #{exps 1591}# (call-with-values (lambda () (call-with-values (lambda () (begin - (let ((#{e 1590}# (car #{body 1570}#))) - (#{syntax-type 417}# - #{e 1590}# - #{r 1571}# - #{w 1572}# + (let ((#{e 1604}# (car #{body 1584}#))) + (#{syntax-type 430}# + #{e 1604}# + #{r 1585}# + #{w 1586}# (begin - (let ((#{t 1593}# - (#{source-annotation 320}# - #{e 1590}#))) - (if #{t 1593}# #{t 1593}# #{s 1573}#))) + (let ((#{t 1607}# + (#{source-annotation 322}# + #{e 1604}#))) + (if #{t 1607}# #{t 1607}# #{s 1587}#))) #f - #{mod 1576}# + #{mod 1590}# #f)))) - (lambda (#{type 1595}# - #{value 1596}# - #{e 1597}# - #{w 1598}# - #{s 1599}# - #{mod 1600}#) - (if (eqv? #{type 1595}# 'begin-form) - (let ((#{tmp 1608}# #{e 1597}#)) - (let ((#{tmp 1609}# - ($sc-dispatch #{tmp 1608}# '(_)))) - (if #{tmp 1609}# - (@apply (lambda () #{exps 1577}#) #{tmp 1609}#) - (let ((#{tmp 1610}# + (lambda (#{type 1609}# + #{value 1610}# + #{e 1611}# + #{w 1612}# + #{s 1613}# + #{mod 1614}#) + (if (eqv? #{type 1609}# 'begin-form) + (let ((#{tmp 1622}# #{e 1611}#)) + (let ((#{tmp 1623}# + ($sc-dispatch #{tmp 1622}# '(_)))) + (if #{tmp 1623}# + (@apply (lambda () #{exps 1591}#) #{tmp 1623}#) + (let ((#{tmp 1624}# ($sc-dispatch - #{tmp 1608}# + #{tmp 1622}# '(_ any . each-any)))) - (if #{tmp 1610}# + (if #{tmp 1624}# (@apply - (lambda (#{e1 1613}# #{e2 1614}#) - (#{scan 1569}# - (cons #{e1 1613}# #{e2 1614}#) - #{r 1571}# - #{w 1598}# - #{s 1599}# - #{m 1574}# - #{esew 1575}# - #{mod 1600}# - #{exps 1577}#)) - #{tmp 1610}#) + (lambda (#{e1 1627}# #{e2 1628}#) + (#{scan 1583}# + (cons #{e1 1627}# #{e2 1628}#) + #{r 1585}# + #{w 1612}# + #{s 1613}# + #{m 1588}# + #{esew 1589}# + #{mod 1614}# + #{exps 1591}#)) + #{tmp 1624}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1608}#)))))) - (if (eqv? #{type 1595}# 'local-syntax-form) - (#{chi-local-syntax 429}# - #{value 1596}# - #{e 1597}# - #{r 1571}# - #{w 1598}# - #{s 1599}# - #{mod 1600}# - (lambda (#{body 1617}# - #{r 1618}# - #{w 1619}# - #{s 1620}# - #{mod 1621}#) - (#{scan 1569}# - #{body 1617}# - #{r 1618}# - #{w 1619}# - #{s 1620}# - #{m 1574}# - #{esew 1575}# - #{mod 1621}# - #{exps 1577}#))) - (if (eqv? #{type 1595}# 'eval-when-form) - (let ((#{tmp 1628}# #{e 1597}#)) - (let ((#{tmp 1629}# + #{tmp 1622}#)))))) + (if (eqv? #{type 1609}# 'local-syntax-form) + (#{chi-local-syntax 442}# + #{value 1610}# + #{e 1611}# + #{r 1585}# + #{w 1612}# + #{s 1613}# + #{mod 1614}# + (lambda (#{body 1631}# + #{r 1632}# + #{w 1633}# + #{s 1634}# + #{mod 1635}#) + (#{scan 1583}# + #{body 1631}# + #{r 1632}# + #{w 1633}# + #{s 1634}# + #{m 1588}# + #{esew 1589}# + #{mod 1635}# + #{exps 1591}#))) + (if (eqv? #{type 1609}# 'eval-when-form) + (let ((#{tmp 1642}# #{e 1611}#)) + (let ((#{tmp 1643}# ($sc-dispatch - #{tmp 1628}# + #{tmp 1642}# '(_ each-any any . each-any)))) - (if #{tmp 1629}# + (if #{tmp 1643}# (@apply - (lambda (#{x 1633}# - #{e1 1634}# - #{e2 1635}#) + (lambda (#{x 1647}# + #{e1 1648}# + #{e2 1649}#) (begin - (let ((#{when-list 1638}# - (#{chi-when-list 415}# - #{e 1597}# - #{x 1633}# - #{w 1598}#)) - (#{body 1639}# - (cons #{e1 1634}# - #{e2 1635}#))) - (if (eq? #{m 1574}# 'e) + (let ((#{when-list 1652}# + (#{chi-when-list 428}# + #{e 1611}# + #{x 1647}# + #{w 1612}#)) + (#{body 1653}# + (cons #{e1 1648}# + #{e2 1649}#))) + (if (eq? #{m 1588}# 'e) (if (memq 'eval - #{when-list 1638}#) - (#{scan 1569}# - #{body 1639}# - #{r 1571}# - #{w 1598}# - #{s 1599}# + #{when-list 1652}#) + (#{scan 1583}# + #{body 1653}# + #{r 1585}# + #{w 1612}# + #{s 1613}# (if (memq 'expand - #{when-list 1638}#) + #{when-list 1652}#) 'c&e 'e) '(eval) - #{mod 1600}# - #{exps 1577}#) + #{mod 1614}# + #{exps 1591}#) (begin (if (memq 'expand - #{when-list 1638}#) + #{when-list 1652}#) (#{top-level-eval-hook 250}# - (#{chi-top-sequence 411}# - #{body 1639}# - #{r 1571}# - #{w 1598}# - #{s 1599}# + (#{chi-top-sequence 424}# + #{body 1653}# + #{r 1585}# + #{w 1612}# + #{s 1613}# 'e '(eval) - #{mod 1600}#) - #{mod 1600}#)) - (values #{exps 1577}#))) + #{mod 1614}#) + #{mod 1614}#)) + (values #{exps 1591}#))) (if (memq 'load - #{when-list 1638}#) + #{when-list 1652}#) (if (begin - (let ((#{t 1648}# + (let ((#{t 1662}# (memq 'compile - #{when-list 1638}#))) - (if #{t 1648}# - #{t 1648}# + #{when-list 1652}#))) + (if #{t 1662}# + #{t 1662}# (begin - (let ((#{t 1651}# + (let ((#{t 1665}# (memq 'expand - #{when-list 1638}#))) - (if #{t 1651}# - #{t 1651}# - (if (eq? #{m 1574}# + #{when-list 1652}#))) + (if #{t 1665}# + #{t 1665}# + (if (eq? #{m 1588}# 'c&e) (memq 'eval - #{when-list 1638}#) + #{when-list 1652}#) #f))))))) - (#{scan 1569}# - #{body 1639}# - #{r 1571}# - #{w 1598}# - #{s 1599}# + (#{scan 1583}# + #{body 1653}# + #{r 1585}# + #{w 1612}# + #{s 1613}# 'c&e '(compile load) - #{mod 1600}# - #{exps 1577}#) - (if (if (eq? #{m 1574}# 'c) + #{mod 1614}# + #{exps 1591}#) + (if (if (eq? #{m 1588}# 'c) #t - (eq? #{m 1574}# 'c&e)) - (#{scan 1569}# - #{body 1639}# - #{r 1571}# - #{w 1598}# - #{s 1599}# + (eq? #{m 1588}# 'c&e)) + (#{scan 1583}# + #{body 1653}# + #{r 1585}# + #{w 1612}# + #{s 1613}# 'c '(load) - #{mod 1600}# - #{exps 1577}#) - (values #{exps 1577}#))) + #{mod 1614}# + #{exps 1591}#) + (values #{exps 1591}#))) (if (begin - (let ((#{t 1659}# + (let ((#{t 1673}# (memq 'compile - #{when-list 1638}#))) - (if #{t 1659}# - #{t 1659}# + #{when-list 1652}#))) + (if #{t 1673}# + #{t 1673}# (begin - (let ((#{t 1662}# + (let ((#{t 1676}# (memq 'expand - #{when-list 1638}#))) - (if #{t 1662}# - #{t 1662}# - (if (eq? #{m 1574}# + #{when-list 1652}#))) + (if #{t 1676}# + #{t 1676}# + (if (eq? #{m 1588}# 'c&e) (memq 'eval - #{when-list 1638}#) + #{when-list 1652}#) #f))))))) (begin (#{top-level-eval-hook 250}# - (#{chi-top-sequence 411}# - #{body 1639}# - #{r 1571}# - #{w 1598}# - #{s 1599}# + (#{chi-top-sequence 424}# + #{body 1653}# + #{r 1585}# + #{w 1612}# + #{s 1613}# 'e '(eval) - #{mod 1600}#) - #{mod 1600}#) - (values #{exps 1577}#)) - (values #{exps 1577}#))))))) - #{tmp 1629}#) + #{mod 1614}#) + #{mod 1614}#) + (values #{exps 1591}#)) + (values #{exps 1591}#))))))) + #{tmp 1643}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1628}#)))) - (if (eqv? #{type 1595}# 'define-syntax-form) + #{tmp 1642}#)))) + (if (eqv? #{type 1609}# 'define-syntax-form) (begin - (let ((#{n 1670}# - (#{id-var-name 393}# - #{value 1596}# - #{w 1598}#)) - (#{r 1671}# - (#{macros-only-env 331}# - #{r 1571}#))) - (if (eqv? #{m 1574}# 'c) - (if (memq 'compile #{esew 1575}#) + (let ((#{n 1684}# + (#{id-var-name 406}# + #{value 1610}# + #{w 1612}#)) + (#{r 1685}# + (#{macros-only-env 336}# + #{r 1585}#))) + (if (eqv? #{m 1588}# 'c) + (if (memq 'compile #{esew 1589}#) (begin - (let ((#{e 1674}# - (#{chi-install-global 413}# - #{n 1670}# - (#{chi 419}# - #{e 1597}# - #{r 1671}# - #{w 1598}# - #{mod 1600}#)))) + (let ((#{e 1688}# + (#{chi-install-global 426}# + #{n 1684}# + (#{chi 432}# + #{e 1611}# + #{r 1685}# + #{w 1612}# + #{mod 1614}#)))) (begin (#{top-level-eval-hook 250}# - #{e 1674}# - #{mod 1600}#) - (if (memq 'load #{esew 1575}#) + #{e 1688}# + #{mod 1614}#) + (if (memq 'load #{esew 1589}#) (values - (cons #{e 1674}# - #{exps 1577}#)) - (values #{exps 1577}#))))) - (if (memq 'load #{esew 1575}#) + (cons #{e 1688}# + #{exps 1591}#)) + (values #{exps 1591}#))))) + (if (memq 'load #{esew 1589}#) (values - (cons (#{chi-install-global 413}# - #{n 1670}# - (#{chi 419}# - #{e 1597}# - #{r 1671}# - #{w 1598}# - #{mod 1600}#)) - #{exps 1577}#)) - (values #{exps 1577}#))) - (if (eqv? #{m 1574}# 'c&e) + (cons (#{chi-install-global 426}# + #{n 1684}# + (#{chi 432}# + #{e 1611}# + #{r 1685}# + #{w 1612}# + #{mod 1614}#)) + #{exps 1591}#)) + (values #{exps 1591}#))) + (if (eqv? #{m 1588}# 'c&e) (begin - (let ((#{e 1677}# - (#{chi-install-global 413}# - #{n 1670}# - (#{chi 419}# - #{e 1597}# - #{r 1671}# - #{w 1598}# - #{mod 1600}#)))) + (let ((#{e 1691}# + (#{chi-install-global 426}# + #{n 1684}# + (#{chi 432}# + #{e 1611}# + #{r 1685}# + #{w 1612}# + #{mod 1614}#)))) (begin (#{top-level-eval-hook 250}# - #{e 1677}# - #{mod 1600}#) + #{e 1691}# + #{mod 1614}#) (values - (cons #{e 1677}# - #{exps 1577}#))))) + (cons #{e 1691}# + #{exps 1591}#))))) (begin - (if (memq 'eval #{esew 1575}#) + (if (memq 'eval #{esew 1589}#) (#{top-level-eval-hook 250}# - (#{chi-install-global 413}# - #{n 1670}# - (#{chi 419}# - #{e 1597}# - #{r 1671}# - #{w 1598}# - #{mod 1600}#)) - #{mod 1600}#)) - (values #{exps 1577}#)))))) - (if (eqv? #{type 1595}# 'define-form) + (#{chi-install-global 426}# + #{n 1684}# + (#{chi 432}# + #{e 1611}# + #{r 1685}# + #{w 1612}# + #{mod 1614}#)) + #{mod 1614}#)) + (values #{exps 1591}#)))))) + (if (eqv? #{type 1609}# 'define-form) (begin - (let ((#{n 1682}# - (#{id-var-name 393}# - #{value 1596}# - #{w 1598}#))) + (let ((#{n 1696}# + (#{id-var-name 406}# + #{value 1610}# + #{w 1612}#))) (begin - (let ((#{type 1684}# - (car (#{lookup 333}# - #{n 1682}# - #{r 1571}# - #{mod 1600}#)))) - (if (if (eqv? #{type 1684}# 'global) + (let ((#{type 1698}# + (car (#{lookup 338}# + #{n 1696}# + #{r 1585}# + #{mod 1614}#)))) + (if (if (eqv? #{type 1698}# 'global) #t - (if (eqv? #{type 1684}# 'core) + (if (eqv? #{type 1698}# 'core) #t - (if (eqv? #{type 1684}# + (if (eqv? #{type 1698}# 'macro) #t - (eqv? #{type 1684}# + (eqv? #{type 1698}# 'module-ref)))) (begin - (if (if (if (eq? #{m 1574}# 'c) + (if (if (if (eq? #{m 1588}# 'c) #t - (eq? #{m 1574}# 'c&e)) + (eq? #{m 1588}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 1682}#)) + #{n 1696}#)) (current-module) #f) #f) (begin - (let ((#{old 1691}# + (let ((#{old 1705}# (module-variable (current-module) - #{n 1682}#))) + #{n 1696}#))) (if (if (variable? - #{old 1691}#) + #{old 1705}#) (variable-bound? - #{old 1691}#) + #{old 1705}#) #f) (module-define! (current-module) - #{n 1682}# + #{n 1696}# (variable-ref - #{old 1691}#)) + #{old 1705}#)) (module-add! (current-module) - #{n 1682}# + #{n 1696}# (make-undefined-variable)))))) (values - (cons (if (eq? #{m 1574}# 'c&e) + (cons (if (eq? #{m 1588}# 'c&e) (begin - (let ((#{x 1695}# - (#{build-global-definition 281}# - #{s 1599}# - #{n 1682}# - (#{chi 419}# - #{e 1597}# - #{r 1571}# - #{w 1598}# - #{mod 1600}#)))) + (let ((#{x 1709}# + (#{build-global-definition 282}# + #{s 1613}# + #{n 1696}# + (#{chi 432}# + #{e 1611}# + #{r 1585}# + #{w 1612}# + #{mod 1614}#)))) (begin (#{top-level-eval-hook 250}# - #{x 1695}# - #{mod 1600}#) - #{x 1695}#))) + #{x 1709}# + #{mod 1614}#) + #{x 1709}#))) (lambda () - (#{build-global-definition 281}# - #{s 1599}# - #{n 1682}# - (#{chi 419}# - #{e 1597}# - #{r 1571}# - #{w 1598}# - #{mod 1600}#)))) - #{exps 1577}#))) - (if (eqv? #{type 1684}# + (#{build-global-definition 282}# + #{s 1613}# + #{n 1696}# + (#{chi 432}# + #{e 1611}# + #{r 1585}# + #{w 1612}# + #{mod 1614}#)))) + #{exps 1591}#))) + (if (eqv? #{type 1698}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 1597}# - (#{wrap 405}# - #{value 1596}# - #{w 1598}# - #{mod 1600}#)) + #{e 1611}# + (#{wrap 418}# + #{value 1610}# + #{w 1612}# + #{mod 1614}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 1597}# - (#{wrap 405}# - #{value 1596}# - #{w 1598}# - #{mod 1600}#)))))))) + #{e 1611}# + (#{wrap 418}# + #{value 1610}# + #{w 1612}# + #{mod 1614}#)))))))) (values - (cons (if (eq? #{m 1574}# 'c&e) + (cons (if (eq? #{m 1588}# 'c&e) (begin - (let ((#{x 1700}# - (#{chi-expr 421}# - #{type 1595}# - #{value 1596}# - #{e 1597}# - #{r 1571}# - #{w 1598}# - #{s 1599}# - #{mod 1600}#))) + (let ((#{x 1714}# + (#{chi-expr 434}# + #{type 1609}# + #{value 1610}# + #{e 1611}# + #{r 1585}# + #{w 1612}# + #{s 1613}# + #{mod 1614}#))) (begin (#{top-level-eval-hook 250}# - #{x 1700}# - #{mod 1600}#) - #{x 1700}#))) + #{x 1714}# + #{mod 1614}#) + #{x 1714}#))) (lambda () - (#{chi-expr 421}# - #{type 1595}# - #{value 1596}# - #{e 1597}# - #{r 1571}# - #{w 1598}# - #{s 1599}# - #{mod 1600}#))) - #{exps 1577}#)))))))))) - (lambda (#{exps 1701}#) - (#{scan 1569}# - (cdr #{body 1570}#) - #{r 1571}# - #{w 1572}# - #{s 1573}# - #{m 1574}# - #{esew 1575}# - #{mod 1576}# - #{exps 1701}#))))))) + (#{chi-expr 434}# + #{type 1609}# + #{value 1610}# + #{e 1611}# + #{r 1585}# + #{w 1612}# + #{s 1613}# + #{mod 1614}#))) + #{exps 1591}#)))))))))) + (lambda (#{exps 1715}#) + (#{scan 1583}# + (cdr #{body 1584}#) + #{r 1585}# + #{w 1586}# + #{s 1587}# + #{m 1588}# + #{esew 1589}# + #{mod 1590}# + #{exps 1715}#))))))) (begin (call-with-values (lambda () - (#{scan 1569}# - #{body 1554}# - #{r 1555}# - #{w 1556}# - #{s 1557}# - #{m 1558}# - #{esew 1559}# - #{mod 1560}# + (#{scan 1583}# + #{body 1568}# + #{r 1569}# + #{w 1570}# + #{s 1571}# + #{m 1572}# + #{esew 1573}# + #{mod 1574}# '())) - (lambda (#{exps 1703}#) - (if (null? #{exps 1703}#) - (#{build-void 263}# #{s 1557}#) - (#{build-sequence 293}# - #{s 1557}# + (lambda (#{exps 1717}#) + (if (null? #{exps 1717}#) + (#{build-void 264}# #{s 1571}#) + (#{build-sequence 294}# + #{s 1571}# (letrec* - ((#{lp 1708}# - (lambda (#{in 1709}# #{out 1710}#) - (if (null? #{in 1709}#) - #{out 1710}# + ((#{lp 1722}# + (lambda (#{in 1723}# #{out 1724}#) + (if (null? #{in 1723}#) + #{out 1724}# (begin - (let ((#{e 1712}# (car #{in 1709}#))) - (#{lp 1708}# - (cdr #{in 1709}#) - (cons (if (procedure? #{e 1712}#) - (#{e 1712}#) - #{e 1712}#) - #{out 1710}#)))))))) - (begin (#{lp 1708}# #{exps 1703}# '()))))))))))) - (#{chi-install-global 413}# - (lambda (#{name 1713}# #{e 1714}#) - (#{build-global-definition 281}# + (let ((#{e 1726}# (car #{in 1723}#))) + (#{lp 1722}# + (cdr #{in 1723}#) + (cons (if (procedure? #{e 1726}#) + (#{e 1726}#) + #{e 1726}#) + #{out 1724}#)))))))) + (begin (#{lp 1722}# #{exps 1717}# '()))))))))))) + (#{chi-install-global 426}# + (lambda (#{name 1727}# #{e 1728}#) + (#{build-global-definition 282}# #f - #{name 1713}# - (#{build-application 265}# + #{name 1727}# + (#{build-application 266}# #f - (#{build-primref 289}# + (#{build-primref 290}# #f 'make-syntax-transformer) - (list (#{build-data 291}# #f #{name 1713}#) - (#{build-data 291}# #f 'macro) - #{e 1714}#))))) - (#{chi-when-list 415}# - (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#) + (list (#{build-data 292}# #f #{name 1727}#) + (#{build-data 292}# #f 'macro) + #{e 1728}#))))) + (#{chi-when-list 428}# + (lambda (#{e 1736}# #{when-list 1737}# #{w 1738}#) (letrec* - ((#{f 1731}# - (lambda (#{when-list 1732}# #{situations 1733}#) - (if (null? #{when-list 1732}#) - #{situations 1733}# - (#{f 1731}# - (cdr #{when-list 1732}#) + ((#{f 1745}# + (lambda (#{when-list 1746}# #{situations 1747}#) + (if (null? #{when-list 1746}#) + #{situations 1747}# + (#{f 1745}# + (cdr #{when-list 1746}#) (cons (begin - (let ((#{x 1735}# (car #{when-list 1732}#))) - (if (#{free-id=? 395}# - #{x 1735}# + (let ((#{x 1749}# (car #{when-list 1746}#))) + (if (#{free-id=? 408}# + #{x 1749}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1734")) + #(ribcage #(x) #((top)) #("i1748")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1728" "i1729" "i1730")) + #("i1742" "i1743" "i1744")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1725" "i1726" "i1727")) + #("i1739" "i1740" "i1741")) #(ribcage (lambda-var-list gen-var @@ -1796,81 +1796,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -1880,31 +1881,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -1940,25 +1940,25 @@ ("i40" "i39" "i38"))) (hygiene guile))) 'compile - (if (#{free-id=? 395}# - #{x 1735}# + (if (#{free-id=? 408}# + #{x 1749}# '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1734")) + #(ribcage #(x) #((top)) #("i1748")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1728" "i1729" "i1730")) + #("i1742" "i1743" "i1744")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1725" "i1726" "i1727")) + #("i1739" "i1740" "i1741")) #(ribcage (lambda-var-list gen-var @@ -2232,81 +2232,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -2316,31 +2317,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -2376,25 +2376,25 @@ ("i40" "i39" "i38"))) (hygiene guile))) 'load - (if (#{free-id=? 395}# - #{x 1735}# + (if (#{free-id=? 408}# + #{x 1749}# '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1734")) + #(ribcage #(x) #((top)) #("i1748")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1728" "i1729" "i1730")) + #("i1742" "i1743" "i1744")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1725" "i1726" "i1727")) + #("i1739" "i1740" "i1741")) #(ribcage (lambda-var-list gen-var @@ -2668,81 +2668,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -2752,31 +2753,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -2812,25 +2812,25 @@ ("i40" "i39" "i38"))) (hygiene guile))) 'eval - (if (#{free-id=? 395}# - #{x 1735}# + (if (#{free-id=? 408}# + #{x 1749}# '#(syntax-object expand ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1734")) + #(ribcage #(x) #((top)) #("i1748")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1728" "i1729" "i1730")) + #("i1742" "i1743" "i1744")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1725" "i1726" "i1727")) + #("i1739" "i1740" "i1741")) #(ribcage (lambda-var-list gen-var @@ -3104,81 +3104,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -3188,31 +3189,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -3251,243 +3251,243 @@ (syntax-violation 'eval-when "invalid situation" - #{e 1722}# - (#{wrap 405}# - #{x 1735}# - #{w 1724}# + #{e 1736}# + (#{wrap 418}# + #{x 1749}# + #{w 1738}# #f)))))))) - #{situations 1733}#)))))) - (begin (#{f 1731}# #{when-list 1723}# '()))))) - (#{syntax-type 417}# - (lambda (#{e 1745}# - #{r 1746}# - #{w 1747}# - #{s 1748}# - #{rib 1749}# - #{mod 1750}# - #{for-car? 1751}#) - (if (symbol? #{e 1745}#) + #{situations 1747}#)))))) + (begin (#{f 1745}# #{when-list 1737}# '()))))) + (#{syntax-type 430}# + (lambda (#{e 1759}# + #{r 1760}# + #{w 1761}# + #{s 1762}# + #{rib 1763}# + #{mod 1764}# + #{for-car? 1765}#) + (if (symbol? #{e 1759}#) (begin - (let ((#{n 1763}# - (#{id-var-name 393}# #{e 1745}# #{w 1747}#))) + (let ((#{n 1777}# + (#{id-var-name 406}# #{e 1759}# #{w 1761}#))) (begin - (let ((#{b 1765}# - (#{lookup 333}# - #{n 1763}# - #{r 1746}# - #{mod 1750}#))) + (let ((#{b 1779}# + (#{lookup 338}# + #{n 1777}# + #{r 1760}# + #{mod 1764}#))) (begin - (let ((#{type 1767}# (car #{b 1765}#))) - (if (eqv? #{type 1767}# 'lexical) + (let ((#{type 1781}# (car #{b 1779}#))) + (if (eqv? #{type 1781}# 'lexical) (values - #{type 1767}# - (cdr #{b 1765}#) - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{type 1767}# 'global) + #{type 1781}# + (cdr #{b 1779}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{type 1781}# 'global) (values - #{type 1767}# - #{n 1763}# - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{type 1767}# 'macro) - (if #{for-car? 1751}# + #{type 1781}# + #{n 1777}# + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{type 1781}# 'macro) + (if #{for-car? 1765}# (values - #{type 1767}# - (cdr #{b 1765}#) - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (#{syntax-type 417}# - (#{chi-macro 425}# - (cdr #{b 1765}#) - #{e 1745}# - #{r 1746}# - #{w 1747}# - #{s 1748}# - #{rib 1749}# - #{mod 1750}#) - #{r 1746}# + #{type 1781}# + (cdr #{b 1779}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (#{syntax-type 430}# + (#{chi-macro 438}# + (cdr #{b 1779}#) + #{e 1759}# + #{r 1760}# + #{w 1761}# + #{s 1762}# + #{rib 1763}# + #{mod 1764}#) + #{r 1760}# '(()) - #{s 1748}# - #{rib 1749}# - #{mod 1750}# + #{s 1762}# + #{rib 1763}# + #{mod 1764}# #f)) (values - #{type 1767}# - (cdr #{b 1765}#) - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#)))))))))) - (if (pair? #{e 1745}#) + #{type 1781}# + (cdr #{b 1779}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#)))))))))) + (if (pair? #{e 1759}#) (begin - (let ((#{first 1781}# (car #{e 1745}#))) + (let ((#{first 1795}# (car #{e 1759}#))) (call-with-values (lambda () - (#{syntax-type 417}# - #{first 1781}# - #{r 1746}# - #{w 1747}# - #{s 1748}# - #{rib 1749}# - #{mod 1750}# + (#{syntax-type 430}# + #{first 1795}# + #{r 1760}# + #{w 1761}# + #{s 1762}# + #{rib 1763}# + #{mod 1764}# #t)) - (lambda (#{ftype 1782}# - #{fval 1783}# - #{fe 1784}# - #{fw 1785}# - #{fs 1786}# - #{fmod 1787}#) - (if (eqv? #{ftype 1782}# 'lexical) + (lambda (#{ftype 1796}# + #{fval 1797}# + #{fe 1798}# + #{fw 1799}# + #{fs 1800}# + #{fmod 1801}#) + (if (eqv? #{ftype 1796}# 'lexical) (values 'lexical-call - #{fval 1783}# - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'global) + #{fval 1797}# + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'global) (values 'global-call - (#{make-syntax-object 303}# - #{fval 1783}# - #{w 1747}# - #{fmod 1787}#) - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'macro) - (#{syntax-type 417}# - (#{chi-macro 425}# - #{fval 1783}# - #{e 1745}# - #{r 1746}# - #{w 1747}# - #{s 1748}# - #{rib 1749}# - #{mod 1750}#) - #{r 1746}# + (#{make-syntax-object 305}# + #{fval 1797}# + #{w 1761}# + #{fmod 1801}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'macro) + (#{syntax-type 430}# + (#{chi-macro 438}# + #{fval 1797}# + #{e 1759}# + #{r 1760}# + #{w 1761}# + #{s 1762}# + #{rib 1763}# + #{mod 1764}#) + #{r 1760}# '(()) - #{s 1748}# - #{rib 1749}# - #{mod 1750}# - #{for-car? 1751}#) - (if (eqv? #{ftype 1782}# 'module-ref) + #{s 1762}# + #{rib 1763}# + #{mod 1764}# + #{for-car? 1765}#) + (if (eqv? #{ftype 1796}# 'module-ref) (call-with-values (lambda () - (#{fval 1783}# - #{e 1745}# - #{r 1746}# - #{w 1747}#)) - (lambda (#{e 1799}# - #{r 1800}# - #{w 1801}# - #{s 1802}# - #{mod 1803}#) - (#{syntax-type 417}# - #{e 1799}# - #{r 1800}# - #{w 1801}# - #{s 1802}# - #{rib 1749}# - #{mod 1803}# - #{for-car? 1751}#))) - (if (eqv? #{ftype 1782}# 'core) + (#{fval 1797}# + #{e 1759}# + #{r 1760}# + #{w 1761}#)) + (lambda (#{e 1813}# + #{r 1814}# + #{w 1815}# + #{s 1816}# + #{mod 1817}#) + (#{syntax-type 430}# + #{e 1813}# + #{r 1814}# + #{w 1815}# + #{s 1816}# + #{rib 1763}# + #{mod 1817}# + #{for-car? 1765}#))) + (if (eqv? #{ftype 1796}# 'core) (values 'core-form - #{fval 1783}# - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'local-syntax) + #{fval 1797}# + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'local-syntax) (values 'local-syntax-form - #{fval 1783}# - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'begin) + #{fval 1797}# + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'begin) (values 'begin-form #f - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'eval-when) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'eval-when) (values 'eval-when-form #f - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) - (if (eqv? #{ftype 1782}# 'define) - (let ((#{tmp 1814}# #{e 1745}#)) - (let ((#{tmp 1815}# + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) + (if (eqv? #{ftype 1796}# 'define) + (let ((#{tmp 1828}# #{e 1759}#)) + (let ((#{tmp 1829}# ($sc-dispatch - #{tmp 1814}# + #{tmp 1828}# '(_ any any)))) - (if (if #{tmp 1815}# + (if (if #{tmp 1829}# (@apply - (lambda (#{name 1818}# - #{val 1819}#) - (#{id? 339}# #{name 1818}#)) - #{tmp 1815}#) + (lambda (#{name 1832}# + #{val 1833}#) + (#{id? 344}# #{name 1832}#)) + #{tmp 1829}#) #f) (@apply - (lambda (#{name 1822}# - #{val 1823}#) + (lambda (#{name 1836}# + #{val 1837}#) (values 'define-form - #{name 1822}# - #{val 1823}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#)) - #{tmp 1815}#) - (let ((#{tmp 1824}# + #{name 1836}# + #{val 1837}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#)) + #{tmp 1829}#) + (let ((#{tmp 1838}# ($sc-dispatch - #{tmp 1814}# + #{tmp 1828}# '(_ (any . any) any . each-any)))) - (if (if #{tmp 1824}# + (if (if #{tmp 1838}# (@apply - (lambda (#{name 1829}# - #{args 1830}# - #{e1 1831}# - #{e2 1832}#) - (if (#{id? 339}# - #{name 1829}#) - (#{valid-bound-ids? 399}# - (#{lambda-var-list 449}# - #{args 1830}#)) + (lambda (#{name 1843}# + #{args 1844}# + #{e1 1845}# + #{e2 1846}#) + (if (#{id? 344}# + #{name 1843}#) + (#{valid-bound-ids? 412}# + (#{lambda-var-list 462}# + #{args 1844}#)) #f)) - #{tmp 1824}#) + #{tmp 1838}#) #f) (@apply - (lambda (#{name 1839}# - #{args 1840}# - #{e1 1841}# - #{e2 1842}#) + (lambda (#{name 1853}# + #{args 1854}# + #{e1 1855}# + #{e2 1856}#) (values 'define-form - (#{wrap 405}# - #{name 1839}# - #{w 1747}# - #{mod 1750}#) - (#{decorate-source 259}# + (#{wrap 418}# + #{name 1853}# + #{w 1761}# + #{mod 1764}#) + (#{decorate-source 260}# (cons '#(syntax-object lambda ((top) @@ -3500,10 +3500,10 @@ (top) (top) (top)) - #("i1835" - "i1836" - "i1837" - "i1838")) + #("i1849" + "i1850" + "i1851" + "i1852")) #(ribcage () () @@ -3525,12 +3525,12 @@ (top) (top) (top)) - #("i1788" - "i1789" - "i1790" - "i1791" - "i1792" - "i1793")) + #("i1802" + "i1803" + "i1804" + "i1805" + "i1806" + "i1807")) #(ribcage () () @@ -3538,7 +3538,7 @@ #(ribcage #(first) #((top)) - #("i1780")) + #("i1794")) #(ribcage () () @@ -3566,13 +3566,13 @@ (top) (top) (top)) - #("i1752" - "i1753" - "i1754" - "i1755" - "i1756" - "i1757" - "i1758")) + #("i1766" + "i1767" + "i1768" + "i1769" + "i1770" + "i1771" + "i1772")) #(ribcage (lambda-var-list gen-var @@ -3846,81 +3846,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -3930,31 +3931,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -3994,43 +3994,43 @@ "i38"))) (hygiene guile)) - (#{wrap 405}# - (cons #{args 1840}# - (cons #{e1 1841}# - #{e2 1842}#)) - #{w 1747}# - #{mod 1750}#)) - #{s 1748}#) + (#{wrap 418}# + (cons #{args 1854}# + (cons #{e1 1855}# + #{e2 1856}#)) + #{w 1761}# + #{mod 1764}#)) + #{s 1762}#) '(()) - #{s 1748}# - #{mod 1750}#)) - #{tmp 1824}#) - (let ((#{tmp 1845}# + #{s 1762}# + #{mod 1764}#)) + #{tmp 1838}#) + (let ((#{tmp 1859}# ($sc-dispatch - #{tmp 1814}# + #{tmp 1828}# '(_ any)))) - (if (if #{tmp 1845}# + (if (if #{tmp 1859}# (@apply - (lambda (#{name 1847}#) - (#{id? 339}# - #{name 1847}#)) - #{tmp 1845}#) + (lambda (#{name 1861}#) + (#{id? 344}# + #{name 1861}#)) + #{tmp 1859}#) #f) (@apply - (lambda (#{name 1849}#) + (lambda (#{name 1863}#) (values 'define-form - (#{wrap 405}# - #{name 1849}# - #{w 1747}# - #{mod 1750}#) + (#{wrap 418}# + #{name 1863}# + #{w 1761}# + #{mod 1764}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("i1848")) + #("i1862")) #(ribcage () () @@ -4052,12 +4052,12 @@ (top) (top) (top)) - #("i1788" - "i1789" - "i1790" - "i1791" - "i1792" - "i1793")) + #("i1802" + "i1803" + "i1804" + "i1805" + "i1806" + "i1807")) #(ribcage () () @@ -4065,7 +4065,7 @@ #(ribcage #(first) #((top)) - #("i1780")) + #("i1794")) #(ribcage () () @@ -4093,13 +4093,13 @@ (top) (top) (top)) - #("i1752" - "i1753" - "i1754" - "i1755" - "i1756" - "i1757" - "i1758")) + #("i1766" + "i1767" + "i1768" + "i1769" + "i1770" + "i1771" + "i1772")) #(ribcage (lambda-var-list gen-var @@ -4373,81 +4373,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -4457,31 +4458,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -4526,7 +4526,7 @@ #(ribcage #(name) #((top)) - #("i1848")) + #("i1862")) #(ribcage () () @@ -4548,12 +4548,12 @@ (top) (top) (top)) - #("i1788" - "i1789" - "i1790" - "i1791" - "i1792" - "i1793")) + #("i1802" + "i1803" + "i1804" + "i1805" + "i1806" + "i1807")) #(ribcage () () @@ -4561,7 +4561,7 @@ #(ribcage #(first) #((top)) - #("i1780")) + #("i1794")) #(ribcage () () @@ -4589,13 +4589,13 @@ (top) (top) (top)) - #("i1752" - "i1753" - "i1754" - "i1755" - "i1756" - "i1757" - "i1758")) + #("i1766" + "i1767" + "i1768" + "i1769" + "i1770" + "i1771" + "i1772")) #(ribcage (lambda-var-list gen-var @@ -4869,81 +4869,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -4953,31 +4954,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -5022,7 +5022,7 @@ #(ribcage #(name) #((top)) - #("i1848")) + #("i1862")) #(ribcage () () @@ -5044,12 +5044,12 @@ (top) (top) (top)) - #("i1788" - "i1789" - "i1790" - "i1791" - "i1792" - "i1793")) + #("i1802" + "i1803" + "i1804" + "i1805" + "i1806" + "i1807")) #(ribcage () () @@ -5057,7 +5057,7 @@ #(ribcage #(first) #((top)) - #("i1780")) + #("i1794")) #(ribcage () () @@ -5085,13 +5085,13 @@ (top) (top) (top)) - #("i1752" - "i1753" - "i1754" - "i1755" - "i1756" - "i1757" - "i1758")) + #("i1766" + "i1767" + "i1768" + "i1769" + "i1770" + "i1771" + "i1772")) #(ribcage (lambda-var-list gen-var @@ -5365,81 +5365,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -5449,31 +5450,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -5513,817 +5513,817 @@ "i38"))) (hygiene guile))) '(()) - #{s 1748}# - #{mod 1750}#)) - #{tmp 1845}#) + #{s 1762}# + #{mod 1764}#)) + #{tmp 1859}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1814}#)))))))) - (if (eqv? #{ftype 1782}# 'define-syntax) - (let ((#{tmp 1852}# #{e 1745}#)) - (let ((#{tmp 1853}# + #{tmp 1828}#)))))))) + (if (eqv? #{ftype 1796}# 'define-syntax) + (let ((#{tmp 1866}# #{e 1759}#)) + (let ((#{tmp 1867}# ($sc-dispatch - #{tmp 1852}# + #{tmp 1866}# '(_ any any)))) - (if (if #{tmp 1853}# + (if (if #{tmp 1867}# (@apply - (lambda (#{name 1856}# - #{val 1857}#) - (#{id? 339}# - #{name 1856}#)) - #{tmp 1853}#) + (lambda (#{name 1870}# + #{val 1871}#) + (#{id? 344}# + #{name 1870}#)) + #{tmp 1867}#) #f) (@apply - (lambda (#{name 1860}# - #{val 1861}#) + (lambda (#{name 1874}# + #{val 1875}#) (values 'define-syntax-form - #{name 1860}# - #{val 1861}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#)) - #{tmp 1853}#) + #{name 1874}# + #{val 1875}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#)) + #{tmp 1867}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1852}#)))) + #{tmp 1866}#)))) (values 'call #f - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#))))))))))))))) - (if (#{syntax-object? 305}# #{e 1745}#) - (#{syntax-type 417}# - (#{syntax-object-expression 307}# #{e 1745}#) - #{r 1746}# - (#{join-wraps 387}# - #{w 1747}# - (#{syntax-object-wrap 309}# #{e 1745}#)) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#))))))))))))))) + (if (#{syntax-object? 307}# #{e 1759}#) + (#{syntax-type 430}# + (#{syntax-object-expression 309}# #{e 1759}#) + #{r 1760}# + (#{join-wraps 400}# + #{w 1761}# + (#{syntax-object-wrap 311}# #{e 1759}#)) (begin - (let ((#{t 1867}# - (#{source-annotation 320}# #{e 1745}#))) - (if #{t 1867}# #{t 1867}# #{s 1748}#))) - #{rib 1749}# + (let ((#{t 1881}# + (#{source-annotation 322}# #{e 1759}#))) + (if #{t 1881}# #{t 1881}# #{s 1762}#))) + #{rib 1763}# (begin - (let ((#{t 1871}# - (#{syntax-object-module 311}# #{e 1745}#))) - (if #{t 1871}# #{t 1871}# #{mod 1750}#))) - #{for-car? 1751}#) - (if (self-evaluating? #{e 1745}#) + (let ((#{t 1885}# + (#{syntax-object-module 313}# #{e 1759}#))) + (if #{t 1885}# #{t 1885}# #{mod 1764}#))) + #{for-car? 1765}#) + (if (self-evaluating? #{e 1759}#) (values 'constant #f - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#) (values 'other #f - #{e 1745}# - #{w 1747}# - #{s 1748}# - #{mod 1750}#))))))) - (#{chi 419}# - (lambda (#{e 1876}# #{r 1877}# #{w 1878}# #{mod 1879}#) + #{e 1759}# + #{w 1761}# + #{s 1762}# + #{mod 1764}#))))))) + (#{chi 432}# + (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#) (call-with-values (lambda () - (#{syntax-type 417}# - #{e 1876}# - #{r 1877}# - #{w 1878}# - (#{source-annotation 320}# #{e 1876}#) + (#{syntax-type 430}# + #{e 1890}# + #{r 1891}# + #{w 1892}# + (#{source-annotation 322}# #{e 1890}#) #f - #{mod 1879}# + #{mod 1893}# #f)) - (lambda (#{type 1884}# - #{value 1885}# - #{e 1886}# - #{w 1887}# - #{s 1888}# - #{mod 1889}#) - (#{chi-expr 421}# - #{type 1884}# - #{value 1885}# - #{e 1886}# - #{r 1877}# - #{w 1887}# - #{s 1888}# - #{mod 1889}#))))) - (#{chi-expr 421}# - (lambda (#{type 1896}# - #{value 1897}# - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'lexical) - (#{build-lexical-reference 271}# + (lambda (#{type 1898}# + #{value 1899}# + #{e 1900}# + #{w 1901}# + #{s 1902}# + #{mod 1903}#) + (#{chi-expr 434}# + #{type 1898}# + #{value 1899}# + #{e 1900}# + #{r 1891}# + #{w 1901}# + #{s 1902}# + #{mod 1903}#))))) + (#{chi-expr 434}# + (lambda (#{type 1910}# + #{value 1911}# + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'lexical) + (#{build-lexical-reference 272}# 'value - #{s 1901}# - #{e 1898}# - #{value 1897}#) - (if (if (eqv? #{type 1896}# 'core) + #{s 1915}# + #{e 1912}# + #{value 1911}#) + (if (if (eqv? #{type 1910}# 'core) #t - (eqv? #{type 1896}# 'core-form)) - (#{value 1897}# - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'module-ref) + (eqv? #{type 1910}# 'core-form)) + (#{value 1911}# + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'module-ref) (call-with-values (lambda () - (#{value 1897}# #{e 1898}# #{r 1899}# #{w 1900}#)) - (lambda (#{e 1913}# - #{r 1914}# - #{w 1915}# - #{s 1916}# - #{mod 1917}#) - (#{chi 419}# - #{e 1913}# - #{r 1914}# - #{w 1915}# - #{mod 1917}#))) - (if (eqv? #{type 1896}# 'lexical-call) - (#{chi-application 423}# + (#{value 1911}# #{e 1912}# #{r 1913}# #{w 1914}#)) + (lambda (#{e 1927}# + #{r 1928}# + #{w 1929}# + #{s 1930}# + #{mod 1931}#) + (#{chi 432}# + #{e 1927}# + #{r 1928}# + #{w 1929}# + #{mod 1931}#))) + (if (eqv? #{type 1910}# 'lexical-call) + (#{chi-application 436}# (begin - (let ((#{id 1925}# (car #{e 1898}#))) - (#{build-lexical-reference 271}# + (let ((#{id 1939}# (car #{e 1912}#))) + (#{build-lexical-reference 272}# 'fun - (#{source-annotation 320}# #{id 1925}#) - (if (#{syntax-object? 305}# #{id 1925}#) - (syntax->datum #{id 1925}#) - #{id 1925}#) - #{value 1897}#))) - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'global-call) - (#{chi-application 423}# - (#{build-global-reference 277}# - (#{source-annotation 320}# (car #{e 1898}#)) - (if (#{syntax-object? 305}# #{value 1897}#) - (#{syntax-object-expression 307}# #{value 1897}#) - #{value 1897}#) - (if (#{syntax-object? 305}# #{value 1897}#) - (#{syntax-object-module 311}# #{value 1897}#) - #{mod 1902}#)) - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'constant) - (#{build-data 291}# - #{s 1901}# - (#{strip 445}# - (#{source-wrap 407}# - #{e 1898}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) + (#{source-annotation 322}# #{id 1939}#) + (if (#{syntax-object? 307}# #{id 1939}#) + (syntax->datum #{id 1939}#) + #{id 1939}#) + #{value 1911}#))) + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'global-call) + (#{chi-application 436}# + (#{build-global-reference 278}# + (#{source-annotation 322}# (car #{e 1912}#)) + (if (#{syntax-object? 307}# #{value 1911}#) + (#{syntax-object-expression 309}# #{value 1911}#) + #{value 1911}#) + (if (#{syntax-object? 307}# #{value 1911}#) + (#{syntax-object-module 313}# #{value 1911}#) + #{mod 1916}#)) + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'constant) + (#{build-data 292}# + #{s 1915}# + (#{strip 458}# + (#{source-wrap 420}# + #{e 1912}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) '(()))) - (if (eqv? #{type 1896}# 'global) - (#{build-global-reference 277}# - #{s 1901}# - #{value 1897}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'call) - (#{chi-application 423}# - (#{chi 419}# - (car #{e 1898}#) - #{r 1899}# - #{w 1900}# - #{mod 1902}#) - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (if (eqv? #{type 1896}# 'begin-form) - (let ((#{tmp 1932}# #{e 1898}#)) - (let ((#{tmp 1933}# + (if (eqv? #{type 1910}# 'global) + (#{build-global-reference 278}# + #{s 1915}# + #{value 1911}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'call) + (#{chi-application 436}# + (#{chi 432}# + (car #{e 1912}#) + #{r 1913}# + #{w 1914}# + #{mod 1916}#) + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (if (eqv? #{type 1910}# 'begin-form) + (let ((#{tmp 1946}# #{e 1912}#)) + (let ((#{tmp 1947}# ($sc-dispatch - #{tmp 1932}# + #{tmp 1946}# '(_ any . each-any)))) - (if #{tmp 1933}# + (if #{tmp 1947}# (@apply - (lambda (#{e1 1936}# #{e2 1937}#) - (#{chi-sequence 409}# - (cons #{e1 1936}# #{e2 1937}#) - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#)) - #{tmp 1933}#) + (lambda (#{e1 1950}# #{e2 1951}#) + (#{chi-sequence 422}# + (cons #{e1 1950}# #{e2 1951}#) + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#)) + #{tmp 1947}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1932}#)))) - (if (eqv? #{type 1896}# 'local-syntax-form) - (#{chi-local-syntax 429}# - #{value 1897}# - #{e 1898}# - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}# - #{chi-sequence 409}#) - (if (eqv? #{type 1896}# 'eval-when-form) - (let ((#{tmp 1941}# #{e 1898}#)) - (let ((#{tmp 1942}# + #{tmp 1946}#)))) + (if (eqv? #{type 1910}# 'local-syntax-form) + (#{chi-local-syntax 442}# + #{value 1911}# + #{e 1912}# + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}# + #{chi-sequence 422}#) + (if (eqv? #{type 1910}# 'eval-when-form) + (let ((#{tmp 1955}# #{e 1912}#)) + (let ((#{tmp 1956}# ($sc-dispatch - #{tmp 1941}# + #{tmp 1955}# '(_ each-any any . each-any)))) - (if #{tmp 1942}# + (if #{tmp 1956}# (@apply - (lambda (#{x 1946}# - #{e1 1947}# - #{e2 1948}#) + (lambda (#{x 1960}# + #{e1 1961}# + #{e2 1962}#) (begin - (let ((#{when-list 1950}# - (#{chi-when-list 415}# - #{e 1898}# - #{x 1946}# - #{w 1900}#))) - (if (memq 'eval #{when-list 1950}#) - (#{chi-sequence 409}# - (cons #{e1 1947}# #{e2 1948}#) - #{r 1899}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#) - (#{chi-void 433}#))))) - #{tmp 1942}#) + (let ((#{when-list 1964}# + (#{chi-when-list 428}# + #{e 1912}# + #{x 1960}# + #{w 1914}#))) + (if (memq 'eval #{when-list 1964}#) + (#{chi-sequence 422}# + (cons #{e1 1961}# #{e2 1962}#) + #{r 1913}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#) + (#{chi-void 446}#))))) + #{tmp 1956}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1941}#)))) - (if (if (eqv? #{type 1896}# 'define-form) + #{tmp 1955}#)))) + (if (if (eqv? #{type 1910}# 'define-form) #t - (eqv? #{type 1896}# 'define-syntax-form)) + (eqv? #{type 1910}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 1898}# - (#{wrap 405}# - #{value 1897}# - #{w 1900}# - #{mod 1902}#)) - (if (eqv? #{type 1896}# 'syntax) + #{e 1912}# + (#{wrap 418}# + #{value 1911}# + #{w 1914}# + #{mod 1916}#)) + (if (eqv? #{type 1910}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap 407}# - #{e 1898}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#)) - (if (eqv? #{type 1896}# 'displaced-lexical) + (#{source-wrap 420}# + #{e 1912}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#)) + (if (eqv? #{type 1910}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap 407}# - #{e 1898}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#)) + (#{source-wrap 420}# + #{e 1912}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap 407}# - #{e 1898}# - #{w 1900}# - #{s 1901}# - #{mod 1902}#)))))))))))))))))) - (#{chi-application 423}# - (lambda (#{x 1957}# - #{e 1958}# - #{r 1959}# - #{w 1960}# - #{s 1961}# - #{mod 1962}#) - (let ((#{tmp 1969}# #{e 1958}#)) - (let ((#{tmp 1970}# - ($sc-dispatch #{tmp 1969}# '(any . each-any)))) - (if #{tmp 1970}# + (#{source-wrap 420}# + #{e 1912}# + #{w 1914}# + #{s 1915}# + #{mod 1916}#)))))))))))))))))) + (#{chi-application 436}# + (lambda (#{x 1971}# + #{e 1972}# + #{r 1973}# + #{w 1974}# + #{s 1975}# + #{mod 1976}#) + (let ((#{tmp 1983}# #{e 1972}#)) + (let ((#{tmp 1984}# + ($sc-dispatch #{tmp 1983}# '(any . each-any)))) + (if #{tmp 1984}# (@apply - (lambda (#{e0 1973}# #{e1 1974}#) - (#{build-application 265}# - #{s 1961}# - #{x 1957}# - (map (lambda (#{e 1975}#) - (#{chi 419}# - #{e 1975}# - #{r 1959}# - #{w 1960}# - #{mod 1962}#)) - #{e1 1974}#))) - #{tmp 1970}#) + (lambda (#{e0 1987}# #{e1 1988}#) + (#{build-application 266}# + #{s 1975}# + #{x 1971}# + (map (lambda (#{e 1989}#) + (#{chi 432}# + #{e 1989}# + #{r 1973}# + #{w 1974}# + #{mod 1976}#)) + #{e1 1988}#))) + #{tmp 1984}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1969}#)))))) - (#{chi-macro 425}# - (lambda (#{p 1978}# - #{e 1979}# - #{r 1980}# - #{w 1981}# - #{s 1982}# - #{rib 1983}# - #{mod 1984}#) + #{tmp 1983}#)))))) + (#{chi-macro 438}# + (lambda (#{p 1992}# + #{e 1993}# + #{r 1994}# + #{w 1995}# + #{s 1996}# + #{rib 1997}# + #{mod 1998}#) (letrec* - ((#{rebuild-macro-output 1993}# - (lambda (#{x 1994}# #{m 1995}#) - (if (pair? #{x 1994}#) - (#{decorate-source 259}# - (cons (#{rebuild-macro-output 1993}# - (car #{x 1994}#) - #{m 1995}#) - (#{rebuild-macro-output 1993}# - (cdr #{x 1994}#) - #{m 1995}#)) - #{s 1982}#) - (if (#{syntax-object? 305}# #{x 1994}#) + ((#{rebuild-macro-output 2007}# + (lambda (#{x 2008}# #{m 2009}#) + (if (pair? #{x 2008}#) + (#{decorate-source 260}# + (cons (#{rebuild-macro-output 2007}# + (car #{x 2008}#) + #{m 2009}#) + (#{rebuild-macro-output 2007}# + (cdr #{x 2008}#) + #{m 2009}#)) + #{s 1996}#) + (if (#{syntax-object? 307}# #{x 2008}#) (begin - (let ((#{w 2003}# - (#{syntax-object-wrap 309}# #{x 1994}#))) + (let ((#{w 2017}# + (#{syntax-object-wrap 311}# #{x 2008}#))) (begin - (let ((#{ms 2006}# (car #{w 2003}#)) - (#{s 2007}# (cdr #{w 2003}#))) - (if (if (pair? #{ms 2006}#) - (eq? (car #{ms 2006}#) #f) + (let ((#{ms 2020}# (car #{w 2017}#)) + (#{s 2021}# (cdr #{w 2017}#))) + (if (if (pair? #{ms 2020}#) + (eq? (car #{ms 2020}#) #f) #f) - (#{make-syntax-object 303}# - (#{syntax-object-expression 307}# #{x 1994}#) - (cons (cdr #{ms 2006}#) - (if #{rib 1983}# - (cons #{rib 1983}# (cdr #{s 2007}#)) - (cdr #{s 2007}#))) - (#{syntax-object-module 311}# #{x 1994}#)) - (#{make-syntax-object 303}# - (#{decorate-source 259}# - (#{syntax-object-expression 307}# #{x 1994}#) - #{s 2007}#) - (cons (cons #{m 1995}# #{ms 2006}#) - (if #{rib 1983}# - (cons #{rib 1983}# - (cons 'shift #{s 2007}#)) - (cons 'shift #{s 2007}#))) - (#{syntax-object-module 311}# #{x 1994}#))))))) - (if (vector? #{x 1994}#) + (#{make-syntax-object 305}# + (#{syntax-object-expression 309}# #{x 2008}#) + (cons (cdr #{ms 2020}#) + (if #{rib 1997}# + (cons #{rib 1997}# (cdr #{s 2021}#)) + (cdr #{s 2021}#))) + (#{syntax-object-module 313}# #{x 2008}#)) + (#{make-syntax-object 305}# + (#{decorate-source 260}# + (#{syntax-object-expression 309}# #{x 2008}#) + #{s 2021}#) + (cons (cons #{m 2009}# #{ms 2020}#) + (if #{rib 1997}# + (cons #{rib 1997}# + (cons 'shift #{s 2021}#)) + (cons 'shift #{s 2021}#))) + (#{syntax-object-module 313}# #{x 2008}#))))))) + (if (vector? #{x 2008}#) (begin - (let ((#{n 2019}# (vector-length #{x 1994}#))) + (let ((#{n 2033}# (vector-length #{x 2008}#))) (begin - (let ((#{v 2021}# - (#{decorate-source 259}# - (make-vector #{n 2019}#) - #{x 1994}#))) + (let ((#{v 2035}# + (#{decorate-source 260}# + (make-vector #{n 2033}#) + #{x 2008}#))) (letrec* - ((#{loop 2024}# - (lambda (#{i 2025}#) - (if (= #{i 2025}# #{n 2019}#) - (begin (if #f #f) #{v 2021}#) + ((#{loop 2038}# + (lambda (#{i 2039}#) + (if (= #{i 2039}# #{n 2033}#) + (begin (if #f #f) #{v 2035}#) (begin (vector-set! - #{v 2021}# - #{i 2025}# - (#{rebuild-macro-output 1993}# - (vector-ref #{x 1994}# #{i 2025}#) - #{m 1995}#)) - (#{loop 2024}# (#{1+}# #{i 2025}#))))))) - (begin (#{loop 2024}# 0))))))) - (if (symbol? #{x 1994}#) + #{v 2035}# + #{i 2039}# + (#{rebuild-macro-output 2007}# + (vector-ref #{x 2008}# #{i 2039}#) + #{m 2009}#)) + (#{loop 2038}# (#{1+}# #{i 2039}#))))))) + (begin (#{loop 2038}# 0))))))) + (if (symbol? #{x 2008}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap 407}# - #{e 1979}# - #{w 1981}# - (cdr #{w 1981}#) - #{mod 1984}#) - #{x 1994}#) - (#{decorate-source 259}# #{x 1994}# #{s 1982}#)))))))) + (#{source-wrap 420}# + #{e 1993}# + #{w 1995}# + (cdr #{w 1995}#) + #{mod 1998}#) + #{x 2008}#) + (#{decorate-source 260}# #{x 2008}# #{s 1996}#)))))))) (begin - (#{rebuild-macro-output 1993}# - (#{p 1978}# - (#{source-wrap 407}# - #{e 1979}# - (#{anti-mark 377}# #{w 1981}#) - #{s 1982}# - #{mod 1984}#)) + (#{rebuild-macro-output 2007}# + (#{p 1992}# + (#{source-wrap 420}# + #{e 1993}# + (#{anti-mark 388}# #{w 1995}#) + #{s 1996}# + #{mod 1998}#)) (gensym "m")))))) - (#{chi-body 427}# - (lambda (#{body 2035}# - #{outer-form 2036}# - #{r 2037}# - #{w 2038}# - #{mod 2039}#) + (#{chi-body 440}# + (lambda (#{body 2049}# + #{outer-form 2050}# + #{r 2051}# + #{w 2052}# + #{mod 2053}#) (begin - (let ((#{r 2047}# - (cons '("placeholder" placeholder) #{r 2037}#))) + (let ((#{r 2061}# + (cons '("placeholder" placeholder) #{r 2051}#))) (begin - (let ((#{ribcage 2049}# - (#{make-ribcage 357}# '() '() '()))) + (let ((#{ribcage 2063}# + (#{make-ribcage 367}# '() '() '()))) (begin - (let ((#{w 2052}# - (cons (car #{w 2038}#) - (cons #{ribcage 2049}# (cdr #{w 2038}#))))) + (let ((#{w 2066}# + (cons (car #{w 2052}#) + (cons #{ribcage 2063}# (cdr #{w 2052}#))))) (letrec* - ((#{parse 2064}# - (lambda (#{body 2065}# - #{ids 2066}# - #{labels 2067}# - #{var-ids 2068}# - #{vars 2069}# - #{vals 2070}# - #{bindings 2071}#) - (if (null? #{body 2065}#) + ((#{parse 2078}# + (lambda (#{body 2079}# + #{ids 2080}# + #{labels 2081}# + #{var-ids 2082}# + #{vars 2083}# + #{vals 2084}# + #{bindings 2085}#) + (if (null? #{body 2079}#) (syntax-violation #f "no expressions in body" - #{outer-form 2036}#) + #{outer-form 2050}#) (begin - (let ((#{e 2076}# (cdr (car #{body 2065}#))) - (#{er 2077}# (car (car #{body 2065}#)))) + (let ((#{e 2090}# (cdr (car #{body 2079}#))) + (#{er 2091}# (car (car #{body 2079}#)))) (call-with-values (lambda () - (#{syntax-type 417}# - #{e 2076}# - #{er 2077}# + (#{syntax-type 430}# + #{e 2090}# + #{er 2091}# '(()) - (#{source-annotation 320}# #{er 2077}#) - #{ribcage 2049}# - #{mod 2039}# + (#{source-annotation 322}# #{er 2091}#) + #{ribcage 2063}# + #{mod 2053}# #f)) - (lambda (#{type 2079}# - #{value 2080}# - #{e 2081}# - #{w 2082}# - #{s 2083}# - #{mod 2084}#) - (if (eqv? #{type 2079}# 'define-form) + (lambda (#{type 2093}# + #{value 2094}# + #{e 2095}# + #{w 2096}# + #{s 2097}# + #{mod 2098}#) + (if (eqv? #{type 2093}# 'define-form) (begin - (let ((#{id 2094}# - (#{wrap 405}# - #{value 2080}# - #{w 2082}# - #{mod 2084}#)) - (#{label 2095}# - (#{gen-label 352}#))) + (let ((#{id 2108}# + (#{wrap 418}# + #{value 2094}# + #{w 2096}# + #{mod 2098}#)) + (#{label 2109}# + (#{gen-label 362}#))) (begin - (let ((#{var 2097}# - (#{gen-var 447}# - #{id 2094}#))) + (let ((#{var 2111}# + (#{gen-var 460}# + #{id 2108}#))) (begin - (#{extend-ribcage! 381}# - #{ribcage 2049}# - #{id 2094}# - #{label 2095}#) - (#{parse 2064}# - (cdr #{body 2065}#) - (cons #{id 2094}# - #{ids 2066}#) - (cons #{label 2095}# - #{labels 2067}#) - (cons #{id 2094}# - #{var-ids 2068}#) - (cons #{var 2097}# - #{vars 2069}#) - (cons (cons #{er 2077}# - (#{wrap 405}# - #{e 2081}# - #{w 2082}# - #{mod 2084}#)) - #{vals 2070}#) + (#{extend-ribcage! 394}# + #{ribcage 2063}# + #{id 2108}# + #{label 2109}#) + (#{parse 2078}# + (cdr #{body 2079}#) + (cons #{id 2108}# + #{ids 2080}#) + (cons #{label 2109}# + #{labels 2081}#) + (cons #{id 2108}# + #{var-ids 2082}#) + (cons #{var 2111}# + #{vars 2083}#) + (cons (cons #{er 2091}# + (#{wrap 418}# + #{e 2095}# + #{w 2096}# + #{mod 2098}#)) + #{vals 2084}#) (cons (cons 'lexical - #{var 2097}#) - #{bindings 2071}#))))))) - (if (eqv? #{type 2079}# + #{var 2111}#) + #{bindings 2085}#))))))) + (if (eqv? #{type 2093}# 'define-syntax-form) (begin - (let ((#{id 2102}# - (#{wrap 405}# - #{value 2080}# - #{w 2082}# - #{mod 2084}#)) - (#{label 2103}# - (#{gen-label 352}#))) + (let ((#{id 2116}# + (#{wrap 418}# + #{value 2094}# + #{w 2096}# + #{mod 2098}#)) + (#{label 2117}# + (#{gen-label 362}#))) (begin - (#{extend-ribcage! 381}# - #{ribcage 2049}# - #{id 2102}# - #{label 2103}#) - (#{parse 2064}# - (cdr #{body 2065}#) - (cons #{id 2102}# #{ids 2066}#) - (cons #{label 2103}# - #{labels 2067}#) - #{var-ids 2068}# - #{vars 2069}# - #{vals 2070}# + (#{extend-ribcage! 394}# + #{ribcage 2063}# + #{id 2116}# + #{label 2117}#) + (#{parse 2078}# + (cdr #{body 2079}#) + (cons #{id 2116}# #{ids 2080}#) + (cons #{label 2117}# + #{labels 2081}#) + #{var-ids 2082}# + #{vars 2083}# + #{vals 2084}# (cons (cons 'macro - (cons #{er 2077}# - (#{wrap 405}# - #{e 2081}# - #{w 2082}# - #{mod 2084}#))) - #{bindings 2071}#))))) - (if (eqv? #{type 2079}# 'begin-form) - (let ((#{tmp 2106}# #{e 2081}#)) - (let ((#{tmp 2107}# + (cons #{er 2091}# + (#{wrap 418}# + #{e 2095}# + #{w 2096}# + #{mod 2098}#))) + #{bindings 2085}#))))) + (if (eqv? #{type 2093}# 'begin-form) + (let ((#{tmp 2120}# #{e 2095}#)) + (let ((#{tmp 2121}# ($sc-dispatch - #{tmp 2106}# + #{tmp 2120}# '(_ . each-any)))) - (if #{tmp 2107}# + (if #{tmp 2121}# (@apply - (lambda (#{e1 2109}#) - (#{parse 2064}# + (lambda (#{e1 2123}#) + (#{parse 2078}# (letrec* - ((#{f 2112}# - (lambda (#{forms 2113}#) - (if (null? #{forms 2113}#) - (cdr #{body 2065}#) - (cons (cons #{er 2077}# - (#{wrap 405}# - (car #{forms 2113}#) - #{w 2082}# - #{mod 2084}#)) - (#{f 2112}# - (cdr #{forms 2113}#))))))) + ((#{f 2126}# + (lambda (#{forms 2127}#) + (if (null? #{forms 2127}#) + (cdr #{body 2079}#) + (cons (cons #{er 2091}# + (#{wrap 418}# + (car #{forms 2127}#) + #{w 2096}# + #{mod 2098}#)) + (#{f 2126}# + (cdr #{forms 2127}#))))))) (begin - (#{f 2112}# - #{e1 2109}#))) - #{ids 2066}# - #{labels 2067}# - #{var-ids 2068}# - #{vars 2069}# - #{vals 2070}# - #{bindings 2071}#)) - #{tmp 2107}#) + (#{f 2126}# + #{e1 2123}#))) + #{ids 2080}# + #{labels 2081}# + #{var-ids 2082}# + #{vars 2083}# + #{vals 2084}# + #{bindings 2085}#)) + #{tmp 2121}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2106}#)))) - (if (eqv? #{type 2079}# + #{tmp 2120}#)))) + (if (eqv? #{type 2093}# 'local-syntax-form) - (#{chi-local-syntax 429}# - #{value 2080}# - #{e 2081}# - #{er 2077}# - #{w 2082}# - #{s 2083}# - #{mod 2084}# - (lambda (#{forms 2116}# - #{er 2117}# - #{w 2118}# - #{s 2119}# - #{mod 2120}#) - (#{parse 2064}# + (#{chi-local-syntax 442}# + #{value 2094}# + #{e 2095}# + #{er 2091}# + #{w 2096}# + #{s 2097}# + #{mod 2098}# + (lambda (#{forms 2130}# + #{er 2131}# + #{w 2132}# + #{s 2133}# + #{mod 2134}#) + (#{parse 2078}# (letrec* - ((#{f 2128}# - (lambda (#{forms 2129}#) - (if (null? #{forms 2129}#) - (cdr #{body 2065}#) - (cons (cons #{er 2117}# - (#{wrap 405}# - (car #{forms 2129}#) - #{w 2118}# - #{mod 2120}#)) - (#{f 2128}# - (cdr #{forms 2129}#))))))) + ((#{f 2142}# + (lambda (#{forms 2143}#) + (if (null? #{forms 2143}#) + (cdr #{body 2079}#) + (cons (cons #{er 2131}# + (#{wrap 418}# + (car #{forms 2143}#) + #{w 2132}# + #{mod 2134}#)) + (#{f 2142}# + (cdr #{forms 2143}#))))))) (begin - (#{f 2128}# - #{forms 2116}#))) - #{ids 2066}# - #{labels 2067}# - #{var-ids 2068}# - #{vars 2069}# - #{vals 2070}# - #{bindings 2071}#))) - (if (null? #{ids 2066}#) - (#{build-sequence 293}# + (#{f 2142}# + #{forms 2130}#))) + #{ids 2080}# + #{labels 2081}# + #{var-ids 2082}# + #{vars 2083}# + #{vals 2084}# + #{bindings 2085}#))) + (if (null? #{ids 2080}#) + (#{build-sequence 294}# #f - (map (lambda (#{x 2132}#) - (#{chi 419}# - (cdr #{x 2132}#) - (car #{x 2132}#) + (map (lambda (#{x 2146}#) + (#{chi 432}# + (cdr #{x 2146}#) + (car #{x 2146}#) '(()) - #{mod 2084}#)) - (cons (cons #{er 2077}# - (#{source-wrap 407}# - #{e 2081}# - #{w 2082}# - #{s 2083}# - #{mod 2084}#)) - (cdr #{body 2065}#)))) + #{mod 2098}#)) + (cons (cons #{er 2091}# + (#{source-wrap 420}# + #{e 2095}# + #{w 2096}# + #{s 2097}# + #{mod 2098}#)) + (cdr #{body 2079}#)))) (begin - (if (not (#{valid-bound-ids? 399}# - #{ids 2066}#)) + (if (not (#{valid-bound-ids? 412}# + #{ids 2080}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 2036}#)) + #{outer-form 2050}#)) (letrec* - ((#{loop 2139}# - (lambda (#{bs 2140}# - #{er-cache 2141}# - #{r-cache 2142}#) - (if (not (null? #{bs 2140}#)) + ((#{loop 2153}# + (lambda (#{bs 2154}# + #{er-cache 2155}# + #{r-cache 2156}#) + (if (not (null? #{bs 2154}#)) (begin - (let ((#{b 2145}# - (car #{bs 2140}#))) - (if (eq? (car #{b 2145}#) + (let ((#{b 2159}# + (car #{bs 2154}#))) + (if (eq? (car #{b 2159}#) 'macro) (begin - (let ((#{er 2148}# - (car (cdr #{b 2145}#)))) + (let ((#{er 2162}# + (car (cdr #{b 2159}#)))) (begin - (let ((#{r-cache 2150}# - (if (eq? #{er 2148}# - #{er-cache 2141}#) - #{r-cache 2142}# - (#{macros-only-env 331}# - #{er 2148}#)))) + (let ((#{r-cache 2164}# + (if (eq? #{er 2162}# + #{er-cache 2155}#) + #{r-cache 2156}# + (#{macros-only-env 336}# + #{er 2162}#)))) (begin (set-cdr! - #{b 2145}# - (#{eval-local-transformer 431}# - (#{chi 419}# - (cdr (cdr #{b 2145}#)) - #{r-cache 2150}# + #{b 2159}# + (#{eval-local-transformer 444}# + (#{chi 432}# + (cdr (cdr #{b 2159}#)) + #{r-cache 2164}# '(()) - #{mod 2084}#) - #{mod 2084}#)) - (#{loop 2139}# - (cdr #{bs 2140}#) - #{er 2148}# - #{r-cache 2150}#)))))) - (#{loop 2139}# - (cdr #{bs 2140}#) - #{er-cache 2141}# - #{r-cache 2142}#)))))))) + #{mod 2098}#) + #{mod 2098}#)) + (#{loop 2153}# + (cdr #{bs 2154}#) + #{er 2162}# + #{r-cache 2164}#)))))) + (#{loop 2153}# + (cdr #{bs 2154}#) + #{er-cache 2155}# + #{r-cache 2156}#)))))))) (begin - (#{loop 2139}# - #{bindings 2071}# + (#{loop 2153}# + #{bindings 2085}# #f #f))) (set-cdr! - #{r 2047}# - (#{extend-env 327}# - #{labels 2067}# - #{bindings 2071}# - (cdr #{r 2047}#))) - (#{build-letrec 299}# + #{r 2061}# + (#{extend-env 332}# + #{labels 2081}# + #{bindings 2085}# + (cdr #{r 2061}#))) + (#{build-letrec 300}# #f #t (reverse (map syntax->datum - #{var-ids 2068}#)) - (reverse #{vars 2069}#) - (map (lambda (#{x 2153}#) - (#{chi 419}# - (cdr #{x 2153}#) - (car #{x 2153}#) + #{var-ids 2082}#)) + (reverse #{vars 2083}#) + (map (lambda (#{x 2167}#) + (#{chi 432}# + (cdr #{x 2167}#) + (car #{x 2167}#) '(()) - #{mod 2084}#)) - (reverse #{vals 2070}#)) - (#{build-sequence 293}# + #{mod 2098}#)) + (reverse #{vals 2084}#)) + (#{build-sequence 294}# #f - (map (lambda (#{x 2157}#) - (#{chi 419}# - (cdr #{x 2157}#) - (car #{x 2157}#) + (map (lambda (#{x 2171}#) + (#{chi 432}# + (cdr #{x 2171}#) + (car #{x 2171}#) '(()) - #{mod 2084}#)) - (cons (cons #{er 2077}# - (#{source-wrap 407}# - #{e 2081}# - #{w 2082}# - #{s 2083}# - #{mod 2084}#)) - (cdr #{body 2065}#))))))))))))))))))) + #{mod 2098}#)) + (cons (cons #{er 2091}# + (#{source-wrap 420}# + #{e 2095}# + #{w 2096}# + #{s 2097}# + #{mod 2098}#)) + (cdr #{body 2079}#))))))))))))))))))) (begin - (#{parse 2064}# - (map (lambda (#{x 2072}#) - (cons #{r 2047}# - (#{wrap 405}# - #{x 2072}# - #{w 2052}# - #{mod 2039}#))) - #{body 2035}#) + (#{parse 2078}# + (map (lambda (#{x 2086}#) + (cons #{r 2061}# + (#{wrap 418}# + #{x 2086}# + #{w 2066}# + #{mod 2053}#))) + #{body 2049}#) '() '() '() '() '() '()))))))))))) - (#{chi-local-syntax 429}# - (lambda (#{rec? 2160}# - #{e 2161}# - #{r 2162}# - #{w 2163}# - #{s 2164}# - #{mod 2165}# - #{k 2166}#) - (let ((#{tmp 2174}# #{e 2161}#)) - (let ((#{tmp 2175}# + (#{chi-local-syntax 442}# + (lambda (#{rec? 2174}# + #{e 2175}# + #{r 2176}# + #{w 2177}# + #{s 2178}# + #{mod 2179}# + #{k 2180}#) + (let ((#{tmp 2188}# #{e 2175}#)) + (let ((#{tmp 2189}# ($sc-dispatch - #{tmp 2174}# + #{tmp 2188}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2175}# + (if #{tmp 2189}# (@apply - (lambda (#{id 2180}# - #{val 2181}# - #{e1 2182}# - #{e2 2183}#) + (lambda (#{id 2194}# + #{val 2195}# + #{e1 2196}# + #{e2 2197}#) (begin - (let ((#{ids 2185}# #{id 2180}#)) - (if (not (#{valid-bound-ids? 399}# #{ids 2185}#)) + (let ((#{ids 2199}# #{id 2194}#)) + (if (not (#{valid-bound-ids? 412}# #{ids 2199}#)) (syntax-violation #f "duplicate bound keyword" - #{e 2161}#) + #{e 2175}#) (begin - (let ((#{labels 2188}# - (#{gen-labels 354}# #{ids 2185}#))) + (let ((#{labels 2202}# + (#{gen-labels 364}# #{ids 2199}#))) (begin - (let ((#{new-w 2190}# - (#{make-binding-wrap 383}# - #{ids 2185}# - #{labels 2188}# - #{w 2163}#))) - (#{k 2166}# - (cons #{e1 2182}# #{e2 2183}#) - (#{extend-env 327}# - #{labels 2188}# + (let ((#{new-w 2204}# + (#{make-binding-wrap 396}# + #{ids 2199}# + #{labels 2202}# + #{w 2177}#))) + (#{k 2180}# + (cons #{e1 2196}# #{e2 2197}#) + (#{extend-env 332}# + #{labels 2202}# (begin - (let ((#{w 2194}# - (if #{rec? 2160}# - #{new-w 2190}# - #{w 2163}#)) - (#{trans-r 2195}# - (#{macros-only-env 331}# - #{r 2162}#))) - (map (lambda (#{x 2196}#) + (let ((#{w 2208}# + (if #{rec? 2174}# + #{new-w 2204}# + #{w 2177}#)) + (#{trans-r 2209}# + (#{macros-only-env 336}# + #{r 2176}#))) + (map (lambda (#{x 2210}#) (cons 'macro - (#{eval-local-transformer 431}# - (#{chi 419}# - #{x 2196}# - #{trans-r 2195}# - #{w 2194}# - #{mod 2165}#) - #{mod 2165}#))) - #{val 2181}#))) - #{r 2162}#) - #{new-w 2190}# - #{s 2164}# - #{mod 2165}#))))))))) - #{tmp 2175}#) - (let ((#{_ 2201}# #{tmp 2174}#)) + (#{eval-local-transformer 444}# + (#{chi 432}# + #{x 2210}# + #{trans-r 2209}# + #{w 2208}# + #{mod 2179}#) + #{mod 2179}#))) + #{val 2195}#))) + #{r 2176}#) + #{new-w 2204}# + #{s 2178}# + #{mod 2179}#))))))))) + #{tmp 2189}#) + (let ((#{_ 2215}# #{tmp 2188}#)) (syntax-violation #f "bad local syntax definition" - (#{source-wrap 407}# - #{e 2161}# - #{w 2163}# - #{s 2164}# - #{mod 2165}#)))))))) - (#{eval-local-transformer 431}# - (lambda (#{expanded 2202}# #{mod 2203}#) + (#{source-wrap 420}# + #{e 2175}# + #{w 2177}# + #{s 2178}# + #{mod 2179}#)))))))) + (#{eval-local-transformer 444}# + (lambda (#{expanded 2216}# #{mod 2217}#) (begin - (let ((#{p 2207}# + (let ((#{p 2221}# (#{local-eval-hook 252}# - #{expanded 2202}# - #{mod 2203}#))) - (if (procedure? #{p 2207}#) - #{p 2207}# + #{expanded 2216}# + #{mod 2217}#))) + (if (procedure? #{p 2221}#) + #{p 2221}# (syntax-violation #f "nonprocedure transformer" - #{p 2207}#)))))) - (#{chi-void 433}# - (lambda () (#{build-void 263}# #f))) - (#{ellipsis? 435}# - (lambda (#{x 2209}#) - (if (#{nonsymbol-id? 337}# #{x 2209}#) - (#{free-id=? 395}# - #{x 2209}# + #{p 2221}#)))))) + (#{chi-void 446}# + (lambda () (#{build-void 264}# #f))) + (#{ellipsis? 448}# + (lambda (#{x 2223}#) + (if (#{nonsymbol-id? 342}# #{x 2223}#) + (#{free-id=? 408}# + #{x 2223}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2210")) + #(ribcage #(x) #((top)) #("i2224")) #(ribcage (lambda-var-list gen-var @@ -6597,81 +6597,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -6681,31 +6682,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -6741,249 +6741,249 @@ ("i40" "i39" "i38"))) (hygiene guile))) #f))) - (#{lambda-formals 437}# - (lambda (#{orig-args 2213}#) + (#{lambda-formals 450}# + (lambda (#{orig-args 2227}#) (letrec* - ((#{req 2216}# - (lambda (#{args 2219}# #{rreq 2220}#) - (let ((#{tmp 2223}# #{args 2219}#)) - (let ((#{tmp 2224}# ($sc-dispatch #{tmp 2223}# '()))) - (if #{tmp 2224}# + ((#{req 2230}# + (lambda (#{args 2233}# #{rreq 2234}#) + (let ((#{tmp 2237}# #{args 2233}#)) + (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '()))) + (if #{tmp 2238}# (@apply (lambda () - (#{check 2218}# (reverse #{rreq 2220}#) #f)) - #{tmp 2224}#) - (let ((#{tmp 2225}# - ($sc-dispatch #{tmp 2223}# '(any . any)))) - (if (if #{tmp 2225}# + (#{check 2232}# (reverse #{rreq 2234}#) #f)) + #{tmp 2238}#) + (let ((#{tmp 2239}# + ($sc-dispatch #{tmp 2237}# '(any . any)))) + (if (if #{tmp 2239}# (@apply - (lambda (#{a 2228}# #{b 2229}#) - (#{id? 339}# #{a 2228}#)) - #{tmp 2225}#) + (lambda (#{a 2242}# #{b 2243}#) + (#{id? 344}# #{a 2242}#)) + #{tmp 2239}#) #f) (@apply - (lambda (#{a 2232}# #{b 2233}#) - (#{req 2216}# - #{b 2233}# - (cons #{a 2232}# #{rreq 2220}#))) - #{tmp 2225}#) - (let ((#{tmp 2234}# (list #{tmp 2223}#))) - (if (if #{tmp 2234}# + (lambda (#{a 2246}# #{b 2247}#) + (#{req 2230}# + #{b 2247}# + (cons #{a 2246}# #{rreq 2234}#))) + #{tmp 2239}#) + (let ((#{tmp 2248}# (list #{tmp 2237}#))) + (if (if #{tmp 2248}# (@apply - (lambda (#{r 2236}#) - (#{id? 339}# #{r 2236}#)) - #{tmp 2234}#) + (lambda (#{r 2250}#) + (#{id? 344}# #{r 2250}#)) + #{tmp 2248}#) #f) (@apply - (lambda (#{r 2238}#) - (#{check 2218}# - (reverse #{rreq 2220}#) - #{r 2238}#)) - #{tmp 2234}#) - (let ((#{else 2240}# #{tmp 2223}#)) + (lambda (#{r 2252}#) + (#{check 2232}# + (reverse #{rreq 2234}#) + #{r 2252}#)) + #{tmp 2248}#) + (let ((#{else 2254}# #{tmp 2237}#)) (syntax-violation 'lambda "invalid argument list" - #{orig-args 2213}# - #{args 2219}#))))))))))) - (#{check 2218}# - (lambda (#{req 2241}# #{rest 2242}#) - (if (#{distinct-bound-ids? 401}# - (if #{rest 2242}# - (cons #{rest 2242}# #{req 2241}#) - #{req 2241}#)) - (values #{req 2241}# #f #{rest 2242}# #f) + #{orig-args 2227}# + #{args 2233}#))))))))))) + (#{check 2232}# + (lambda (#{req 2255}# #{rest 2256}#) + (if (#{distinct-bound-ids? 414}# + (if #{rest 2256}# + (cons #{rest 2256}# #{req 2255}#) + #{req 2255}#)) + (values #{req 2255}# #f #{rest 2256}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 2213}#))))) - (begin (#{req 2216}# #{orig-args 2213}# '()))))) - (#{chi-simple-lambda 439}# - (lambda (#{e 2248}# - #{r 2249}# - #{w 2250}# - #{s 2251}# - #{mod 2252}# - #{req 2253}# - #{rest 2254}# - #{meta 2255}# - #{body 2256}#) + #{orig-args 2227}#))))) + (begin (#{req 2230}# #{orig-args 2227}# '()))))) + (#{chi-simple-lambda 452}# + (lambda (#{e 2262}# + #{r 2263}# + #{w 2264}# + #{s 2265}# + #{mod 2266}# + #{req 2267}# + #{rest 2268}# + #{meta 2269}# + #{body 2270}#) (begin - (let ((#{ids 2268}# - (if #{rest 2254}# - (append #{req 2253}# (list #{rest 2254}#)) - #{req 2253}#))) + (let ((#{ids 2282}# + (if #{rest 2268}# + (append #{req 2267}# (list #{rest 2268}#)) + #{req 2267}#))) (begin - (let ((#{vars 2270}# - (map #{gen-var 447}# #{ids 2268}#))) + (let ((#{vars 2284}# + (map #{gen-var 460}# #{ids 2282}#))) (begin - (let ((#{labels 2272}# - (#{gen-labels 354}# #{ids 2268}#))) - (#{build-simple-lambda 283}# - #{s 2251}# - (map syntax->datum #{req 2253}#) - (if #{rest 2254}# - (syntax->datum #{rest 2254}#) + (let ((#{labels 2286}# + (#{gen-labels 364}# #{ids 2282}#))) + (#{build-simple-lambda 284}# + #{s 2265}# + (map syntax->datum #{req 2267}#) + (if #{rest 2268}# + (syntax->datum #{rest 2268}#) #f) - #{vars 2270}# - #{meta 2255}# - (#{chi-body 427}# - #{body 2256}# - (#{source-wrap 407}# - #{e 2248}# - #{w 2250}# - #{s 2251}# - #{mod 2252}#) - (#{extend-var-env 329}# - #{labels 2272}# - #{vars 2270}# - #{r 2249}#) - (#{make-binding-wrap 383}# - #{ids 2268}# - #{labels 2272}# - #{w 2250}#) - #{mod 2252}#)))))))))) - (#{lambda*-formals 441}# - (lambda (#{orig-args 2275}#) + #{vars 2284}# + #{meta 2269}# + (#{chi-body 440}# + #{body 2270}# + (#{source-wrap 420}# + #{e 2262}# + #{w 2264}# + #{s 2265}# + #{mod 2266}#) + (#{extend-var-env 334}# + #{labels 2286}# + #{vars 2284}# + #{r 2263}#) + (#{make-binding-wrap 396}# + #{ids 2282}# + #{labels 2286}# + #{w 2264}#) + #{mod 2266}#)))))))))) + (#{lambda*-formals 454}# + (lambda (#{orig-args 2289}#) (letrec* - ((#{req 2278}# - (lambda (#{args 2287}# #{rreq 2288}#) - (let ((#{tmp 2291}# #{args 2287}#)) - (let ((#{tmp 2292}# ($sc-dispatch #{tmp 2291}# '()))) - (if #{tmp 2292}# + ((#{req 2292}# + (lambda (#{args 2301}# #{rreq 2302}#) + (let ((#{tmp 2305}# #{args 2301}#)) + (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '()))) + (if #{tmp 2306}# (@apply (lambda () - (#{check 2286}# - (reverse #{rreq 2288}#) + (#{check 2300}# + (reverse #{rreq 2302}#) '() #f '())) - #{tmp 2292}#) - (let ((#{tmp 2293}# - ($sc-dispatch #{tmp 2291}# '(any . any)))) - (if (if #{tmp 2293}# + #{tmp 2306}#) + (let ((#{tmp 2307}# + ($sc-dispatch #{tmp 2305}# '(any . any)))) + (if (if #{tmp 2307}# (@apply - (lambda (#{a 2296}# #{b 2297}#) - (#{id? 339}# #{a 2296}#)) - #{tmp 2293}#) + (lambda (#{a 2310}# #{b 2311}#) + (#{id? 344}# #{a 2310}#)) + #{tmp 2307}#) #f) (@apply - (lambda (#{a 2300}# #{b 2301}#) - (#{req 2278}# - #{b 2301}# - (cons #{a 2300}# #{rreq 2288}#))) - #{tmp 2293}#) - (let ((#{tmp 2302}# - ($sc-dispatch #{tmp 2291}# '(any . any)))) - (if (if #{tmp 2302}# + (lambda (#{a 2314}# #{b 2315}#) + (#{req 2292}# + #{b 2315}# + (cons #{a 2314}# #{rreq 2302}#))) + #{tmp 2307}#) + (let ((#{tmp 2316}# + ($sc-dispatch #{tmp 2305}# '(any . any)))) + (if (if #{tmp 2316}# (@apply - (lambda (#{a 2305}# #{b 2306}#) - (eq? (syntax->datum #{a 2305}#) + (lambda (#{a 2319}# #{b 2320}#) + (eq? (syntax->datum #{a 2319}#) #:optional)) - #{tmp 2302}#) + #{tmp 2316}#) #f) (@apply - (lambda (#{a 2309}# #{b 2310}#) - (#{opt 2280}# - #{b 2310}# - (reverse #{rreq 2288}#) + (lambda (#{a 2323}# #{b 2324}#) + (#{opt 2294}# + #{b 2324}# + (reverse #{rreq 2302}#) '())) - #{tmp 2302}#) - (let ((#{tmp 2311}# - ($sc-dispatch #{tmp 2291}# '(any . any)))) - (if (if #{tmp 2311}# + #{tmp 2316}#) + (let ((#{tmp 2325}# + ($sc-dispatch #{tmp 2305}# '(any . any)))) + (if (if #{tmp 2325}# (@apply - (lambda (#{a 2314}# #{b 2315}#) - (eq? (syntax->datum #{a 2314}#) #:key)) - #{tmp 2311}#) + (lambda (#{a 2328}# #{b 2329}#) + (eq? (syntax->datum #{a 2328}#) #:key)) + #{tmp 2325}#) #f) (@apply - (lambda (#{a 2318}# #{b 2319}#) - (#{key 2282}# - #{b 2319}# - (reverse #{rreq 2288}#) + (lambda (#{a 2332}# #{b 2333}#) + (#{key 2296}# + #{b 2333}# + (reverse #{rreq 2302}#) '() '())) - #{tmp 2311}#) - (let ((#{tmp 2320}# + #{tmp 2325}#) + (let ((#{tmp 2334}# ($sc-dispatch - #{tmp 2291}# + #{tmp 2305}# '(any any)))) - (if (if #{tmp 2320}# + (if (if #{tmp 2334}# (@apply - (lambda (#{a 2323}# #{b 2324}#) - (eq? (syntax->datum #{a 2323}#) + (lambda (#{a 2337}# #{b 2338}#) + (eq? (syntax->datum #{a 2337}#) #:rest)) - #{tmp 2320}#) + #{tmp 2334}#) #f) (@apply - (lambda (#{a 2327}# #{b 2328}#) - (#{rest 2284}# - #{b 2328}# - (reverse #{rreq 2288}#) + (lambda (#{a 2341}# #{b 2342}#) + (#{rest 2298}# + #{b 2342}# + (reverse #{rreq 2302}#) '() '())) - #{tmp 2320}#) - (let ((#{tmp 2329}# (list #{tmp 2291}#))) - (if (if #{tmp 2329}# + #{tmp 2334}#) + (let ((#{tmp 2343}# (list #{tmp 2305}#))) + (if (if #{tmp 2343}# (@apply - (lambda (#{r 2331}#) - (#{id? 339}# #{r 2331}#)) - #{tmp 2329}#) + (lambda (#{r 2345}#) + (#{id? 344}# #{r 2345}#)) + #{tmp 2343}#) #f) (@apply - (lambda (#{r 2333}#) - (#{rest 2284}# - #{r 2333}# - (reverse #{rreq 2288}#) + (lambda (#{r 2347}#) + (#{rest 2298}# + #{r 2347}# + (reverse #{rreq 2302}#) '() '())) - #{tmp 2329}#) - (let ((#{else 2335}# #{tmp 2291}#)) + #{tmp 2343}#) + (let ((#{else 2349}# #{tmp 2305}#)) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 2275}# - #{args 2287}#))))))))))))))))) - (#{opt 2280}# - (lambda (#{args 2336}# #{req 2337}# #{ropt 2338}#) - (let ((#{tmp 2342}# #{args 2336}#)) - (let ((#{tmp 2343}# ($sc-dispatch #{tmp 2342}# '()))) - (if #{tmp 2343}# + #{orig-args 2289}# + #{args 2301}#))))))))))))))))) + (#{opt 2294}# + (lambda (#{args 2350}# #{req 2351}# #{ropt 2352}#) + (let ((#{tmp 2356}# #{args 2350}#)) + (let ((#{tmp 2357}# ($sc-dispatch #{tmp 2356}# '()))) + (if #{tmp 2357}# (@apply (lambda () - (#{check 2286}# - #{req 2337}# - (reverse #{ropt 2338}#) + (#{check 2300}# + #{req 2351}# + (reverse #{ropt 2352}#) #f '())) - #{tmp 2343}#) - (let ((#{tmp 2344}# - ($sc-dispatch #{tmp 2342}# '(any . any)))) - (if (if #{tmp 2344}# + #{tmp 2357}#) + (let ((#{tmp 2358}# + ($sc-dispatch #{tmp 2356}# '(any . any)))) + (if (if #{tmp 2358}# (@apply - (lambda (#{a 2347}# #{b 2348}#) - (#{id? 339}# #{a 2347}#)) - #{tmp 2344}#) + (lambda (#{a 2361}# #{b 2362}#) + (#{id? 344}# #{a 2361}#)) + #{tmp 2358}#) #f) (@apply - (lambda (#{a 2351}# #{b 2352}#) - (#{opt 2280}# - #{b 2352}# - #{req 2337}# - (cons (cons #{a 2351}# + (lambda (#{a 2365}# #{b 2366}#) + (#{opt 2294}# + #{b 2366}# + #{req 2351}# + (cons (cons #{a 2365}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("i2349" "i2350")) + #("i2363" "i2364")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("i2339" "i2340" "i2341")) + #("i2353" "i2354" "i2355")) #(ribcage (check rest key opt req) ((top) @@ -6991,15 +6991,15 @@ (top) (top) (top)) - ("i2285" - "i2283" - "i2281" - "i2279" - "i2277")) + ("i2299" + "i2297" + "i2295" + "i2293" + "i2291")) #(ribcage #(orig-args) #((top)) - #("i2276")) + #("i2290")) #(ribcage (lambda-var-list gen-var @@ -7273,81 +7273,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -7357,31 +7358,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -7416,118 +7416,118 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile)))) - #{ropt 2338}#))) - #{tmp 2344}#) - (let ((#{tmp 2353}# + #{ropt 2352}#))) + #{tmp 2358}#) + (let ((#{tmp 2367}# ($sc-dispatch - #{tmp 2342}# + #{tmp 2356}# '((any any) . any)))) - (if (if #{tmp 2353}# + (if (if #{tmp 2367}# (@apply - (lambda (#{a 2357}# #{init 2358}# #{b 2359}#) - (#{id? 339}# #{a 2357}#)) - #{tmp 2353}#) + (lambda (#{a 2371}# #{init 2372}# #{b 2373}#) + (#{id? 344}# #{a 2371}#)) + #{tmp 2367}#) #f) (@apply - (lambda (#{a 2363}# #{init 2364}# #{b 2365}#) - (#{opt 2280}# - #{b 2365}# - #{req 2337}# - (cons (list #{a 2363}# #{init 2364}#) - #{ropt 2338}#))) - #{tmp 2353}#) - (let ((#{tmp 2366}# - ($sc-dispatch #{tmp 2342}# '(any . any)))) - (if (if #{tmp 2366}# + (lambda (#{a 2377}# #{init 2378}# #{b 2379}#) + (#{opt 2294}# + #{b 2379}# + #{req 2351}# + (cons (list #{a 2377}# #{init 2378}#) + #{ropt 2352}#))) + #{tmp 2367}#) + (let ((#{tmp 2380}# + ($sc-dispatch #{tmp 2356}# '(any . any)))) + (if (if #{tmp 2380}# (@apply - (lambda (#{a 2369}# #{b 2370}#) - (eq? (syntax->datum #{a 2369}#) #:key)) - #{tmp 2366}#) + (lambda (#{a 2383}# #{b 2384}#) + (eq? (syntax->datum #{a 2383}#) #:key)) + #{tmp 2380}#) #f) (@apply - (lambda (#{a 2373}# #{b 2374}#) - (#{key 2282}# - #{b 2374}# - #{req 2337}# - (reverse #{ropt 2338}#) + (lambda (#{a 2387}# #{b 2388}#) + (#{key 2296}# + #{b 2388}# + #{req 2351}# + (reverse #{ropt 2352}#) '())) - #{tmp 2366}#) - (let ((#{tmp 2375}# + #{tmp 2380}#) + (let ((#{tmp 2389}# ($sc-dispatch - #{tmp 2342}# + #{tmp 2356}# '(any any)))) - (if (if #{tmp 2375}# + (if (if #{tmp 2389}# (@apply - (lambda (#{a 2378}# #{b 2379}#) - (eq? (syntax->datum #{a 2378}#) + (lambda (#{a 2392}# #{b 2393}#) + (eq? (syntax->datum #{a 2392}#) #:rest)) - #{tmp 2375}#) + #{tmp 2389}#) #f) (@apply - (lambda (#{a 2382}# #{b 2383}#) - (#{rest 2284}# - #{b 2383}# - #{req 2337}# - (reverse #{ropt 2338}#) + (lambda (#{a 2396}# #{b 2397}#) + (#{rest 2298}# + #{b 2397}# + #{req 2351}# + (reverse #{ropt 2352}#) '())) - #{tmp 2375}#) - (let ((#{tmp 2384}# (list #{tmp 2342}#))) - (if (if #{tmp 2384}# + #{tmp 2389}#) + (let ((#{tmp 2398}# (list #{tmp 2356}#))) + (if (if #{tmp 2398}# (@apply - (lambda (#{r 2386}#) - (#{id? 339}# #{r 2386}#)) - #{tmp 2384}#) + (lambda (#{r 2400}#) + (#{id? 344}# #{r 2400}#)) + #{tmp 2398}#) #f) (@apply - (lambda (#{r 2388}#) - (#{rest 2284}# - #{r 2388}# - #{req 2337}# - (reverse #{ropt 2338}#) + (lambda (#{r 2402}#) + (#{rest 2298}# + #{r 2402}# + #{req 2351}# + (reverse #{ropt 2352}#) '())) - #{tmp 2384}#) - (let ((#{else 2390}# #{tmp 2342}#)) + #{tmp 2398}#) + (let ((#{else 2404}# #{tmp 2356}#)) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 2275}# - #{args 2336}#))))))))))))))))) - (#{key 2282}# - (lambda (#{args 2391}# - #{req 2392}# - #{opt 2393}# - #{rkey 2394}#) - (let ((#{tmp 2399}# #{args 2391}#)) - (let ((#{tmp 2400}# ($sc-dispatch #{tmp 2399}# '()))) - (if #{tmp 2400}# + #{orig-args 2289}# + #{args 2350}#))))))))))))))))) + (#{key 2296}# + (lambda (#{args 2405}# + #{req 2406}# + #{opt 2407}# + #{rkey 2408}#) + (let ((#{tmp 2413}# #{args 2405}#)) + (let ((#{tmp 2414}# ($sc-dispatch #{tmp 2413}# '()))) + (if #{tmp 2414}# (@apply (lambda () - (#{check 2286}# - #{req 2392}# - #{opt 2393}# + (#{check 2300}# + #{req 2406}# + #{opt 2407}# #f - (cons #f (reverse #{rkey 2394}#)))) - #{tmp 2400}#) - (let ((#{tmp 2401}# - ($sc-dispatch #{tmp 2399}# '(any . any)))) - (if (if #{tmp 2401}# + (cons #f (reverse #{rkey 2408}#)))) + #{tmp 2414}#) + (let ((#{tmp 2415}# + ($sc-dispatch #{tmp 2413}# '(any . any)))) + (if (if #{tmp 2415}# (@apply - (lambda (#{a 2404}# #{b 2405}#) - (#{id? 339}# #{a 2404}#)) - #{tmp 2401}#) + (lambda (#{a 2418}# #{b 2419}#) + (#{id? 344}# #{a 2418}#)) + #{tmp 2415}#) #f) (@apply - (lambda (#{a 2408}# #{b 2409}#) - (let ((#{tmp 2411}# + (lambda (#{a 2422}# #{b 2423}#) + (let ((#{tmp 2425}# (symbol->keyword - (syntax->datum #{a 2408}#)))) - (let ((#{k 2413}# #{tmp 2411}#)) - (#{key 2282}# - #{b 2409}# - #{req 2392}# - #{opt 2393}# - (cons (cons #{k 2413}# - (cons #{a 2408}# + (syntax->datum #{a 2422}#)))) + (let ((#{k 2427}# #{tmp 2425}#)) + (#{key 2296}# + #{b 2423}# + #{req 2406}# + #{opt 2407}# + (cons (cons #{k 2427}# + (cons #{a 2422}# '(#(syntax-object #f ((top) @@ -7535,11 +7535,11 @@ #(ribcage #(k) #((top)) - #("i2412")) + #("i2426")) #(ribcage #(a b) #((top) (top)) - #("i2406" "i2407")) + #("i2420" "i2421")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7547,10 +7547,10 @@ (top) (top) (top)) - #("i2395" - "i2396" - "i2397" - "i2398")) + #("i2409" + "i2410" + "i2411" + "i2412")) #(ribcage (check rest key @@ -7561,15 +7561,15 @@ (top) (top) (top)) - ("i2285" - "i2283" - "i2281" - "i2279" - "i2277")) + ("i2299" + "i2297" + "i2295" + "i2293" + "i2291")) #(ribcage #(orig-args) #((top)) - #("i2276")) + #("i2290")) #(ribcage (lambda-var-list gen-var @@ -7843,81 +7843,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -7927,31 +7928,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -7988,1935 +7988,1935 @@ "i39" "i38"))) (hygiene guile))))) - #{rkey 2394}#))))) - #{tmp 2401}#) - (let ((#{tmp 2414}# + #{rkey 2408}#))))) + #{tmp 2415}#) + (let ((#{tmp 2428}# ($sc-dispatch - #{tmp 2399}# + #{tmp 2413}# '((any any) . any)))) - (if (if #{tmp 2414}# + (if (if #{tmp 2428}# (@apply - (lambda (#{a 2418}# #{init 2419}# #{b 2420}#) - (#{id? 339}# #{a 2418}#)) - #{tmp 2414}#) + (lambda (#{a 2432}# #{init 2433}# #{b 2434}#) + (#{id? 344}# #{a 2432}#)) + #{tmp 2428}#) #f) (@apply - (lambda (#{a 2424}# #{init 2425}# #{b 2426}#) - (let ((#{tmp 2428}# + (lambda (#{a 2438}# #{init 2439}# #{b 2440}#) + (let ((#{tmp 2442}# (symbol->keyword - (syntax->datum #{a 2424}#)))) - (let ((#{k 2430}# #{tmp 2428}#)) - (#{key 2282}# - #{b 2426}# - #{req 2392}# - #{opt 2393}# - (cons (list #{k 2430}# - #{a 2424}# - #{init 2425}#) - #{rkey 2394}#))))) - #{tmp 2414}#) - (let ((#{tmp 2431}# + (syntax->datum #{a 2438}#)))) + (let ((#{k 2444}# #{tmp 2442}#)) + (#{key 2296}# + #{b 2440}# + #{req 2406}# + #{opt 2407}# + (cons (list #{k 2444}# + #{a 2438}# + #{init 2439}#) + #{rkey 2408}#))))) + #{tmp 2428}#) + (let ((#{tmp 2445}# ($sc-dispatch - #{tmp 2399}# + #{tmp 2413}# '((any any any) . any)))) - (if (if #{tmp 2431}# + (if (if #{tmp 2445}# (@apply - (lambda (#{a 2436}# - #{init 2437}# - #{k 2438}# - #{b 2439}#) - (if (#{id? 339}# #{a 2436}#) - (keyword? (syntax->datum #{k 2438}#)) + (lambda (#{a 2450}# + #{init 2451}# + #{k 2452}# + #{b 2453}#) + (if (#{id? 344}# #{a 2450}#) + (keyword? (syntax->datum #{k 2452}#)) #f)) - #{tmp 2431}#) + #{tmp 2445}#) #f) (@apply - (lambda (#{a 2446}# - #{init 2447}# - #{k 2448}# - #{b 2449}#) - (#{key 2282}# - #{b 2449}# - #{req 2392}# - #{opt 2393}# - (cons (list #{k 2448}# - #{a 2446}# - #{init 2447}#) - #{rkey 2394}#))) - #{tmp 2431}#) - (let ((#{tmp 2450}# - ($sc-dispatch #{tmp 2399}# '(any)))) - (if (if #{tmp 2450}# + (lambda (#{a 2460}# + #{init 2461}# + #{k 2462}# + #{b 2463}#) + (#{key 2296}# + #{b 2463}# + #{req 2406}# + #{opt 2407}# + (cons (list #{k 2462}# + #{a 2460}# + #{init 2461}#) + #{rkey 2408}#))) + #{tmp 2445}#) + (let ((#{tmp 2464}# + ($sc-dispatch #{tmp 2413}# '(any)))) + (if (if #{tmp 2464}# (@apply - (lambda (#{aok 2452}#) - (eq? (syntax->datum #{aok 2452}#) + (lambda (#{aok 2466}#) + (eq? (syntax->datum #{aok 2466}#) #:allow-other-keys)) - #{tmp 2450}#) + #{tmp 2464}#) #f) (@apply - (lambda (#{aok 2454}#) - (#{check 2286}# - #{req 2392}# - #{opt 2393}# + (lambda (#{aok 2468}#) + (#{check 2300}# + #{req 2406}# + #{opt 2407}# #f - (cons #t (reverse #{rkey 2394}#)))) - #{tmp 2450}#) - (let ((#{tmp 2455}# + (cons #t (reverse #{rkey 2408}#)))) + #{tmp 2464}#) + (let ((#{tmp 2469}# ($sc-dispatch - #{tmp 2399}# + #{tmp 2413}# '(any any any)))) - (if (if #{tmp 2455}# + (if (if #{tmp 2469}# (@apply - (lambda (#{aok 2459}# - #{a 2460}# - #{b 2461}#) + (lambda (#{aok 2473}# + #{a 2474}# + #{b 2475}#) (if (eq? (syntax->datum - #{aok 2459}#) + #{aok 2473}#) #:allow-other-keys) (eq? (syntax->datum - #{a 2460}#) + #{a 2474}#) #:rest) #f)) - #{tmp 2455}#) + #{tmp 2469}#) #f) (@apply - (lambda (#{aok 2467}# - #{a 2468}# - #{b 2469}#) - (#{rest 2284}# - #{b 2469}# - #{req 2392}# - #{opt 2393}# + (lambda (#{aok 2481}# + #{a 2482}# + #{b 2483}#) + (#{rest 2298}# + #{b 2483}# + #{req 2406}# + #{opt 2407}# (cons #t - (reverse #{rkey 2394}#)))) - #{tmp 2455}#) - (let ((#{tmp 2470}# + (reverse #{rkey 2408}#)))) + #{tmp 2469}#) + (let ((#{tmp 2484}# ($sc-dispatch - #{tmp 2399}# + #{tmp 2413}# '(any . any)))) - (if (if #{tmp 2470}# + (if (if #{tmp 2484}# (@apply - (lambda (#{aok 2473}# - #{r 2474}#) + (lambda (#{aok 2487}# + #{r 2488}#) (if (eq? (syntax->datum - #{aok 2473}#) + #{aok 2487}#) #:allow-other-keys) - (#{id? 339}# #{r 2474}#) + (#{id? 344}# #{r 2488}#) #f)) - #{tmp 2470}#) + #{tmp 2484}#) #f) (@apply - (lambda (#{aok 2479}# #{r 2480}#) - (#{rest 2284}# - #{r 2480}# - #{req 2392}# - #{opt 2393}# + (lambda (#{aok 2493}# #{r 2494}#) + (#{rest 2298}# + #{r 2494}# + #{req 2406}# + #{opt 2407}# (cons #t (reverse - #{rkey 2394}#)))) - #{tmp 2470}#) - (let ((#{tmp 2481}# + #{rkey 2408}#)))) + #{tmp 2484}#) + (let ((#{tmp 2495}# ($sc-dispatch - #{tmp 2399}# + #{tmp 2413}# '(any any)))) - (if (if #{tmp 2481}# + (if (if #{tmp 2495}# (@apply - (lambda (#{a 2484}# - #{b 2485}#) + (lambda (#{a 2498}# + #{b 2499}#) (eq? (syntax->datum - #{a 2484}#) + #{a 2498}#) #:rest)) - #{tmp 2481}#) + #{tmp 2495}#) #f) (@apply - (lambda (#{a 2488}# - #{b 2489}#) - (#{rest 2284}# - #{b 2489}# - #{req 2392}# - #{opt 2393}# + (lambda (#{a 2502}# + #{b 2503}#) + (#{rest 2298}# + #{b 2503}# + #{req 2406}# + #{opt 2407}# (cons #f (reverse - #{rkey 2394}#)))) - #{tmp 2481}#) - (let ((#{tmp 2490}# - (list #{tmp 2399}#))) - (if (if #{tmp 2490}# + #{rkey 2408}#)))) + #{tmp 2495}#) + (let ((#{tmp 2504}# + (list #{tmp 2413}#))) + (if (if #{tmp 2504}# (@apply - (lambda (#{r 2492}#) - (#{id? 339}# - #{r 2492}#)) - #{tmp 2490}#) + (lambda (#{r 2506}#) + (#{id? 344}# + #{r 2506}#)) + #{tmp 2504}#) #f) (@apply - (lambda (#{r 2494}#) - (#{rest 2284}# - #{r 2494}# - #{req 2392}# - #{opt 2393}# + (lambda (#{r 2508}#) + (#{rest 2298}# + #{r 2508}# + #{req 2406}# + #{opt 2407}# (cons #f (reverse - #{rkey 2394}#)))) - #{tmp 2490}#) - (let ((#{else 2496}# - #{tmp 2399}#)) + #{rkey 2408}#)))) + #{tmp 2504}#) + (let ((#{else 2510}# + #{tmp 2413}#)) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 2275}# - #{args 2391}#))))))))))))))))))))))) - (#{rest 2284}# - (lambda (#{args 2497}# - #{req 2498}# - #{opt 2499}# - #{kw 2500}#) - (let ((#{tmp 2505}# #{args 2497}#)) - (let ((#{tmp 2506}# (list #{tmp 2505}#))) - (if (if #{tmp 2506}# + #{orig-args 2289}# + #{args 2405}#))))))))))))))))))))))) + (#{rest 2298}# + (lambda (#{args 2511}# + #{req 2512}# + #{opt 2513}# + #{kw 2514}#) + (let ((#{tmp 2519}# #{args 2511}#)) + (let ((#{tmp 2520}# (list #{tmp 2519}#))) + (if (if #{tmp 2520}# (@apply - (lambda (#{r 2508}#) (#{id? 339}# #{r 2508}#)) - #{tmp 2506}#) + (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#)) + #{tmp 2520}#) #f) (@apply - (lambda (#{r 2510}#) - (#{check 2286}# - #{req 2498}# - #{opt 2499}# - #{r 2510}# - #{kw 2500}#)) - #{tmp 2506}#) - (let ((#{else 2512}# #{tmp 2505}#)) + (lambda (#{r 2524}#) + (#{check 2300}# + #{req 2512}# + #{opt 2513}# + #{r 2524}# + #{kw 2514}#)) + #{tmp 2520}#) + (let ((#{else 2526}# #{tmp 2519}#)) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 2275}# - #{args 2497}#))))))) - (#{check 2286}# - (lambda (#{req 2513}# - #{opt 2514}# - #{rest 2515}# - #{kw 2516}#) - (if (#{distinct-bound-ids? 401}# + #{orig-args 2289}# + #{args 2511}#))))))) + (#{check 2300}# + (lambda (#{req 2527}# + #{opt 2528}# + #{rest 2529}# + #{kw 2530}#) + (if (#{distinct-bound-ids? 414}# (append - #{req 2513}# - (map car #{opt 2514}#) - (if #{rest 2515}# (list #{rest 2515}#) '()) - (if (pair? #{kw 2516}#) - (map cadr (cdr #{kw 2516}#)) + #{req 2527}# + (map car #{opt 2528}#) + (if #{rest 2529}# (list #{rest 2529}#) '()) + (if (pair? #{kw 2530}#) + (map cadr (cdr #{kw 2530}#)) '()))) (values - #{req 2513}# - #{opt 2514}# - #{rest 2515}# - #{kw 2516}#) + #{req 2527}# + #{opt 2528}# + #{rest 2529}# + #{kw 2530}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 2275}#))))) - (begin (#{req 2278}# #{orig-args 2275}# '()))))) - (#{chi-lambda-case 443}# - (lambda (#{e 2524}# - #{r 2525}# - #{w 2526}# - #{s 2527}# - #{mod 2528}# - #{get-formals 2529}# - #{clauses 2530}#) + #{orig-args 2289}#))))) + (begin (#{req 2292}# #{orig-args 2289}# '()))))) + (#{chi-lambda-case 456}# + (lambda (#{e 2538}# + #{r 2539}# + #{w 2540}# + #{s 2541}# + #{mod 2542}# + #{get-formals 2543}# + #{clauses 2544}#) (letrec* - ((#{expand-req 2539}# - (lambda (#{req 2546}# - #{opt 2547}# - #{rest 2548}# - #{kw 2549}# - #{body 2550}#) + ((#{expand-req 2553}# + (lambda (#{req 2560}# + #{opt 2561}# + #{rest 2562}# + #{kw 2563}# + #{body 2564}#) (begin - (let ((#{vars 2558}# - (map #{gen-var 447}# #{req 2546}#)) - (#{labels 2559}# - (#{gen-labels 354}# #{req 2546}#))) + (let ((#{vars 2572}# + (map #{gen-var 460}# #{req 2560}#)) + (#{labels 2573}# + (#{gen-labels 364}# #{req 2560}#))) (begin - (let ((#{r* 2562}# - (#{extend-var-env 329}# - #{labels 2559}# - #{vars 2558}# - #{r 2525}#)) - (#{w* 2563}# - (#{make-binding-wrap 383}# - #{req 2546}# - #{labels 2559}# - #{w 2526}#))) - (#{expand-opt 2541}# - (map syntax->datum #{req 2546}#) - #{opt 2547}# - #{rest 2548}# - #{kw 2549}# - #{body 2550}# - (reverse #{vars 2558}#) - #{r* 2562}# - #{w* 2563}# + (let ((#{r* 2576}# + (#{extend-var-env 334}# + #{labels 2573}# + #{vars 2572}# + #{r 2539}#)) + (#{w* 2577}# + (#{make-binding-wrap 396}# + #{req 2560}# + #{labels 2573}# + #{w 2540}#))) + (#{expand-opt 2555}# + (map syntax->datum #{req 2560}#) + #{opt 2561}# + #{rest 2562}# + #{kw 2563}# + #{body 2564}# + (reverse #{vars 2572}#) + #{r* 2576}# + #{w* 2577}# '() '()))))))) - (#{expand-opt 2541}# - (lambda (#{req 2564}# - #{opt 2565}# - #{rest 2566}# - #{kw 2567}# - #{body 2568}# - #{vars 2569}# - #{r* 2570}# - #{w* 2571}# - #{out 2572}# - #{inits 2573}#) - (if (pair? #{opt 2565}#) - (let ((#{tmp 2586}# (car #{opt 2565}#))) - (let ((#{tmp 2587}# - ($sc-dispatch #{tmp 2586}# '(any any)))) - (if #{tmp 2587}# + (#{expand-opt 2555}# + (lambda (#{req 2578}# + #{opt 2579}# + #{rest 2580}# + #{kw 2581}# + #{body 2582}# + #{vars 2583}# + #{r* 2584}# + #{w* 2585}# + #{out 2586}# + #{inits 2587}#) + (if (pair? #{opt 2579}#) + (let ((#{tmp 2600}# (car #{opt 2579}#))) + (let ((#{tmp 2601}# + ($sc-dispatch #{tmp 2600}# '(any any)))) + (if #{tmp 2601}# (@apply - (lambda (#{id 2590}# #{i 2591}#) + (lambda (#{id 2604}# #{i 2605}#) (begin - (let ((#{v 2594}# (#{gen-var 447}# #{id 2590}#))) + (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#))) (begin - (let ((#{l 2596}# - (#{gen-labels 354}# - (list #{v 2594}#)))) + (let ((#{l 2610}# + (#{gen-labels 364}# + (list #{v 2608}#)))) (begin - (let ((#{r** 2598}# - (#{extend-var-env 329}# - #{l 2596}# - (list #{v 2594}#) - #{r* 2570}#))) + (let ((#{r** 2612}# + (#{extend-var-env 334}# + #{l 2610}# + (list #{v 2608}#) + #{r* 2584}#))) (begin - (let ((#{w** 2600}# - (#{make-binding-wrap 383}# - (list #{id 2590}#) - #{l 2596}# - #{w* 2571}#))) - (#{expand-opt 2541}# - #{req 2564}# - (cdr #{opt 2565}#) - #{rest 2566}# - #{kw 2567}# - #{body 2568}# - (cons #{v 2594}# #{vars 2569}#) - #{r** 2598}# - #{w** 2600}# - (cons (syntax->datum #{id 2590}#) - #{out 2572}#) - (cons (#{chi 419}# - #{i 2591}# - #{r* 2570}# - #{w* 2571}# - #{mod 2528}#) - #{inits 2573}#))))))))))) - #{tmp 2587}#) + (let ((#{w** 2614}# + (#{make-binding-wrap 396}# + (list #{id 2604}#) + #{l 2610}# + #{w* 2585}#))) + (#{expand-opt 2555}# + #{req 2578}# + (cdr #{opt 2579}#) + #{rest 2580}# + #{kw 2581}# + #{body 2582}# + (cons #{v 2608}# #{vars 2583}#) + #{r** 2612}# + #{w** 2614}# + (cons (syntax->datum #{id 2604}#) + #{out 2586}#) + (cons (#{chi 432}# + #{i 2605}# + #{r* 2584}# + #{w* 2585}# + #{mod 2542}#) + #{inits 2587}#))))))))))) + #{tmp 2601}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2586}#)))) - (if #{rest 2566}# + #{tmp 2600}#)))) + (if #{rest 2580}# (begin - (let ((#{v 2605}# (#{gen-var 447}# #{rest 2566}#))) + (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#))) (begin - (let ((#{l 2607}# - (#{gen-labels 354}# (list #{v 2605}#)))) + (let ((#{l 2621}# + (#{gen-labels 364}# (list #{v 2619}#)))) (begin - (let ((#{r* 2609}# - (#{extend-var-env 329}# - #{l 2607}# - (list #{v 2605}#) - #{r* 2570}#))) + (let ((#{r* 2623}# + (#{extend-var-env 334}# + #{l 2621}# + (list #{v 2619}#) + #{r* 2584}#))) (begin - (let ((#{w* 2611}# - (#{make-binding-wrap 383}# - (list #{rest 2566}#) - #{l 2607}# - #{w* 2571}#))) - (#{expand-kw 2543}# - #{req 2564}# - (if (pair? #{out 2572}#) - (reverse #{out 2572}#) + (let ((#{w* 2625}# + (#{make-binding-wrap 396}# + (list #{rest 2580}#) + #{l 2621}# + #{w* 2585}#))) + (#{expand-kw 2557}# + #{req 2578}# + (if (pair? #{out 2586}#) + (reverse #{out 2586}#) #f) - (syntax->datum #{rest 2566}#) - (if (pair? #{kw 2567}#) - (cdr #{kw 2567}#) - #{kw 2567}#) - #{body 2568}# - (cons #{v 2605}# #{vars 2569}#) - #{r* 2609}# - #{w* 2611}# - (if (pair? #{kw 2567}#) - (car #{kw 2567}#) + (syntax->datum #{rest 2580}#) + (if (pair? #{kw 2581}#) + (cdr #{kw 2581}#) + #{kw 2581}#) + #{body 2582}# + (cons #{v 2619}# #{vars 2583}#) + #{r* 2623}# + #{w* 2625}# + (if (pair? #{kw 2581}#) + (car #{kw 2581}#) #f) '() - #{inits 2573}#))))))))) - (#{expand-kw 2543}# - #{req 2564}# - (if (pair? #{out 2572}#) - (reverse #{out 2572}#) + #{inits 2587}#))))))))) + (#{expand-kw 2557}# + #{req 2578}# + (if (pair? #{out 2586}#) + (reverse #{out 2586}#) #f) #f - (if (pair? #{kw 2567}#) - (cdr #{kw 2567}#) - #{kw 2567}#) - #{body 2568}# - #{vars 2569}# - #{r* 2570}# - #{w* 2571}# - (if (pair? #{kw 2567}#) (car #{kw 2567}#) #f) + (if (pair? #{kw 2581}#) + (cdr #{kw 2581}#) + #{kw 2581}#) + #{body 2582}# + #{vars 2583}# + #{r* 2584}# + #{w* 2585}# + (if (pair? #{kw 2581}#) (car #{kw 2581}#) #f) '() - #{inits 2573}#))))) - (#{expand-kw 2543}# - (lambda (#{req 2613}# - #{opt 2614}# - #{rest 2615}# - #{kw 2616}# - #{body 2617}# - #{vars 2618}# - #{r* 2619}# - #{w* 2620}# - #{aok 2621}# - #{out 2622}# - #{inits 2623}#) - (if (pair? #{kw 2616}#) - (let ((#{tmp 2637}# (car #{kw 2616}#))) - (let ((#{tmp 2638}# - ($sc-dispatch #{tmp 2637}# '(any any any)))) - (if #{tmp 2638}# + #{inits 2587}#))))) + (#{expand-kw 2557}# + (lambda (#{req 2627}# + #{opt 2628}# + #{rest 2629}# + #{kw 2630}# + #{body 2631}# + #{vars 2632}# + #{r* 2633}# + #{w* 2634}# + #{aok 2635}# + #{out 2636}# + #{inits 2637}#) + (if (pair? #{kw 2630}#) + (let ((#{tmp 2651}# (car #{kw 2630}#))) + (let ((#{tmp 2652}# + ($sc-dispatch #{tmp 2651}# '(any any any)))) + (if #{tmp 2652}# (@apply - (lambda (#{k 2642}# #{id 2643}# #{i 2644}#) + (lambda (#{k 2656}# #{id 2657}# #{i 2658}#) (begin - (let ((#{v 2647}# (#{gen-var 447}# #{id 2643}#))) + (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#))) (begin - (let ((#{l 2649}# - (#{gen-labels 354}# - (list #{v 2647}#)))) + (let ((#{l 2663}# + (#{gen-labels 364}# + (list #{v 2661}#)))) (begin - (let ((#{r** 2651}# - (#{extend-var-env 329}# - #{l 2649}# - (list #{v 2647}#) - #{r* 2619}#))) + (let ((#{r** 2665}# + (#{extend-var-env 334}# + #{l 2663}# + (list #{v 2661}#) + #{r* 2633}#))) (begin - (let ((#{w** 2653}# - (#{make-binding-wrap 383}# - (list #{id 2643}#) - #{l 2649}# - #{w* 2620}#))) - (#{expand-kw 2543}# - #{req 2613}# - #{opt 2614}# - #{rest 2615}# - (cdr #{kw 2616}#) - #{body 2617}# - (cons #{v 2647}# #{vars 2618}#) - #{r** 2651}# - #{w** 2653}# - #{aok 2621}# + (let ((#{w** 2667}# + (#{make-binding-wrap 396}# + (list #{id 2657}#) + #{l 2663}# + #{w* 2634}#))) + (#{expand-kw 2557}# + #{req 2627}# + #{opt 2628}# + #{rest 2629}# + (cdr #{kw 2630}#) + #{body 2631}# + (cons #{v 2661}# #{vars 2632}#) + #{r** 2665}# + #{w** 2667}# + #{aok 2635}# (cons (list (syntax->datum - #{k 2642}#) + #{k 2656}#) (syntax->datum - #{id 2643}#) - #{v 2647}#) - #{out 2622}#) - (cons (#{chi 419}# - #{i 2644}# - #{r* 2619}# - #{w* 2620}# - #{mod 2528}#) - #{inits 2623}#))))))))))) - #{tmp 2638}#) + #{id 2657}#) + #{v 2661}#) + #{out 2636}#) + (cons (#{chi 432}# + #{i 2658}# + #{r* 2633}# + #{w* 2634}# + #{mod 2542}#) + #{inits 2637}#))))))))))) + #{tmp 2652}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2637}#)))) - (#{expand-body 2545}# - #{req 2613}# - #{opt 2614}# - #{rest 2615}# + #{tmp 2651}#)))) + (#{expand-body 2559}# + #{req 2627}# + #{opt 2628}# + #{rest 2629}# (if (begin - (let ((#{t 2657}# #{aok 2621}#)) - (if #{t 2657}# #{t 2657}# (pair? #{out 2622}#)))) - (cons #{aok 2621}# (reverse #{out 2622}#)) + (let ((#{t 2671}# #{aok 2635}#)) + (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#)))) + (cons #{aok 2635}# (reverse #{out 2636}#)) #f) - #{body 2617}# - (reverse #{vars 2618}#) - #{r* 2619}# - #{w* 2620}# - (reverse #{inits 2623}#) + #{body 2631}# + (reverse #{vars 2632}#) + #{r* 2633}# + #{w* 2634}# + (reverse #{inits 2637}#) '())))) - (#{expand-body 2545}# - (lambda (#{req 2659}# - #{opt 2660}# - #{rest 2661}# - #{kw 2662}# - #{body 2663}# - #{vars 2664}# - #{r* 2665}# - #{w* 2666}# - #{inits 2667}# - #{meta 2668}#) - (let ((#{tmp 2679}# #{body 2663}#)) - (let ((#{tmp 2680}# - ($sc-dispatch #{tmp 2679}# '(any any . each-any)))) - (if (if #{tmp 2680}# + (#{expand-body 2559}# + (lambda (#{req 2673}# + #{opt 2674}# + #{rest 2675}# + #{kw 2676}# + #{body 2677}# + #{vars 2678}# + #{r* 2679}# + #{w* 2680}# + #{inits 2681}# + #{meta 2682}#) + (let ((#{tmp 2693}# #{body 2677}#)) + (let ((#{tmp 2694}# + ($sc-dispatch #{tmp 2693}# '(any any . each-any)))) + (if (if #{tmp 2694}# (@apply - (lambda (#{docstring 2684}# #{e1 2685}# #{e2 2686}#) - (string? (syntax->datum #{docstring 2684}#))) - #{tmp 2680}#) + (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#) + (string? (syntax->datum #{docstring 2698}#))) + #{tmp 2694}#) #f) (@apply - (lambda (#{docstring 2690}# #{e1 2691}# #{e2 2692}#) - (#{expand-body 2545}# - #{req 2659}# - #{opt 2660}# - #{rest 2661}# - #{kw 2662}# - (cons #{e1 2691}# #{e2 2692}#) - #{vars 2664}# - #{r* 2665}# - #{w* 2666}# - #{inits 2667}# + (lambda (#{docstring 2704}# #{e1 2705}# #{e2 2706}#) + (#{expand-body 2559}# + #{req 2673}# + #{opt 2674}# + #{rest 2675}# + #{kw 2676}# + (cons #{e1 2705}# #{e2 2706}#) + #{vars 2678}# + #{r* 2679}# + #{w* 2680}# + #{inits 2681}# (append - #{meta 2668}# + #{meta 2682}# (list (cons 'documentation - (syntax->datum #{docstring 2690}#)))))) - #{tmp 2680}#) - (let ((#{tmp 2695}# + (syntax->datum #{docstring 2704}#)))))) + #{tmp 2694}#) + (let ((#{tmp 2709}# ($sc-dispatch - #{tmp 2679}# + #{tmp 2693}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 2695}# + (if #{tmp 2709}# (@apply - (lambda (#{k 2700}# - #{v 2701}# - #{e1 2702}# - #{e2 2703}#) - (#{expand-body 2545}# - #{req 2659}# - #{opt 2660}# - #{rest 2661}# - #{kw 2662}# - (cons #{e1 2702}# #{e2 2703}#) - #{vars 2664}# - #{r* 2665}# - #{w* 2666}# - #{inits 2667}# + (lambda (#{k 2714}# + #{v 2715}# + #{e1 2716}# + #{e2 2717}#) + (#{expand-body 2559}# + #{req 2673}# + #{opt 2674}# + #{rest 2675}# + #{kw 2676}# + (cons #{e1 2716}# #{e2 2717}#) + #{vars 2678}# + #{r* 2679}# + #{w* 2680}# + #{inits 2681}# (append - #{meta 2668}# + #{meta 2682}# (syntax->datum - (map cons #{k 2700}# #{v 2701}#))))) - #{tmp 2695}#) - (let ((#{tmp 2707}# - ($sc-dispatch #{tmp 2679}# '(any . each-any)))) - (if #{tmp 2707}# + (map cons #{k 2714}# #{v 2715}#))))) + #{tmp 2709}#) + (let ((#{tmp 2721}# + ($sc-dispatch #{tmp 2693}# '(any . each-any)))) + (if #{tmp 2721}# (@apply - (lambda (#{e1 2710}# #{e2 2711}#) + (lambda (#{e1 2724}# #{e2 2725}#) (values - #{meta 2668}# - #{req 2659}# - #{opt 2660}# - #{rest 2661}# - #{kw 2662}# - #{inits 2667}# - #{vars 2664}# - (#{chi-body 427}# - (cons #{e1 2710}# #{e2 2711}#) - (#{source-wrap 407}# - #{e 2524}# - #{w 2526}# - #{s 2527}# - #{mod 2528}#) - #{r* 2665}# - #{w* 2666}# - #{mod 2528}#))) - #{tmp 2707}#) + #{meta 2682}# + #{req 2673}# + #{opt 2674}# + #{rest 2675}# + #{kw 2676}# + #{inits 2681}# + #{vars 2678}# + (#{chi-body 440}# + (cons #{e1 2724}# #{e2 2725}#) + (#{source-wrap 420}# + #{e 2538}# + #{w 2540}# + #{s 2541}# + #{mod 2542}#) + #{r* 2679}# + #{w* 2680}# + #{mod 2542}#))) + #{tmp 2721}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2679}#))))))))))) + #{tmp 2693}#))))))))))) (begin - (let ((#{tmp 2713}# #{clauses 2530}#)) - (let ((#{tmp 2714}# ($sc-dispatch #{tmp 2713}# '()))) - (if #{tmp 2714}# - (@apply (lambda () (values '() #f)) #{tmp 2714}#) - (let ((#{tmp 2715}# + (let ((#{tmp 2727}# #{clauses 2544}#)) + (let ((#{tmp 2728}# ($sc-dispatch #{tmp 2727}# '()))) + (if #{tmp 2728}# + (@apply (lambda () (values '() #f)) #{tmp 2728}#) + (let ((#{tmp 2729}# ($sc-dispatch - #{tmp 2713}# + #{tmp 2727}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 2715}# + (if #{tmp 2729}# (@apply - (lambda (#{args 2722}# - #{e1 2723}# - #{e2 2724}# - #{args* 2725}# - #{e1* 2726}# - #{e2* 2727}#) + (lambda (#{args 2736}# + #{e1 2737}# + #{e2 2738}# + #{args* 2739}# + #{e1* 2740}# + #{e2* 2741}#) (call-with-values - (lambda () (#{get-formals 2529}# #{args 2722}#)) - (lambda (#{req 2728}# - #{opt 2729}# - #{rest 2730}# - #{kw 2731}#) + (lambda () (#{get-formals 2543}# #{args 2736}#)) + (lambda (#{req 2742}# + #{opt 2743}# + #{rest 2744}# + #{kw 2745}#) (call-with-values (lambda () - (#{expand-req 2539}# - #{req 2728}# - #{opt 2729}# - #{rest 2730}# - #{kw 2731}# - (cons #{e1 2723}# #{e2 2724}#))) - (lambda (#{meta 2737}# - #{req 2738}# - #{opt 2739}# - #{rest 2740}# - #{kw 2741}# - #{inits 2742}# - #{vars 2743}# - #{body 2744}#) + (#{expand-req 2553}# + #{req 2742}# + #{opt 2743}# + #{rest 2744}# + #{kw 2745}# + (cons #{e1 2737}# #{e2 2738}#))) + (lambda (#{meta 2751}# + #{req 2752}# + #{opt 2753}# + #{rest 2754}# + #{kw 2755}# + #{inits 2756}# + #{vars 2757}# + #{body 2758}#) (call-with-values (lambda () - (#{chi-lambda-case 443}# - #{e 2524}# - #{r 2525}# - #{w 2526}# - #{s 2527}# - #{mod 2528}# - #{get-formals 2529}# - (map (lambda (#{tmp 2755}# - #{tmp 2754}# - #{tmp 2753}#) - (cons #{tmp 2753}# - (cons #{tmp 2754}# - #{tmp 2755}#))) - #{e2* 2727}# - #{e1* 2726}# - #{args* 2725}#))) - (lambda (#{meta* 2757}# #{else* 2758}#) + (#{chi-lambda-case 456}# + #{e 2538}# + #{r 2539}# + #{w 2540}# + #{s 2541}# + #{mod 2542}# + #{get-formals 2543}# + (map (lambda (#{tmp 2769}# + #{tmp 2768}# + #{tmp 2767}#) + (cons #{tmp 2767}# + (cons #{tmp 2768}# + #{tmp 2769}#))) + #{e2* 2741}# + #{e1* 2740}# + #{args* 2739}#))) + (lambda (#{meta* 2771}# #{else* 2772}#) (values - (append #{meta 2737}# #{meta* 2757}#) - (#{build-lambda-case 287}# - #{s 2527}# - #{req 2738}# - #{opt 2739}# - #{rest 2740}# - #{kw 2741}# - #{inits 2742}# - #{vars 2743}# - #{body 2744}# - #{else* 2758}#))))))))) - #{tmp 2715}#) + (append #{meta 2751}# #{meta* 2771}#) + (#{build-lambda-case 288}# + #{s 2541}# + #{req 2752}# + #{opt 2753}# + #{rest 2754}# + #{kw 2755}# + #{inits 2756}# + #{vars 2757}# + #{body 2758}# + #{else* 2772}#))))))))) + #{tmp 2729}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2713}#)))))))))) - (#{strip 445}# - (lambda (#{x 2761}# #{w 2762}#) - (if (memq 'top (car #{w 2762}#)) - #{x 2761}# + #{tmp 2727}#)))))))))) + (#{strip 458}# + (lambda (#{x 2775}# #{w 2776}#) + (if (memq 'top (car #{w 2776}#)) + #{x 2775}# (letrec* - ((#{f 2769}# - (lambda (#{x 2770}#) - (if (#{syntax-object? 305}# #{x 2770}#) - (#{strip 445}# - (#{syntax-object-expression 307}# #{x 2770}#) - (#{syntax-object-wrap 309}# #{x 2770}#)) - (if (pair? #{x 2770}#) + ((#{f 2783}# + (lambda (#{x 2784}#) + (if (#{syntax-object? 307}# #{x 2784}#) + (#{strip 458}# + (#{syntax-object-expression 309}# #{x 2784}#) + (#{syntax-object-wrap 311}# #{x 2784}#)) + (if (pair? #{x 2784}#) (begin - (let ((#{a 2777}# (#{f 2769}# (car #{x 2770}#))) - (#{d 2778}# (#{f 2769}# (cdr #{x 2770}#)))) - (if (if (eq? #{a 2777}# (car #{x 2770}#)) - (eq? #{d 2778}# (cdr #{x 2770}#)) + (let ((#{a 2791}# (#{f 2783}# (car #{x 2784}#))) + (#{d 2792}# (#{f 2783}# (cdr #{x 2784}#)))) + (if (if (eq? #{a 2791}# (car #{x 2784}#)) + (eq? #{d 2792}# (cdr #{x 2784}#)) #f) - #{x 2770}# - (cons #{a 2777}# #{d 2778}#)))) - (if (vector? #{x 2770}#) + #{x 2784}# + (cons #{a 2791}# #{d 2792}#)))) + (if (vector? #{x 2784}#) (begin - (let ((#{old 2784}# (vector->list #{x 2770}#))) + (let ((#{old 2798}# (vector->list #{x 2784}#))) (begin - (let ((#{new 2786}# (map #{f 2769}# #{old 2784}#))) + (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#))) (letrec* - ((#{lp 2790}# - (lambda (#{l1 2791}# #{l2 2792}#) - (if (null? #{l1 2791}#) - #{x 2770}# - (if (eq? (car #{l1 2791}#) - (car #{l2 2792}#)) - (#{lp 2790}# - (cdr #{l1 2791}#) - (cdr #{l2 2792}#)) - (list->vector #{new 2786}#)))))) + ((#{lp 2804}# + (lambda (#{l1 2805}# #{l2 2806}#) + (if (null? #{l1 2805}#) + #{x 2784}# + (if (eq? (car #{l1 2805}#) + (car #{l2 2806}#)) + (#{lp 2804}# + (cdr #{l1 2805}#) + (cdr #{l2 2806}#)) + (list->vector #{new 2800}#)))))) (begin - (#{lp 2790}# #{old 2784}# #{new 2786}#))))))) - #{x 2770}#)))))) - (begin (#{f 2769}# #{x 2761}#)))))) - (#{gen-var 447}# - (lambda (#{id 2794}#) + (#{lp 2804}# #{old 2798}# #{new 2800}#))))))) + #{x 2784}#)))))) + (begin (#{f 2783}# #{x 2775}#)))))) + (#{gen-var 460}# + (lambda (#{id 2808}#) (begin - (let ((#{id 2797}# - (if (#{syntax-object? 305}# #{id 2794}#) - (#{syntax-object-expression 307}# #{id 2794}#) - #{id 2794}#))) + (let ((#{id 2811}# + (if (#{syntax-object? 307}# #{id 2808}#) + (#{syntax-object-expression 309}# #{id 2808}#) + #{id 2808}#))) (gensym - (string-append (symbol->string #{id 2797}#) " ")))))) - (#{lambda-var-list 449}# - (lambda (#{vars 2799}#) + (string-append (symbol->string #{id 2811}#) " ")))))) + (#{lambda-var-list 462}# + (lambda (#{vars 2813}#) (letrec* - ((#{lvl 2805}# - (lambda (#{vars 2806}# #{ls 2807}# #{w 2808}#) - (if (pair? #{vars 2806}#) - (#{lvl 2805}# - (cdr #{vars 2806}#) - (cons (#{wrap 405}# (car #{vars 2806}#) #{w 2808}# #f) - #{ls 2807}#) - #{w 2808}#) - (if (#{id? 339}# #{vars 2806}#) - (cons (#{wrap 405}# #{vars 2806}# #{w 2808}# #f) - #{ls 2807}#) - (if (null? #{vars 2806}#) - #{ls 2807}# - (if (#{syntax-object? 305}# #{vars 2806}#) - (#{lvl 2805}# - (#{syntax-object-expression 307}# #{vars 2806}#) - #{ls 2807}# - (#{join-wraps 387}# - #{w 2808}# - (#{syntax-object-wrap 309}# #{vars 2806}#))) - (cons #{vars 2806}# #{ls 2807}#)))))))) - (begin (#{lvl 2805}# #{vars 2799}# '() '(()))))))) + ((#{lvl 2819}# + (lambda (#{vars 2820}# #{ls 2821}# #{w 2822}#) + (if (pair? #{vars 2820}#) + (#{lvl 2819}# + (cdr #{vars 2820}#) + (cons (#{wrap 418}# (car #{vars 2820}#) #{w 2822}# #f) + #{ls 2821}#) + #{w 2822}#) + (if (#{id? 344}# #{vars 2820}#) + (cons (#{wrap 418}# #{vars 2820}# #{w 2822}# #f) + #{ls 2821}#) + (if (null? #{vars 2820}#) + #{ls 2821}# + (if (#{syntax-object? 307}# #{vars 2820}#) + (#{lvl 2819}# + (#{syntax-object-expression 309}# #{vars 2820}#) + #{ls 2821}# + (#{join-wraps 400}# + #{w 2822}# + (#{syntax-object-wrap 311}# #{vars 2820}#))) + (cons #{vars 2820}# #{ls 2821}#)))))))) + (begin (#{lvl 2819}# #{vars 2813}# '() '(()))))))) (begin - (lambda (#{src 767}# #{name 768}#) + (lambda (#{src 780}# #{name 781}#) (make-struct/no-tail (vector-ref %expanded-vtables 2) - #{src 767}# - #{name 768}#)) - (lambda (#{x 1145}# #{update 1146}#) - (vector-set! #{x 1145}# 1 #{update 1146}#)) - (lambda (#{x 1149}# #{update 1150}#) - (vector-set! #{x 1149}# 2 #{update 1150}#)) - (lambda (#{x 1153}# #{update 1154}#) - (vector-set! #{x 1153}# 3 #{update 1154}#)) - (lambda (#{x 1234}#) - (if (vector? #{x 1234}#) - (if (= (vector-length #{x 1234}#) 4) - (eq? (vector-ref #{x 1234}# 0) 'ribcage) + #{src 780}# + #{name 781}#)) + (lambda (#{x 1158}# #{update 1159}#) + (vector-set! #{x 1158}# 1 #{update 1159}#)) + (lambda (#{x 1162}# #{update 1163}#) + (vector-set! #{x 1162}# 2 #{update 1163}#)) + (lambda (#{x 1166}# #{update 1167}#) + (vector-set! #{x 1166}# 3 #{update 1167}#)) + (lambda (#{x 1247}#) + (if (vector? #{x 1247}#) + (if (= (vector-length #{x 1247}#) 4) + (eq? (vector-ref #{x 1247}# 0) 'ribcage) #f) #f)) (begin - (#{global-extend 335}# + (#{global-extend 340}# 'local-syntax 'letrec-syntax #t) - (#{global-extend 335}# + (#{global-extend 340}# 'local-syntax 'let-syntax #f) - (#{global-extend 335}# + (#{global-extend 340}# 'core 'fluid-let-syntax - (lambda (#{e 2819}# - #{r 2820}# - #{w 2821}# - #{s 2822}# - #{mod 2823}#) - (let ((#{tmp 2829}# #{e 2819}#)) - (let ((#{tmp 2830}# + (lambda (#{e 2833}# + #{r 2834}# + #{w 2835}# + #{s 2836}# + #{mod 2837}#) + (let ((#{tmp 2843}# #{e 2833}#)) + (let ((#{tmp 2844}# ($sc-dispatch - #{tmp 2829}# + #{tmp 2843}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2830}# + (if (if #{tmp 2844}# (@apply - (lambda (#{var 2835}# - #{val 2836}# - #{e1 2837}# - #{e2 2838}#) - (#{valid-bound-ids? 399}# #{var 2835}#)) - #{tmp 2830}#) + (lambda (#{var 2849}# + #{val 2850}# + #{e1 2851}# + #{e2 2852}#) + (#{valid-bound-ids? 412}# #{var 2849}#)) + #{tmp 2844}#) #f) (@apply - (lambda (#{var 2844}# - #{val 2845}# - #{e1 2846}# - #{e2 2847}#) + (lambda (#{var 2858}# + #{val 2859}# + #{e1 2860}# + #{e2 2861}#) (begin - (let ((#{names 2849}# - (map (lambda (#{x 2850}#) - (#{id-var-name 393}# - #{x 2850}# - #{w 2821}#)) - #{var 2844}#))) + (let ((#{names 2863}# + (map (lambda (#{x 2864}#) + (#{id-var-name 406}# + #{x 2864}# + #{w 2835}#)) + #{var 2858}#))) (begin (for-each - (lambda (#{id 2853}# #{n 2854}#) + (lambda (#{id 2867}# #{n 2868}#) (begin - (let ((#{atom-key 2859}# - (car (#{lookup 333}# - #{n 2854}# - #{r 2820}# - #{mod 2823}#)))) - (if (eqv? #{atom-key 2859}# + (let ((#{atom-key 2873}# + (car (#{lookup 338}# + #{n 2868}# + #{r 2834}# + #{mod 2837}#)))) + (if (eqv? #{atom-key 2873}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e 2819}# - (#{source-wrap 407}# - #{id 2853}# - #{w 2821}# - #{s 2822}# - #{mod 2823}#)))))) - #{var 2844}# - #{names 2849}#) - (#{chi-body 427}# - (cons #{e1 2846}# #{e2 2847}#) - (#{source-wrap 407}# - #{e 2819}# - #{w 2821}# - #{s 2822}# - #{mod 2823}#) - (#{extend-env 327}# - #{names 2849}# + #{e 2833}# + (#{source-wrap 420}# + #{id 2867}# + #{w 2835}# + #{s 2836}# + #{mod 2837}#)))))) + #{var 2858}# + #{names 2863}#) + (#{chi-body 440}# + (cons #{e1 2860}# #{e2 2861}#) + (#{source-wrap 420}# + #{e 2833}# + #{w 2835}# + #{s 2836}# + #{mod 2837}#) + (#{extend-env 332}# + #{names 2863}# (begin - (let ((#{trans-r 2865}# - (#{macros-only-env 331}# #{r 2820}#))) - (map (lambda (#{x 2866}#) + (let ((#{trans-r 2879}# + (#{macros-only-env 336}# #{r 2834}#))) + (map (lambda (#{x 2880}#) (cons 'macro - (#{eval-local-transformer 431}# - (#{chi 419}# - #{x 2866}# - #{trans-r 2865}# - #{w 2821}# - #{mod 2823}#) - #{mod 2823}#))) - #{val 2845}#))) - #{r 2820}#) - #{w 2821}# - #{mod 2823}#))))) - #{tmp 2830}#) - (let ((#{_ 2871}# #{tmp 2829}#)) + (#{eval-local-transformer 444}# + (#{chi 432}# + #{x 2880}# + #{trans-r 2879}# + #{w 2835}# + #{mod 2837}#) + #{mod 2837}#))) + #{val 2859}#))) + #{r 2834}#) + #{w 2835}# + #{mod 2837}#))))) + #{tmp 2844}#) + (let ((#{_ 2885}# #{tmp 2843}#)) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap 407}# - #{e 2819}# - #{w 2821}# - #{s 2822}# - #{mod 2823}#)))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 2833}# + #{w 2835}# + #{s 2836}# + #{mod 2837}#)))))))) + (#{global-extend 340}# 'core 'quote - (lambda (#{e 2872}# - #{r 2873}# - #{w 2874}# - #{s 2875}# - #{mod 2876}#) - (let ((#{tmp 2882}# #{e 2872}#)) - (let ((#{tmp 2883}# - ($sc-dispatch #{tmp 2882}# '(_ any)))) - (if #{tmp 2883}# + (lambda (#{e 2886}# + #{r 2887}# + #{w 2888}# + #{s 2889}# + #{mod 2890}#) + (let ((#{tmp 2896}# #{e 2886}#)) + (let ((#{tmp 2897}# + ($sc-dispatch #{tmp 2896}# '(_ any)))) + (if #{tmp 2897}# (@apply - (lambda (#{e 2885}#) - (#{build-data 291}# - #{s 2875}# - (#{strip 445}# #{e 2885}# #{w 2874}#))) - #{tmp 2883}#) - (let ((#{_ 2887}# #{tmp 2882}#)) + (lambda (#{e 2899}#) + (#{build-data 292}# + #{s 2889}# + (#{strip 458}# #{e 2899}# #{w 2888}#))) + #{tmp 2897}#) + (let ((#{_ 2901}# #{tmp 2896}#)) (syntax-violation 'quote "bad syntax" - (#{source-wrap 407}# - #{e 2872}# - #{w 2874}# - #{s 2875}# - #{mod 2876}#)))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 2886}# + #{w 2888}# + #{s 2889}# + #{mod 2890}#)))))))) + (#{global-extend 340}# 'core 'syntax (letrec* - ((#{gen-syntax 2889}# - (lambda (#{src 2904}# - #{e 2905}# - #{r 2906}# - #{maps 2907}# - #{ellipsis? 2908}# - #{mod 2909}#) - (if (#{id? 339}# #{e 2905}#) + ((#{gen-syntax 2903}# + (lambda (#{src 2918}# + #{e 2919}# + #{r 2920}# + #{maps 2921}# + #{ellipsis? 2922}# + #{mod 2923}#) + (if (#{id? 344}# #{e 2919}#) (begin - (let ((#{label 2917}# - (#{id-var-name 393}# #{e 2905}# '(())))) + (let ((#{label 2931}# + (#{id-var-name 406}# #{e 2919}# '(())))) (begin - (let ((#{b 2920}# - (#{lookup 333}# - #{label 2917}# - #{r 2906}# - #{mod 2909}#))) - (if (eq? (car #{b 2920}#) 'syntax) + (let ((#{b 2934}# + (#{lookup 338}# + #{label 2931}# + #{r 2920}# + #{mod 2923}#))) + (if (eq? (car #{b 2934}#) 'syntax) (call-with-values (lambda () (begin - (let ((#{var.lev 2923}# (cdr #{b 2920}#))) - (#{gen-ref 2891}# - #{src 2904}# - (car #{var.lev 2923}#) - (cdr #{var.lev 2923}#) - #{maps 2907}#)))) - (lambda (#{var 2925}# #{maps 2926}#) + (let ((#{var.lev 2937}# (cdr #{b 2934}#))) + (#{gen-ref 2905}# + #{src 2918}# + (car #{var.lev 2937}#) + (cdr #{var.lev 2937}#) + #{maps 2921}#)))) + (lambda (#{var 2939}# #{maps 2940}#) (values - (list 'ref #{var 2925}#) - #{maps 2926}#))) - (if (#{ellipsis? 2908}# #{e 2905}#) + (list 'ref #{var 2939}#) + #{maps 2940}#))) + (if (#{ellipsis? 2922}# #{e 2919}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 2904}#) + #{src 2918}#) (values - (list 'quote #{e 2905}#) - #{maps 2907}#))))))) - (let ((#{tmp 2931}# #{e 2905}#)) - (let ((#{tmp 2932}# - ($sc-dispatch #{tmp 2931}# '(any any)))) - (if (if #{tmp 2932}# + (list 'quote #{e 2919}#) + #{maps 2921}#))))))) + (let ((#{tmp 2945}# #{e 2919}#)) + (let ((#{tmp 2946}# + ($sc-dispatch #{tmp 2945}# '(any any)))) + (if (if #{tmp 2946}# (@apply - (lambda (#{dots 2935}# #{e 2936}#) - (#{ellipsis? 2908}# #{dots 2935}#)) - #{tmp 2932}#) + (lambda (#{dots 2949}# #{e 2950}#) + (#{ellipsis? 2922}# #{dots 2949}#)) + #{tmp 2946}#) #f) (@apply - (lambda (#{dots 2939}# #{e 2940}#) - (#{gen-syntax 2889}# - #{src 2904}# - #{e 2940}# - #{r 2906}# - #{maps 2907}# - (lambda (#{x 2941}#) #f) - #{mod 2909}#)) - #{tmp 2932}#) - (let ((#{tmp 2943}# - ($sc-dispatch #{tmp 2931}# '(any any . any)))) - (if (if #{tmp 2943}# + (lambda (#{dots 2953}# #{e 2954}#) + (#{gen-syntax 2903}# + #{src 2918}# + #{e 2954}# + #{r 2920}# + #{maps 2921}# + (lambda (#{x 2955}#) #f) + #{mod 2923}#)) + #{tmp 2946}#) + (let ((#{tmp 2957}# + ($sc-dispatch #{tmp 2945}# '(any any . any)))) + (if (if #{tmp 2957}# (@apply - (lambda (#{x 2947}# #{dots 2948}# #{y 2949}#) - (#{ellipsis? 2908}# #{dots 2948}#)) - #{tmp 2943}#) + (lambda (#{x 2961}# #{dots 2962}# #{y 2963}#) + (#{ellipsis? 2922}# #{dots 2962}#)) + #{tmp 2957}#) #f) (@apply - (lambda (#{x 2953}# #{dots 2954}# #{y 2955}#) + (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#) (letrec* - ((#{f 2959}# - (lambda (#{y 2960}# #{k 2961}#) - (let ((#{tmp 2968}# #{y 2960}#)) - (let ((#{tmp 2969}# + ((#{f 2973}# + (lambda (#{y 2974}# #{k 2975}#) + (let ((#{tmp 2982}# #{y 2974}#)) + (let ((#{tmp 2983}# ($sc-dispatch - #{tmp 2968}# + #{tmp 2982}# '(any . any)))) - (if (if #{tmp 2969}# + (if (if #{tmp 2983}# (@apply - (lambda (#{dots 2972}# - #{y 2973}#) - (#{ellipsis? 2908}# - #{dots 2972}#)) - #{tmp 2969}#) + (lambda (#{dots 2986}# + #{y 2987}#) + (#{ellipsis? 2922}# + #{dots 2986}#)) + #{tmp 2983}#) #f) (@apply - (lambda (#{dots 2976}# - #{y 2977}#) - (#{f 2959}# - #{y 2977}# - (lambda (#{maps 2978}#) + (lambda (#{dots 2990}# + #{y 2991}#) + (#{f 2973}# + #{y 2991}# + (lambda (#{maps 2992}#) (call-with-values (lambda () - (#{k 2961}# + (#{k 2975}# (cons '() - #{maps 2978}#))) - (lambda (#{x 2980}# - #{maps 2981}#) - (if (null? (car #{maps 2981}#)) + #{maps 2992}#))) + (lambda (#{x 2994}# + #{maps 2995}#) + (if (null? (car #{maps 2995}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2904}#) + #{src 2918}#) (values - (#{gen-mappend 2893}# - #{x 2980}# - (car #{maps 2981}#)) - (cdr #{maps 2981}#)))))))) - #{tmp 2969}#) - (let ((#{_ 2985}# #{tmp 2968}#)) + (#{gen-mappend 2907}# + #{x 2994}# + (car #{maps 2995}#)) + (cdr #{maps 2995}#)))))))) + #{tmp 2983}#) + (let ((#{_ 2999}# #{tmp 2982}#)) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{src 2904}# - #{y 2960}# - #{r 2906}# - #{maps 2907}# - #{ellipsis? 2908}# - #{mod 2909}#)) - (lambda (#{y 2986}# - #{maps 2987}#) + (#{gen-syntax 2903}# + #{src 2918}# + #{y 2974}# + #{r 2920}# + #{maps 2921}# + #{ellipsis? 2922}# + #{mod 2923}#)) + (lambda (#{y 3000}# + #{maps 3001}#) (call-with-values (lambda () - (#{k 2961}# - #{maps 2987}#)) - (lambda (#{x 2990}# - #{maps 2991}#) + (#{k 2975}# + #{maps 3001}#)) + (lambda (#{x 3004}# + #{maps 3005}#) (values - (#{gen-append 2899}# - #{x 2990}# - #{y 2986}#) - #{maps 2991}#)))))))))))) + (#{gen-append 2913}# + #{x 3004}# + #{y 3000}#) + #{maps 3005}#)))))))))))) (begin - (#{f 2959}# - #{y 2955}# - (lambda (#{maps 2962}#) + (#{f 2973}# + #{y 2969}# + (lambda (#{maps 2976}#) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{src 2904}# - #{x 2953}# - #{r 2906}# - (cons '() #{maps 2962}#) - #{ellipsis? 2908}# - #{mod 2909}#)) - (lambda (#{x 2964}# #{maps 2965}#) - (if (null? (car #{maps 2965}#)) + (#{gen-syntax 2903}# + #{src 2918}# + #{x 2967}# + #{r 2920}# + (cons '() #{maps 2976}#) + #{ellipsis? 2922}# + #{mod 2923}#)) + (lambda (#{x 2978}# #{maps 2979}#) + (if (null? (car #{maps 2979}#)) (syntax-violation 'syntax "extra ellipsis" - #{src 2904}#) + #{src 2918}#) (values - (#{gen-map 2895}# - #{x 2964}# - (car #{maps 2965}#)) - (cdr #{maps 2965}#)))))))))) - #{tmp 2943}#) - (let ((#{tmp 2994}# - ($sc-dispatch #{tmp 2931}# '(any . any)))) - (if #{tmp 2994}# + (#{gen-map 2909}# + #{x 2978}# + (car #{maps 2979}#)) + (cdr #{maps 2979}#)))))))))) + #{tmp 2957}#) + (let ((#{tmp 3008}# + ($sc-dispatch #{tmp 2945}# '(any . any)))) + (if #{tmp 3008}# (@apply - (lambda (#{x 2997}# #{y 2998}#) + (lambda (#{x 3011}# #{y 3012}#) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{src 2904}# - #{x 2997}# - #{r 2906}# - #{maps 2907}# - #{ellipsis? 2908}# - #{mod 2909}#)) - (lambda (#{x 2999}# #{maps 3000}#) + (#{gen-syntax 2903}# + #{src 2918}# + #{x 3011}# + #{r 2920}# + #{maps 2921}# + #{ellipsis? 2922}# + #{mod 2923}#)) + (lambda (#{x 3013}# #{maps 3014}#) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{src 2904}# - #{y 2998}# - #{r 2906}# - #{maps 3000}# - #{ellipsis? 2908}# - #{mod 2909}#)) - (lambda (#{y 3003}# #{maps 3004}#) + (#{gen-syntax 2903}# + #{src 2918}# + #{y 3012}# + #{r 2920}# + #{maps 3014}# + #{ellipsis? 2922}# + #{mod 2923}#)) + (lambda (#{y 3017}# #{maps 3018}#) (values - (#{gen-cons 2897}# - #{x 2999}# - #{y 3003}#) - #{maps 3004}#)))))) - #{tmp 2994}#) - (let ((#{tmp 3007}# + (#{gen-cons 2911}# + #{x 3013}# + #{y 3017}#) + #{maps 3018}#)))))) + #{tmp 3008}#) + (let ((#{tmp 3021}# ($sc-dispatch - #{tmp 2931}# + #{tmp 2945}# '#(vector (any . each-any))))) - (if #{tmp 3007}# + (if #{tmp 3021}# (@apply - (lambda (#{e1 3010}# #{e2 3011}#) + (lambda (#{e1 3024}# #{e2 3025}#) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{src 2904}# - (cons #{e1 3010}# #{e2 3011}#) - #{r 2906}# - #{maps 2907}# - #{ellipsis? 2908}# - #{mod 2909}#)) - (lambda (#{e 3013}# #{maps 3014}#) + (#{gen-syntax 2903}# + #{src 2918}# + (cons #{e1 3024}# #{e2 3025}#) + #{r 2920}# + #{maps 2921}# + #{ellipsis? 2922}# + #{mod 2923}#)) + (lambda (#{e 3027}# #{maps 3028}#) (values - (#{gen-vector 2901}# #{e 3013}#) - #{maps 3014}#)))) - #{tmp 3007}#) - (let ((#{_ 3018}# #{tmp 2931}#)) + (#{gen-vector 2915}# #{e 3027}#) + #{maps 3028}#)))) + #{tmp 3021}#) + (let ((#{_ 3032}# #{tmp 2945}#)) (values - (list 'quote #{e 2905}#) - #{maps 2907}#)))))))))))))) - (#{gen-ref 2891}# - (lambda (#{src 3020}# - #{var 3021}# - #{level 3022}# - #{maps 3023}#) - (if (= #{level 3022}# 0) - (values #{var 3021}# #{maps 3023}#) - (if (null? #{maps 3023}#) + (list 'quote #{e 2919}#) + #{maps 2921}#)))))))))))))) + (#{gen-ref 2905}# + (lambda (#{src 3034}# + #{var 3035}# + #{level 3036}# + #{maps 3037}#) + (if (= #{level 3036}# 0) + (values #{var 3035}# #{maps 3037}#) + (if (null? #{maps 3037}#) (syntax-violation 'syntax "missing ellipsis" - #{src 3020}#) + #{src 3034}#) (call-with-values (lambda () - (#{gen-ref 2891}# - #{src 3020}# - #{var 3021}# - (#{1-}# #{level 3022}#) - (cdr #{maps 3023}#))) - (lambda (#{outer-var 3030}# #{outer-maps 3031}#) + (#{gen-ref 2905}# + #{src 3034}# + #{var 3035}# + (#{1-}# #{level 3036}#) + (cdr #{maps 3037}#))) + (lambda (#{outer-var 3044}# #{outer-maps 3045}#) (begin - (let ((#{b 3035}# - (assq #{outer-var 3030}# - (car #{maps 3023}#)))) - (if #{b 3035}# - (values (cdr #{b 3035}#) #{maps 3023}#) + (let ((#{b 3049}# + (assq #{outer-var 3044}# + (car #{maps 3037}#)))) + (if #{b 3049}# + (values (cdr #{b 3049}#) #{maps 3037}#) (begin - (let ((#{inner-var 3037}# - (#{gen-var 447}# 'tmp))) + (let ((#{inner-var 3051}# + (#{gen-var 460}# 'tmp))) (values - #{inner-var 3037}# - (cons (cons (cons #{outer-var 3030}# - #{inner-var 3037}#) - (car #{maps 3023}#)) - #{outer-maps 3031}#))))))))))))) - (#{gen-mappend 2893}# - (lambda (#{e 3038}# #{map-env 3039}#) + #{inner-var 3051}# + (cons (cons (cons #{outer-var 3044}# + #{inner-var 3051}#) + (car #{maps 3037}#)) + #{outer-maps 3045}#))))))))))))) + (#{gen-mappend 2907}# + (lambda (#{e 3052}# #{map-env 3053}#) (list 'apply '(primitive append) - (#{gen-map 2895}# #{e 3038}# #{map-env 3039}#)))) - (#{gen-map 2895}# - (lambda (#{e 3043}# #{map-env 3044}#) + (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#)))) + (#{gen-map 2909}# + (lambda (#{e 3057}# #{map-env 3058}#) (begin - (let ((#{formals 3049}# (map cdr #{map-env 3044}#)) - (#{actuals 3050}# - (map (lambda (#{x 3051}#) - (list 'ref (car #{x 3051}#))) - #{map-env 3044}#))) - (if (eq? (car #{e 3043}#) 'ref) - (car #{actuals 3050}#) + (let ((#{formals 3063}# (map cdr #{map-env 3058}#)) + (#{actuals 3064}# + (map (lambda (#{x 3065}#) + (list 'ref (car #{x 3065}#))) + #{map-env 3058}#))) + (if (eq? (car #{e 3057}#) 'ref) + (car #{actuals 3064}#) (if (and-map - (lambda (#{x 3058}#) - (if (eq? (car #{x 3058}#) 'ref) - (memq (car (cdr #{x 3058}#)) #{formals 3049}#) + (lambda (#{x 3072}#) + (if (eq? (car #{x 3072}#) 'ref) + (memq (car (cdr #{x 3072}#)) #{formals 3063}#) #f)) - (cdr #{e 3043}#)) + (cdr #{e 3057}#)) (cons 'map - (cons (list 'primitive (car #{e 3043}#)) + (cons (list 'primitive (car #{e 3057}#)) (map (begin - (let ((#{r 3064}# + (let ((#{r 3078}# (map cons - #{formals 3049}# - #{actuals 3050}#))) - (lambda (#{x 3065}#) - (cdr (assq (car (cdr #{x 3065}#)) - #{r 3064}#))))) - (cdr #{e 3043}#)))) + #{formals 3063}# + #{actuals 3064}#))) + (lambda (#{x 3079}#) + (cdr (assq (car (cdr #{x 3079}#)) + #{r 3078}#))))) + (cdr #{e 3057}#)))) (cons 'map - (cons (list 'lambda #{formals 3049}# #{e 3043}#) - #{actuals 3050}#)))))))) - (#{gen-cons 2897}# - (lambda (#{x 3069}# #{y 3070}#) + (cons (list 'lambda #{formals 3063}# #{e 3057}#) + #{actuals 3064}#)))))))) + (#{gen-cons 2911}# + (lambda (#{x 3083}# #{y 3084}#) (begin - (let ((#{atom-key 3075}# (car #{y 3070}#))) - (if (eqv? #{atom-key 3075}# 'quote) - (if (eq? (car #{x 3069}#) 'quote) + (let ((#{atom-key 3089}# (car #{y 3084}#))) + (if (eqv? #{atom-key 3089}# 'quote) + (if (eq? (car #{x 3083}#) 'quote) (list 'quote - (cons (car (cdr #{x 3069}#)) - (car (cdr #{y 3070}#)))) - (if (eq? (car (cdr #{y 3070}#)) '()) - (list 'list #{x 3069}#) - (list 'cons #{x 3069}# #{y 3070}#))) - (if (eqv? #{atom-key 3075}# 'list) - (cons 'list (cons #{x 3069}# (cdr #{y 3070}#))) - (list 'cons #{x 3069}# #{y 3070}#))))))) - (#{gen-append 2899}# - (lambda (#{x 3084}# #{y 3085}#) - (if (equal? #{y 3085}# ''()) - #{x 3084}# - (list 'append #{x 3084}# #{y 3085}#)))) - (#{gen-vector 2901}# - (lambda (#{x 3089}#) - (if (eq? (car #{x 3089}#) 'list) - (cons 'vector (cdr #{x 3089}#)) - (if (eq? (car #{x 3089}#) 'quote) + (cons (car (cdr #{x 3083}#)) + (car (cdr #{y 3084}#)))) + (if (eq? (car (cdr #{y 3084}#)) '()) + (list 'list #{x 3083}#) + (list 'cons #{x 3083}# #{y 3084}#))) + (if (eqv? #{atom-key 3089}# 'list) + (cons 'list (cons #{x 3083}# (cdr #{y 3084}#))) + (list 'cons #{x 3083}# #{y 3084}#))))))) + (#{gen-append 2913}# + (lambda (#{x 3098}# #{y 3099}#) + (if (equal? #{y 3099}# ''()) + #{x 3098}# + (list 'append #{x 3098}# #{y 3099}#)))) + (#{gen-vector 2915}# + (lambda (#{x 3103}#) + (if (eq? (car #{x 3103}#) 'list) + (cons 'vector (cdr #{x 3103}#)) + (if (eq? (car #{x 3103}#) 'quote) (list 'quote - (list->vector (car (cdr #{x 3089}#)))) - (list 'list->vector #{x 3089}#))))) - (#{regen 2903}# - (lambda (#{x 3099}#) + (list->vector (car (cdr #{x 3103}#)))) + (list 'list->vector #{x 3103}#))))) + (#{regen 2917}# + (lambda (#{x 3113}#) (begin - (let ((#{atom-key 3103}# (car #{x 3099}#))) - (if (eqv? #{atom-key 3103}# 'ref) - (#{build-lexical-reference 271}# + (let ((#{atom-key 3117}# (car #{x 3113}#))) + (if (eqv? #{atom-key 3117}# 'ref) + (#{build-lexical-reference 272}# 'value #f - (car (cdr #{x 3099}#)) - (car (cdr #{x 3099}#))) - (if (eqv? #{atom-key 3103}# 'primitive) - (#{build-primref 289}# #f (car (cdr #{x 3099}#))) - (if (eqv? #{atom-key 3103}# 'quote) - (#{build-data 291}# #f (car (cdr #{x 3099}#))) - (if (eqv? #{atom-key 3103}# 'lambda) - (if (list? (car (cdr #{x 3099}#))) - (#{build-simple-lambda 283}# + (car (cdr #{x 3113}#)) + (car (cdr #{x 3113}#))) + (if (eqv? #{atom-key 3117}# 'primitive) + (#{build-primref 290}# #f (car (cdr #{x 3113}#))) + (if (eqv? #{atom-key 3117}# 'quote) + (#{build-data 292}# #f (car (cdr #{x 3113}#))) + (if (eqv? #{atom-key 3117}# 'lambda) + (if (list? (car (cdr #{x 3113}#))) + (#{build-simple-lambda 284}# #f - (car (cdr #{x 3099}#)) + (car (cdr #{x 3113}#)) #f - (car (cdr #{x 3099}#)) + (car (cdr #{x 3113}#)) '() - (#{regen 2903}# (car (cdr (cdr #{x 3099}#))))) - (error "how did we get here" #{x 3099}#)) - (#{build-application 265}# + (#{regen 2917}# (car (cdr (cdr #{x 3113}#))))) + (error "how did we get here" #{x 3113}#)) + (#{build-application 266}# #f - (#{build-primref 289}# #f (car #{x 3099}#)) - (map #{regen 2903}# (cdr #{x 3099}#)))))))))))) + (#{build-primref 290}# #f (car #{x 3113}#)) + (map #{regen 2917}# (cdr #{x 3113}#)))))))))))) (begin - (lambda (#{e 3115}# - #{r 3116}# - #{w 3117}# - #{s 3118}# - #{mod 3119}#) + (lambda (#{e 3129}# + #{r 3130}# + #{w 3131}# + #{s 3132}# + #{mod 3133}#) (begin - (let ((#{e 3126}# - (#{source-wrap 407}# - #{e 3115}# - #{w 3117}# - #{s 3118}# - #{mod 3119}#))) - (let ((#{tmp 3127}# #{e 3126}#)) - (let ((#{tmp 3128}# - ($sc-dispatch #{tmp 3127}# '(_ any)))) - (if #{tmp 3128}# + (let ((#{e 3140}# + (#{source-wrap 420}# + #{e 3129}# + #{w 3131}# + #{s 3132}# + #{mod 3133}#))) + (let ((#{tmp 3141}# #{e 3140}#)) + (let ((#{tmp 3142}# + ($sc-dispatch #{tmp 3141}# '(_ any)))) + (if #{tmp 3142}# (@apply - (lambda (#{x 3130}#) + (lambda (#{x 3144}#) (call-with-values (lambda () - (#{gen-syntax 2889}# - #{e 3126}# - #{x 3130}# - #{r 3116}# + (#{gen-syntax 2903}# + #{e 3140}# + #{x 3144}# + #{r 3130}# '() - #{ellipsis? 435}# - #{mod 3119}#)) - (lambda (#{e 3131}# #{maps 3132}#) - (#{regen 2903}# #{e 3131}#)))) - #{tmp 3128}#) - (let ((#{_ 3136}# #{tmp 3127}#)) + #{ellipsis? 448}# + #{mod 3133}#)) + (lambda (#{e 3145}# #{maps 3146}#) + (#{regen 2917}# #{e 3145}#)))) + #{tmp 3142}#) + (let ((#{_ 3150}# #{tmp 3141}#)) (syntax-violation 'syntax "bad `syntax' form" - #{e 3126}#))))))))))) - (#{global-extend 335}# + #{e 3140}#))))))))))) + (#{global-extend 340}# 'core 'lambda - (lambda (#{e 3137}# - #{r 3138}# - #{w 3139}# - #{s 3140}# - #{mod 3141}#) - (let ((#{tmp 3147}# #{e 3137}#)) - (let ((#{tmp 3148}# + (lambda (#{e 3151}# + #{r 3152}# + #{w 3153}# + #{s 3154}# + #{mod 3155}#) + (let ((#{tmp 3161}# #{e 3151}#)) + (let ((#{tmp 3162}# ($sc-dispatch - #{tmp 3147}# + #{tmp 3161}# '(_ any any . each-any)))) - (if #{tmp 3148}# + (if #{tmp 3162}# (@apply - (lambda (#{args 3152}# #{e1 3153}# #{e2 3154}#) + (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#) (call-with-values (lambda () - (#{lambda-formals 437}# #{args 3152}#)) - (lambda (#{req 3155}# - #{opt 3156}# - #{rest 3157}# - #{kw 3158}#) + (#{lambda-formals 450}# #{args 3166}#)) + (lambda (#{req 3169}# + #{opt 3170}# + #{rest 3171}# + #{kw 3172}#) (letrec* - ((#{lp 3166}# - (lambda (#{body 3167}# #{meta 3168}#) - (let ((#{tmp 3170}# #{body 3167}#)) - (let ((#{tmp 3171}# + ((#{lp 3180}# + (lambda (#{body 3181}# #{meta 3182}#) + (let ((#{tmp 3184}# #{body 3181}#)) + (let ((#{tmp 3185}# ($sc-dispatch - #{tmp 3170}# + #{tmp 3184}# '(any any . each-any)))) - (if (if #{tmp 3171}# + (if (if #{tmp 3185}# (@apply - (lambda (#{docstring 3175}# - #{e1 3176}# - #{e2 3177}#) + (lambda (#{docstring 3189}# + #{e1 3190}# + #{e2 3191}#) (string? (syntax->datum - #{docstring 3175}#))) - #{tmp 3171}#) + #{docstring 3189}#))) + #{tmp 3185}#) #f) (@apply - (lambda (#{docstring 3181}# - #{e1 3182}# - #{e2 3183}#) - (#{lp 3166}# - (cons #{e1 3182}# #{e2 3183}#) + (lambda (#{docstring 3195}# + #{e1 3196}# + #{e2 3197}#) + (#{lp 3180}# + (cons #{e1 3196}# #{e2 3197}#) (append - #{meta 3168}# + #{meta 3182}# (list (cons 'documentation (syntax->datum - #{docstring 3181}#)))))) - #{tmp 3171}#) - (let ((#{tmp 3186}# + #{docstring 3195}#)))))) + #{tmp 3185}#) + (let ((#{tmp 3200}# ($sc-dispatch - #{tmp 3170}# + #{tmp 3184}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 3186}# + (if #{tmp 3200}# (@apply - (lambda (#{k 3191}# - #{v 3192}# - #{e1 3193}# - #{e2 3194}#) - (#{lp 3166}# - (cons #{e1 3193}# #{e2 3194}#) + (lambda (#{k 3205}# + #{v 3206}# + #{e1 3207}# + #{e2 3208}#) + (#{lp 3180}# + (cons #{e1 3207}# #{e2 3208}#) (append - #{meta 3168}# + #{meta 3182}# (syntax->datum (map cons - #{k 3191}# - #{v 3192}#))))) - #{tmp 3186}#) - (let ((#{_ 3199}# #{tmp 3170}#)) - (#{chi-simple-lambda 439}# - #{e 3137}# - #{r 3138}# - #{w 3139}# - #{s 3140}# - #{mod 3141}# - #{req 3155}# - #{rest 3157}# - #{meta 3168}# - #{body 3167}#)))))))))) + #{k 3205}# + #{v 3206}#))))) + #{tmp 3200}#) + (let ((#{_ 3213}# #{tmp 3184}#)) + (#{chi-simple-lambda 452}# + #{e 3151}# + #{r 3152}# + #{w 3153}# + #{s 3154}# + #{mod 3155}# + #{req 3169}# + #{rest 3171}# + #{meta 3182}# + #{body 3181}#)))))))))) (begin - (#{lp 3166}# - (cons #{e1 3153}# #{e2 3154}#) + (#{lp 3180}# + (cons #{e1 3167}# #{e2 3168}#) '())))))) - #{tmp 3148}#) - (let ((#{_ 3201}# #{tmp 3147}#)) + #{tmp 3162}#) + (let ((#{_ 3215}# #{tmp 3161}#)) (syntax-violation 'lambda "bad lambda" - #{e 3137}#))))))) - (#{global-extend 335}# + #{e 3151}#))))))) + (#{global-extend 340}# 'core 'lambda* - (lambda (#{e 3202}# - #{r 3203}# - #{w 3204}# - #{s 3205}# - #{mod 3206}#) - (let ((#{tmp 3212}# #{e 3202}#)) - (let ((#{tmp 3213}# + (lambda (#{e 3216}# + #{r 3217}# + #{w 3218}# + #{s 3219}# + #{mod 3220}#) + (let ((#{tmp 3226}# #{e 3216}#)) + (let ((#{tmp 3227}# ($sc-dispatch - #{tmp 3212}# + #{tmp 3226}# '(_ any any . each-any)))) - (if #{tmp 3213}# + (if #{tmp 3227}# (@apply - (lambda (#{args 3217}# #{e1 3218}# #{e2 3219}#) + (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#) (call-with-values (lambda () - (#{chi-lambda-case 443}# - #{e 3202}# - #{r 3203}# - #{w 3204}# - #{s 3205}# - #{mod 3206}# - #{lambda*-formals 441}# - (list (cons #{args 3217}# - (cons #{e1 3218}# #{e2 3219}#))))) - (lambda (#{meta 3221}# #{lcase 3222}#) - (#{build-case-lambda 285}# - #{s 3205}# - #{meta 3221}# - #{lcase 3222}#)))) - #{tmp 3213}#) - (let ((#{_ 3226}# #{tmp 3212}#)) + (#{chi-lambda-case 456}# + #{e 3216}# + #{r 3217}# + #{w 3218}# + #{s 3219}# + #{mod 3220}# + #{lambda*-formals 454}# + (list (cons #{args 3231}# + (cons #{e1 3232}# #{e2 3233}#))))) + (lambda (#{meta 3235}# #{lcase 3236}#) + (#{build-case-lambda 286}# + #{s 3219}# + #{meta 3235}# + #{lcase 3236}#)))) + #{tmp 3227}#) + (let ((#{_ 3240}# #{tmp 3226}#)) (syntax-violation 'lambda "bad lambda*" - #{e 3202}#))))))) - (#{global-extend 335}# + #{e 3216}#))))))) + (#{global-extend 340}# 'core 'case-lambda - (lambda (#{e 3227}# - #{r 3228}# - #{w 3229}# - #{s 3230}# - #{mod 3231}#) - (let ((#{tmp 3237}# #{e 3227}#)) - (let ((#{tmp 3238}# + (lambda (#{e 3241}# + #{r 3242}# + #{w 3243}# + #{s 3244}# + #{mod 3245}#) + (let ((#{tmp 3251}# #{e 3241}#)) + (let ((#{tmp 3252}# ($sc-dispatch - #{tmp 3237}# + #{tmp 3251}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3238}# + (if #{tmp 3252}# (@apply - (lambda (#{args 3245}# - #{e1 3246}# - #{e2 3247}# - #{args* 3248}# - #{e1* 3249}# - #{e2* 3250}#) + (lambda (#{args 3259}# + #{e1 3260}# + #{e2 3261}# + #{args* 3262}# + #{e1* 3263}# + #{e2* 3264}#) (call-with-values (lambda () - (#{chi-lambda-case 443}# - #{e 3227}# - #{r 3228}# - #{w 3229}# - #{s 3230}# - #{mod 3231}# - #{lambda-formals 437}# - (cons (cons #{args 3245}# - (cons #{e1 3246}# #{e2 3247}#)) - (map (lambda (#{tmp 3254}# - #{tmp 3253}# - #{tmp 3252}#) - (cons #{tmp 3252}# - (cons #{tmp 3253}# #{tmp 3254}#))) - #{e2* 3250}# - #{e1* 3249}# - #{args* 3248}#)))) - (lambda (#{meta 3256}# #{lcase 3257}#) - (#{build-case-lambda 285}# - #{s 3230}# - #{meta 3256}# - #{lcase 3257}#)))) - #{tmp 3238}#) - (let ((#{_ 3261}# #{tmp 3237}#)) + (#{chi-lambda-case 456}# + #{e 3241}# + #{r 3242}# + #{w 3243}# + #{s 3244}# + #{mod 3245}# + #{lambda-formals 450}# + (cons (cons #{args 3259}# + (cons #{e1 3260}# #{e2 3261}#)) + (map (lambda (#{tmp 3268}# + #{tmp 3267}# + #{tmp 3266}#) + (cons #{tmp 3266}# + (cons #{tmp 3267}# #{tmp 3268}#))) + #{e2* 3264}# + #{e1* 3263}# + #{args* 3262}#)))) + (lambda (#{meta 3270}# #{lcase 3271}#) + (#{build-case-lambda 286}# + #{s 3244}# + #{meta 3270}# + #{lcase 3271}#)))) + #{tmp 3252}#) + (let ((#{_ 3275}# #{tmp 3251}#)) (syntax-violation 'case-lambda "bad case-lambda" - #{e 3227}#))))))) - (#{global-extend 335}# + #{e 3241}#))))))) + (#{global-extend 340}# 'core 'case-lambda* - (lambda (#{e 3262}# - #{r 3263}# - #{w 3264}# - #{s 3265}# - #{mod 3266}#) - (let ((#{tmp 3272}# #{e 3262}#)) - (let ((#{tmp 3273}# + (lambda (#{e 3276}# + #{r 3277}# + #{w 3278}# + #{s 3279}# + #{mod 3280}#) + (let ((#{tmp 3286}# #{e 3276}#)) + (let ((#{tmp 3287}# ($sc-dispatch - #{tmp 3272}# + #{tmp 3286}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 3273}# + (if #{tmp 3287}# (@apply - (lambda (#{args 3280}# - #{e1 3281}# - #{e2 3282}# - #{args* 3283}# - #{e1* 3284}# - #{e2* 3285}#) + (lambda (#{args 3294}# + #{e1 3295}# + #{e2 3296}# + #{args* 3297}# + #{e1* 3298}# + #{e2* 3299}#) (call-with-values (lambda () - (#{chi-lambda-case 443}# - #{e 3262}# - #{r 3263}# - #{w 3264}# - #{s 3265}# - #{mod 3266}# - #{lambda*-formals 441}# - (cons (cons #{args 3280}# - (cons #{e1 3281}# #{e2 3282}#)) - (map (lambda (#{tmp 3289}# - #{tmp 3288}# - #{tmp 3287}#) - (cons #{tmp 3287}# - (cons #{tmp 3288}# #{tmp 3289}#))) - #{e2* 3285}# - #{e1* 3284}# - #{args* 3283}#)))) - (lambda (#{meta 3291}# #{lcase 3292}#) - (#{build-case-lambda 285}# - #{s 3265}# - #{meta 3291}# - #{lcase 3292}#)))) - #{tmp 3273}#) - (let ((#{_ 3296}# #{tmp 3272}#)) + (#{chi-lambda-case 456}# + #{e 3276}# + #{r 3277}# + #{w 3278}# + #{s 3279}# + #{mod 3280}# + #{lambda*-formals 454}# + (cons (cons #{args 3294}# + (cons #{e1 3295}# #{e2 3296}#)) + (map (lambda (#{tmp 3303}# + #{tmp 3302}# + #{tmp 3301}#) + (cons #{tmp 3301}# + (cons #{tmp 3302}# #{tmp 3303}#))) + #{e2* 3299}# + #{e1* 3298}# + #{args* 3297}#)))) + (lambda (#{meta 3305}# #{lcase 3306}#) + (#{build-case-lambda 286}# + #{s 3279}# + #{meta 3305}# + #{lcase 3306}#)))) + #{tmp 3287}#) + (let ((#{_ 3310}# #{tmp 3286}#)) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 3262}#))))))) - (#{global-extend 335}# + #{e 3276}#))))))) + (#{global-extend 340}# 'core 'let (letrec* - ((#{chi-let 3298}# - (lambda (#{e 3299}# - #{r 3300}# - #{w 3301}# - #{s 3302}# - #{mod 3303}# - #{constructor 3304}# - #{ids 3305}# - #{vals 3306}# - #{exps 3307}#) - (if (not (#{valid-bound-ids? 399}# #{ids 3305}#)) + ((#{chi-let 3312}# + (lambda (#{e 3313}# + #{r 3314}# + #{w 3315}# + #{s 3316}# + #{mod 3317}# + #{constructor 3318}# + #{ids 3319}# + #{vals 3320}# + #{exps 3321}#) + (if (not (#{valid-bound-ids? 412}# #{ids 3319}#)) (syntax-violation 'let "duplicate bound variable" - #{e 3299}#) + #{e 3313}#) (begin - (let ((#{labels 3319}# - (#{gen-labels 354}# #{ids 3305}#)) - (#{new-vars 3320}# - (map #{gen-var 447}# #{ids 3305}#))) + (let ((#{labels 3333}# + (#{gen-labels 364}# #{ids 3319}#)) + (#{new-vars 3334}# + (map #{gen-var 460}# #{ids 3319}#))) (begin - (let ((#{nw 3323}# - (#{make-binding-wrap 383}# - #{ids 3305}# - #{labels 3319}# - #{w 3301}#)) - (#{nr 3324}# - (#{extend-var-env 329}# - #{labels 3319}# - #{new-vars 3320}# - #{r 3300}#))) - (#{constructor 3304}# - #{s 3302}# - (map syntax->datum #{ids 3305}#) - #{new-vars 3320}# - (map (lambda (#{x 3325}#) - (#{chi 419}# - #{x 3325}# - #{r 3300}# - #{w 3301}# - #{mod 3303}#)) - #{vals 3306}#) - (#{chi-body 427}# - #{exps 3307}# - (#{source-wrap 407}# - #{e 3299}# - #{nw 3323}# - #{s 3302}# - #{mod 3303}#) - #{nr 3324}# - #{nw 3323}# - #{mod 3303}#)))))))))) + (let ((#{nw 3337}# + (#{make-binding-wrap 396}# + #{ids 3319}# + #{labels 3333}# + #{w 3315}#)) + (#{nr 3338}# + (#{extend-var-env 334}# + #{labels 3333}# + #{new-vars 3334}# + #{r 3314}#))) + (#{constructor 3318}# + #{s 3316}# + (map syntax->datum #{ids 3319}#) + #{new-vars 3334}# + (map (lambda (#{x 3339}#) + (#{chi 432}# + #{x 3339}# + #{r 3314}# + #{w 3315}# + #{mod 3317}#)) + #{vals 3320}#) + (#{chi-body 440}# + #{exps 3321}# + (#{source-wrap 420}# + #{e 3313}# + #{nw 3337}# + #{s 3316}# + #{mod 3317}#) + #{nr 3338}# + #{nw 3337}# + #{mod 3317}#)))))))))) (begin - (lambda (#{e 3327}# - #{r 3328}# - #{w 3329}# - #{s 3330}# - #{mod 3331}#) - (let ((#{tmp 3337}# #{e 3327}#)) - (let ((#{tmp 3338}# + (lambda (#{e 3341}# + #{r 3342}# + #{w 3343}# + #{s 3344}# + #{mod 3345}#) + (let ((#{tmp 3351}# #{e 3341}#)) + (let ((#{tmp 3352}# ($sc-dispatch - #{tmp 3337}# + #{tmp 3351}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3338}# + (if (if #{tmp 3352}# (@apply - (lambda (#{id 3343}# - #{val 3344}# - #{e1 3345}# - #{e2 3346}#) - (and-map #{id? 339}# #{id 3343}#)) - #{tmp 3338}#) + (lambda (#{id 3357}# + #{val 3358}# + #{e1 3359}# + #{e2 3360}#) + (and-map #{id? 344}# #{id 3357}#)) + #{tmp 3352}#) #f) (@apply - (lambda (#{id 3352}# - #{val 3353}# - #{e1 3354}# - #{e2 3355}#) - (#{chi-let 3298}# - #{e 3327}# - #{r 3328}# - #{w 3329}# - #{s 3330}# - #{mod 3331}# - #{build-let 295}# - #{id 3352}# - #{val 3353}# - (cons #{e1 3354}# #{e2 3355}#))) - #{tmp 3338}#) - (let ((#{tmp 3359}# + (lambda (#{id 3366}# + #{val 3367}# + #{e1 3368}# + #{e2 3369}#) + (#{chi-let 3312}# + #{e 3341}# + #{r 3342}# + #{w 3343}# + #{s 3344}# + #{mod 3345}# + #{build-let 296}# + #{id 3366}# + #{val 3367}# + (cons #{e1 3368}# #{e2 3369}#))) + #{tmp 3352}#) + (let ((#{tmp 3373}# ($sc-dispatch - #{tmp 3337}# + #{tmp 3351}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3359}# + (if (if #{tmp 3373}# (@apply - (lambda (#{f 3365}# - #{id 3366}# - #{val 3367}# - #{e1 3368}# - #{e2 3369}#) - (if (#{id? 339}# #{f 3365}#) - (and-map #{id? 339}# #{id 3366}#) + (lambda (#{f 3379}# + #{id 3380}# + #{val 3381}# + #{e1 3382}# + #{e2 3383}#) + (if (#{id? 344}# #{f 3379}#) + (and-map #{id? 344}# #{id 3380}#) #f)) - #{tmp 3359}#) + #{tmp 3373}#) #f) (@apply - (lambda (#{f 3378}# - #{id 3379}# - #{val 3380}# - #{e1 3381}# - #{e2 3382}#) - (#{chi-let 3298}# - #{e 3327}# - #{r 3328}# - #{w 3329}# - #{s 3330}# - #{mod 3331}# - #{build-named-let 297}# - (cons #{f 3378}# #{id 3379}#) - #{val 3380}# - (cons #{e1 3381}# #{e2 3382}#))) - #{tmp 3359}#) - (let ((#{_ 3387}# #{tmp 3337}#)) + (lambda (#{f 3392}# + #{id 3393}# + #{val 3394}# + #{e1 3395}# + #{e2 3396}#) + (#{chi-let 3312}# + #{e 3341}# + #{r 3342}# + #{w 3343}# + #{s 3344}# + #{mod 3345}# + #{build-named-let 298}# + (cons #{f 3392}# #{id 3393}#) + #{val 3394}# + (cons #{e1 3395}# #{e2 3396}#))) + #{tmp 3373}#) + (let ((#{_ 3401}# #{tmp 3351}#)) (syntax-violation 'let "bad let" - (#{source-wrap 407}# - #{e 3327}# - #{w 3329}# - #{s 3330}# - #{mod 3331}#)))))))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 3341}# + #{w 3343}# + #{s 3344}# + #{mod 3345}#)))))))))))) + (#{global-extend 340}# 'core 'letrec - (lambda (#{e 3388}# - #{r 3389}# - #{w 3390}# - #{s 3391}# - #{mod 3392}#) - (let ((#{tmp 3398}# #{e 3388}#)) - (let ((#{tmp 3399}# + (lambda (#{e 3402}# + #{r 3403}# + #{w 3404}# + #{s 3405}# + #{mod 3406}#) + (let ((#{tmp 3412}# #{e 3402}#)) + (let ((#{tmp 3413}# ($sc-dispatch - #{tmp 3398}# + #{tmp 3412}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3399}# + (if (if #{tmp 3413}# (@apply - (lambda (#{id 3404}# - #{val 3405}# - #{e1 3406}# - #{e2 3407}#) - (and-map #{id? 339}# #{id 3404}#)) - #{tmp 3399}#) + (lambda (#{id 3418}# + #{val 3419}# + #{e1 3420}# + #{e2 3421}#) + (and-map #{id? 344}# #{id 3418}#)) + #{tmp 3413}#) #f) (@apply - (lambda (#{id 3413}# - #{val 3414}# - #{e1 3415}# - #{e2 3416}#) + (lambda (#{id 3427}# + #{val 3428}# + #{e1 3429}# + #{e2 3430}#) (begin - (let ((#{ids 3418}# #{id 3413}#)) - (if (not (#{valid-bound-ids? 399}# #{ids 3418}#)) + (let ((#{ids 3432}# #{id 3427}#)) + (if (not (#{valid-bound-ids? 412}# #{ids 3432}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e 3388}#) + #{e 3402}#) (begin - (let ((#{labels 3422}# - (#{gen-labels 354}# #{ids 3418}#)) - (#{new-vars 3423}# - (map #{gen-var 447}# #{ids 3418}#))) + (let ((#{labels 3436}# + (#{gen-labels 364}# #{ids 3432}#)) + (#{new-vars 3437}# + (map #{gen-var 460}# #{ids 3432}#))) (begin - (let ((#{w 3426}# - (#{make-binding-wrap 383}# - #{ids 3418}# - #{labels 3422}# - #{w 3390}#)) - (#{r 3427}# - (#{extend-var-env 329}# - #{labels 3422}# - #{new-vars 3423}# - #{r 3389}#))) - (#{build-letrec 299}# - #{s 3391}# + (let ((#{w 3440}# + (#{make-binding-wrap 396}# + #{ids 3432}# + #{labels 3436}# + #{w 3404}#)) + (#{r 3441}# + (#{extend-var-env 334}# + #{labels 3436}# + #{new-vars 3437}# + #{r 3403}#))) + (#{build-letrec 300}# + #{s 3405}# #f - (map syntax->datum #{ids 3418}#) - #{new-vars 3423}# - (map (lambda (#{x 3428}#) - (#{chi 419}# - #{x 3428}# - #{r 3427}# - #{w 3426}# - #{mod 3392}#)) - #{val 3414}#) - (#{chi-body 427}# - (cons #{e1 3415}# #{e2 3416}#) - (#{source-wrap 407}# - #{e 3388}# - #{w 3426}# - #{s 3391}# - #{mod 3392}#) - #{r 3427}# - #{w 3426}# - #{mod 3392}#)))))))))) - #{tmp 3399}#) - (let ((#{_ 3433}# #{tmp 3398}#)) + (map syntax->datum #{ids 3432}#) + #{new-vars 3437}# + (map (lambda (#{x 3442}#) + (#{chi 432}# + #{x 3442}# + #{r 3441}# + #{w 3440}# + #{mod 3406}#)) + #{val 3428}#) + (#{chi-body 440}# + (cons #{e1 3429}# #{e2 3430}#) + (#{source-wrap 420}# + #{e 3402}# + #{w 3440}# + #{s 3405}# + #{mod 3406}#) + #{r 3441}# + #{w 3440}# + #{mod 3406}#)))))))))) + #{tmp 3413}#) + (let ((#{_ 3447}# #{tmp 3412}#)) (syntax-violation 'letrec "bad letrec" - (#{source-wrap 407}# - #{e 3388}# - #{w 3390}# - #{s 3391}# - #{mod 3392}#)))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 3402}# + #{w 3404}# + #{s 3405}# + #{mod 3406}#)))))))) + (#{global-extend 340}# 'core 'letrec* - (lambda (#{e 3434}# - #{r 3435}# - #{w 3436}# - #{s 3437}# - #{mod 3438}#) - (let ((#{tmp 3444}# #{e 3434}#)) - (let ((#{tmp 3445}# + (lambda (#{e 3448}# + #{r 3449}# + #{w 3450}# + #{s 3451}# + #{mod 3452}#) + (let ((#{tmp 3458}# #{e 3448}#)) + (let ((#{tmp 3459}# ($sc-dispatch - #{tmp 3444}# + #{tmp 3458}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3445}# + (if (if #{tmp 3459}# (@apply - (lambda (#{id 3450}# - #{val 3451}# - #{e1 3452}# - #{e2 3453}#) - (and-map #{id? 339}# #{id 3450}#)) - #{tmp 3445}#) + (lambda (#{id 3464}# + #{val 3465}# + #{e1 3466}# + #{e2 3467}#) + (and-map #{id? 344}# #{id 3464}#)) + #{tmp 3459}#) #f) (@apply - (lambda (#{id 3459}# - #{val 3460}# - #{e1 3461}# - #{e2 3462}#) + (lambda (#{id 3473}# + #{val 3474}# + #{e1 3475}# + #{e2 3476}#) (begin - (let ((#{ids 3464}# #{id 3459}#)) - (if (not (#{valid-bound-ids? 399}# #{ids 3464}#)) + (let ((#{ids 3478}# #{id 3473}#)) + (if (not (#{valid-bound-ids? 412}# #{ids 3478}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 3434}#) + #{e 3448}#) (begin - (let ((#{labels 3468}# - (#{gen-labels 354}# #{ids 3464}#)) - (#{new-vars 3469}# - (map #{gen-var 447}# #{ids 3464}#))) + (let ((#{labels 3482}# + (#{gen-labels 364}# #{ids 3478}#)) + (#{new-vars 3483}# + (map #{gen-var 460}# #{ids 3478}#))) (begin - (let ((#{w 3472}# - (#{make-binding-wrap 383}# - #{ids 3464}# - #{labels 3468}# - #{w 3436}#)) - (#{r 3473}# - (#{extend-var-env 329}# - #{labels 3468}# - #{new-vars 3469}# - #{r 3435}#))) - (#{build-letrec 299}# - #{s 3437}# + (let ((#{w 3486}# + (#{make-binding-wrap 396}# + #{ids 3478}# + #{labels 3482}# + #{w 3450}#)) + (#{r 3487}# + (#{extend-var-env 334}# + #{labels 3482}# + #{new-vars 3483}# + #{r 3449}#))) + (#{build-letrec 300}# + #{s 3451}# #t - (map syntax->datum #{ids 3464}#) - #{new-vars 3469}# - (map (lambda (#{x 3474}#) - (#{chi 419}# - #{x 3474}# - #{r 3473}# - #{w 3472}# - #{mod 3438}#)) - #{val 3460}#) - (#{chi-body 427}# - (cons #{e1 3461}# #{e2 3462}#) - (#{source-wrap 407}# - #{e 3434}# - #{w 3472}# - #{s 3437}# - #{mod 3438}#) - #{r 3473}# - #{w 3472}# - #{mod 3438}#)))))))))) - #{tmp 3445}#) - (let ((#{_ 3479}# #{tmp 3444}#)) + (map syntax->datum #{ids 3478}#) + #{new-vars 3483}# + (map (lambda (#{x 3488}#) + (#{chi 432}# + #{x 3488}# + #{r 3487}# + #{w 3486}# + #{mod 3452}#)) + #{val 3474}#) + (#{chi-body 440}# + (cons #{e1 3475}# #{e2 3476}#) + (#{source-wrap 420}# + #{e 3448}# + #{w 3486}# + #{s 3451}# + #{mod 3452}#) + #{r 3487}# + #{w 3486}# + #{mod 3452}#)))))))))) + #{tmp 3459}#) + (let ((#{_ 3493}# #{tmp 3458}#)) (syntax-violation 'letrec* "bad letrec*" - (#{source-wrap 407}# - #{e 3434}# - #{w 3436}# - #{s 3437}# - #{mod 3438}#)))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 3448}# + #{w 3450}# + #{s 3451}# + #{mod 3452}#)))))))) + (#{global-extend 340}# 'core 'set! - (lambda (#{e 3480}# - #{r 3481}# - #{w 3482}# - #{s 3483}# - #{mod 3484}#) - (let ((#{tmp 3490}# #{e 3480}#)) - (let ((#{tmp 3491}# - ($sc-dispatch #{tmp 3490}# '(_ any any)))) - (if (if #{tmp 3491}# + (lambda (#{e 3494}# + #{r 3495}# + #{w 3496}# + #{s 3497}# + #{mod 3498}#) + (let ((#{tmp 3504}# #{e 3494}#)) + (let ((#{tmp 3505}# + ($sc-dispatch #{tmp 3504}# '(_ any any)))) + (if (if #{tmp 3505}# (@apply - (lambda (#{id 3494}# #{val 3495}#) - (#{id? 339}# #{id 3494}#)) - #{tmp 3491}#) + (lambda (#{id 3508}# #{val 3509}#) + (#{id? 344}# #{id 3508}#)) + #{tmp 3505}#) #f) (@apply - (lambda (#{id 3498}# #{val 3499}#) + (lambda (#{id 3512}# #{val 3513}#) (begin - (let ((#{n 3502}# - (#{id-var-name 393}# #{id 3498}# #{w 3482}#)) - (#{id-mod 3503}# - (if (#{syntax-object? 305}# #{id 3498}#) - (#{syntax-object-module 311}# #{id 3498}#) - #{mod 3484}#))) + (let ((#{n 3516}# + (#{id-var-name 406}# #{id 3512}# #{w 3496}#)) + (#{id-mod 3517}# + (if (#{syntax-object? 307}# #{id 3512}#) + (#{syntax-object-module 313}# #{id 3512}#) + #{mod 3498}#))) (begin - (let ((#{b 3505}# - (#{lookup 333}# - #{n 3502}# - #{r 3481}# - #{id-mod 3503}#))) + (let ((#{b 3519}# + (#{lookup 338}# + #{n 3516}# + #{r 3495}# + #{id-mod 3517}#))) (begin - (let ((#{atom-key 3508}# (car #{b 3505}#))) - (if (eqv? #{atom-key 3508}# 'lexical) - (#{build-lexical-assignment 273}# - #{s 3483}# - (syntax->datum #{id 3498}#) - (cdr #{b 3505}#) - (#{chi 419}# - #{val 3499}# - #{r 3481}# - #{w 3482}# - #{mod 3484}#)) - (if (eqv? #{atom-key 3508}# 'global) - (#{build-global-assignment 279}# - #{s 3483}# - #{n 3502}# - (#{chi 419}# - #{val 3499}# - #{r 3481}# - #{w 3482}# - #{mod 3484}#) - #{id-mod 3503}#) - (if (eqv? #{atom-key 3508}# 'macro) + (let ((#{atom-key 3522}# (car #{b 3519}#))) + (if (eqv? #{atom-key 3522}# 'lexical) + (#{build-lexical-assignment 274}# + #{s 3497}# + (syntax->datum #{id 3512}#) + (cdr #{b 3519}#) + (#{chi 432}# + #{val 3513}# + #{r 3495}# + #{w 3496}# + #{mod 3498}#)) + (if (eqv? #{atom-key 3522}# 'global) + (#{build-global-assignment 280}# + #{s 3497}# + #{n 3516}# + (#{chi 432}# + #{val 3513}# + #{r 3495}# + #{w 3496}# + #{mod 3498}#) + #{id-mod 3517}#) + (if (eqv? #{atom-key 3522}# 'macro) (begin - (let ((#{p 3515}# (cdr #{b 3505}#))) + (let ((#{p 3529}# (cdr #{b 3519}#))) (if (procedure-property - #{p 3515}# + #{p 3529}# 'variable-transformer) - (#{chi 419}# - (#{chi-macro 425}# - #{p 3515}# - #{e 3480}# - #{r 3481}# - #{w 3482}# - #{s 3483}# + (#{chi 432}# + (#{chi-macro 438}# + #{p 3529}# + #{e 3494}# + #{r 3495}# + #{w 3496}# + #{s 3497}# #f - #{mod 3484}#) - #{r 3481}# + #{mod 3498}#) + #{r 3495}# '(()) - #{mod 3484}#) + #{mod 3498}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 405}# - #{e 3480}# - #{w 3482}# - #{mod 3484}#) - (#{wrap 405}# - #{id 3498}# - #{w 3482}# - #{id-mod 3503}#))))) - (if (eqv? #{atom-key 3508}# + (#{wrap 418}# + #{e 3494}# + #{w 3496}# + #{mod 3498}#) + (#{wrap 418}# + #{id 3512}# + #{w 3496}# + #{id-mod 3517}#))))) + (if (eqv? #{atom-key 3522}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 405}# - #{id 3498}# - #{w 3482}# - #{mod 3484}#)) + (#{wrap 418}# + #{id 3512}# + #{w 3496}# + #{mod 3498}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 407}# - #{e 3480}# - #{w 3482}# - #{s 3483}# - #{mod 3484}#))))))))))))) - #{tmp 3491}#) - (let ((#{tmp 3520}# + (#{source-wrap 420}# + #{e 3494}# + #{w 3496}# + #{s 3497}# + #{mod 3498}#))))))))))))) + #{tmp 3505}#) + (let ((#{tmp 3534}# ($sc-dispatch - #{tmp 3490}# + #{tmp 3504}# '(_ (any . each-any) any)))) - (if #{tmp 3520}# + (if #{tmp 3534}# (@apply - (lambda (#{head 3524}# #{tail 3525}# #{val 3526}#) + (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#) (call-with-values (lambda () - (#{syntax-type 417}# - #{head 3524}# - #{r 3481}# + (#{syntax-type 430}# + #{head 3538}# + #{r 3495}# '(()) #f #f - #{mod 3484}# + #{mod 3498}# #t)) - (lambda (#{type 3529}# - #{value 3530}# - #{ee 3531}# - #{ww 3532}# - #{ss 3533}# - #{modmod 3534}#) - (if (eqv? #{type 3529}# 'module-ref) + (lambda (#{type 3543}# + #{value 3544}# + #{ee 3545}# + #{ww 3546}# + #{ss 3547}# + #{modmod 3548}#) + (if (eqv? #{type 3543}# 'module-ref) (begin - (let ((#{val 3543}# - (#{chi 419}# - #{val 3526}# - #{r 3481}# - #{w 3482}# - #{mod 3484}#))) + (let ((#{val 3557}# + (#{chi 432}# + #{val 3540}# + #{r 3495}# + #{w 3496}# + #{mod 3498}#))) (call-with-values (lambda () - (#{value 3530}# - (cons #{head 3524}# #{tail 3525}#) - #{r 3481}# - #{w 3482}#)) - (lambda (#{e 3545}# - #{r 3546}# - #{w 3547}# - #{s* 3548}# - #{mod 3549}#) - (let ((#{tmp 3555}# #{e 3545}#)) - (let ((#{tmp 3556}# - (list #{tmp 3555}#))) - (if (if #{tmp 3556}# + (#{value 3544}# + (cons #{head 3538}# #{tail 3539}#) + #{r 3495}# + #{w 3496}#)) + (lambda (#{e 3559}# + #{r 3560}# + #{w 3561}# + #{s* 3562}# + #{mod 3563}#) + (let ((#{tmp 3569}# #{e 3559}#)) + (let ((#{tmp 3570}# + (list #{tmp 3569}#))) + (if (if #{tmp 3570}# (@apply - (lambda (#{e 3558}#) - (#{id? 339}# #{e 3558}#)) - #{tmp 3556}#) + (lambda (#{e 3572}#) + (#{id? 344}# #{e 3572}#)) + #{tmp 3570}#) #f) (@apply - (lambda (#{e 3560}#) - (#{build-global-assignment 279}# - #{s 3483}# - (syntax->datum #{e 3560}#) - #{val 3543}# - #{mod 3549}#)) - #{tmp 3556}#) + (lambda (#{e 3574}#) + (#{build-global-assignment 280}# + #{s 3497}# + (syntax->datum #{e 3574}#) + #{val 3557}# + #{mod 3563}#)) + #{tmp 3570}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3555}#)))))))) - (#{build-application 265}# - #{s 3483}# - (#{chi 419}# + #{tmp 3569}#)))))))) + (#{build-application 266}# + #{s 3497}# + (#{chi 432}# (list '#(syntax-object setter ((top) @@ -9930,25 +9930,25 @@ (top) (top) (top)) - #("i3535" - "i3536" - "i3537" - "i3538" - "i3539" - "i3540")) + #("i3549" + "i3550" + "i3551" + "i3552" + "i3553" + "i3554")) #(ribcage #(head tail val) #((top) (top) (top)) - #("i3521" "i3522" "i3523")) + #("i3535" "i3536" "i3537")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top)) - #("i3485" - "i3486" - "i3487" - "i3488" - "i3489")) + #("i3499" + "i3500" + "i3501" + "i3502" + "i3503")) #(ribcage (lambda-var-list gen-var @@ -10222,81 +10222,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -10306,31 +10307,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -10365,50 +10365,50 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile)) - #{head 3524}#) - #{r 3481}# - #{w 3482}# - #{mod 3484}#) - (map (lambda (#{e 3562}#) - (#{chi 419}# - #{e 3562}# - #{r 3481}# - #{w 3482}# - #{mod 3484}#)) + #{head 3538}#) + #{r 3495}# + #{w 3496}# + #{mod 3498}#) + (map (lambda (#{e 3576}#) + (#{chi 432}# + #{e 3576}# + #{r 3495}# + #{w 3496}# + #{mod 3498}#)) (append - #{tail 3525}# - (list #{val 3526}#)))))))) - #{tmp 3520}#) - (let ((#{_ 3566}# #{tmp 3490}#)) + #{tail 3539}# + (list #{val 3540}#)))))))) + #{tmp 3534}#) + (let ((#{_ 3580}# #{tmp 3504}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 407}# - #{e 3480}# - #{w 3482}# - #{s 3483}# - #{mod 3484}#)))))))))) - (#{global-extend 335}# + (#{source-wrap 420}# + #{e 3494}# + #{w 3496}# + #{s 3497}# + #{mod 3498}#)))))))))) + (#{global-extend 340}# 'module-ref '@ - (lambda (#{e 3567}# #{r 3568}# #{w 3569}#) - (let ((#{tmp 3573}# #{e 3567}#)) - (let ((#{tmp 3574}# - ($sc-dispatch #{tmp 3573}# '(_ each-any any)))) - (if (if #{tmp 3574}# + (lambda (#{e 3581}# #{r 3582}# #{w 3583}#) + (let ((#{tmp 3587}# #{e 3581}#)) + (let ((#{tmp 3588}# + ($sc-dispatch #{tmp 3587}# '(_ each-any any)))) + (if (if #{tmp 3588}# (@apply - (lambda (#{mod 3577}# #{id 3578}#) - (if (and-map #{id? 339}# #{mod 3577}#) - (#{id? 339}# #{id 3578}#) + (lambda (#{mod 3591}# #{id 3592}#) + (if (and-map #{id? 344}# #{mod 3591}#) + (#{id? 344}# #{id 3592}#) #f)) - #{tmp 3574}#) + #{tmp 3588}#) #f) (@apply - (lambda (#{mod 3584}# #{id 3585}#) + (lambda (#{mod 3598}# #{id 3599}#) (values - (syntax->datum #{id 3585}#) - #{r 3568}# - #{w 3569}# + (syntax->datum #{id 3599}#) + #{r 3582}# + #{w 3583}# #f (syntax->datum (cons '#(syntax-object @@ -10417,12 +10417,12 @@ #(ribcage #(mod id) #((top) (top)) - #("i3582" "i3583")) + #("i3596" "i3597")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3570" "i3571" "i3572")) + #("i3584" "i3585" "i3586")) #(ribcage (lambda-var-list gen-var @@ -10696,81 +10696,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -10780,31 +10781,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -10839,70 +10839,70 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile)) - #{mod 3584}#)))) - #{tmp 3574}#) + #{mod 3598}#)))) + #{tmp 3588}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3573}#)))))) - (#{global-extend 335}# + #{tmp 3587}#)))))) + (#{global-extend 340}# 'module-ref '@@ - (lambda (#{e 3587}# #{r 3588}# #{w 3589}#) + (lambda (#{e 3601}# #{r 3602}# #{w 3603}#) (letrec* - ((#{remodulate 3594}# - (lambda (#{x 3595}# #{mod 3596}#) - (if (pair? #{x 3595}#) - (cons (#{remodulate 3594}# - (car #{x 3595}#) - #{mod 3596}#) - (#{remodulate 3594}# - (cdr #{x 3595}#) - #{mod 3596}#)) - (if (#{syntax-object? 305}# #{x 3595}#) - (#{make-syntax-object 303}# - (#{remodulate 3594}# - (#{syntax-object-expression 307}# #{x 3595}#) - #{mod 3596}#) - (#{syntax-object-wrap 309}# #{x 3595}#) - #{mod 3596}#) - (if (vector? #{x 3595}#) + ((#{remodulate 3608}# + (lambda (#{x 3609}# #{mod 3610}#) + (if (pair? #{x 3609}#) + (cons (#{remodulate 3608}# + (car #{x 3609}#) + #{mod 3610}#) + (#{remodulate 3608}# + (cdr #{x 3609}#) + #{mod 3610}#)) + (if (#{syntax-object? 307}# #{x 3609}#) + (#{make-syntax-object 305}# + (#{remodulate 3608}# + (#{syntax-object-expression 309}# #{x 3609}#) + #{mod 3610}#) + (#{syntax-object-wrap 311}# #{x 3609}#) + #{mod 3610}#) + (if (vector? #{x 3609}#) (begin - (let ((#{n 3607}# (vector-length #{x 3595}#))) + (let ((#{n 3621}# (vector-length #{x 3609}#))) (begin - (let ((#{v 3609}# (make-vector #{n 3607}#))) + (let ((#{v 3623}# (make-vector #{n 3621}#))) (letrec* - ((#{loop 3612}# - (lambda (#{i 3613}#) - (if (= #{i 3613}# #{n 3607}#) - (begin (if #f #f) #{v 3609}#) + ((#{loop 3626}# + (lambda (#{i 3627}#) + (if (= #{i 3627}# #{n 3621}#) + (begin (if #f #f) #{v 3623}#) (begin (vector-set! - #{v 3609}# - #{i 3613}# - (#{remodulate 3594}# + #{v 3623}# + #{i 3627}# + (#{remodulate 3608}# (vector-ref - #{x 3595}# - #{i 3613}#) - #{mod 3596}#)) - (#{loop 3612}# - (#{1+}# #{i 3613}#))))))) - (begin (#{loop 3612}# 0))))))) - #{x 3595}#)))))) + #{x 3609}# + #{i 3627}#) + #{mod 3610}#)) + (#{loop 3626}# + (#{1+}# #{i 3627}#))))))) + (begin (#{loop 3626}# 0))))))) + #{x 3609}#)))))) (begin - (let ((#{tmp 3619}# #{e 3587}#)) - (let ((#{tmp 3620}# - ($sc-dispatch #{tmp 3619}# '(_ each-any any)))) - (if (if #{tmp 3620}# + (let ((#{tmp 3633}# #{e 3601}#)) + (let ((#{tmp 3634}# + ($sc-dispatch #{tmp 3633}# '(_ each-any any)))) + (if (if #{tmp 3634}# (@apply - (lambda (#{mod 3623}# #{exp 3624}#) - (and-map #{id? 339}# #{mod 3623}#)) - #{tmp 3620}#) + (lambda (#{mod 3637}# #{exp 3638}#) + (and-map #{id? 344}# #{mod 3637}#)) + #{tmp 3634}#) #f) (@apply - (lambda (#{mod 3628}# #{exp 3629}#) + (lambda (#{mod 3642}# #{exp 3643}#) (begin - (let ((#{mod 3631}# + (let ((#{mod 3645}# (syntax->datum (cons '#(syntax-object private @@ -10910,15 +10910,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("i3626" "i3627")) + #("i3640" "i3641")) #(ribcage (remodulate) ((top)) - ("i3593")) + ("i3607")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3590" "i3591" "i3592")) + #("i3604" "i3605" "i3606")) #(ribcage (lambda-var-list gen-var @@ -11192,81 +11192,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -11276,31 +11277,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -11335,183 +11335,183 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile)) - #{mod 3628}#)))) + #{mod 3642}#)))) (values - (#{remodulate 3594}# #{exp 3629}# #{mod 3631}#) - #{r 3588}# - #{w 3589}# - (#{source-annotation 320}# #{exp 3629}#) - #{mod 3631}#)))) - #{tmp 3620}#) + (#{remodulate 3608}# #{exp 3643}# #{mod 3645}#) + #{r 3602}# + #{w 3603}# + (#{source-annotation 322}# #{exp 3643}#) + #{mod 3645}#)))) + #{tmp 3634}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3619}#)))))))) - (#{global-extend 335}# + #{tmp 3633}#)))))))) + (#{global-extend 340}# 'core 'if - (lambda (#{e 3633}# - #{r 3634}# - #{w 3635}# - #{s 3636}# - #{mod 3637}#) - (let ((#{tmp 3643}# #{e 3633}#)) - (let ((#{tmp 3644}# - ($sc-dispatch #{tmp 3643}# '(_ any any)))) - (if #{tmp 3644}# + (lambda (#{e 3647}# + #{r 3648}# + #{w 3649}# + #{s 3650}# + #{mod 3651}#) + (let ((#{tmp 3657}# #{e 3647}#)) + (let ((#{tmp 3658}# + ($sc-dispatch #{tmp 3657}# '(_ any any)))) + (if #{tmp 3658}# (@apply - (lambda (#{test 3647}# #{then 3648}#) - (#{build-conditional 267}# - #{s 3636}# - (#{chi 419}# - #{test 3647}# - #{r 3634}# - #{w 3635}# - #{mod 3637}#) - (#{chi 419}# - #{then 3648}# - #{r 3634}# - #{w 3635}# - #{mod 3637}#) - (#{build-void 263}# #f))) - #{tmp 3644}#) - (let ((#{tmp 3650}# - ($sc-dispatch #{tmp 3643}# '(_ any any any)))) - (if #{tmp 3650}# + (lambda (#{test 3661}# #{then 3662}#) + (#{build-conditional 268}# + #{s 3650}# + (#{chi 432}# + #{test 3661}# + #{r 3648}# + #{w 3649}# + #{mod 3651}#) + (#{chi 432}# + #{then 3662}# + #{r 3648}# + #{w 3649}# + #{mod 3651}#) + (#{build-void 264}# #f))) + #{tmp 3658}#) + (let ((#{tmp 3664}# + ($sc-dispatch #{tmp 3657}# '(_ any any any)))) + (if #{tmp 3664}# (@apply - (lambda (#{test 3654}# #{then 3655}# #{else 3656}#) - (#{build-conditional 267}# - #{s 3636}# - (#{chi 419}# - #{test 3654}# - #{r 3634}# - #{w 3635}# - #{mod 3637}#) - (#{chi 419}# - #{then 3655}# - #{r 3634}# - #{w 3635}# - #{mod 3637}#) - (#{chi 419}# - #{else 3656}# - #{r 3634}# - #{w 3635}# - #{mod 3637}#))) - #{tmp 3650}#) + (lambda (#{test 3668}# #{then 3669}# #{else 3670}#) + (#{build-conditional 268}# + #{s 3650}# + (#{chi 432}# + #{test 3668}# + #{r 3648}# + #{w 3649}# + #{mod 3651}#) + (#{chi 432}# + #{then 3669}# + #{r 3648}# + #{w 3649}# + #{mod 3651}#) + (#{chi 432}# + #{else 3670}# + #{r 3648}# + #{w 3649}# + #{mod 3651}#))) + #{tmp 3664}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3643}#)))))))) - (#{global-extend 335}# + #{tmp 3657}#)))))))) + (#{global-extend 340}# 'core 'with-fluids - (lambda (#{e 3657}# - #{r 3658}# - #{w 3659}# - #{s 3660}# - #{mod 3661}#) - (let ((#{tmp 3667}# #{e 3657}#)) - (let ((#{tmp 3668}# + (lambda (#{e 3671}# + #{r 3672}# + #{w 3673}# + #{s 3674}# + #{mod 3675}#) + (let ((#{tmp 3681}# #{e 3671}#)) + (let ((#{tmp 3682}# ($sc-dispatch - #{tmp 3667}# + #{tmp 3681}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3668}# + (if #{tmp 3682}# (@apply - (lambda (#{fluid 3673}# - #{val 3674}# - #{b 3675}# - #{b* 3676}#) - (#{build-dynlet 269}# - #{s 3660}# - (map (lambda (#{x 3677}#) - (#{chi 419}# - #{x 3677}# - #{r 3658}# - #{w 3659}# - #{mod 3661}#)) - #{fluid 3673}#) - (map (lambda (#{x 3680}#) - (#{chi 419}# - #{x 3680}# - #{r 3658}# - #{w 3659}# - #{mod 3661}#)) - #{val 3674}#) - (#{chi-body 427}# - (cons #{b 3675}# #{b* 3676}#) - (#{source-wrap 407}# - #{e 3657}# - #{w 3659}# - #{s 3660}# - #{mod 3661}#) - #{r 3658}# - #{w 3659}# - #{mod 3661}#))) - #{tmp 3668}#) + (lambda (#{fluid 3687}# + #{val 3688}# + #{b 3689}# + #{b* 3690}#) + (#{build-dynlet 270}# + #{s 3674}# + (map (lambda (#{x 3691}#) + (#{chi 432}# + #{x 3691}# + #{r 3672}# + #{w 3673}# + #{mod 3675}#)) + #{fluid 3687}#) + (map (lambda (#{x 3694}#) + (#{chi 432}# + #{x 3694}# + #{r 3672}# + #{w 3673}# + #{mod 3675}#)) + #{val 3688}#) + (#{chi-body 440}# + (cons #{b 3689}# #{b* 3690}#) + (#{source-wrap 420}# + #{e 3671}# + #{w 3673}# + #{s 3674}# + #{mod 3675}#) + #{r 3672}# + #{w 3673}# + #{mod 3675}#))) + #{tmp 3682}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3667}#)))))) - (#{global-extend 335}# 'begin 'begin '()) - (#{global-extend 335}# 'define 'define '()) - (#{global-extend 335}# + #{tmp 3681}#)))))) + (#{global-extend 340}# 'begin 'begin '()) + (#{global-extend 340}# 'define 'define '()) + (#{global-extend 340}# 'define-syntax 'define-syntax '()) - (#{global-extend 335}# 'eval-when 'eval-when '()) - (#{global-extend 335}# + (#{global-extend 340}# 'eval-when 'eval-when '()) + (#{global-extend 340}# 'core 'syntax-case (letrec* - ((#{convert-pattern 3685}# - (lambda (#{pattern 3692}# #{keys 3693}#) + ((#{convert-pattern 3699}# + (lambda (#{pattern 3706}# #{keys 3707}#) (letrec* - ((#{cvt* 3697}# - (lambda (#{p* 3702}# #{n 3703}# #{ids 3704}#) - (if (not (pair? #{p* 3702}#)) - (#{cvt 3701}# - #{p* 3702}# - #{n 3703}# - #{ids 3704}#) + ((#{cvt* 3711}# + (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#) + (if (not (pair? #{p* 3716}#)) + (#{cvt 3715}# + #{p* 3716}# + #{n 3717}# + #{ids 3718}#) (call-with-values (lambda () - (#{cvt* 3697}# - (cdr #{p* 3702}#) - #{n 3703}# - #{ids 3704}#)) - (lambda (#{y 3708}# #{ids 3709}#) + (#{cvt* 3711}# + (cdr #{p* 3716}#) + #{n 3717}# + #{ids 3718}#)) + (lambda (#{y 3722}# #{ids 3723}#) (call-with-values (lambda () - (#{cvt 3701}# - (car #{p* 3702}#) - #{n 3703}# - #{ids 3709}#)) - (lambda (#{x 3712}# #{ids 3713}#) + (#{cvt 3715}# + (car #{p* 3716}#) + #{n 3717}# + #{ids 3723}#)) + (lambda (#{x 3726}# #{ids 3727}#) (values - (cons #{x 3712}# #{y 3708}#) - #{ids 3713}#)))))))) - (#{v-reverse 3699}# - (lambda (#{x 3716}#) + (cons #{x 3726}# #{y 3722}#) + #{ids 3727}#)))))))) + (#{v-reverse 3713}# + (lambda (#{x 3730}#) (letrec* - ((#{loop 3721}# - (lambda (#{r 3722}# #{x 3723}#) - (if (not (pair? #{x 3723}#)) - (values #{r 3722}# #{x 3723}#) - (#{loop 3721}# - (cons (car #{x 3723}#) #{r 3722}#) - (cdr #{x 3723}#)))))) - (begin (#{loop 3721}# '() #{x 3716}#))))) - (#{cvt 3701}# - (lambda (#{p 3724}# #{n 3725}# #{ids 3726}#) - (if (#{id? 339}# #{p 3724}#) - (if (#{bound-id-member? 403}# - #{p 3724}# - #{keys 3693}#) + ((#{loop 3735}# + (lambda (#{r 3736}# #{x 3737}#) + (if (not (pair? #{x 3737}#)) + (values #{r 3736}# #{x 3737}#) + (#{loop 3735}# + (cons (car #{x 3737}#) #{r 3736}#) + (cdr #{x 3737}#)))))) + (begin (#{loop 3735}# '() #{x 3730}#))))) + (#{cvt 3715}# + (lambda (#{p 3738}# #{n 3739}# #{ids 3740}#) + (if (#{id? 344}# #{p 3738}#) + (if (#{bound-id-member? 416}# + #{p 3738}# + #{keys 3707}#) (values - (vector 'free-id #{p 3724}#) - #{ids 3726}#) - (if (#{free-id=? 395}# - #{p 3724}# + (vector 'free-id #{p 3738}#) + #{ids 3740}#) + (if (#{free-id=? 408}# + #{p 3738}# '#(syntax-object _ ((top) @@ -11519,22 +11519,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("i3727" "i3728" "i3729")) + #("i3741" "i3742" "i3743")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("i3700" "i3698" "i3696")) + ("i3714" "i3712" "i3710")) #(ribcage #(pattern keys) #((top) (top)) - #("i3694" "i3695")) + #("i3708" "i3709")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3690" "i3688" "i3686" "i3684")) + ("i3704" "i3702" "i3700" "i3698")) #(ribcage (lambda-var-list gen-var @@ -11808,81 +11808,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -11892,31 +11893,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -11951,328 +11951,328 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile))) - (values '_ #{ids 3726}#) + (values '_ #{ids 3740}#) (values 'any - (cons (cons #{p 3724}# #{n 3725}#) - #{ids 3726}#)))) - (let ((#{tmp 3735}# #{p 3724}#)) - (let ((#{tmp 3736}# - ($sc-dispatch #{tmp 3735}# '(any any)))) - (if (if #{tmp 3736}# + (cons (cons #{p 3738}# #{n 3739}#) + #{ids 3740}#)))) + (let ((#{tmp 3749}# #{p 3738}#)) + (let ((#{tmp 3750}# + ($sc-dispatch #{tmp 3749}# '(any any)))) + (if (if #{tmp 3750}# (@apply - (lambda (#{x 3739}# #{dots 3740}#) - (#{ellipsis? 435}# #{dots 3740}#)) - #{tmp 3736}#) + (lambda (#{x 3753}# #{dots 3754}#) + (#{ellipsis? 448}# #{dots 3754}#)) + #{tmp 3750}#) #f) (@apply - (lambda (#{x 3743}# #{dots 3744}#) + (lambda (#{x 3757}# #{dots 3758}#) (call-with-values (lambda () - (#{cvt 3701}# - #{x 3743}# - (#{1+}# #{n 3725}#) - #{ids 3726}#)) - (lambda (#{p 3746}# #{ids 3747}#) + (#{cvt 3715}# + #{x 3757}# + (#{1+}# #{n 3739}#) + #{ids 3740}#)) + (lambda (#{p 3760}# #{ids 3761}#) (values - (if (eq? #{p 3746}# 'any) + (if (eq? #{p 3760}# 'any) 'each-any - (vector 'each #{p 3746}#)) - #{ids 3747}#)))) - #{tmp 3736}#) - (let ((#{tmp 3750}# + (vector 'each #{p 3760}#)) + #{ids 3761}#)))) + #{tmp 3750}#) + (let ((#{tmp 3764}# ($sc-dispatch - #{tmp 3735}# + #{tmp 3749}# '(any any . any)))) - (if (if #{tmp 3750}# + (if (if #{tmp 3764}# (@apply - (lambda (#{x 3754}# - #{dots 3755}# - #{ys 3756}#) - (#{ellipsis? 435}# #{dots 3755}#)) - #{tmp 3750}#) + (lambda (#{x 3768}# + #{dots 3769}# + #{ys 3770}#) + (#{ellipsis? 448}# #{dots 3769}#)) + #{tmp 3764}#) #f) (@apply - (lambda (#{x 3760}# - #{dots 3761}# - #{ys 3762}#) + (lambda (#{x 3774}# + #{dots 3775}# + #{ys 3776}#) (call-with-values (lambda () - (#{cvt* 3697}# - #{ys 3762}# - #{n 3725}# - #{ids 3726}#)) - (lambda (#{ys 3763}# #{ids 3764}#) + (#{cvt* 3711}# + #{ys 3776}# + #{n 3739}# + #{ids 3740}#)) + (lambda (#{ys 3777}# #{ids 3778}#) (call-with-values (lambda () - (#{cvt 3701}# - #{x 3760}# - (#{1+}# #{n 3725}#) - #{ids 3764}#)) - (lambda (#{x 3767}# #{ids 3768}#) + (#{cvt 3715}# + #{x 3774}# + (#{1+}# #{n 3739}#) + #{ids 3778}#)) + (lambda (#{x 3781}# #{ids 3782}#) (call-with-values (lambda () - (#{v-reverse 3699}# - #{ys 3763}#)) - (lambda (#{ys 3771}# - #{e 3772}#) + (#{v-reverse 3713}# + #{ys 3777}#)) + (lambda (#{ys 3785}# + #{e 3786}#) (values (vector 'each+ - #{x 3767}# - #{ys 3771}# - #{e 3772}#) - #{ids 3768}#)))))))) - #{tmp 3750}#) - (let ((#{tmp 3776}# + #{x 3781}# + #{ys 3785}# + #{e 3786}#) + #{ids 3782}#)))))))) + #{tmp 3764}#) + (let ((#{tmp 3790}# ($sc-dispatch - #{tmp 3735}# + #{tmp 3749}# '(any . any)))) - (if #{tmp 3776}# + (if #{tmp 3790}# (@apply - (lambda (#{x 3779}# #{y 3780}#) + (lambda (#{x 3793}# #{y 3794}#) (call-with-values (lambda () - (#{cvt 3701}# - #{y 3780}# - #{n 3725}# - #{ids 3726}#)) - (lambda (#{y 3781}# #{ids 3782}#) + (#{cvt 3715}# + #{y 3794}# + #{n 3739}# + #{ids 3740}#)) + (lambda (#{y 3795}# #{ids 3796}#) (call-with-values (lambda () - (#{cvt 3701}# - #{x 3779}# - #{n 3725}# - #{ids 3782}#)) - (lambda (#{x 3785}# - #{ids 3786}#) + (#{cvt 3715}# + #{x 3793}# + #{n 3739}# + #{ids 3796}#)) + (lambda (#{x 3799}# + #{ids 3800}#) (values - (cons #{x 3785}# - #{y 3781}#) - #{ids 3786}#)))))) - #{tmp 3776}#) - (let ((#{tmp 3789}# - ($sc-dispatch #{tmp 3735}# '()))) - (if #{tmp 3789}# + (cons #{x 3799}# + #{y 3795}#) + #{ids 3800}#)))))) + #{tmp 3790}#) + (let ((#{tmp 3803}# + ($sc-dispatch #{tmp 3749}# '()))) + (if #{tmp 3803}# (@apply (lambda () - (values '() #{ids 3726}#)) - #{tmp 3789}#) - (let ((#{tmp 3790}# + (values '() #{ids 3740}#)) + #{tmp 3803}#) + (let ((#{tmp 3804}# ($sc-dispatch - #{tmp 3735}# + #{tmp 3749}# '#(vector each-any)))) - (if #{tmp 3790}# + (if #{tmp 3804}# (@apply - (lambda (#{x 3792}#) + (lambda (#{x 3806}#) (call-with-values (lambda () - (#{cvt 3701}# - #{x 3792}# - #{n 3725}# - #{ids 3726}#)) - (lambda (#{p 3794}# - #{ids 3795}#) + (#{cvt 3715}# + #{x 3806}# + #{n 3739}# + #{ids 3740}#)) + (lambda (#{p 3808}# + #{ids 3809}#) (values (vector 'vector - #{p 3794}#) - #{ids 3795}#)))) - #{tmp 3790}#) - (let ((#{x 3799}# #{tmp 3735}#)) + #{p 3808}#) + #{ids 3809}#)))) + #{tmp 3804}#) + (let ((#{x 3813}# #{tmp 3749}#)) (values (vector 'atom - (#{strip 445}# - #{p 3724}# + (#{strip 458}# + #{p 3738}# '(()))) - #{ids 3726}#))))))))))))))))) - (begin (#{cvt 3701}# #{pattern 3692}# 0 '()))))) - (#{build-dispatch-call 3687}# - (lambda (#{pvars 3801}# - #{exp 3802}# - #{y 3803}# - #{r 3804}# - #{mod 3805}#) + #{ids 3740}#))))))))))))))))) + (begin (#{cvt 3715}# #{pattern 3706}# 0 '()))))) + (#{build-dispatch-call 3701}# + (lambda (#{pvars 3815}# + #{exp 3816}# + #{y 3817}# + #{r 3818}# + #{mod 3819}#) (begin - (map cdr #{pvars 3801}#) - (let ((#{ids 3813}# (map car #{pvars 3801}#))) + (map cdr #{pvars 3815}#) + (let ((#{ids 3827}# (map car #{pvars 3815}#))) (begin - (let ((#{labels 3817}# - (#{gen-labels 354}# #{ids 3813}#)) - (#{new-vars 3818}# - (map #{gen-var 447}# #{ids 3813}#))) - (#{build-application 265}# + (let ((#{labels 3831}# + (#{gen-labels 364}# #{ids 3827}#)) + (#{new-vars 3832}# + (map #{gen-var 460}# #{ids 3827}#))) + (#{build-application 266}# #f - (#{build-primref 289}# #f 'apply) - (list (#{build-simple-lambda 283}# + (#{build-primref 290}# #f 'apply) + (list (#{build-simple-lambda 284}# #f - (map syntax->datum #{ids 3813}#) + (map syntax->datum #{ids 3827}#) #f - #{new-vars 3818}# + #{new-vars 3832}# '() - (#{chi 419}# - #{exp 3802}# - (#{extend-env 327}# - #{labels 3817}# - (map (lambda (#{var 3822}# #{level 3823}#) + (#{chi 432}# + #{exp 3816}# + (#{extend-env 332}# + #{labels 3831}# + (map (lambda (#{var 3836}# #{level 3837}#) (cons 'syntax - (cons #{var 3822}# - #{level 3823}#))) - #{new-vars 3818}# - (map cdr #{pvars 3801}#)) - #{r 3804}#) - (#{make-binding-wrap 383}# - #{ids 3813}# - #{labels 3817}# + (cons #{var 3836}# + #{level 3837}#))) + #{new-vars 3832}# + (map cdr #{pvars 3815}#)) + #{r 3818}#) + (#{make-binding-wrap 396}# + #{ids 3827}# + #{labels 3831}# '(())) - #{mod 3805}#)) - #{y 3803}#)))))))) - (#{gen-clause 3689}# - (lambda (#{x 3829}# - #{keys 3830}# - #{clauses 3831}# - #{r 3832}# - #{pat 3833}# - #{fender 3834}# - #{exp 3835}# - #{mod 3836}#) + #{mod 3819}#)) + #{y 3817}#)))))))) + (#{gen-clause 3703}# + (lambda (#{x 3843}# + #{keys 3844}# + #{clauses 3845}# + #{r 3846}# + #{pat 3847}# + #{fender 3848}# + #{exp 3849}# + #{mod 3850}#) (call-with-values (lambda () - (#{convert-pattern 3685}# - #{pat 3833}# - #{keys 3830}#)) - (lambda (#{p 3845}# #{pvars 3846}#) - (if (not (#{distinct-bound-ids? 401}# - (map car #{pvars 3846}#))) + (#{convert-pattern 3699}# + #{pat 3847}# + #{keys 3844}#)) + (lambda (#{p 3859}# #{pvars 3860}#) + (if (not (#{distinct-bound-ids? 414}# + (map car #{pvars 3860}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 3833}#) + #{pat 3847}#) (if (not (and-map - (lambda (#{x 3853}#) - (not (#{ellipsis? 435}# (car #{x 3853}#)))) - #{pvars 3846}#)) + (lambda (#{x 3867}#) + (not (#{ellipsis? 448}# (car #{x 3867}#)))) + #{pvars 3860}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 3833}#) + #{pat 3847}#) (begin - (let ((#{y 3857}# (#{gen-var 447}# 'tmp))) - (#{build-application 265}# + (let ((#{y 3871}# (#{gen-var 460}# 'tmp))) + (#{build-application 266}# #f - (#{build-simple-lambda 283}# + (#{build-simple-lambda 284}# #f (list 'tmp) #f - (list #{y 3857}#) + (list #{y 3871}#) '() (begin - (let ((#{y 3861}# - (#{build-lexical-reference 271}# + (let ((#{y 3875}# + (#{build-lexical-reference 272}# 'value #f 'tmp - #{y 3857}#))) - (#{build-conditional 267}# + #{y 3871}#))) + (#{build-conditional 268}# #f - (let ((#{tmp 3864}# #{fender 3834}#)) - (let ((#{tmp 3865}# + (let ((#{tmp 3878}# #{fender 3848}#)) + (let ((#{tmp 3879}# ($sc-dispatch - #{tmp 3864}# + #{tmp 3878}# '#(atom #t)))) - (if #{tmp 3865}# + (if #{tmp 3879}# (@apply - (lambda () #{y 3861}#) - #{tmp 3865}#) - (let ((#{_ 3867}# #{tmp 3864}#)) - (#{build-conditional 267}# + (lambda () #{y 3875}#) + #{tmp 3879}#) + (let ((#{_ 3881}# #{tmp 3878}#)) + (#{build-conditional 268}# #f - #{y 3861}# - (#{build-dispatch-call 3687}# - #{pvars 3846}# - #{fender 3834}# - #{y 3861}# - #{r 3832}# - #{mod 3836}#) - (#{build-data 291}# #f #f)))))) - (#{build-dispatch-call 3687}# - #{pvars 3846}# - #{exp 3835}# - #{y 3861}# - #{r 3832}# - #{mod 3836}#) - (#{gen-syntax-case 3691}# - #{x 3829}# - #{keys 3830}# - #{clauses 3831}# - #{r 3832}# - #{mod 3836}#))))) - (list (if (eq? #{p 3845}# 'any) - (#{build-application 265}# + #{y 3875}# + (#{build-dispatch-call 3701}# + #{pvars 3860}# + #{fender 3848}# + #{y 3875}# + #{r 3846}# + #{mod 3850}#) + (#{build-data 292}# #f #f)))))) + (#{build-dispatch-call 3701}# + #{pvars 3860}# + #{exp 3849}# + #{y 3875}# + #{r 3846}# + #{mod 3850}#) + (#{gen-syntax-case 3705}# + #{x 3843}# + #{keys 3844}# + #{clauses 3845}# + #{r 3846}# + #{mod 3850}#))))) + (list (if (eq? #{p 3859}# 'any) + (#{build-application 266}# #f - (#{build-primref 289}# #f 'list) - (list #{x 3829}#)) - (#{build-application 265}# + (#{build-primref 290}# #f 'list) + (list #{x 3843}#)) + (#{build-application 266}# #f - (#{build-primref 289}# #f '$sc-dispatch) - (list #{x 3829}# - (#{build-data 291}# + (#{build-primref 290}# #f '$sc-dispatch) + (list #{x 3843}# + (#{build-data 292}# #f - #{p 3845}#)))))))))))))) - (#{gen-syntax-case 3691}# - (lambda (#{x 3875}# - #{keys 3876}# - #{clauses 3877}# - #{r 3878}# - #{mod 3879}#) - (if (null? #{clauses 3877}#) - (#{build-application 265}# + #{p 3859}#)))))))))))))) + (#{gen-syntax-case 3705}# + (lambda (#{x 3889}# + #{keys 3890}# + #{clauses 3891}# + #{r 3892}# + #{mod 3893}#) + (if (null? #{clauses 3891}#) + (#{build-application 266}# #f - (#{build-primref 289}# #f 'syntax-violation) - (list (#{build-data 291}# #f #f) - (#{build-data 291}# + (#{build-primref 290}# #f 'syntax-violation) + (list (#{build-data 292}# #f #f) + (#{build-data 292}# #f "source expression failed to match any pattern") - #{x 3875}#)) - (let ((#{tmp 3889}# (car #{clauses 3877}#))) - (let ((#{tmp 3890}# - ($sc-dispatch #{tmp 3889}# '(any any)))) - (if #{tmp 3890}# + #{x 3889}#)) + (let ((#{tmp 3903}# (car #{clauses 3891}#))) + (let ((#{tmp 3904}# + ($sc-dispatch #{tmp 3903}# '(any any)))) + (if #{tmp 3904}# (@apply - (lambda (#{pat 3893}# #{exp 3894}#) - (if (if (#{id? 339}# #{pat 3893}#) + (lambda (#{pat 3907}# #{exp 3908}#) + (if (if (#{id? 344}# #{pat 3907}#) (and-map - (lambda (#{x 3897}#) - (not (#{free-id=? 395}# - #{pat 3893}# - #{x 3897}#))) + (lambda (#{x 3911}#) + (not (#{free-id=? 408}# + #{pat 3907}# + #{x 3911}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3891" "i3892")) + #("i3905" "i3906")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3880" - "i3881" - "i3882" - "i3883" - "i3884")) + #("i3894" + "i3895" + "i3896" + "i3897" + "i3898")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3690" - "i3688" - "i3686" - "i3684")) + ("i3704" + "i3702" + "i3700" + "i3698")) #(ribcage (lambda-var-list gen-var @@ -12546,81 +12546,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -12630,31 +12631,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -12689,32 +12689,32 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile)) - #{keys 3876}#)) + #{keys 3890}#)) #f) - (if (#{free-id=? 395}# + (if (#{free-id=? 408}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3891" "i3892")) + #("i3905" "i3906")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3880" - "i3881" - "i3882" - "i3883" - "i3884")) + #("i3894" + "i3895" + "i3896" + "i3897" + "i3898")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3690" "i3688" "i3686" "i3684")) + ("i3704" "i3702" "i3700" "i3698")) #(ribcage (lambda-var-list gen-var @@ -12988,81 +12988,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -13072,31 +13073,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -13137,23 +13137,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("i3891" "i3892")) + #("i3905" "i3906")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("i3880" - "i3881" - "i3882" - "i3883" - "i3884")) + #("i3894" + "i3895" + "i3896" + "i3897" + "i3898")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3690" "i3688" "i3686" "i3684")) + ("i3704" "i3702" "i3700" "i3698")) #(ribcage (lambda-var-list gen-var @@ -13427,81 +13427,82 @@ (top) (top) (top)) - ("i448" - "i446" - "i444" - "i442" - "i440" - "i438" - "i436" - "i434" - "i432" - "i430" - "i428" - "i426" - "i424" - "i422" - "i420" - "i418" - "i416" - "i414" - "i412" - "i410" - "i408" - "i406" - "i404" - "i402" - "i400" - "i398" - "i396" - "i394" + ("i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" "i392" "i390" - "i388" + "i387" "i386" - "i384" + "i385" + "i383" "i382" "i380" - "i379" "i378" "i376" - "i375" "i374" - "i373" "i372" "i370" "i368" "i366" - "i364" - "i362" + "i363" + "i361" "i360" "i358" "i356" - "i353" + "i354" + "i352" "i351" "i350" "i349" - "i348" "i347" "i346" - "i345" - "i344" "i343" "i341" - "i340" - "i338" - "i336" - "i334" - "i332" + "i339" + "i337" + "i335" + "i333" + "i331" "i330" - "i328" - "i326" + "i329" + "i327" "i325" "i324" - "i323" - "i322" "i321" - "i319" + "i320" "i318" "i316" "i314" @@ -13511,31 +13512,30 @@ "i306" "i304" "i302" - "i300" - "i298" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i278" - "i276" - "i274" - "i272" - "i270" - "i268" - "i266" - "i264" - "i262" - "i260" - "i258" - "i256" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" "i254" - "i253" "i251" "i249" "i248" @@ -13570,565 +13570,565 @@ ((top) (top) (top)) ("i40" "i39" "i38"))) (hygiene guile))) - (#{chi 419}# - #{exp 3894}# - #{r 3878}# + (#{chi 432}# + #{exp 3908}# + #{r 3892}# '(()) - #{mod 3879}#) + #{mod 3893}#) (begin - (let ((#{labels 3902}# - (list (#{gen-label 352}#))) - (#{var 3903}# - (#{gen-var 447}# #{pat 3893}#))) - (#{build-application 265}# + (let ((#{labels 3916}# + (list (#{gen-label 362}#))) + (#{var 3917}# + (#{gen-var 460}# #{pat 3907}#))) + (#{build-application 266}# #f - (#{build-simple-lambda 283}# + (#{build-simple-lambda 284}# #f - (list (syntax->datum #{pat 3893}#)) + (list (syntax->datum #{pat 3907}#)) #f - (list #{var 3903}#) + (list #{var 3917}#) '() - (#{chi 419}# - #{exp 3894}# - (#{extend-env 327}# - #{labels 3902}# + (#{chi 432}# + #{exp 3908}# + (#{extend-env 332}# + #{labels 3916}# (list (cons 'syntax - (cons #{var 3903}# 0))) - #{r 3878}#) - (#{make-binding-wrap 383}# - (list #{pat 3893}#) - #{labels 3902}# + (cons #{var 3917}# 0))) + #{r 3892}#) + (#{make-binding-wrap 396}# + (list #{pat 3907}#) + #{labels 3916}# '(())) - #{mod 3879}#)) - (list #{x 3875}#))))) - (#{gen-clause 3689}# - #{x 3875}# - #{keys 3876}# - (cdr #{clauses 3877}#) - #{r 3878}# - #{pat 3893}# + #{mod 3893}#)) + (list #{x 3889}#))))) + (#{gen-clause 3703}# + #{x 3889}# + #{keys 3890}# + (cdr #{clauses 3891}#) + #{r 3892}# + #{pat 3907}# #t - #{exp 3894}# - #{mod 3879}#))) - #{tmp 3890}#) - (let ((#{tmp 3909}# - ($sc-dispatch #{tmp 3889}# '(any any any)))) - (if #{tmp 3909}# + #{exp 3908}# + #{mod 3893}#))) + #{tmp 3904}#) + (let ((#{tmp 3923}# + ($sc-dispatch #{tmp 3903}# '(any any any)))) + (if #{tmp 3923}# (@apply - (lambda (#{pat 3913}# - #{fender 3914}# - #{exp 3915}#) - (#{gen-clause 3689}# - #{x 3875}# - #{keys 3876}# - (cdr #{clauses 3877}#) - #{r 3878}# - #{pat 3913}# - #{fender 3914}# - #{exp 3915}# - #{mod 3879}#)) - #{tmp 3909}#) - (let ((#{_ 3917}# #{tmp 3889}#)) + (lambda (#{pat 3927}# + #{fender 3928}# + #{exp 3929}#) + (#{gen-clause 3703}# + #{x 3889}# + #{keys 3890}# + (cdr #{clauses 3891}#) + #{r 3892}# + #{pat 3927}# + #{fender 3928}# + #{exp 3929}# + #{mod 3893}#)) + #{tmp 3923}#) + (let ((#{_ 3931}# #{tmp 3903}#)) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 3877}#)))))))))))) + (car #{clauses 3891}#)))))))))))) (begin - (lambda (#{e 3918}# - #{r 3919}# - #{w 3920}# - #{s 3921}# - #{mod 3922}#) + (lambda (#{e 3932}# + #{r 3933}# + #{w 3934}# + #{s 3935}# + #{mod 3936}#) (begin - (let ((#{e 3929}# - (#{source-wrap 407}# - #{e 3918}# - #{w 3920}# - #{s 3921}# - #{mod 3922}#))) - (let ((#{tmp 3930}# #{e 3929}#)) - (let ((#{tmp 3931}# + (let ((#{e 3943}# + (#{source-wrap 420}# + #{e 3932}# + #{w 3934}# + #{s 3935}# + #{mod 3936}#))) + (let ((#{tmp 3944}# #{e 3943}#)) + (let ((#{tmp 3945}# ($sc-dispatch - #{tmp 3930}# + #{tmp 3944}# '(_ any each-any . each-any)))) - (if #{tmp 3931}# + (if #{tmp 3945}# (@apply - (lambda (#{val 3935}# #{key 3936}# #{m 3937}#) + (lambda (#{val 3949}# #{key 3950}# #{m 3951}#) (if (and-map - (lambda (#{x 3938}#) - (if (#{id? 339}# #{x 3938}#) - (not (#{ellipsis? 435}# #{x 3938}#)) + (lambda (#{x 3952}#) + (if (#{id? 344}# #{x 3952}#) + (not (#{ellipsis? 448}# #{x 3952}#)) #f)) - #{key 3936}#) + #{key 3950}#) (begin - (let ((#{x 3944}# (#{gen-var 447}# 'tmp))) - (#{build-application 265}# - #{s 3921}# - (#{build-simple-lambda 283}# + (let ((#{x 3958}# (#{gen-var 460}# 'tmp))) + (#{build-application 266}# + #{s 3935}# + (#{build-simple-lambda 284}# #f (list 'tmp) #f - (list #{x 3944}#) + (list #{x 3958}#) '() - (#{gen-syntax-case 3691}# - (#{build-lexical-reference 271}# + (#{gen-syntax-case 3705}# + (#{build-lexical-reference 272}# 'value #f 'tmp - #{x 3944}#) - #{key 3936}# - #{m 3937}# - #{r 3919}# - #{mod 3922}#)) - (list (#{chi 419}# - #{val 3935}# - #{r 3919}# + #{x 3958}#) + #{key 3950}# + #{m 3951}# + #{r 3933}# + #{mod 3936}#)) + (list (#{chi 432}# + #{val 3949}# + #{r 3933}# '(()) - #{mod 3922}#))))) + #{mod 3936}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e 3929}#))) - #{tmp 3931}#) + #{e 3943}#))) + #{tmp 3945}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3930}#)))))))))) + #{tmp 3944}#)))))))))) (set! macroexpand (lambda* - (#{x 3950}# + (#{x 3964}# #:optional - (#{m 3952}# 'e) - (#{esew 3954}# '(eval))) - (#{chi-top-sequence 411}# - (list #{x 3950}#) + (#{m 3966}# 'e) + (#{esew 3968}# '(eval))) + (#{chi-top-sequence 424}# + (list #{x 3964}#) '() '((top)) #f - #{m 3952}# - #{esew 3954}# + #{m 3966}# + #{esew 3968}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 3958}#) - (#{nonsymbol-id? 337}# #{x 3958}#))) + (lambda (#{x 3972}#) + (#{nonsymbol-id? 342}# #{x 3972}#))) (set! datum->syntax - (lambda (#{id 3960}# #{datum 3961}#) - (#{make-syntax-object 303}# - #{datum 3961}# - (#{syntax-object-wrap 309}# #{id 3960}#) - (#{syntax-object-module 311}# #{id 3960}#)))) + (lambda (#{id 3974}# #{datum 3975}#) + (#{make-syntax-object 305}# + #{datum 3975}# + (#{syntax-object-wrap 311}# #{id 3974}#) + (#{syntax-object-module 313}# #{id 3974}#)))) (set! syntax->datum - (lambda (#{x 3964}#) - (#{strip 445}# #{x 3964}# '(())))) + (lambda (#{x 3978}#) + (#{strip 458}# #{x 3978}# '(())))) (set! syntax-source - (lambda (#{x 3967}#) - (#{source-annotation 320}# #{x 3967}#))) + (lambda (#{x 3981}#) + (#{source-annotation 322}# #{x 3981}#))) (set! generate-temporaries - (lambda (#{ls 3969}#) + (lambda (#{ls 3983}#) (begin (begin - (let ((#{x 3973}# #{ls 3969}#)) - (if (not (list? #{x 3973}#)) + (let ((#{x 3987}# #{ls 3983}#)) + (if (not (list? #{x 3987}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x 3973}#)))) + #{x 3987}#)))) (begin - (let ((#{mod 3975}# + (let ((#{mod 3989}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 3976}#) - (#{wrap 405}# (gensym) '((top)) #{mod 3975}#)) - #{ls 3969}#)))))) + (map (lambda (#{x 3990}#) + (#{wrap 418}# (gensym) '((top)) #{mod 3989}#)) + #{ls 3983}#)))))) (set! free-identifier=? - (lambda (#{x 3980}# #{y 3981}#) + (lambda (#{x 3994}# #{y 3995}#) (begin (begin - (let ((#{x 3986}# #{x 3980}#)) - (if (not (#{nonsymbol-id? 337}# #{x 3986}#)) + (let ((#{x 4000}# #{x 3994}#)) + (if (not (#{nonsymbol-id? 342}# #{x 4000}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 3986}#)))) + #{x 4000}#)))) (begin - (let ((#{x 3989}# #{y 3981}#)) - (if (not (#{nonsymbol-id? 337}# #{x 3989}#)) + (let ((#{x 4003}# #{y 3995}#)) + (if (not (#{nonsymbol-id? 342}# #{x 4003}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 3989}#)))) - (#{free-id=? 395}# #{x 3980}# #{y 3981}#)))) + #{x 4003}#)))) + (#{free-id=? 408}# #{x 3994}# #{y 3995}#)))) (set! bound-identifier=? - (lambda (#{x 3990}# #{y 3991}#) + (lambda (#{x 4004}# #{y 4005}#) (begin (begin - (let ((#{x 3996}# #{x 3990}#)) - (if (not (#{nonsymbol-id? 337}# #{x 3996}#)) + (let ((#{x 4010}# #{x 4004}#)) + (if (not (#{nonsymbol-id? 342}# #{x 4010}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 3996}#)))) + #{x 4010}#)))) (begin - (let ((#{x 3999}# #{y 3991}#)) - (if (not (#{nonsymbol-id? 337}# #{x 3999}#)) + (let ((#{x 4013}# #{y 4005}#)) + (if (not (#{nonsymbol-id? 342}# #{x 4013}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 3999}#)))) - (#{bound-id=? 397}# #{x 3990}# #{y 3991}#)))) + #{x 4013}#)))) + (#{bound-id=? 410}# #{x 4004}# #{y 4005}#)))) (set! syntax-violation (lambda* - (#{who 4000}# - #{message 4001}# - #{form 4002}# + (#{who 4014}# + #{message 4015}# + #{form 4016}# #:optional - (#{subform 4006}# #f)) + (#{subform 4020}# #f)) (begin (begin - (let ((#{x 4010}# #{who 4000}#)) - (if (not (let ((#{x 4011}# #{x 4010}#)) + (let ((#{x 4024}# #{who 4014}#)) + (if (not (let ((#{x 4025}# #{x 4024}#)) (begin - (let ((#{t 4015}# (not #{x 4011}#))) - (if #{t 4015}# - #{t 4015}# + (let ((#{t 4029}# (not #{x 4025}#))) + (if #{t 4029}# + #{t 4029}# (begin - (let ((#{t 4018}# (string? #{x 4011}#))) - (if #{t 4018}# - #{t 4018}# - (symbol? #{x 4011}#))))))))) + (let ((#{t 4032}# (string? #{x 4025}#))) + (if #{t 4032}# + #{t 4032}# + (symbol? #{x 4025}#))))))))) (syntax-violation 'syntax-violation "invalid argument" - #{x 4010}#)))) + #{x 4024}#)))) (begin - (let ((#{x 4022}# #{message 4001}#)) - (if (not (string? #{x 4022}#)) + (let ((#{x 4036}# #{message 4015}#)) + (if (not (string? #{x 4036}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x 4022}#)))) + #{x 4036}#)))) (throw 'syntax-error - #{who 4000}# - #{message 4001}# - (#{source-annotation 320}# + #{who 4014}# + #{message 4015}# + (#{source-annotation 322}# (begin - (let ((#{t 4025}# #{form 4002}#)) - (if #{t 4025}# #{t 4025}# #{subform 4006}#)))) - (#{strip 445}# #{form 4002}# '(())) - (if #{subform 4006}# - (#{strip 445}# #{subform 4006}# '(())) + (let ((#{t 4039}# #{form 4016}#)) + (if #{t 4039}# #{t 4039}# #{subform 4020}#)))) + (#{strip 458}# #{form 4016}# '(())) + (if #{subform 4020}# + (#{strip 458}# #{subform 4020}# '(())) #f))))) (letrec* - ((#{match-each 4032}# - (lambda (#{e 4045}# #{p 4046}# #{w 4047}# #{mod 4048}#) - (if (pair? #{e 4045}#) + ((#{match-each 4046}# + (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#) + (if (pair? #{e 4059}#) (begin - (let ((#{first 4056}# - (#{match 4044}# - (car #{e 4045}#) - #{p 4046}# - #{w 4047}# + (let ((#{first 4070}# + (#{match 4058}# + (car #{e 4059}#) + #{p 4060}# + #{w 4061}# '() - #{mod 4048}#))) - (if #{first 4056}# + #{mod 4062}#))) + (if #{first 4070}# (begin - (let ((#{rest 4060}# - (#{match-each 4032}# - (cdr #{e 4045}#) - #{p 4046}# - #{w 4047}# - #{mod 4048}#))) - (if #{rest 4060}# - (cons #{first 4056}# #{rest 4060}#) + (let ((#{rest 4074}# + (#{match-each 4046}# + (cdr #{e 4059}#) + #{p 4060}# + #{w 4061}# + #{mod 4062}#))) + (if #{rest 4074}# + (cons #{first 4070}# #{rest 4074}#) #f))) #f))) - (if (null? #{e 4045}#) + (if (null? #{e 4059}#) '() - (if (#{syntax-object? 305}# #{e 4045}#) - (#{match-each 4032}# - (#{syntax-object-expression 307}# #{e 4045}#) - #{p 4046}# - (#{join-wraps 387}# - #{w 4047}# - (#{syntax-object-wrap 309}# #{e 4045}#)) - (#{syntax-object-module 311}# #{e 4045}#)) + (if (#{syntax-object? 307}# #{e 4059}#) + (#{match-each 4046}# + (#{syntax-object-expression 309}# #{e 4059}#) + #{p 4060}# + (#{join-wraps 400}# + #{w 4061}# + (#{syntax-object-wrap 311}# #{e 4059}#)) + (#{syntax-object-module 313}# #{e 4059}#)) #f))))) - (#{match-each+ 4034}# - (lambda (#{e 4068}# - #{x-pat 4069}# - #{y-pat 4070}# - #{z-pat 4071}# - #{w 4072}# - #{r 4073}# - #{mod 4074}#) + (#{match-each+ 4048}# + (lambda (#{e 4082}# + #{x-pat 4083}# + #{y-pat 4084}# + #{z-pat 4085}# + #{w 4086}# + #{r 4087}# + #{mod 4088}#) (letrec* - ((#{f 4085}# - (lambda (#{e 4086}# #{w 4087}#) - (if (pair? #{e 4086}#) + ((#{f 4099}# + (lambda (#{e 4100}# #{w 4101}#) + (if (pair? #{e 4100}#) (call-with-values (lambda () - (#{f 4085}# (cdr #{e 4086}#) #{w 4087}#)) - (lambda (#{xr* 4090}# #{y-pat 4091}# #{r 4092}#) - (if #{r 4092}# - (if (null? #{y-pat 4091}#) + (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#)) + (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#) + (if #{r 4106}# + (if (null? #{y-pat 4105}#) (begin - (let ((#{xr 4097}# - (#{match 4044}# - (car #{e 4086}#) - #{x-pat 4069}# - #{w 4087}# + (let ((#{xr 4111}# + (#{match 4058}# + (car #{e 4100}#) + #{x-pat 4083}# + #{w 4101}# '() - #{mod 4074}#))) - (if #{xr 4097}# + #{mod 4088}#))) + (if #{xr 4111}# (values - (cons #{xr 4097}# #{xr* 4090}#) - #{y-pat 4091}# - #{r 4092}#) + (cons #{xr 4111}# #{xr* 4104}#) + #{y-pat 4105}# + #{r 4106}#) (values #f #f #f)))) (values '() - (cdr #{y-pat 4091}#) - (#{match 4044}# - (car #{e 4086}#) - (car #{y-pat 4091}#) - #{w 4087}# - #{r 4092}# - #{mod 4074}#))) + (cdr #{y-pat 4105}#) + (#{match 4058}# + (car #{e 4100}#) + (car #{y-pat 4105}#) + #{w 4101}# + #{r 4106}# + #{mod 4088}#))) (values #f #f #f)))) - (if (#{syntax-object? 305}# #{e 4086}#) - (#{f 4085}# - (#{syntax-object-expression 307}# #{e 4086}#) - (#{join-wraps 387}# #{w 4087}# #{e 4086}#)) + (if (#{syntax-object? 307}# #{e 4100}#) + (#{f 4099}# + (#{syntax-object-expression 309}# #{e 4100}#) + (#{join-wraps 400}# #{w 4101}# #{e 4100}#)) (values '() - #{y-pat 4070}# - (#{match 4044}# - #{e 4086}# - #{z-pat 4071}# - #{w 4087}# - #{r 4073}# - #{mod 4074}#))))))) - (begin (#{f 4085}# #{e 4068}# #{w 4072}#))))) - (#{match-each-any 4036}# - (lambda (#{e 4101}# #{w 4102}# #{mod 4103}#) - (if (pair? #{e 4101}#) + #{y-pat 4084}# + (#{match 4058}# + #{e 4100}# + #{z-pat 4085}# + #{w 4101}# + #{r 4087}# + #{mod 4088}#))))))) + (begin (#{f 4099}# #{e 4082}# #{w 4086}#))))) + (#{match-each-any 4050}# + (lambda (#{e 4115}# #{w 4116}# #{mod 4117}#) + (if (pair? #{e 4115}#) (begin - (let ((#{l 4110}# - (#{match-each-any 4036}# - (cdr #{e 4101}#) - #{w 4102}# - #{mod 4103}#))) - (if #{l 4110}# - (cons (#{wrap 405}# - (car #{e 4101}#) - #{w 4102}# - #{mod 4103}#) - #{l 4110}#) + (let ((#{l 4124}# + (#{match-each-any 4050}# + (cdr #{e 4115}#) + #{w 4116}# + #{mod 4117}#))) + (if #{l 4124}# + (cons (#{wrap 418}# + (car #{e 4115}#) + #{w 4116}# + #{mod 4117}#) + #{l 4124}#) #f))) - (if (null? #{e 4101}#) + (if (null? #{e 4115}#) '() - (if (#{syntax-object? 305}# #{e 4101}#) - (#{match-each-any 4036}# - (#{syntax-object-expression 307}# #{e 4101}#) - (#{join-wraps 387}# - #{w 4102}# - (#{syntax-object-wrap 309}# #{e 4101}#)) - #{mod 4103}#) + (if (#{syntax-object? 307}# #{e 4115}#) + (#{match-each-any 4050}# + (#{syntax-object-expression 309}# #{e 4115}#) + (#{join-wraps 400}# + #{w 4116}# + (#{syntax-object-wrap 311}# #{e 4115}#)) + #{mod 4117}#) #f))))) - (#{match-empty 4038}# - (lambda (#{p 4118}# #{r 4119}#) - (if (null? #{p 4118}#) - #{r 4119}# - (if (eq? #{p 4118}# '_) - #{r 4119}# - (if (eq? #{p 4118}# 'any) - (cons '() #{r 4119}#) - (if (pair? #{p 4118}#) - (#{match-empty 4038}# - (car #{p 4118}#) - (#{match-empty 4038}# - (cdr #{p 4118}#) - #{r 4119}#)) - (if (eq? #{p 4118}# 'each-any) - (cons '() #{r 4119}#) + (#{match-empty 4052}# + (lambda (#{p 4132}# #{r 4133}#) + (if (null? #{p 4132}#) + #{r 4133}# + (if (eq? #{p 4132}# '_) + #{r 4133}# + (if (eq? #{p 4132}# 'any) + (cons '() #{r 4133}#) + (if (pair? #{p 4132}#) + (#{match-empty 4052}# + (car #{p 4132}#) + (#{match-empty 4052}# + (cdr #{p 4132}#) + #{r 4133}#)) + (if (eq? #{p 4132}# 'each-any) + (cons '() #{r 4133}#) (begin - (let ((#{atom-key 4135}# (vector-ref #{p 4118}# 0))) - (if (eqv? #{atom-key 4135}# 'each) - (#{match-empty 4038}# - (vector-ref #{p 4118}# 1) - #{r 4119}#) - (if (eqv? #{atom-key 4135}# 'each+) - (#{match-empty 4038}# - (vector-ref #{p 4118}# 1) - (#{match-empty 4038}# - (reverse (vector-ref #{p 4118}# 2)) - (#{match-empty 4038}# - (vector-ref #{p 4118}# 3) - #{r 4119}#))) - (if (if (eqv? #{atom-key 4135}# 'free-id) + (let ((#{atom-key 4149}# (vector-ref #{p 4132}# 0))) + (if (eqv? #{atom-key 4149}# 'each) + (#{match-empty 4052}# + (vector-ref #{p 4132}# 1) + #{r 4133}#) + (if (eqv? #{atom-key 4149}# 'each+) + (#{match-empty 4052}# + (vector-ref #{p 4132}# 1) + (#{match-empty 4052}# + (reverse (vector-ref #{p 4132}# 2)) + (#{match-empty 4052}# + (vector-ref #{p 4132}# 3) + #{r 4133}#))) + (if (if (eqv? #{atom-key 4149}# 'free-id) #t - (eqv? #{atom-key 4135}# 'atom)) - #{r 4119}# - (if (eqv? #{atom-key 4135}# 'vector) - (#{match-empty 4038}# - (vector-ref #{p 4118}# 1) - #{r 4119}#)))))))))))))) - (#{combine 4040}# - (lambda (#{r* 4140}# #{r 4141}#) - (if (null? (car #{r* 4140}#)) - #{r 4141}# - (cons (map car #{r* 4140}#) - (#{combine 4040}# - (map cdr #{r* 4140}#) - #{r 4141}#))))) - (#{match* 4042}# - (lambda (#{e 4144}# - #{p 4145}# - #{w 4146}# - #{r 4147}# - #{mod 4148}#) - (if (null? #{p 4145}#) - (if (null? #{e 4144}#) #{r 4147}# #f) - (if (pair? #{p 4145}#) - (if (pair? #{e 4144}#) - (#{match 4044}# - (car #{e 4144}#) - (car #{p 4145}#) - #{w 4146}# - (#{match 4044}# - (cdr #{e 4144}#) - (cdr #{p 4145}#) - #{w 4146}# - #{r 4147}# - #{mod 4148}#) - #{mod 4148}#) + (eqv? #{atom-key 4149}# 'atom)) + #{r 4133}# + (if (eqv? #{atom-key 4149}# 'vector) + (#{match-empty 4052}# + (vector-ref #{p 4132}# 1) + #{r 4133}#)))))))))))))) + (#{combine 4054}# + (lambda (#{r* 4154}# #{r 4155}#) + (if (null? (car #{r* 4154}#)) + #{r 4155}# + (cons (map car #{r* 4154}#) + (#{combine 4054}# + (map cdr #{r* 4154}#) + #{r 4155}#))))) + (#{match* 4056}# + (lambda (#{e 4158}# + #{p 4159}# + #{w 4160}# + #{r 4161}# + #{mod 4162}#) + (if (null? #{p 4159}#) + (if (null? #{e 4158}#) #{r 4161}# #f) + (if (pair? #{p 4159}#) + (if (pair? #{e 4158}#) + (#{match 4058}# + (car #{e 4158}#) + (car #{p 4159}#) + #{w 4160}# + (#{match 4058}# + (cdr #{e 4158}#) + (cdr #{p 4159}#) + #{w 4160}# + #{r 4161}# + #{mod 4162}#) + #{mod 4162}#) #f) - (if (eq? #{p 4145}# 'each-any) + (if (eq? #{p 4159}# 'each-any) (begin - (let ((#{l 4165}# - (#{match-each-any 4036}# - #{e 4144}# - #{w 4146}# - #{mod 4148}#))) - (if #{l 4165}# (cons #{l 4165}# #{r 4147}#) #f))) + (let ((#{l 4179}# + (#{match-each-any 4050}# + #{e 4158}# + #{w 4160}# + #{mod 4162}#))) + (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f))) (begin - (let ((#{atom-key 4171}# (vector-ref #{p 4145}# 0))) - (if (eqv? #{atom-key 4171}# 'each) - (if (null? #{e 4144}#) - (#{match-empty 4038}# - (vector-ref #{p 4145}# 1) - #{r 4147}#) + (let ((#{atom-key 4185}# (vector-ref #{p 4159}# 0))) + (if (eqv? #{atom-key 4185}# 'each) + (if (null? #{e 4158}#) + (#{match-empty 4052}# + (vector-ref #{p 4159}# 1) + #{r 4161}#) (begin - (let ((#{l 4174}# - (#{match-each 4032}# - #{e 4144}# - (vector-ref #{p 4145}# 1) - #{w 4146}# - #{mod 4148}#))) - (if #{l 4174}# + (let ((#{l 4188}# + (#{match-each 4046}# + #{e 4158}# + (vector-ref #{p 4159}# 1) + #{w 4160}# + #{mod 4162}#))) + (if #{l 4188}# (letrec* - ((#{collect 4179}# - (lambda (#{l 4180}#) - (if (null? (car #{l 4180}#)) - #{r 4147}# - (cons (map car #{l 4180}#) - (#{collect 4179}# - (map cdr #{l 4180}#))))))) - (begin (#{collect 4179}# #{l 4174}#))) + ((#{collect 4193}# + (lambda (#{l 4194}#) + (if (null? (car #{l 4194}#)) + #{r 4161}# + (cons (map car #{l 4194}#) + (#{collect 4193}# + (map cdr #{l 4194}#))))))) + (begin (#{collect 4193}# #{l 4188}#))) #f)))) - (if (eqv? #{atom-key 4171}# 'each+) + (if (eqv? #{atom-key 4185}# 'each+) (call-with-values (lambda () - (#{match-each+ 4034}# - #{e 4144}# - (vector-ref #{p 4145}# 1) - (vector-ref #{p 4145}# 2) - (vector-ref #{p 4145}# 3) - #{w 4146}# - #{r 4147}# - #{mod 4148}#)) - (lambda (#{xr* 4182}# #{y-pat 4183}# #{r 4184}#) - (if #{r 4184}# - (if (null? #{y-pat 4183}#) - (if (null? #{xr* 4182}#) - (#{match-empty 4038}# - (vector-ref #{p 4145}# 1) - #{r 4184}#) - (#{combine 4040}# - #{xr* 4182}# - #{r 4184}#)) + (#{match-each+ 4048}# + #{e 4158}# + (vector-ref #{p 4159}# 1) + (vector-ref #{p 4159}# 2) + (vector-ref #{p 4159}# 3) + #{w 4160}# + #{r 4161}# + #{mod 4162}#)) + (lambda (#{xr* 4196}# #{y-pat 4197}# #{r 4198}#) + (if #{r 4198}# + (if (null? #{y-pat 4197}#) + (if (null? #{xr* 4196}#) + (#{match-empty 4052}# + (vector-ref #{p 4159}# 1) + #{r 4198}#) + (#{combine 4054}# + #{xr* 4196}# + #{r 4198}#)) #f) #f))) - (if (eqv? #{atom-key 4171}# 'free-id) - (if (#{id? 339}# #{e 4144}#) - (if (#{free-id=? 395}# - (#{wrap 405}# - #{e 4144}# - #{w 4146}# - #{mod 4148}#) - (vector-ref #{p 4145}# 1)) - #{r 4147}# + (if (eqv? #{atom-key 4185}# 'free-id) + (if (#{id? 344}# #{e 4158}#) + (if (#{free-id=? 408}# + (#{wrap 418}# + #{e 4158}# + #{w 4160}# + #{mod 4162}#) + (vector-ref #{p 4159}# 1)) + #{r 4161}# #f) #f) - (if (eqv? #{atom-key 4171}# 'atom) + (if (eqv? #{atom-key 4185}# 'atom) (if (equal? - (vector-ref #{p 4145}# 1) - (#{strip 445}# #{e 4144}# #{w 4146}#)) - #{r 4147}# + (vector-ref #{p 4159}# 1) + (#{strip 458}# #{e 4158}# #{w 4160}#)) + #{r 4161}# #f) - (if (eqv? #{atom-key 4171}# 'vector) - (if (vector? #{e 4144}#) - (#{match 4044}# - (vector->list #{e 4144}#) - (vector-ref #{p 4145}# 1) - #{w 4146}# - #{r 4147}# - #{mod 4148}#) + (if (eqv? #{atom-key 4185}# 'vector) + (if (vector? #{e 4158}#) + (#{match 4058}# + (vector->list #{e 4158}#) + (vector-ref #{p 4159}# 1) + #{w 4160}# + #{r 4161}# + #{mod 4162}#) #f))))))))))))) - (#{match 4044}# - (lambda (#{e 4201}# - #{p 4202}# - #{w 4203}# - #{r 4204}# - #{mod 4205}#) - (if (not #{r 4204}#) + (#{match 4058}# + (lambda (#{e 4215}# + #{p 4216}# + #{w 4217}# + #{r 4218}# + #{mod 4219}#) + (if (not #{r 4218}#) #f - (if (eq? #{p 4202}# '_) - #{r 4204}# - (if (eq? #{p 4202}# 'any) - (cons (#{wrap 405}# #{e 4201}# #{w 4203}# #{mod 4205}#) - #{r 4204}#) - (if (#{syntax-object? 305}# #{e 4201}#) - (#{match* 4042}# - (#{syntax-object-expression 307}# #{e 4201}#) - #{p 4202}# - (#{join-wraps 387}# - #{w 4203}# - (#{syntax-object-wrap 309}# #{e 4201}#)) - #{r 4204}# - (#{syntax-object-module 311}# #{e 4201}#)) - (#{match* 4042}# - #{e 4201}# - #{p 4202}# - #{w 4203}# - #{r 4204}# - #{mod 4205}#)))))))) + (if (eq? #{p 4216}# '_) + #{r 4218}# + (if (eq? #{p 4216}# 'any) + (cons (#{wrap 418}# #{e 4215}# #{w 4217}# #{mod 4219}#) + #{r 4218}#) + (if (#{syntax-object? 307}# #{e 4215}#) + (#{match* 4056}# + (#{syntax-object-expression 309}# #{e 4215}#) + #{p 4216}# + (#{join-wraps 400}# + #{w 4217}# + (#{syntax-object-wrap 311}# #{e 4215}#)) + #{r 4218}# + (#{syntax-object-module 313}# #{e 4215}#)) + (#{match* 4056}# + #{e 4215}# + #{p 4216}# + #{w 4217}# + #{r 4218}# + #{mod 4219}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e 4220}# #{p 4221}#) - (if (eq? #{p 4221}# 'any) - (list #{e 4220}#) - (if (eq? #{p 4221}# '_) + (lambda (#{e 4234}# #{p 4235}#) + (if (eq? #{p 4235}# 'any) + (list #{e 4234}#) + (if (eq? #{p 4235}# '_) '() - (if (#{syntax-object? 305}# #{e 4220}#) - (#{match* 4042}# - (#{syntax-object-expression 307}# #{e 4220}#) - #{p 4221}# - (#{syntax-object-wrap 309}# #{e 4220}#) + (if (#{syntax-object? 307}# #{e 4234}#) + (#{match* 4056}# + (#{syntax-object-expression 309}# #{e 4234}#) + #{p 4235}# + (#{syntax-object-wrap 311}# #{e 4234}#) '() - (#{syntax-object-module 311}# #{e 4220}#)) - (#{match* 4042}# - #{e 4220}# - #{p 4221}# + (#{syntax-object-module 313}# #{e 4234}#)) + (#{match* 4056}# + #{e 4234}# + #{p 4235}# '(()) '() #f))))))))))) @@ -14137,82 +14137,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 4232}#) - (let ((#{tmp 4234}# #{x 4232}#)) - (let ((#{tmp 4235}# + (lambda (#{x 4246}#) + (let ((#{tmp 4248}# #{x 4246}#)) + (let ((#{tmp 4249}# ($sc-dispatch - #{tmp 4234}# + #{tmp 4248}# '(_ () any . each-any)))) - (if #{tmp 4235}# + (if #{tmp 4249}# (@apply - (lambda (#{e1 4238}# #{e2 4239}#) + (lambda (#{e1 4252}# #{e2 4253}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4236" "i4237")) + #("i4250" "i4251")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4233"))) + #(ribcage #(x) #((top)) #("i4247"))) (hygiene guile)) - (cons '() (cons #{e1 4238}# #{e2 4239}#)))) - #{tmp 4235}#) - (let ((#{tmp 4241}# + (cons '() (cons #{e1 4252}# #{e2 4253}#)))) + #{tmp 4249}#) + (let ((#{tmp 4255}# ($sc-dispatch - #{tmp 4234}# + #{tmp 4248}# '(_ ((any any)) any . each-any)))) - (if #{tmp 4241}# + (if #{tmp 4255}# (@apply - (lambda (#{out 4246}# - #{in 4247}# - #{e1 4248}# - #{e2 4249}#) + (lambda (#{out 4260}# + #{in 4261}# + #{e1 4262}# + #{e2 4263}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4242" "i4243" "i4244" "i4245")) + #("i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4233"))) + #(ribcage #(x) #((top)) #("i4247"))) (hygiene guile)) - #{in 4247}# + #{in 4261}# '() - (list #{out 4246}# + (list #{out 4260}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4242" "i4243" "i4244" "i4245")) + #("i4256" "i4257" "i4258" "i4259")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4233"))) + #(ribcage #(x) #((top)) #("i4247"))) (hygiene guile)) (cons '() - (cons #{e1 4248}# #{e2 4249}#)))))) - #{tmp 4241}#) - (let ((#{tmp 4251}# + (cons #{e1 4262}# #{e2 4263}#)))))) + #{tmp 4255}#) + (let ((#{tmp 4265}# ($sc-dispatch - #{tmp 4234}# + #{tmp 4248}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 4251}# + (if #{tmp 4265}# (@apply - (lambda (#{out 4256}# - #{in 4257}# - #{e1 4258}# - #{e2 4259}#) + (lambda (#{out 4270}# + #{in 4271}# + #{e1 4272}# + #{e2 4273}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4252" "i4253" "i4254" "i4255")) + #("i4266" "i4267" "i4268" "i4269")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4233"))) + #(ribcage #(x) #((top)) #("i4247"))) (hygiene guile)) (cons '#(syntax-object list @@ -14220,63 +14220,63 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4252" "i4253" "i4254" "i4255")) + #("i4266" "i4267" "i4268" "i4269")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4233"))) + #(ribcage #(x) #((top)) #("i4247"))) (hygiene guile)) - #{in 4257}#) + #{in 4271}#) '() - (list #{out 4256}# + (list #{out 4270}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("i4252" - "i4253" - "i4254" - "i4255")) + #("i4266" + "i4267" + "i4268" + "i4269")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4233"))) + #("i4247"))) (hygiene guile)) (cons '() - (cons #{e1 4258}# - #{e2 4259}#)))))) - #{tmp 4251}#) + (cons #{e1 4272}# + #{e2 4273}#)))))) + #{tmp 4265}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4234}#))))))))))) + #{tmp 4248}#))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 4263}#) - (let ((#{tmp 4265}# #{x 4263}#)) - (let ((#{tmp 4266}# + (lambda (#{x 4277}#) + (let ((#{tmp 4279}# #{x 4277}#)) + (let ((#{tmp 4280}# ($sc-dispatch - #{tmp 4265}# + #{tmp 4279}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 4266}# + (if #{tmp 4280}# (@apply - (lambda (#{k 4271}# - #{keyword 4272}# - #{pattern 4273}# - #{template 4274}#) + (lambda (#{k 4285}# + #{keyword 4286}# + #{pattern 4287}# + #{template 4288}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) '(#(syntax-object x @@ -14284,9 +14284,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile))) (vector '(#(syntax-object @@ -14295,9 +14295,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) . #(syntax-object @@ -14306,9 +14306,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14316,20 +14316,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) - #{pattern 4273}#)) + #{pattern 4287}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) (cons '#(syntax-object x @@ -14337,13 +14337,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4267" "i4268" "i4269" "i4270")) + #("i4281" "i4282" "i4283" "i4284")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) - (cons #{k 4271}# - (map (lambda (#{tmp 4278}# - #{tmp 4277}#) + (cons #{k 4285}# + (map (lambda (#{tmp 4292}# + #{tmp 4291}#) (list (cons '#(syntax-object dummy ((top) @@ -14356,10 +14356,10 @@ (top) (top) (top)) - #("i4267" - "i4268" - "i4269" - "i4270")) + #("i4281" + "i4282" + "i4283" + "i4284")) #(ribcage () () @@ -14367,9 +14367,9 @@ #(ribcage #(x) #((top)) - #("i4264"))) + #("i4278"))) (hygiene guile)) - #{tmp 4277}#) + #{tmp 4291}#) (list '#(syntax-object syntax ((top) @@ -14382,10 +14382,10 @@ (top) (top) (top)) - #("i4267" - "i4268" - "i4269" - "i4270")) + #("i4281" + "i4282" + "i4283" + "i4284")) #(ribcage () () @@ -14393,41 +14393,41 @@ #(ribcage #(x) #((top)) - #("i4264"))) + #("i4278"))) (hygiene guile)) - #{tmp 4278}#))) - #{template 4274}# - #{pattern 4273}#)))))) - #{tmp 4266}#) - (let ((#{tmp 4279}# + #{tmp 4292}#))) + #{template 4288}# + #{pattern 4287}#)))))) + #{tmp 4280}#) + (let ((#{tmp 4293}# ($sc-dispatch - #{tmp 4265}# + #{tmp 4279}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 4279}# + (if (if #{tmp 4293}# (@apply - (lambda (#{k 4285}# - #{docstring 4286}# - #{keyword 4287}# - #{pattern 4288}# - #{template 4289}#) - (string? (syntax->datum #{docstring 4286}#))) - #{tmp 4279}#) + (lambda (#{k 4299}# + #{docstring 4300}# + #{keyword 4301}# + #{pattern 4302}# + #{template 4303}#) + (string? (syntax->datum #{docstring 4300}#))) + #{tmp 4293}#) #f) (@apply - (lambda (#{k 4295}# - #{docstring 4296}# - #{keyword 4297}# - #{pattern 4298}# - #{template 4299}#) + (lambda (#{k 4309}# + #{docstring 4310}# + #{keyword 4311}# + #{pattern 4312}# + #{template 4313}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" "i4291" "i4292" "i4293" "i4294")) + #("i4304" "i4305" "i4306" "i4307" "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) '(#(syntax-object x @@ -14435,11 +14435,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" "i4291" "i4292" "i4293" "i4294")) + #("i4304" "i4305" "i4306" "i4307" "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile))) - #{docstring 4296}# + #{docstring 4310}# (vector '(#(syntax-object macro-type @@ -14447,9 +14447,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" "i4291" "i4292" "i4293" "i4294")) + #("i4304" "i4305" "i4306" "i4307" "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) . #(syntax-object @@ -14458,9 +14458,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" "i4291" "i4292" "i4293" "i4294")) + #("i4304" "i4305" "i4306" "i4307" "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14468,28 +14468,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4304" + "i4305" + "i4306" + "i4307" + "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) - #{pattern 4298}#)) + #{pattern 4312}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4304" + "i4305" + "i4306" + "i4307" + "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) (cons '#(syntax-object x @@ -14501,17 +14501,17 @@ pattern template) #((top) (top) (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4304" + "i4305" + "i4306" + "i4307" + "i4308")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4264"))) + #(ribcage #(x) #((top)) #("i4278"))) (hygiene guile)) - (cons #{k 4295}# - (map (lambda (#{tmp 4303}# - #{tmp 4302}#) + (cons #{k 4309}# + (map (lambda (#{tmp 4317}# + #{tmp 4316}#) (list (cons '#(syntax-object dummy ((top) @@ -14526,11 +14526,11 @@ (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4304" + "i4305" + "i4306" + "i4307" + "i4308")) #(ribcage () () @@ -14538,10 +14538,10 @@ #(ribcage #(x) #((top)) - #("i4264"))) + #("i4278"))) (hygiene guile)) - #{tmp 4302}#) + #{tmp 4316}#) (list '#(syntax-object syntax ((top) @@ -14556,11 +14556,11 @@ (top) (top) (top)) - #("i4290" - "i4291" - "i4292" - "i4293" - "i4294")) + #("i4304" + "i4305" + "i4306" + "i4307" + "i4308")) #(ribcage () () @@ -14568,51 +14568,51 @@ #(ribcage #(x) #((top)) - #("i4264"))) + #("i4278"))) (hygiene guile)) - #{tmp 4303}#))) - #{template 4299}# - #{pattern 4298}#)))))) - #{tmp 4279}#) + #{tmp 4317}#))) + #{template 4313}# + #{pattern 4312}#)))))) + #{tmp 4293}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4265}#))))))))) + #{tmp 4279}#))))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 4304}#) - (let ((#{tmp 4306}# #{x 4304}#)) - (let ((#{tmp 4307}# - ($sc-dispatch #{tmp 4306}# '(_ (any . any) any)))) - (if #{tmp 4307}# + (lambda (#{x 4318}#) + (let ((#{tmp 4320}# #{x 4318}#)) + (let ((#{tmp 4321}# + ($sc-dispatch #{tmp 4320}# '(_ (any . any) any)))) + (if #{tmp 4321}# (@apply - (lambda (#{name 4311}# - #{pattern 4312}# - #{template 4313}#) + (lambda (#{name 4325}# + #{pattern 4326}# + #{template 4327}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4308" "i4309" "i4310")) + #("i4322" "i4323" "i4324")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4305"))) + #(ribcage #(x) #((top)) #("i4319"))) (hygiene guile)) - #{name 4311}# + #{name 4325}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4308" "i4309" "i4310")) + #("i4322" "i4323" "i4324")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4305"))) + #(ribcage #(x) #((top)) #("i4319"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -14621,57 +14621,57 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4308" "i4309" "i4310")) + #("i4322" "i4323" "i4324")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4305"))) + #("i4319"))) (hygiene guile)) - #{pattern 4312}#) - #{template 4313}#)))) - #{tmp 4307}#) - (let ((#{tmp 4314}# + #{pattern 4326}#) + #{template 4327}#)))) + #{tmp 4321}#) + (let ((#{tmp 4328}# ($sc-dispatch - #{tmp 4306}# + #{tmp 4320}# '(_ (any . any) any any)))) - (if (if #{tmp 4314}# + (if (if #{tmp 4328}# (@apply - (lambda (#{name 4319}# - #{pattern 4320}# - #{docstring 4321}# - #{template 4322}#) - (string? (syntax->datum #{docstring 4321}#))) - #{tmp 4314}#) + (lambda (#{name 4333}# + #{pattern 4334}# + #{docstring 4335}# + #{template 4336}#) + (string? (syntax->datum #{docstring 4335}#))) + #{tmp 4328}#) #f) (@apply - (lambda (#{name 4327}# - #{pattern 4328}# - #{docstring 4329}# - #{template 4330}#) + (lambda (#{name 4341}# + #{pattern 4342}# + #{docstring 4343}# + #{template 4344}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i4323" "i4324" "i4325" "i4326")) + #("i4337" "i4338" "i4339" "i4340")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4305"))) + #(ribcage #(x) #((top)) #("i4319"))) (hygiene guile)) - #{name 4327}# + #{name 4341}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("i4323" "i4324" "i4325" "i4326")) + #("i4337" "i4338" "i4339" "i4340")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4305"))) + #(ribcage #(x) #((top)) #("i4319"))) (hygiene guile)) '() - #{docstring 4329}# + #{docstring 4343}# (list (cons '#(syntax-object _ ((top) @@ -14681,54 +14681,54 @@ docstring template) #((top) (top) (top) (top)) - #("i4323" - "i4324" - "i4325" - "i4326")) + #("i4337" + "i4338" + "i4339" + "i4340")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4305"))) + #("i4319"))) (hygiene guile)) - #{pattern 4328}#) - #{template 4330}#)))) - #{tmp 4314}#) + #{pattern 4342}#) + #{template 4344}#)))) + #{tmp 4328}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4306}#))))))))) + #{tmp 4320}#))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 4331}#) - (let ((#{tmp 4333}# #{x 4331}#)) - (let ((#{tmp 4334}# + (lambda (#{x 4345}#) + (let ((#{tmp 4347}# #{x 4345}#)) + (let ((#{tmp 4348}# ($sc-dispatch - #{tmp 4333}# + #{tmp 4347}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 4334}# + (if (if #{tmp 4348}# (@apply - (lambda (#{let* 4340}# - #{x 4341}# - #{v 4342}# - #{e1 4343}# - #{e2 4344}#) - (and-map identifier? #{x 4341}#)) - #{tmp 4334}#) + (lambda (#{let* 4354}# + #{x 4355}# + #{v 4356}# + #{e1 4357}# + #{e2 4358}#) + (and-map identifier? #{x 4355}#)) + #{tmp 4348}#) #f) (@apply - (lambda (#{let* 4351}# - #{x 4352}# - #{v 4353}# - #{e1 4354}# - #{e2 4355}#) + (lambda (#{let* 4365}# + #{x 4366}# + #{v 4367}# + #{e1 4368}# + #{e2 4369}#) (letrec* - ((#{f 4358}# - (lambda (#{bindings 4359}#) - (if (null? #{bindings 4359}#) + ((#{f 4372}# + (lambda (#{bindings 4373}#) + (if (null? #{bindings 4373}#) (cons '#(syntax-object let ((top) @@ -14736,27 +14736,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4356" "i4357")) + #("i4370" "i4371")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4346" - "i4347" - "i4348" - "i4349" - "i4350")) + #("i4360" + "i4361" + "i4362" + "i4363" + "i4364")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4332"))) + #(ribcage #(x) #((top)) #("i4346"))) (hygiene guile)) - (cons '() (cons #{e1 4354}# #{e2 4355}#))) - (let ((#{tmp 4364}# - (list (#{f 4358}# (cdr #{bindings 4359}#)) - (car #{bindings 4359}#)))) - (let ((#{tmp 4365}# - ($sc-dispatch #{tmp 4364}# '(any any)))) - (if #{tmp 4365}# + (cons '() (cons #{e1 4368}# #{e2 4369}#))) + (let ((#{tmp 4378}# + (list (#{f 4372}# (cdr #{bindings 4373}#)) + (car #{bindings 4373}#)))) + (let ((#{tmp 4379}# + ($sc-dispatch #{tmp 4378}# '(any any)))) + (if #{tmp 4379}# (@apply - (lambda (#{body 4368}# #{binding 4369}#) + (lambda (#{body 4382}# #{binding 4383}#) (list '#(syntax-object let ((top) @@ -14764,96 +14764,96 @@ #(ribcage #(body binding) #((top) (top)) - #("i4366" "i4367")) + #("i4380" "i4381")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("i4356" "i4357")) + #("i4370" "i4371")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4346" - "i4347" - "i4348" - "i4349" - "i4350")) + #("i4360" + "i4361" + "i4362" + "i4363" + "i4364")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4332"))) + #("i4346"))) (hygiene guile)) - (list #{binding 4369}#) - #{body 4368}#)) - #{tmp 4365}#) + (list #{binding 4383}#) + #{body 4382}#)) + #{tmp 4379}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4364}#)))))))) + #{tmp 4378}#)))))))) (begin - (#{f 4358}# (map list #{x 4352}# #{v 4353}#))))) - #{tmp 4334}#) + (#{f 4372}# (map list #{x 4366}# #{v 4367}#))))) + #{tmp 4348}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4333}#))))))) + #{tmp 4347}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 4370}#) - (let ((#{tmp 4372}# #{orig-x 4370}#)) - (let ((#{tmp 4373}# + (lambda (#{orig-x 4384}#) + (let ((#{tmp 4386}# #{orig-x 4384}#)) + (let ((#{tmp 4387}# ($sc-dispatch - #{tmp 4372}# + #{tmp 4386}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 4373}# + (if #{tmp 4387}# (@apply - (lambda (#{var 4380}# - #{init 4381}# - #{step 4382}# - #{e0 4383}# - #{e1 4384}# - #{c 4385}#) - (let ((#{tmp 4387}# - (map (lambda (#{v 4408}# #{s 4409}#) - (let ((#{tmp 4412}# #{s 4409}#)) - (let ((#{tmp 4413}# - ($sc-dispatch #{tmp 4412}# '()))) - (if #{tmp 4413}# + (lambda (#{var 4394}# + #{init 4395}# + #{step 4396}# + #{e0 4397}# + #{e1 4398}# + #{c 4399}#) + (let ((#{tmp 4401}# + (map (lambda (#{v 4422}# #{s 4423}#) + (let ((#{tmp 4426}# #{s 4423}#)) + (let ((#{tmp 4427}# + ($sc-dispatch #{tmp 4426}# '()))) + (if #{tmp 4427}# (@apply - (lambda () #{v 4408}#) - #{tmp 4413}#) - (let ((#{tmp 4414}# + (lambda () #{v 4422}#) + #{tmp 4427}#) + (let ((#{tmp 4428}# ($sc-dispatch - #{tmp 4412}# + #{tmp 4426}# '(any)))) - (if #{tmp 4414}# + (if #{tmp 4428}# (@apply - (lambda (#{e 4416}#) #{e 4416}#) - #{tmp 4414}#) - (let ((#{_ 4418}# #{tmp 4412}#)) + (lambda (#{e 4430}#) #{e 4430}#) + #{tmp 4428}#) + (let ((#{_ 4432}# #{tmp 4426}#)) (syntax-violation 'do "bad step expression" - #{orig-x 4370}# - #{s 4409}#)))))))) - #{var 4380}# - #{step 4382}#))) - (let ((#{tmp 4388}# - ($sc-dispatch #{tmp 4387}# 'each-any))) - (if #{tmp 4388}# + #{orig-x 4384}# + #{s 4423}#)))))))) + #{var 4394}# + #{step 4396}#))) + (let ((#{tmp 4402}# + ($sc-dispatch #{tmp 4401}# 'each-any))) + (if #{tmp 4402}# (@apply - (lambda (#{step 4390}#) - (let ((#{tmp 4391}# #{e1 4384}#)) - (let ((#{tmp 4392}# - ($sc-dispatch #{tmp 4391}# '()))) - (if #{tmp 4392}# + (lambda (#{step 4404}#) + (let ((#{tmp 4405}# #{e1 4398}#)) + (let ((#{tmp 4406}# + ($sc-dispatch #{tmp 4405}# '()))) + (if #{tmp 4406}# (@apply (lambda () (list '#(syntax-object @@ -14863,7 +14863,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14872,17 +14872,17 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) '#(syntax-object doloop @@ -14891,7 +14891,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14900,19 +14900,19 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - (map list #{var 4380}# #{init 4381}#) + (map list #{var 4394}# #{init 4395}#) (list '#(syntax-object if ((top) @@ -14920,7 +14920,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init step e0 e1 c) #((top) @@ -14929,17 +14929,17 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) (list '#(syntax-object not @@ -14948,7 +14948,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -14962,19 +14962,19 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - #{e0 4383}#) + #{e0 4397}#) (cons '#(syntax-object begin ((top) @@ -14982,7 +14982,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -14996,20 +14996,20 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) (append - #{c 4385}# + #{c 4399}# (list (cons '#(syntax-object doloop ((top) @@ -15020,7 +15020,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -15034,12 +15034,12 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () @@ -15047,30 +15047,30 @@ #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - #{step 4390}#))))))) - #{tmp 4392}#) - (let ((#{tmp 4397}# + #{step 4404}#))))))) + #{tmp 4406}#) + (let ((#{tmp 4411}# ($sc-dispatch - #{tmp 4391}# + #{tmp 4405}# '(any . each-any)))) - (if #{tmp 4397}# + (if #{tmp 4411}# (@apply - (lambda (#{e1 4400}# #{e2 4401}#) + (lambda (#{e1 4414}# #{e2 4415}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4398" "i4399")) + #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15079,17 +15079,17 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) '#(syntax-object doloop @@ -15097,12 +15097,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("i4398" "i4399")) + #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15111,33 +15111,33 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) (map list - #{var 4380}# - #{init 4381}#) + #{var 4394}# + #{init 4395}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4398" "i4399")) + #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -15151,27 +15151,27 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - #{e0 4383}# + #{e0 4397}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4398" - "i4399")) + #("i4412" + "i4413")) #(ribcage () () @@ -15179,7 +15179,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -15193,12 +15193,12 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () @@ -15206,18 +15206,18 @@ #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - (cons #{e1 4400}# - #{e2 4401}#)) + (cons #{e1 4414}# + #{e2 4415}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4398" - "i4399")) + #("i4412" + "i4413")) #(ribcage () () @@ -15225,7 +15225,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -15239,12 +15239,12 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () @@ -15252,10 +15252,10 @@ #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) (append - #{c 4385}# + #{c 4399}# (list (cons '#(syntax-object doloop ((top) @@ -15264,8 +15264,8 @@ e2) #((top) (top)) - #("i4398" - "i4399")) + #("i4412" + "i4413")) #(ribcage () () @@ -15273,7 +15273,7 @@ #(ribcage #(step) #((top)) - #("i4389")) + #("i4403")) #(ribcage #(var init @@ -15287,12 +15287,12 @@ (top) (top) (top)) - #("i4374" - "i4375" - "i4376" - "i4377" - "i4378" - "i4379")) + #("i4388" + "i4389" + "i4390" + "i4391" + "i4392" + "i4393")) #(ribcage () () @@ -15300,37 +15300,37 @@ #(ribcage #(orig-x) #((top)) - #("i4371"))) + #("i4385"))) (hygiene guile)) - #{step 4390}#))))))) - #{tmp 4397}#) + #{step 4404}#))))))) + #{tmp 4411}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4391}#))))))) - #{tmp 4388}#) + #{tmp 4405}#))))))) + #{tmp 4402}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4387}#))))) - #{tmp 4373}#) + #{tmp 4401}#))))) + #{tmp 4387}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4372}#))))))) + #{tmp 4386}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 4422}# - (lambda (#{p 4435}# #{lev 4436}#) - (let ((#{tmp 4439}# #{p 4435}#)) - (let ((#{tmp 4440}# + ((#{quasi 4436}# + (lambda (#{p 4449}# #{lev 4450}#) + (let ((#{tmp 4453}# #{p 4449}#)) + (let ((#{tmp 4454}# ($sc-dispatch - #{tmp 4439}# + #{tmp 4453}# '(#(free-id #(syntax-object unquote @@ -15339,7 +15339,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15348,28 +15348,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) any)))) - (if #{tmp 4440}# + (if #{tmp 4454}# (@apply - (lambda (#{p 4442}#) - (if (= #{lev 4436}# 0) + (lambda (#{p 4456}#) + (if (= #{lev 4450}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4455")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15378,25 +15378,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{p 4442}#) - (#{quasicons 4426}# + #{p 4456}#) + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4455")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15405,23 +15405,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4441")) + #(ribcage #(p) #((top)) #("i4455")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15430,21 +15430,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - (list #{p 4442}#) - (#{1-}# #{lev 4436}#))))) - #{tmp 4440}#) - (let ((#{tmp 4443}# + (#{quasi 4436}# + (list #{p 4456}#) + (#{1-}# #{lev 4450}#))))) + #{tmp 4454}#) + (let ((#{tmp 4457}# ($sc-dispatch - #{tmp 4439}# + #{tmp 4453}# '(#(free-id #(syntax-object quasiquote @@ -15453,7 +15453,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15462,28 +15462,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) any)))) - (if #{tmp 4443}# + (if #{tmp 4457}# (@apply - (lambda (#{p 4445}#) - (#{quasicons 4426}# + (lambda (#{p 4459}#) + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4444")) + #(ribcage #(p) #((top)) #("i4458")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15492,23 +15492,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("i4444")) + #(ribcage #(p) #((top)) #("i4458")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15517,27 +15517,27 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - (list #{p 4445}#) - (#{1+}# #{lev 4436}#)))) - #{tmp 4443}#) - (let ((#{tmp 4446}# - ($sc-dispatch #{tmp 4439}# '(any . any)))) - (if #{tmp 4446}# + (#{quasi 4436}# + (list #{p 4459}#) + (#{1+}# #{lev 4450}#)))) + #{tmp 4457}#) + (let ((#{tmp 4460}# + ($sc-dispatch #{tmp 4453}# '(any . any)))) + (if #{tmp 4460}# (@apply - (lambda (#{p 4449}# #{q 4450}#) - (let ((#{tmp 4451}# #{p 4449}#)) - (let ((#{tmp 4452}# + (lambda (#{p 4463}# #{q 4464}#) + (let ((#{tmp 4465}# #{p 4463}#)) + (let ((#{tmp 4466}# ($sc-dispatch - #{tmp 4451}# + #{tmp 4465}# '(#(free-id #(syntax-object unquote @@ -15545,12 +15545,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15565,40 +15565,40 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) . each-any)))) - (if #{tmp 4452}# + (if #{tmp 4466}# (@apply - (lambda (#{p 4454}#) - (if (= #{lev 4436}# 0) - (#{quasilist* 4430}# - (map (lambda (#{tmp 4455}#) + (lambda (#{p 4468}#) + (if (= #{lev 4450}# 0) + (#{quasilist* 4444}# + (map (lambda (#{tmp 4469}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4453")) + #("i4467")) #(ribcage #(p q) #((top) (top)) - #("i4447" - "i4448")) + #("i4461" + "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" - "i4438")) + #("i4451" + "i4452")) #(ribcage (emit quasivector quasilist* @@ -15613,37 +15613,37 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{tmp 4455}#)) - #{p 4454}#) - (#{quasi 4422}# - #{q 4450}# - #{lev 4436}#)) - (#{quasicons 4426}# - (#{quasicons 4426}# + #{tmp 4469}#)) + #{p 4468}#) + (#{quasi 4436}# + #{q 4464}# + #{lev 4450}#)) + (#{quasicons 4440}# + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4453")) + #("i4467")) #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15658,13 +15658,13 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object unquote @@ -15672,16 +15672,16 @@ #(ribcage #(p) #((top)) - #("i4453")) + #("i4467")) #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15696,24 +15696,24 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - #{p 4454}# - (#{1-}# #{lev 4436}#))) - (#{quasi 4422}# - #{q 4450}# - #{lev 4436}#)))) - #{tmp 4452}#) - (let ((#{tmp 4457}# + (#{quasi 4436}# + #{p 4468}# + (#{1-}# #{lev 4450}#))) + (#{quasi 4436}# + #{q 4464}# + #{lev 4450}#)))) + #{tmp 4466}#) + (let ((#{tmp 4471}# ($sc-dispatch - #{tmp 4451}# + #{tmp 4465}# '(#(free-id #(syntax-object unquote-splicing @@ -15721,12 +15721,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15741,35 +15741,35 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) . each-any)))) - (if #{tmp 4457}# + (if #{tmp 4471}# (@apply - (lambda (#{p 4459}#) - (if (= #{lev 4436}# 0) - (#{quasiappend 4428}# - (map (lambda (#{tmp 4460}#) + (lambda (#{p 4473}#) + (if (= #{lev 4450}# 0) + (#{quasiappend 4442}# + (map (lambda (#{tmp 4474}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4458")) + #("i4472")) #(ribcage #(p q) #((top) (top)) - #("i4447" - "i4448")) + #("i4461" + "i4462")) #(ribcage () () @@ -15778,8 +15778,8 @@ #(p lev) #((top) (top)) - #("i4437" - "i4438")) + #("i4451" + "i4452")) #(ribcage (emit quasivector quasilist* @@ -15794,37 +15794,37 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{tmp 4460}#)) - #{p 4459}#) - (#{quasi 4422}# - #{q 4450}# - #{lev 4436}#)) - (#{quasicons 4426}# - (#{quasicons 4426}# + #{tmp 4474}#)) + #{p 4473}#) + (#{quasi 4436}# + #{q 4464}# + #{lev 4450}#)) + (#{quasicons 4440}# + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4458")) + #("i4472")) #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15839,13 +15839,13 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -15853,16 +15853,16 @@ #(ribcage #(p) #((top)) - #("i4458")) + #("i4472")) #(ribcage #(p q) #((top) (top)) - #("i4447" "i4448")) + #("i4461" "i4462")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15877,50 +15877,50 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - #{p 4459}# - (#{1-}# #{lev 4436}#))) - (#{quasi 4422}# - #{q 4450}# - #{lev 4436}#)))) - #{tmp 4457}#) - (let ((#{_ 4463}# #{tmp 4451}#)) - (#{quasicons 4426}# - (#{quasi 4422}# - #{p 4449}# - #{lev 4436}#) - (#{quasi 4422}# - #{q 4450}# - #{lev 4436}#))))))))) - #{tmp 4446}#) - (let ((#{tmp 4464}# + (#{quasi 4436}# + #{p 4473}# + (#{1-}# #{lev 4450}#))) + (#{quasi 4436}# + #{q 4464}# + #{lev 4450}#)))) + #{tmp 4471}#) + (let ((#{_ 4477}# #{tmp 4465}#)) + (#{quasicons 4440}# + (#{quasi 4436}# + #{p 4463}# + #{lev 4450}#) + (#{quasi 4436}# + #{q 4464}# + #{lev 4450}#))))))))) + #{tmp 4460}#) + (let ((#{tmp 4478}# ($sc-dispatch - #{tmp 4439}# + #{tmp 4453}# '#(vector each-any)))) - (if #{tmp 4464}# + (if #{tmp 4478}# (@apply - (lambda (#{x 4466}#) - (#{quasivector 4432}# - (#{vquasi 4424}# #{x 4466}# #{lev 4436}#))) - #{tmp 4464}#) - (let ((#{p 4469}# #{tmp 4439}#)) + (lambda (#{x 4480}#) + (#{quasivector 4446}# + (#{vquasi 4438}# #{x 4480}# #{lev 4450}#))) + #{tmp 4478}#) + (let ((#{p 4483}# #{tmp 4453}#)) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4468")) + #(ribcage #(p) #((top)) #("i4482")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4437" "i4438")) + #("i4451" "i4452")) #(ribcage (emit quasivector quasilist* @@ -15935,27 +15935,27 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{p 4469}#))))))))))))) - (#{vquasi 4424}# - (lambda (#{p 4470}# #{lev 4471}#) - (let ((#{tmp 4474}# #{p 4470}#)) - (let ((#{tmp 4475}# - ($sc-dispatch #{tmp 4474}# '(any . any)))) - (if #{tmp 4475}# + #{p 4483}#))))))))))))) + (#{vquasi 4438}# + (lambda (#{p 4484}# #{lev 4485}#) + (let ((#{tmp 4488}# #{p 4484}#)) + (let ((#{tmp 4489}# + ($sc-dispatch #{tmp 4488}# '(any . any)))) + (if #{tmp 4489}# (@apply - (lambda (#{p 4478}# #{q 4479}#) - (let ((#{tmp 4480}# #{p 4478}#)) - (let ((#{tmp 4481}# + (lambda (#{p 4492}# #{q 4493}#) + (let ((#{tmp 4494}# #{p 4492}#)) + (let ((#{tmp 4495}# ($sc-dispatch - #{tmp 4480}# + #{tmp 4494}# '(#(free-id #(syntax-object unquote @@ -15963,12 +15963,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -15983,38 +15983,38 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) . each-any)))) - (if #{tmp 4481}# + (if #{tmp 4495}# (@apply - (lambda (#{p 4483}#) - (if (= #{lev 4471}# 0) - (#{quasilist* 4430}# - (map (lambda (#{tmp 4484}#) + (lambda (#{p 4497}#) + (if (= #{lev 4485}# 0) + (#{quasilist* 4444}# + (map (lambda (#{tmp 4498}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4482")) + #("i4496")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16029,32 +16029,32 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{tmp 4484}#)) - #{p 4483}#) - (#{vquasi 4424}# #{q 4479}# #{lev 4471}#)) - (#{quasicons 4426}# - (#{quasicons 4426}# + #{tmp 4498}#)) + #{p 4497}#) + (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)) + (#{quasicons 4440}# + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4482")) + #(ribcage #(p) #((top)) #("i4496")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16069,27 +16069,27 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4482")) + #(ribcage #(p) #((top)) #("i4496")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16104,22 +16104,22 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - #{p 4483}# - (#{1-}# #{lev 4471}#))) - (#{vquasi 4424}# #{q 4479}# #{lev 4471}#)))) - #{tmp 4481}#) - (let ((#{tmp 4486}# + (#{quasi 4436}# + #{p 4497}# + (#{1-}# #{lev 4485}#))) + (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)))) + #{tmp 4495}#) + (let ((#{tmp 4500}# ($sc-dispatch - #{tmp 4480}# + #{tmp 4494}# '(#(free-id #(syntax-object unquote-splicing @@ -16127,12 +16127,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16147,38 +16147,38 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) . each-any)))) - (if #{tmp 4486}# + (if #{tmp 4500}# (@apply - (lambda (#{p 4488}#) - (if (= #{lev 4471}# 0) - (#{quasiappend 4428}# - (map (lambda (#{tmp 4489}#) + (lambda (#{p 4502}#) + (if (= #{lev 4485}# 0) + (#{quasiappend 4442}# + (map (lambda (#{tmp 4503}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4487")) + #("i4501")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16193,37 +16193,37 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{tmp 4489}#)) - #{p 4488}#) - (#{vquasi 4424}# - #{q 4479}# - #{lev 4471}#)) - (#{quasicons 4426}# - (#{quasicons 4426}# + #{tmp 4503}#)) + #{p 4502}#) + (#{vquasi 4438}# + #{q 4493}# + #{lev 4485}#)) + (#{quasicons 4440}# + (#{quasicons 4440}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4487")) + #("i4501")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16238,13 +16238,13 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -16252,16 +16252,16 @@ #(ribcage #(p) #((top)) - #("i4487")) + #("i4501")) #(ribcage #(p q) #((top) (top)) - #("i4476" "i4477")) + #("i4490" "i4491")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16276,30 +16276,30 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile))) - (#{quasi 4422}# - #{p 4488}# - (#{1-}# #{lev 4471}#))) - (#{vquasi 4424}# - #{q 4479}# - #{lev 4471}#)))) - #{tmp 4486}#) - (let ((#{_ 4492}# #{tmp 4480}#)) - (#{quasicons 4426}# - (#{quasi 4422}# #{p 4478}# #{lev 4471}#) - (#{vquasi 4424}# - #{q 4479}# - #{lev 4471}#))))))))) - #{tmp 4475}#) - (let ((#{tmp 4493}# ($sc-dispatch #{tmp 4474}# '()))) - (if #{tmp 4493}# + (#{quasi 4436}# + #{p 4502}# + (#{1-}# #{lev 4485}#))) + (#{vquasi 4438}# + #{q 4493}# + #{lev 4485}#)))) + #{tmp 4500}#) + (let ((#{_ 4506}# #{tmp 4494}#)) + (#{quasicons 4440}# + (#{quasi 4436}# #{p 4492}# #{lev 4485}#) + (#{vquasi 4438}# + #{q 4493}# + #{lev 4485}#))))))))) + #{tmp 4489}#) + (let ((#{tmp 4507}# ($sc-dispatch #{tmp 4488}# '()))) + (if #{tmp 4507}# (@apply (lambda () '(#(syntax-object @@ -16309,7 +16309,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4472" "i4473")) + #("i4486" "i4487")) #(ribcage (emit quasivector quasilist* @@ -16318,66 +16318,66 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) ())) - #{tmp 4493}#) + #{tmp 4507}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4474}#)))))))) - (#{quasicons 4426}# - (lambda (#{x 4494}# #{y 4495}#) - (let ((#{tmp 4499}# (list #{x 4494}# #{y 4495}#))) - (let ((#{tmp 4500}# - ($sc-dispatch #{tmp 4499}# '(any any)))) - (if #{tmp 4500}# + #{tmp 4488}#)))))))) + (#{quasicons 4440}# + (lambda (#{x 4508}# #{y 4509}#) + (let ((#{tmp 4513}# (list #{x 4508}# #{y 4509}#))) + (let ((#{tmp 4514}# + ($sc-dispatch #{tmp 4513}# '(any any)))) + (if #{tmp 4514}# (@apply - (lambda (#{x 4503}# #{y 4504}#) - (let ((#{tmp 4505}# #{y 4504}#)) - (let ((#{tmp 4506}# + (lambda (#{x 4517}# #{y 4518}#) + (let ((#{tmp 4519}# #{y 4518}#)) + (let ((#{tmp 4520}# ($sc-dispatch - #{tmp 4505}# + #{tmp 4519}# '(#(atom "quote") any)))) - (if #{tmp 4506}# + (if #{tmp 4520}# (@apply - (lambda (#{dy 4508}#) - (let ((#{tmp 4509}# #{x 4503}#)) - (let ((#{tmp 4510}# + (lambda (#{dy 4522}#) + (let ((#{tmp 4523}# #{x 4517}#)) + (let ((#{tmp 4524}# ($sc-dispatch - #{tmp 4509}# + #{tmp 4523}# '(#(atom "quote") any)))) - (if #{tmp 4510}# + (if #{tmp 4524}# (@apply - (lambda (#{dx 4512}#) + (lambda (#{dx 4526}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("i4511")) + #("i4525")) #(ribcage #(dy) #((top)) - #("i4507")) + #("i4521")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16392,40 +16392,40 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - (cons #{dx 4512}# #{dy 4508}#))) - #{tmp 4510}#) - (let ((#{_ 4514}# #{tmp 4509}#)) - (if (null? #{dy 4508}#) + (cons #{dx 4526}# #{dy 4522}#))) + #{tmp 4524}#) + (let ((#{_ 4528}# #{tmp 4523}#)) + (if (null? #{dy 4522}#) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("i4513")) + #("i4527")) #(ribcage #(dy) #((top)) - #("i4507")) + #("i4521")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16440,37 +16440,37 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{x 4503}#) + #{x 4517}#) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4513")) + #("i4527")) #(ribcage #(dy) #((top)) - #("i4507")) + #("i4521")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16485,42 +16485,42 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{x 4503}# - #{y 4504}#))))))) - #{tmp 4506}#) - (let ((#{tmp 4515}# + #{x 4517}# + #{y 4518}#))))))) + #{tmp 4520}#) + (let ((#{tmp 4529}# ($sc-dispatch - #{tmp 4505}# + #{tmp 4519}# '(#(atom "list") . any)))) - (if #{tmp 4515}# + (if #{tmp 4529}# (@apply - (lambda (#{stuff 4517}#) + (lambda (#{stuff 4531}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("i4516")) + #("i4530")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16535,41 +16535,41 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - (cons #{x 4503}# #{stuff 4517}#))) - #{tmp 4515}#) - (let ((#{tmp 4518}# + (cons #{x 4517}# #{stuff 4531}#))) + #{tmp 4529}#) + (let ((#{tmp 4532}# ($sc-dispatch - #{tmp 4505}# + #{tmp 4519}# '(#(atom "list*") . any)))) - (if #{tmp 4518}# + (if #{tmp 4532}# (@apply - (lambda (#{stuff 4520}#) + (lambda (#{stuff 4534}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("i4519")) + #("i4533")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16584,35 +16584,35 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - (cons #{x 4503}# #{stuff 4520}#))) - #{tmp 4518}#) - (let ((#{_ 4522}# #{tmp 4505}#)) + (cons #{x 4517}# #{stuff 4534}#))) + #{tmp 4532}#) + (let ((#{_ 4536}# #{tmp 4519}#)) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("i4521")) + #("i4535")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4501" "i4502")) + #("i4515" "i4516")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4496" "i4497")) + #("i4510" "i4511")) #(ribcage (emit quasivector quasilist* @@ -16627,30 +16627,30 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{x 4503}# - #{y 4504}#)))))))))) - #{tmp 4500}#) + #{x 4517}# + #{y 4518}#)))))))))) + #{tmp 4514}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4499}#)))))) - (#{quasiappend 4428}# - (lambda (#{x 4523}# #{y 4524}#) - (let ((#{tmp 4527}# #{y 4524}#)) - (let ((#{tmp 4528}# - ($sc-dispatch #{tmp 4527}# '(#(atom "quote") ())))) - (if #{tmp 4528}# + #{tmp 4513}#)))))) + (#{quasiappend 4442}# + (lambda (#{x 4537}# #{y 4538}#) + (let ((#{tmp 4541}# #{y 4538}#)) + (let ((#{tmp 4542}# + ($sc-dispatch #{tmp 4541}# '(#(atom "quote") ())))) + (if #{tmp 4542}# (@apply (lambda () - (if (null? #{x 4523}#) + (if (null? #{x 4537}#) '(#(syntax-object "quote" ((top) @@ -16658,7 +16658,7 @@ #(ribcage #(x y) #((top) (top)) - #("i4525" "i4526")) + #("i4539" "i4540")) #(ribcage (emit quasivector quasilist* @@ -16667,23 +16667,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) ()) - (if (null? (cdr #{x 4523}#)) - (car #{x 4523}#) - (let ((#{tmp 4535}# #{x 4523}#)) - (let ((#{tmp 4536}# - ($sc-dispatch #{tmp 4535}# 'each-any))) - (if #{tmp 4536}# + (if (null? (cdr #{x 4537}#)) + (car #{x 4537}#) + (let ((#{tmp 4549}# #{x 4537}#)) + (let ((#{tmp 4550}# + ($sc-dispatch #{tmp 4549}# 'each-any))) + (if #{tmp 4550}# (@apply - (lambda (#{p 4538}#) + (lambda (#{p 4552}#) (cons '#(syntax-object "append" ((top) @@ -16691,12 +16691,12 @@ #(ribcage #(p) #((top)) - #("i4537")) + #("i4551")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4525" "i4526")) + #("i4539" "i4540")) #(ribcage (emit quasivector quasilist* @@ -16711,30 +16711,30 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{p 4538}#)) - #{tmp 4536}#) + #{p 4552}#)) + #{tmp 4550}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4535}#))))))) - #{tmp 4528}#) - (let ((#{_ 4541}# #{tmp 4527}#)) - (if (null? #{x 4523}#) - #{y 4524}# - (let ((#{tmp 4546}# (list #{x 4523}# #{y 4524}#))) - (let ((#{tmp 4547}# - ($sc-dispatch #{tmp 4546}# '(each-any any)))) - (if #{tmp 4547}# + #{tmp 4549}#))))))) + #{tmp 4542}#) + (let ((#{_ 4555}# #{tmp 4541}#)) + (if (null? #{x 4537}#) + #{y 4538}# + (let ((#{tmp 4560}# (list #{x 4537}# #{y 4538}#))) + (let ((#{tmp 4561}# + ($sc-dispatch #{tmp 4560}# '(each-any any)))) + (if #{tmp 4561}# (@apply - (lambda (#{p 4550}# #{y 4551}#) + (lambda (#{p 4564}# #{y 4565}#) (cons '#(syntax-object "append" ((top) @@ -16742,13 +16742,13 @@ #(ribcage #(p y) #((top) (top)) - #("i4548" "i4549")) - #(ribcage #(_) #((top)) #("i4540")) + #("i4562" "i4563")) + #(ribcage #(_) #((top)) #("i4554")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4525" "i4526")) + #("i4539" "i4540")) #(ribcage (emit quasivector quasilist* @@ -16763,47 +16763,47 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - (append #{p 4550}# (list #{y 4551}#)))) - #{tmp 4547}#) + (append #{p 4564}# (list #{y 4565}#)))) + #{tmp 4561}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4546}#))))))))))) - (#{quasilist* 4430}# - (lambda (#{x 4553}# #{y 4554}#) + #{tmp 4560}#))))))))))) + (#{quasilist* 4444}# + (lambda (#{x 4567}# #{y 4568}#) (letrec* - ((#{f 4559}# - (lambda (#{x 4560}#) - (if (null? #{x 4560}#) - #{y 4554}# - (#{quasicons 4426}# - (car #{x 4560}#) - (#{f 4559}# (cdr #{x 4560}#))))))) - (begin (#{f 4559}# #{x 4553}#))))) - (#{quasivector 4432}# - (lambda (#{x 4561}#) - (let ((#{tmp 4563}# #{x 4561}#)) - (let ((#{tmp 4564}# + ((#{f 4573}# + (lambda (#{x 4574}#) + (if (null? #{x 4574}#) + #{y 4568}# + (#{quasicons 4440}# + (car #{x 4574}#) + (#{f 4573}# (cdr #{x 4574}#))))))) + (begin (#{f 4573}# #{x 4567}#))))) + (#{quasivector 4446}# + (lambda (#{x 4575}#) + (let ((#{tmp 4577}# #{x 4575}#)) + (let ((#{tmp 4578}# ($sc-dispatch - #{tmp 4563}# + #{tmp 4577}# '(#(atom "quote") each-any)))) - (if #{tmp 4564}# + (if #{tmp 4578}# (@apply - (lambda (#{x 4566}#) + (lambda (#{x 4580}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(x) #((top)) #("i4565")) + #(ribcage #(x) #((top)) #("i4579")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4562")) + #(ribcage #(x) #((top)) #("i4576")) #(ribcage (emit quasivector quasilist* @@ -16812,53 +16812,53 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - (list->vector #{x 4566}#))) - #{tmp 4564}#) - (let ((#{_ 4569}# #{tmp 4563}#)) + (list->vector #{x 4580}#))) + #{tmp 4578}#) + (let ((#{_ 4583}# #{tmp 4577}#)) (letrec* - ((#{f 4573}# - (lambda (#{y 4574}# #{k 4575}#) - (let ((#{tmp 4586}# #{y 4574}#)) - (let ((#{tmp 4587}# + ((#{f 4587}# + (lambda (#{y 4588}# #{k 4589}#) + (let ((#{tmp 4600}# #{y 4588}#)) + (let ((#{tmp 4601}# ($sc-dispatch - #{tmp 4586}# + #{tmp 4600}# '(#(atom "quote") each-any)))) - (if #{tmp 4587}# + (if #{tmp 4601}# (@apply - (lambda (#{y 4589}#) - (#{k 4575}# - (map (lambda (#{tmp 4590}#) + (lambda (#{y 4603}#) + (#{k 4589}# + (map (lambda (#{tmp 4604}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("i4588")) + #("i4602")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4570" - "i4571" - "i4572")) + #("i4584" + "i4585" + "i4586")) #(ribcage #(_) #((top)) - #("i4568")) + #("i4582")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562")) + #("i4576")) #(ribcage (emit quasivector quasilist* @@ -16873,75 +16873,75 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{tmp 4590}#)) - #{y 4589}#))) - #{tmp 4587}#) - (let ((#{tmp 4591}# + #{tmp 4604}#)) + #{y 4603}#))) + #{tmp 4601}#) + (let ((#{tmp 4605}# ($sc-dispatch - #{tmp 4586}# + #{tmp 4600}# '(#(atom "list") . each-any)))) - (if #{tmp 4591}# + (if #{tmp 4605}# (@apply - (lambda (#{y 4593}#) - (#{k 4575}# #{y 4593}#)) - #{tmp 4591}#) - (let ((#{tmp 4595}# + (lambda (#{y 4607}#) + (#{k 4589}# #{y 4607}#)) + #{tmp 4605}#) + (let ((#{tmp 4609}# ($sc-dispatch - #{tmp 4586}# + #{tmp 4600}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4595}# + (if #{tmp 4609}# (@apply - (lambda (#{y 4598}# #{z 4599}#) - (#{f 4573}# - #{z 4599}# - (lambda (#{ls 4600}#) - (#{k 4575}# + (lambda (#{y 4612}# #{z 4613}#) + (#{f 4587}# + #{z 4613}# + (lambda (#{ls 4614}#) + (#{k 4589}# (append - #{y 4598}# - #{ls 4600}#))))) - #{tmp 4595}#) - (let ((#{else 4604}# #{tmp 4586}#)) - (let ((#{tmp 4608}# #{x 4561}#)) - (let ((#{ g4605 4610}# - #{tmp 4608}#)) + #{y 4612}# + #{ls 4614}#))))) + #{tmp 4609}#) + (let ((#{else 4618}# #{tmp 4600}#)) + (let ((#{tmp 4622}# #{x 4575}#)) + (let ((#{ g4619 4624}# + #{tmp 4622}#)) (list '#(syntax-object "list->vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4605}#) - #((m4606 top)) - #("i4609")) + #(#{ g4619}#) + #((m4620 top)) + #("i4623")) #(ribcage #(else) #((top)) - #("i4603")) + #("i4617")) #(ribcage () () ()) #(ribcage #(f y k) #((top) (top) (top)) - #("i4570" - "i4571" - "i4572")) + #("i4584" + "i4585" + "i4586")) #(ribcage #(_) #((top)) - #("i4568")) + #("i4582")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562")) + #("i4576")) #(ribcage (emit quasivector quasilist* @@ -16956,49 +16956,49 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4605 4610}#)))))))))))))) + #{ g4619 4624}#)))))))))))))) (begin - (#{f 4573}# - #{x 4561}# - (lambda (#{ls 4576}#) - (let ((#{tmp 4581}# #{ls 4576}#)) - (let ((#{tmp 4582}# - ($sc-dispatch #{tmp 4581}# 'each-any))) - (if #{tmp 4582}# + (#{f 4587}# + #{x 4575}# + (lambda (#{ls 4590}#) + (let ((#{tmp 4595}# #{ls 4590}#)) + (let ((#{tmp 4596}# + ($sc-dispatch #{tmp 4595}# 'each-any))) + (if #{tmp 4596}# (@apply - (lambda (#{ g4578 4584}#) + (lambda (#{ g4592 4598}#) (cons '#(syntax-object "vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4578}#) - #((m4579 top)) - #("i4583")) + #(#{ g4592}#) + #((m4593 top)) + #("i4597")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ls) #((top)) - #("i4577")) + #("i4591")) #(ribcage #(_) #((top)) - #("i4568")) + #("i4582")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4562")) + #("i4576")) #(ribcage (emit quasivector quasilist* @@ -17013,36 +17013,36 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4578 4584}#)) - #{tmp 4582}#) + #{ g4592 4598}#)) + #{tmp 4596}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4581}#)))))))))))))) - (#{emit 4434}# - (lambda (#{x 4611}#) - (let ((#{tmp 4613}# #{x 4611}#)) - (let ((#{tmp 4614}# + #{tmp 4595}#)))))))))))))) + (#{emit 4448}# + (lambda (#{x 4625}#) + (let ((#{tmp 4627}# #{x 4625}#)) + (let ((#{tmp 4628}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "quote") any)))) - (if #{tmp 4614}# + (if #{tmp 4628}# (@apply - (lambda (#{x 4616}#) + (lambda (#{x 4630}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4615")) + #(ribcage #(x) #((top)) #("i4629")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4612")) + #(ribcage #(x) #((top)) #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17051,46 +17051,46 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{x 4616}#)) - #{tmp 4614}#) - (let ((#{tmp 4617}# + #{x 4630}#)) + #{tmp 4628}#) + (let ((#{tmp 4631}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "list") . each-any)))) - (if #{tmp 4617}# + (if #{tmp 4631}# (@apply - (lambda (#{x 4619}#) - (let ((#{tmp 4623}# (map #{emit 4434}# #{x 4619}#))) - (let ((#{tmp 4624}# - ($sc-dispatch #{tmp 4623}# 'each-any))) - (if #{tmp 4624}# + (lambda (#{x 4633}#) + (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#))) + (let ((#{tmp 4638}# + ($sc-dispatch #{tmp 4637}# 'each-any))) + (if #{tmp 4638}# (@apply - (lambda (#{ g4620 4626}#) + (lambda (#{ g4634 4640}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g4620}#) - #((m4621 top)) - #("i4625")) + #(#{ g4634}#) + #((m4635 top)) + #("i4639")) #(ribcage #(x) #((top)) - #("i4618")) + #("i4632")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4612")) + #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17105,70 +17105,70 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4620 4626}#)) - #{tmp 4624}#) + #{ g4634 4640}#)) + #{tmp 4638}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4623}#))))) - #{tmp 4617}#) - (let ((#{tmp 4629}# + #{tmp 4637}#))))) + #{tmp 4631}#) + (let ((#{tmp 4643}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4629}# + (if #{tmp 4643}# (@apply - (lambda (#{x 4632}# #{y 4633}#) + (lambda (#{x 4646}# #{y 4647}#) (letrec* - ((#{f 4636}# - (lambda (#{x* 4637}#) - (if (null? #{x* 4637}#) - (#{emit 4434}# #{y 4633}#) - (let ((#{tmp 4643}# - (list (#{emit 4434}# - (car #{x* 4637}#)) - (#{f 4636}# - (cdr #{x* 4637}#))))) - (let ((#{tmp 4644}# + ((#{f 4650}# + (lambda (#{x* 4651}#) + (if (null? #{x* 4651}#) + (#{emit 4448}# #{y 4647}#) + (let ((#{tmp 4657}# + (list (#{emit 4448}# + (car #{x* 4651}#)) + (#{f 4650}# + (cdr #{x* 4651}#))))) + (let ((#{tmp 4658}# ($sc-dispatch - #{tmp 4643}# + #{tmp 4657}# '(any any)))) - (if #{tmp 4644}# + (if #{tmp 4658}# (@apply - (lambda (#{ g4640 4647}# - #{ g4639 4648}#) + (lambda (#{ g4654 4661}# + #{ g4653 4662}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g4640}# - #{ g4639}#) - #((m4641 top) - (m4641 top)) - #("i4645" "i4646")) + #(#{ g4654}# + #{ g4653}#) + #((m4655 top) + (m4655 top)) + #("i4659" "i4660")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("i4634" "i4635")) + #("i4648" "i4649")) #(ribcage #(x y) #((top) (top)) - #("i4630" "i4631")) + #("i4644" "i4645")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4612")) + #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17183,56 +17183,56 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4640 4647}# - #{ g4639 4648}#)) - #{tmp 4644}#) + #{ g4654 4661}# + #{ g4653 4662}#)) + #{tmp 4658}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4643}#)))))))) - (begin (#{f 4636}# #{x 4632}#)))) - #{tmp 4629}#) - (let ((#{tmp 4649}# + #{tmp 4657}#)))))))) + (begin (#{f 4650}# #{x 4646}#)))) + #{tmp 4643}#) + (let ((#{tmp 4663}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "append") . each-any)))) - (if #{tmp 4649}# + (if #{tmp 4663}# (@apply - (lambda (#{x 4651}#) - (let ((#{tmp 4655}# - (map #{emit 4434}# #{x 4651}#))) - (let ((#{tmp 4656}# + (lambda (#{x 4665}#) + (let ((#{tmp 4669}# + (map #{emit 4448}# #{x 4665}#))) + (let ((#{tmp 4670}# ($sc-dispatch - #{tmp 4655}# + #{tmp 4669}# 'each-any))) - (if #{tmp 4656}# + (if #{tmp 4670}# (@apply - (lambda (#{ g4652 4658}#) + (lambda (#{ g4666 4672}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g4652}#) - #((m4653 top)) - #("i4657")) + #(#{ g4666}#) + #((m4667 top)) + #("i4671")) #(ribcage #(x) #((top)) - #("i4650")) + #("i4664")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4612")) + #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17247,54 +17247,54 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4652 4658}#)) - #{tmp 4656}#) + #{ g4666 4672}#)) + #{tmp 4670}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4655}#))))) - #{tmp 4649}#) - (let ((#{tmp 4661}# + #{tmp 4669}#))))) + #{tmp 4663}#) + (let ((#{tmp 4675}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "vector") . each-any)))) - (if #{tmp 4661}# + (if #{tmp 4675}# (@apply - (lambda (#{x 4663}#) - (let ((#{tmp 4667}# - (map #{emit 4434}# #{x 4663}#))) - (let ((#{tmp 4668}# + (lambda (#{x 4677}#) + (let ((#{tmp 4681}# + (map #{emit 4448}# #{x 4677}#))) + (let ((#{tmp 4682}# ($sc-dispatch - #{tmp 4667}# + #{tmp 4681}# 'each-any))) - (if #{tmp 4668}# + (if #{tmp 4682}# (@apply - (lambda (#{ g4664 4670}#) + (lambda (#{ g4678 4684}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4664}#) - #((m4665 top)) - #("i4669")) + #(#{ g4678}#) + #((m4679 top)) + #("i4683")) #(ribcage #(x) #((top)) - #("i4662")) + #("i4676")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4612")) + #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17309,49 +17309,49 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4664 4670}#)) - #{tmp 4668}#) + #{ g4678 4684}#)) + #{tmp 4682}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4667}#))))) - #{tmp 4661}#) - (let ((#{tmp 4673}# + #{tmp 4681}#))))) + #{tmp 4675}#) + (let ((#{tmp 4687}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "list->vector") any)))) - (if #{tmp 4673}# + (if #{tmp 4687}# (@apply - (lambda (#{x 4675}#) - (let ((#{tmp 4679}# - (#{emit 4434}# #{x 4675}#))) - (let ((#{ g4676 4681}# - #{tmp 4679}#)) + (lambda (#{x 4689}#) + (let ((#{tmp 4693}# + (#{emit 4448}# #{x 4689}#))) + (let ((#{ g4690 4695}# + #{tmp 4693}#)) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g4676}#) - #((m4677 top)) - #("i4680")) + #(#{ g4690}#) + #((m4691 top)) + #("i4694")) #(ribcage #(x) #((top)) - #("i4674")) + #("i4688")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4612")) + #("i4626")) #(ribcage (emit quasivector quasilist* @@ -17366,83 +17366,83 @@ (top) (top) (top)) - ("i4433" - "i4431" - "i4429" - "i4427" - "i4425" - "i4423" - "i4421"))) + ("i4447" + "i4445" + "i4443" + "i4441" + "i4439" + "i4437" + "i4435"))) (hygiene guile)) - #{ g4676 4681}#)))) - #{tmp 4673}#) - (let ((#{tmp 4682}# + #{ g4690 4695}#)))) + #{tmp 4687}#) + (let ((#{tmp 4696}# ($sc-dispatch - #{tmp 4613}# + #{tmp 4627}# '(#(atom "value") any)))) - (if #{tmp 4682}# + (if #{tmp 4696}# (@apply - (lambda (#{x 4684}#) #{x 4684}#) - #{tmp 4682}#) + (lambda (#{x 4698}#) #{x 4698}#) + #{tmp 4696}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4613}#))))))))))))))))))) + #{tmp 4627}#))))))))))))))))))) (begin - (lambda (#{x 4685}#) - (let ((#{tmp 4687}# #{x 4685}#)) - (let ((#{tmp 4688}# - ($sc-dispatch #{tmp 4687}# '(_ any)))) - (if #{tmp 4688}# + (lambda (#{x 4699}#) + (let ((#{tmp 4701}# #{x 4699}#)) + (let ((#{tmp 4702}# + ($sc-dispatch #{tmp 4701}# '(_ any)))) + (if #{tmp 4702}# (@apply - (lambda (#{e 4690}#) - (#{emit 4434}# (#{quasi 4422}# #{e 4690}# 0))) - #{tmp 4688}#) + (lambda (#{e 4704}#) + (#{emit 4448}# (#{quasi 4436}# #{e 4704}# 0))) + #{tmp 4702}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4687}#))))))))) + #{tmp 4701}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 4691}#) + (lambda (#{x 4705}#) (letrec* - ((#{read-file 4694}# - (lambda (#{fn 4695}# #{k 4696}#) + ((#{read-file 4708}# + (lambda (#{fn 4709}# #{k 4710}#) (begin - (let ((#{p 4700}# (open-input-file #{fn 4695}#))) + (let ((#{p 4714}# (open-input-file #{fn 4709}#))) (letrec* - ((#{f 4704}# - (lambda (#{x 4705}# #{result 4706}#) - (if (eof-object? #{x 4705}#) + ((#{f 4718}# + (lambda (#{x 4719}# #{result 4720}#) + (if (eof-object? #{x 4719}#) (begin - (close-input-port #{p 4700}#) - (reverse #{result 4706}#)) - (#{f 4704}# - (read #{p 4700}#) - (cons (datum->syntax #{k 4696}# #{x 4705}#) - #{result 4706}#)))))) - (begin (#{f 4704}# (read #{p 4700}#) '())))))))) + (close-input-port #{p 4714}#) + (reverse #{result 4720}#)) + (#{f 4718}# + (read #{p 4714}#) + (cons (datum->syntax #{k 4710}# #{x 4719}#) + #{result 4720}#)))))) + (begin (#{f 4718}# (read #{p 4714}#) '())))))))) (begin - (let ((#{tmp 4707}# #{x 4691}#)) - (let ((#{tmp 4708}# - ($sc-dispatch #{tmp 4707}# '(any any)))) - (if #{tmp 4708}# + (let ((#{tmp 4721}# #{x 4705}#)) + (let ((#{tmp 4722}# + ($sc-dispatch #{tmp 4721}# '(any any)))) + (if #{tmp 4722}# (@apply - (lambda (#{k 4711}# #{filename 4712}#) + (lambda (#{k 4725}# #{filename 4726}#) (begin - (let ((#{fn 4714}# (syntax->datum #{filename 4712}#))) - (let ((#{tmp 4716}# - (#{read-file 4694}# - #{fn 4714}# - #{filename 4712}#))) - (let ((#{tmp 4717}# - ($sc-dispatch #{tmp 4716}# 'each-any))) - (if #{tmp 4717}# + (let ((#{fn 4728}# (syntax->datum #{filename 4726}#))) + (let ((#{tmp 4730}# + (#{read-file 4708}# + #{fn 4728}# + #{filename 4726}#))) + (let ((#{tmp 4731}# + ($sc-dispatch #{tmp 4730}# 'each-any))) + (if #{tmp 4731}# (@apply - (lambda (#{exp 4719}#) + (lambda (#{exp 4733}#) (cons '#(syntax-object begin ((top) @@ -17450,129 +17450,129 @@ #(ribcage #(exp) #((top)) - #("i4718")) + #("i4732")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4713")) + #("i4727")) #(ribcage #(k filename) #((top) (top)) - #("i4709" "i4710")) + #("i4723" "i4724")) #(ribcage (read-file) ((top)) - ("i4693")) + ("i4707")) #(ribcage #(x) #((top)) - #("i4692"))) + #("i4706"))) (hygiene guile)) - #{exp 4719}#)) - #{tmp 4717}#) + #{exp 4733}#)) + #{tmp 4731}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4716}#))))))) - #{tmp 4708}#) + #{tmp 4730}#))))))) + #{tmp 4722}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4707}#))))))))) + #{tmp 4721}#))))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 4721}#) - (let ((#{tmp 4723}# #{x 4721}#)) - (let ((#{tmp 4724}# - ($sc-dispatch #{tmp 4723}# '(any any)))) - (if #{tmp 4724}# + (lambda (#{x 4735}#) + (let ((#{tmp 4737}# #{x 4735}#)) + (let ((#{tmp 4738}# + ($sc-dispatch #{tmp 4737}# '(any any)))) + (if #{tmp 4738}# (@apply - (lambda (#{k 4727}# #{filename 4728}#) + (lambda (#{k 4741}# #{filename 4742}#) (begin - (let ((#{fn 4730}# (syntax->datum #{filename 4728}#))) - (let ((#{tmp 4732}# + (let ((#{fn 4744}# (syntax->datum #{filename 4742}#))) + (let ((#{tmp 4746}# (datum->syntax - #{filename 4728}# + #{filename 4742}# (begin - (let ((#{t 4737}# - (%search-load-path #{fn 4730}#))) - (if #{t 4737}# - #{t 4737}# + (let ((#{t 4751}# + (%search-load-path #{fn 4744}#))) + (if #{t 4751}# + #{t 4751}# (syntax-violation 'include-from-path "file not found in path" - #{x 4721}# - #{filename 4728}#))))))) - (let ((#{fn 4734}# #{tmp 4732}#)) + #{x 4735}# + #{filename 4742}#))))))) + (let ((#{fn 4748}# #{tmp 4746}#)) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4733")) + #(ribcage #(fn) #((top)) #("i4747")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4729")) + #(ribcage #(fn) #((top)) #("i4743")) #(ribcage #(k filename) #((top) (top)) - #("i4725" "i4726")) + #("i4739" "i4740")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4722"))) + #(ribcage #(x) #((top)) #("i4736"))) (hygiene guile)) - #{fn 4734}#)))))) - #{tmp 4724}#) + #{fn 4748}#)))))) + #{tmp 4738}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4723}#))))))) + #{tmp 4737}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 4739}#) + (lambda (#{x 4753}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 4739}#)))) + #{x 4753}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 4741}#) + (lambda (#{x 4755}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 4741}#)))) + #{x 4755}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 4743}#) - (let ((#{tmp 4745}# #{x 4743}#)) - (let ((#{tmp 4746}# + (lambda (#{x 4757}#) + (let ((#{tmp 4759}# #{x 4757}#)) + (let ((#{tmp 4760}# ($sc-dispatch - #{tmp 4745}# + #{tmp 4759}# '(_ any any . each-any)))) - (if #{tmp 4746}# + (if #{tmp 4760}# (@apply - (lambda (#{e 4750}# #{m1 4751}# #{m2 4752}#) - (let ((#{tmp 4754}# + (lambda (#{e 4764}# #{m1 4765}# #{m2 4766}#) + (let ((#{tmp 4768}# (letrec* - ((#{f 4760}# - (lambda (#{clause 4761}# #{clauses 4762}#) - (if (null? #{clauses 4762}#) - (let ((#{tmp 4764}# #{clause 4761}#)) - (let ((#{tmp 4765}# + ((#{f 4774}# + (lambda (#{clause 4775}# #{clauses 4776}#) + (if (null? #{clauses 4776}#) + (let ((#{tmp 4778}# #{clause 4775}#)) + (let ((#{tmp 4779}# ($sc-dispatch - #{tmp 4764}# + #{tmp 4778}# '(#(free-id #(syntax-object else @@ -17581,92 +17581,92 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile))) any . each-any)))) - (if #{tmp 4765}# + (if #{tmp 4779}# (@apply - (lambda (#{e1 4768}# #{e2 4769}#) + (lambda (#{e1 4782}# #{e2 4783}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4766" "i4767")) + #("i4780" "i4781")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) - (cons #{e1 4768}# - #{e2 4769}#))) - #{tmp 4765}#) - (let ((#{tmp 4771}# + (cons #{e1 4782}# + #{e2 4783}#))) + #{tmp 4779}#) + (let ((#{tmp 4785}# ($sc-dispatch - #{tmp 4764}# + #{tmp 4778}# '(each-any any . each-any)))) - (if #{tmp 4771}# + (if #{tmp 4785}# (@apply - (lambda (#{k 4775}# - #{e1 4776}# - #{e2 4777}#) + (lambda (#{k 4789}# + #{e1 4790}# + #{e2 4791}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4772" - "i4773" - "i4774")) + #("i4786" + "i4787" + "i4788")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) (list '#(syntax-object memv @@ -17676,9 +17676,9 @@ #((top) (top) (top)) - #("i4772" - "i4773" - "i4774")) + #("i4786" + "i4787" + "i4788")) #(ribcage () () @@ -17690,17 +17690,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17708,7 +17708,7 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) '#(syntax-object t @@ -17718,9 +17718,9 @@ #((top) (top) (top)) - #("i4772" - "i4773" - "i4774")) + #("i4786" + "i4787" + "i4788")) #(ribcage () () @@ -17732,17 +17732,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17750,7 +17750,7 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) (list '#(syntax-object quote @@ -17762,9 +17762,9 @@ #((top) (top) (top)) - #("i4772" - "i4773" - "i4774")) + #("i4786" + "i4787" + "i4788")) #(ribcage () () @@ -17776,9 +17776,9 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 @@ -17786,9 +17786,9 @@ #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17796,10 +17796,10 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) - #{k 4775}#)) + #{k 4789}#)) (cons '#(syntax-object begin ((top) @@ -17808,9 +17808,9 @@ #((top) (top) (top)) - #("i4772" - "i4773" - "i4774")) + #("i4786" + "i4787" + "i4788")) #(ribcage () () @@ -17822,17 +17822,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17840,64 +17840,64 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) - (cons #{e1 4776}# - #{e2 4777}#)))) - #{tmp 4771}#) - (let ((#{_ 4781}# #{tmp 4764}#)) + (cons #{e1 4790}# + #{e2 4791}#)))) + #{tmp 4785}#) + (let ((#{_ 4795}# #{tmp 4778}#)) (syntax-violation 'case "bad clause" - #{x 4743}# - #{clause 4761}#))))))) - (let ((#{tmp 4783}# - (#{f 4760}# - (car #{clauses 4762}#) - (cdr #{clauses 4762}#)))) - (let ((#{rest 4785}# #{tmp 4783}#)) - (let ((#{tmp 4786}# #{clause 4761}#)) - (let ((#{tmp 4787}# + #{x 4757}# + #{clause 4775}#))))))) + (let ((#{tmp 4797}# + (#{f 4774}# + (car #{clauses 4776}#) + (cdr #{clauses 4776}#)))) + (let ((#{rest 4799}# #{tmp 4797}#)) + (let ((#{tmp 4800}# #{clause 4775}#)) + (let ((#{tmp 4801}# ($sc-dispatch - #{tmp 4786}# + #{tmp 4800}# '(each-any any . each-any)))) - (if #{tmp 4787}# + (if #{tmp 4801}# (@apply - (lambda (#{k 4791}# - #{e1 4792}# - #{e2 4793}#) + (lambda (#{k 4805}# + #{e1 4806}# + #{e2 4807}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("i4788" - "i4789" - "i4790")) + #("i4802" + "i4803" + "i4804")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("i4784")) + #("i4798")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) (list '#(syntax-object memv @@ -17907,9 +17907,9 @@ #((top) (top) (top)) - #("i4788" - "i4789" - "i4790")) + #("i4802" + "i4803" + "i4804")) #(ribcage () () @@ -17917,7 +17917,7 @@ #(ribcage #(rest) #((top)) - #("i4784")) + #("i4798")) #(ribcage () () @@ -17929,17 +17929,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17947,7 +17947,7 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) '#(syntax-object t @@ -17957,9 +17957,9 @@ #((top) (top) (top)) - #("i4788" - "i4789" - "i4790")) + #("i4802" + "i4803" + "i4804")) #(ribcage () () @@ -17967,7 +17967,7 @@ #(ribcage #(rest) #((top)) - #("i4784")) + #("i4798")) #(ribcage () () @@ -17979,17 +17979,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -17997,7 +17997,7 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) (list '#(syntax-object quote @@ -18009,9 +18009,9 @@ #((top) (top) (top)) - #("i4788" - "i4789" - "i4790")) + #("i4802" + "i4803" + "i4804")) #(ribcage () () @@ -18019,7 +18019,7 @@ #(ribcage #(rest) #((top)) - #("i4784")) + #("i4798")) #(ribcage () () @@ -18031,9 +18031,9 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 @@ -18041,9 +18041,9 @@ #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -18051,10 +18051,10 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) - #{k 4791}#)) + #{k 4805}#)) (cons '#(syntax-object begin ((top) @@ -18063,9 +18063,9 @@ #((top) (top) (top)) - #("i4788" - "i4789" - "i4790")) + #("i4802" + "i4803" + "i4804")) #(ribcage () () @@ -18073,7 +18073,7 @@ #(ribcage #(rest) #((top)) - #("i4784")) + #("i4798")) #(ribcage () () @@ -18085,17 +18085,17 @@ #((top) (top) (top)) - #("i4757" - "i4758" - "i4759")) + #("i4771" + "i4772" + "i4773")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" - "i4748" - "i4749")) + #("i4761" + "i4762" + "i4763")) #(ribcage () () @@ -18103,31 +18103,31 @@ #(ribcage #(x) #((top)) - #("i4744"))) + #("i4758"))) (hygiene guile)) - (cons #{e1 4792}# - #{e2 4793}#)) - #{rest 4785}#)) - #{tmp 4787}#) - (let ((#{_ 4797}# #{tmp 4786}#)) + (cons #{e1 4806}# + #{e2 4807}#)) + #{rest 4799}#)) + #{tmp 4801}#) + (let ((#{_ 4811}# #{tmp 4800}#)) (syntax-violation 'case "bad clause" - #{x 4743}# - #{clause 4761}#))))))))))) - (begin (#{f 4760}# #{m1 4751}# #{m2 4752}#))))) - (let ((#{body 4756}# #{tmp 4754}#)) + #{x 4757}# + #{clause 4775}#))))))))))) + (begin (#{f 4774}# #{m1 4765}# #{m2 4766}#))))) + (let ((#{body 4770}# #{tmp 4768}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i4755")) + #(ribcage #(body) #((top)) #("i4769")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" "i4748" "i4749")) + #("i4761" "i4762" "i4763")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4744"))) + #(ribcage #(x) #((top)) #("i4758"))) (hygiene guile)) (list (list '#(syntax-object t @@ -18136,176 +18136,176 @@ #(ribcage #(body) #((top)) - #("i4755")) + #("i4769")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4747" "i4748" "i4749")) + #("i4761" "i4762" "i4763")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4744"))) + #(ribcage #(x) #((top)) #("i4758"))) (hygiene guile)) - #{e 4750}#)) - #{body 4756}#)))) - #{tmp 4746}#) + #{e 4764}#)) + #{body 4770}#)))) + #{tmp 4760}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4745}#))))))) + #{tmp 4759}#))))))) (define make-variable-transformer - (lambda (#{proc 4798}#) - (if (procedure? #{proc 4798}#) + (lambda (#{proc 4812}#) + (if (procedure? #{proc 4812}#) (begin (letrec* - ((#{trans 4801}# - (lambda (#{x 4802}#) (#{proc 4798}# #{x 4802}#)))) + ((#{trans 4815}# + (lambda (#{x 4816}#) (#{proc 4812}# #{x 4816}#)))) (begin (set-procedure-property! - #{trans 4801}# + #{trans 4815}# 'variable-transformer #t) - #{trans 4801}#))) + #{trans 4815}#))) (error "variable transformer not a procedure" - #{proc 4798}#)))) + #{proc 4812}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 4804}#) - (let ((#{tmp 4806}# #{x 4804}#)) - (let ((#{tmp 4807}# - ($sc-dispatch #{tmp 4806}# '(_ any)))) - (if #{tmp 4807}# + (lambda (#{x 4818}#) + (let ((#{tmp 4820}# #{x 4818}#)) + (let ((#{tmp 4821}# + ($sc-dispatch #{tmp 4820}# '(_ any)))) + (if #{tmp 4821}# (@apply - (lambda (#{e 4809}#) + (lambda (#{e 4823}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - #{e 4809}#)) + #{e 4823}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4808")) + #(ribcage #(e) #((top)) #("i4822")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - (cons #{e 4809}# + (cons #{e 4823}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i4808")) + #("i4822")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) #(syntax-object ... @@ -18313,55 +18313,55 @@ #(ribcage #(e) #((top)) - #("i4808")) + #("i4822")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile))))))))) - #{tmp 4807}#) - (let ((#{tmp 4810}# + #{tmp 4821}#) + (let ((#{tmp 4824}# ($sc-dispatch - #{tmp 4806}# + #{tmp 4820}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile))) any any) any))))) - (if (if #{tmp 4810}# + (if (if #{tmp 4824}# (@apply - (lambda (#{id 4816}# - #{exp1 4817}# - #{var 4818}# - #{val 4819}# - #{exp2 4820}#) - (if (identifier? #{id 4816}#) - (identifier? #{var 4818}#) + (lambda (#{id 4830}# + #{exp1 4831}# + #{var 4832}# + #{val 4833}# + #{exp2 4834}#) + (if (identifier? #{id 4830}#) + (identifier? #{var 4832}#) #f)) - #{tmp 4810}#) + #{tmp 4824}#) #f) (@apply - (lambda (#{id 4828}# - #{exp1 4829}# - #{var 4830}# - #{val 4831}# - #{exp2 4832}#) + (lambda (#{id 4842}# + #{exp1 4843}# + #{var 4844}# + #{val 4845}# + #{exp2 4846}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" "i4824" "i4825" "i4826" "i4827")) + #("i4837" "i4838" "i4839" "i4840" "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) (list '#(syntax-object lambda @@ -18369,13 +18369,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '(#(syntax-object x @@ -18383,13 +18383,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -18397,13 +18397,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) . #(syntax-object @@ -18412,13 +18412,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -18426,13 +18426,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '#(syntax-object x @@ -18440,13 +18440,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile)) '(#(syntax-object set! @@ -18454,13 +18454,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4805"))) + #(ribcage #(x) #((top)) #("i4819"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -18472,19 +18472,19 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - #{var 4830}# - #{val 4831}#) + #{var 4844}# + #{val 4845}#) (list '#(syntax-object syntax ((top) @@ -18495,19 +18495,19 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - #{exp2 4832}#)) - (list (cons #{id 4828}# + #{exp2 4846}#)) + (list (cons #{id 4842}# '(#(syntax-object x ((top) @@ -18522,16 +18522,16 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) #(syntax-object ... @@ -18547,16 +18547,16 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -18568,18 +18568,18 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - (cons #{exp1 4829}# + (cons #{exp1 4843}# '(#(syntax-object x ((top) @@ -18594,11 +18594,11 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () @@ -18606,7 +18606,7 @@ #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) #(syntax-object ... @@ -18622,11 +18622,11 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () @@ -18634,10 +18634,10 @@ #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)))))) - (list #{id 4828}# + (list #{id 4842}# (list '#(syntax-object identifier? ((top) @@ -18648,16 +18648,16 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) (list '#(syntax-object syntax @@ -18673,18 +18673,18 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - #{id 4828}#)) + #{id 4842}#)) (list '#(syntax-object syntax ((top) @@ -18695,69 +18695,69 @@ (top) (top) (top)) - #("i4823" - "i4824" - "i4825" - "i4826" - "i4827")) + #("i4837" + "i4838" + "i4839" + "i4840" + "i4841")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4805"))) + #("i4819"))) (hygiene guile)) - #{exp1 4829}#)))))) - #{tmp 4810}#) + #{exp1 4843}#)))))) + #{tmp 4824}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4806}#))))))))) + #{tmp 4820}#))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 4833}#) - (let ((#{tmp 4835}# #{x 4833}#)) - (let ((#{tmp 4836}# + (lambda (#{x 4847}#) + (let ((#{tmp 4849}# #{x 4847}#)) + (let ((#{tmp 4850}# ($sc-dispatch - #{tmp 4835}# + #{tmp 4849}# '(_ (any . any) any . each-any)))) - (if #{tmp 4836}# + (if #{tmp 4850}# (@apply - (lambda (#{id 4841}# - #{args 4842}# - #{b0 4843}# - #{b1 4844}#) + (lambda (#{id 4855}# + #{args 4856}# + #{b0 4857}# + #{b1 4858}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4837" "i4838" "i4839" "i4840")) + #("i4851" "i4852" "i4853" "i4854")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4834"))) + #(ribcage #(x) #((top)) #("i4848"))) (hygiene guile)) - #{id 4841}# + #{id 4855}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4837" "i4838" "i4839" "i4840")) + #("i4851" "i4852" "i4853" "i4854")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4834"))) + #(ribcage #(x) #((top)) #("i4848"))) (hygiene guile)) - (cons #{args 4842}# - (cons #{b0 4843}# #{b1 4844}#))))) - #{tmp 4836}#) - (let ((#{tmp 4846}# - ($sc-dispatch #{tmp 4835}# '(_ any any)))) - (if (if #{tmp 4846}# + (cons #{args 4856}# + (cons #{b0 4857}# #{b1 4858}#))))) + #{tmp 4850}#) + (let ((#{tmp 4860}# + ($sc-dispatch #{tmp 4849}# '(_ any any)))) + (if (if #{tmp 4860}# (@apply - (lambda (#{id 4849}# #{val 4850}#) + (lambda (#{id 4863}# #{val 4864}#) (identifier? '#(syntax-object x @@ -18765,29 +18765,29 @@ #(ribcage #(id val) #((top) (top)) - #("i4847" "i4848")) + #("i4861" "i4862")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4834"))) + #(ribcage #(x) #((top)) #("i4848"))) (hygiene guile)))) - #{tmp 4846}#) + #{tmp 4860}#) #f) (@apply - (lambda (#{id 4853}# #{val 4854}#) + (lambda (#{id 4867}# #{val 4868}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("i4851" "i4852")) + #("i4865" "i4866")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4834"))) + #(ribcage #(x) #((top)) #("i4848"))) (hygiene guile)) - #{id 4853}# - #{val 4854}#)) - #{tmp 4846}#) + #{id 4867}# + #{val 4868}#)) + #{tmp 4860}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4835}#))))))))) + #{tmp 4849}#))))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 873e25a74..40b228c07 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -272,9 +272,8 @@ (lambda (x mod) (primitive-eval x))) - (define-syntax gensym-hook - (syntax-rules () - ((_) (gensym)))) + (define-syntax-rule (gensym-hook) + (gensym)) (define put-global-definition-hook (lambda (symbol type val) @@ -449,9 +448,8 @@ ;; FIXME: use a faster gensym - (define-syntax build-lexical-var - (syntax-rules () - ((_ src id) (gensym (string-append (symbol->string id) " "))))) + (define-syntax-rule (build-lexical-var src id) + (gensym (string-append (symbol->string id) " "))) (define-structure (syntax-object expression wrap module)) @@ -468,11 +466,9 @@ #f))) (else #f)))) - (define-syntax arg-check - (syntax-rules () - ((_ pred? e who) - (let ((x e)) - (if (not (pred? x)) (syntax-violation who "invalid argument" x)))))) + (define-syntax-rule (arg-check pred? e who) + (let ((x e)) + (if (not (pred? x)) (syntax-violation who "invalid argument" x)))) ;; compile-time environments @@ -535,12 +531,10 @@ ((_ type value) (cons type value)) ((_ 'type) '(type)) ((_ type) (cons type '())))) - (define-syntax binding-type - (syntax-rules () - ((_ x) (car x)))) - (define-syntax binding-value - (syntax-rules () - ((_ x) (cdr x)))) + (define-syntax-rule (binding-type x) + (car x)) + (define-syntax-rule (binding-value x) + (cdr x)) (define-syntax null-env (identifier-syntax '())) @@ -605,13 +599,11 @@ ((syntax-object? x) (symbol? (syntax-object-expression x))) (else #f)))) - (define-syntax id-sym-name - (syntax-rules () - ((_ e) - (let ((x e)) - (if (syntax-object? x) - (syntax-object-expression x) - x))))) + (define-syntax-rule (id-sym-name e) + (let ((x e)) + (if (syntax-object? x) + (syntax-object-expression x) + x))) (define id-sym-name&marks (lambda (x w) @@ -633,12 +625,11 @@ (define-syntax wrap-subst (identifier-syntax cdr)) (define-syntax subst-rename? (identifier-syntax vector?)) - (define-syntax rename-old (syntax-rules () ((_ x) (vector-ref x 0)))) - (define-syntax rename-new (syntax-rules () ((_ x) (vector-ref x 1)))) - (define-syntax rename-marks (syntax-rules () ((_ x) (vector-ref x 2)))) - (define-syntax make-rename - (syntax-rules () - ((_ old new marks) (vector old new marks)))) + (define-syntax-rule (rename-old x) (vector-ref x 0)) + (define-syntax-rule (rename-new x) (vector-ref x 1)) + (define-syntax-rule (rename-marks x) (vector-ref x 2)) + (define-syntax-rule (make-rename old new marks) + (vector old new marks)) ;; labels must be comparable with "eq?", have read-write invariance, ;; and distinct from symbols. @@ -657,9 +648,8 @@ (define-syntax top-wrap (identifier-syntax '((top)))) - (define-syntax top-marked? - (syntax-rules () - ((_ w) (memq 'top (wrap-marks w))))) + (define-syntax-rule (top-marked? w) + (memq 'top (wrap-marks w))) ;; Marks must be comparable with "eq?" and distinct from pairs and ;; the symbol top. We do not use integers so that marks will remain @@ -672,15 +662,13 @@ (make-wrap (cons the-anti-mark (wrap-marks w)) (cons 'shift (wrap-subst w))))) - (define-syntax new-mark - (syntax-rules () - ((_) (gensym "m")))) + (define-syntax-rule (new-mark) + (gensym "m")) ;; make-empty-ribcage and extend-ribcage maintain list-based ribcages for ;; internal definitions, in which the ribcages are built incrementally - (define-syntax make-empty-ribcage - (syntax-rules () - ((_) (make-ribcage '() '() '())))) + (define-syntax-rule (make-empty-ribcage) + (make-ribcage '() '() '())) (define extend-ribcage! ;; must receive ids with complete wraps @@ -749,10 +737,9 @@ (define id-var-name (lambda (id w) - (define-syntax first - (syntax-rules () - ;; Rely on Guile's multiple-values truncation. - ((_ e) e))) + (define-syntax-rule (first e) + ;; Rely on Guile's multiple-values truncation. + e) (define search (lambda (sym subst marks) (if (null? subst) |