diff options
author | Andy Wingo <wingo@pobox.com> | 2011-09-27 15:09:25 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-09-28 00:13:56 +0200 |
commit | df40b969780df2979f9f5e1c9ae8b9d6f09dbd9a (patch) | |
tree | 0bd9a8380c6e103c1a7e09f4f282f4341e442107 | |
parent | 0353a2d817d0d5b3c563af4fa1b5c7c1fe7ce3a6 (diff) | |
download | guile-df40b969780df2979f9f5e1c9ae8b9d6f09dbd9a.tar.gz |
regenerate psyntax-pp.scm, with optimizations
* module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 42659 |
1 files changed, 28957 insertions, 13702 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index d499b738a..195f52398 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -2,1527 +2,1434 @@ (if #f #f) (letrec* - ((#{make-void 203}# - (lambda (#{src 774}#) + ((#{make-void 207}# + (lambda (#{src 778}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{src 774}#))) - (#{make-const 205}# - (lambda (#{src 776}# #{exp 777}#) + #{src 778}#))) + (#{make-const 209}# + (lambda (#{src 780}# #{exp 781}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{src 776}# - #{exp 777}#))) - (#{make-lexical-ref 209}# - (lambda (#{src 784}# #{name 785}# #{gensym 786}#) + #{src 780}# + #{exp 781}#))) + (#{make-lexical-ref 213}# + (lambda (#{src 788}# #{name 789}# #{gensym 790}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 784}# - #{name 785}# - #{gensym 786}#))) - (#{make-lexical-set 211}# - (lambda (#{src 790}# - #{name 791}# - #{gensym 792}# - #{exp 793}#) + #{src 788}# + #{name 789}# + #{gensym 790}#))) + (#{make-lexical-set 215}# + (lambda (#{src 794}# + #{name 795}# + #{gensym 796}# + #{exp 797}#) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{src 790}# - #{name 791}# - #{gensym 792}# - #{exp 793}#))) - (#{make-module-ref 213}# - (lambda (#{src 798}# - #{mod 799}# - #{name 800}# - #{public? 801}#) + #{src 794}# + #{name 795}# + #{gensym 796}# + #{exp 797}#))) + (#{make-module-ref 217}# + (lambda (#{src 802}# + #{mod 803}# + #{name 804}# + #{public? 805}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{src 798}# - #{mod 799}# - #{name 800}# - #{public? 801}#))) - (#{make-module-set 215}# - (lambda (#{src 806}# - #{mod 807}# - #{name 808}# - #{public? 809}# - #{exp 810}#) + #{src 802}# + #{mod 803}# + #{name 804}# + #{public? 805}#))) + (#{make-module-set 219}# + (lambda (#{src 810}# + #{mod 811}# + #{name 812}# + #{public? 813}# + #{exp 814}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{src 806}# - #{mod 807}# - #{name 808}# - #{public? 809}# - #{exp 810}#))) - (#{make-toplevel-ref 217}# - (lambda (#{src 816}# #{name 817}#) + #{src 810}# + #{mod 811}# + #{name 812}# + #{public? 813}# + #{exp 814}#))) + (#{make-toplevel-ref 221}# + (lambda (#{src 820}# #{name 821}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{src 816}# - #{name 817}#))) - (#{make-toplevel-set 219}# - (lambda (#{src 820}# #{name 821}# #{exp 822}#) + #{src 820}# + #{name 821}#))) + (#{make-toplevel-set 223}# + (lambda (#{src 824}# #{name 825}# #{exp 826}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{src 820}# - #{name 821}# - #{exp 822}#))) - (#{make-toplevel-define 221}# - (lambda (#{src 826}# #{name 827}# #{exp 828}#) + #{src 824}# + #{name 825}# + #{exp 826}#))) + (#{make-toplevel-define 225}# + (lambda (#{src 830}# #{name 831}# #{exp 832}#) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{src 826}# - #{name 827}# - #{exp 828}#))) - (#{make-conditional 223}# - (lambda (#{src 832}# - #{test 833}# - #{consequent 834}# - #{alternate 835}#) + #{src 830}# + #{name 831}# + #{exp 832}#))) + (#{make-conditional 227}# + (lambda (#{src 836}# + #{test 837}# + #{consequent 838}# + #{alternate 839}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{src 832}# - #{test 833}# - #{consequent 834}# - #{alternate 835}#))) - (#{make-application 225}# - (lambda (#{src 840}# #{proc 841}# #{args 842}#) + #{src 836}# + #{test 837}# + #{consequent 838}# + #{alternate 839}#))) + (#{make-application 229}# + (lambda (#{src 844}# #{proc 845}# #{args 846}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 840}# - #{proc 841}# - #{args 842}#))) - (#{make-sequence 227}# - (lambda (#{src 846}# #{exps 847}#) + #{src 844}# + #{proc 845}# + #{args 846}#))) + (#{make-sequence 231}# + (lambda (#{src 850}# #{exps 851}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 846}# - #{exps 847}#))) - (#{make-lambda 229}# - (lambda (#{src 850}# #{meta 851}# #{body 852}#) + #{src 850}# + #{exps 851}#))) + (#{make-lambda 233}# + (lambda (#{src 854}# #{meta 855}# #{body 856}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 850}# - #{meta 851}# - #{body 852}#))) - (#{make-lambda-case 231}# - (lambda (#{src 856}# - #{req 857}# - #{opt 858}# - #{rest 859}# - #{kw 860}# - #{inits 861}# - #{gensyms 862}# - #{body 863}# - #{alternate 864}#) + #{src 854}# + #{meta 855}# + #{body 856}#))) + (#{make-lambda-case 235}# + (lambda (#{src 860}# + #{req 861}# + #{opt 862}# + #{rest 863}# + #{kw 864}# + #{inits 865}# + #{gensyms 866}# + #{body 867}# + #{alternate 868}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 856}# - #{req 857}# - #{opt 858}# - #{rest 859}# - #{kw 860}# - #{inits 861}# - #{gensyms 862}# - #{body 863}# - #{alternate 864}#))) - (#{make-let 233}# - (lambda (#{src 874}# - #{names 875}# - #{gensyms 876}# - #{vals 877}# - #{body 878}#) + #{src 860}# + #{req 861}# + #{opt 862}# + #{rest 863}# + #{kw 864}# + #{inits 865}# + #{gensyms 866}# + #{body 867}# + #{alternate 868}#))) + (#{make-let 237}# + (lambda (#{src 878}# + #{names 879}# + #{gensyms 880}# + #{vals 881}# + #{body 882}#) (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 874}# - #{names 875}# - #{gensyms 876}# - #{vals 877}# - #{body 878}#))) - (#{make-letrec 235}# - (lambda (#{src 884}# - #{in-order? 885}# - #{names 886}# - #{gensyms 887}# - #{vals 888}# - #{body 889}#) + #{src 878}# + #{names 879}# + #{gensyms 880}# + #{vals 881}# + #{body 882}#))) + (#{make-letrec 239}# + (lambda (#{src 888}# + #{in-order? 889}# + #{names 890}# + #{gensyms 891}# + #{vals 892}# + #{body 893}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 884}# - #{in-order? 885}# - #{names 886}# - #{gensyms 887}# - #{vals 888}# - #{body 889}#))) - (#{make-dynlet 237}# - (lambda (#{src 896}# - #{fluids 897}# - #{vals 898}# - #{body 899}#) + #{src 888}# + #{in-order? 889}# + #{names 890}# + #{gensyms 891}# + #{vals 892}# + #{body 893}#))) + (#{make-dynlet 241}# + (lambda (#{src 900}# + #{fluids 901}# + #{vals 902}# + #{body 903}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{src 896}# - #{fluids 897}# - #{vals 898}# - #{body 899}#))) - (#{lambda? 240}# - (lambda (#{x 904}#) - (if (struct? #{x 904}#) - (eq? (struct-vtable #{x 904}#) + #{src 900}# + #{fluids 901}# + #{vals 902}# + #{body 903}#))) + (#{lambda? 244}# + (lambda (#{x 908}#) + (if (struct? #{x 908}#) + (eq? (struct-vtable #{x 908}#) (vector-ref %expanded-vtables 13)) #f))) - (#{lambda-meta 242}# - (lambda (#{x 908}#) (struct-ref #{x 908}# 1))) - (#{set-lambda-meta! 244}# - (lambda (#{x 910}# #{v 911}#) - (struct-set! #{x 910}# 1 #{v 911}#))) - (#{top-level-eval-hook 250}# - (lambda (#{x 914}# #{mod 915}#) - (primitive-eval #{x 914}#))) - (#{local-eval-hook 252}# + (#{lambda-meta 246}# + (lambda (#{x 912}#) (struct-ref #{x 912}# 1))) + (#{set-lambda-meta! 248}# + (lambda (#{x 914}# #{v 915}#) + (struct-set! #{x 914}# 1 #{v 915}#))) + (#{top-level-eval-hook 254}# (lambda (#{x 918}# #{mod 919}#) (primitive-eval #{x 918}#))) - (#{put-global-definition-hook 256}# - (lambda (#{symbol 922}# #{type 923}# #{val 924}#) + (#{local-eval-hook 256}# + (lambda (#{x 922}# #{mod 923}#) + (primitive-eval #{x 922}#))) + (#{put-global-definition-hook 260}# + (lambda (#{symbol 926}# #{type 927}# #{val 928}#) (module-define! (current-module) - #{symbol 922}# + #{symbol 926}# (make-syntax-transformer - #{symbol 922}# - #{type 923}# - #{val 924}#)))) - (#{get-global-definition-hook 258}# - (lambda (#{symbol 928}# #{module 929}#) + #{symbol 926}# + #{type 927}# + #{val 928}#)))) + (#{get-global-definition-hook 262}# + (lambda (#{symbol 932}# #{module 933}#) (begin - (if (if (not #{module 929}#) (current-module) #f) + (if (if (not #{module 933}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 928}#)) + #{symbol 932}#)) (begin - (let ((#{v 935}# (module-variable - (if #{module 929}# - (resolve-module (cdr #{module 929}#)) + (let ((#{v 939}# (module-variable + (if #{module 933}# + (resolve-module (cdr #{module 933}#)) (current-module)) - #{symbol 928}#))) - (if #{v 935}# - (if (variable-bound? #{v 935}#) + #{symbol 932}#))) + (if #{v 939}# + (if (variable-bound? #{v 939}#) (begin - (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}#)) + (let ((#{val 944}# (variable-ref #{v 939}#))) + (if (macro? #{val 944}#) + (if (macro-type #{val 944}#) + (cons (macro-type #{val 944}#) + (macro-binding #{val 944}#)) #f) #f))) #f) #f)))))) - (#{decorate-source 260}# - (lambda (#{e 944}# #{s 945}#) + (#{decorate-source 264}# + (lambda (#{e 948}# #{s 949}#) (begin - (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}#) + (if (if (pair? #{e 948}#) #{s 949}# #f) + (set-source-properties! #{e 948}# #{s 949}#)) + #{e 948}#))) + (#{maybe-name-value! 266}# + (lambda (#{name 954}# #{val 955}#) + (if (#{lambda? 244}# #{val 955}#) (begin - (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#))) - (if (not (assq 'name #{meta 955}#)) - (#{set-lambda-meta! 244}# - #{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 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 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 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 981}# - #{name 982}# - #{var 983}#))) - (#{build-lexical-assignment 274}# - (lambda (#{source 988}# - #{name 989}# - #{var 990}# - #{exp 991}#) - (begin - (#{maybe-name-value! 262}# - #{name 989}# - #{exp 991}#) - (#{make-lexical-set 211}# - #{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}#) + (let ((#{meta 959}# (#{lambda-meta 246}# #{val 955}#))) + (if (not (assq 'name #{meta 959}#)) + (#{set-lambda-meta! 248}# + #{val 955}# + (cons (cons 'name #{name 954}#) #{meta 959}#)))))))) + (#{build-void 268}# + (lambda (#{source 960}#) + (#{make-void 207}# #{source 960}#))) + (#{build-application 270}# + (lambda (#{source 962}# #{fun-exp 963}# #{arg-exps 964}#) + (#{make-application 229}# + #{source 962}# + #{fun-exp 963}# + #{arg-exps 964}#))) + (#{build-conditional 272}# + (lambda (#{source 968}# + #{test-exp 969}# + #{then-exp 970}# + #{else-exp 971}#) + (#{make-conditional 227}# + #{source 968}# + #{test-exp 969}# + #{then-exp 970}# + #{else-exp 971}#))) + (#{build-lexical-reference 276}# + (lambda (#{type 984}# + #{source 985}# + #{name 986}# + #{var 987}#) + (#{make-lexical-ref 213}# + #{source 985}# + #{name 986}# + #{var 987}#))) + (#{analyze-variable 280}# + (lambda (#{mod 1000}# + #{var 1001}# + #{modref-cont 1002}# + #{bare-cont 1003}#) + (if (not #{mod 1000}#) + (#{bare-cont 1003}# #{var 1001}#) (begin - (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) + (let ((#{kind 1010}# (car #{mod 1000}#)) + (#{mod 1011}# (cdr #{mod 1000}#))) + (if (eqv? #{kind 1010}# 'public) + (#{modref-cont 1002}# + #{mod 1011}# + #{var 1001}# + #t) + (if (eqv? #{kind 1010}# 'private) (if (not (equal? - #{mod 1007}# + #{mod 1011}# (module-name (current-module)))) - (#{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) + (#{modref-cont 1002}# + #{mod 1011}# + #{var 1001}# + #f) + (#{bare-cont 1003}# #{var 1001}#)) + (if (eqv? #{kind 1010}# 'bare) + (#{bare-cont 1003}# #{var 1001}#) + (if (eqv? #{kind 1010}# 'hygiene) (if (if (not (equal? - #{mod 1007}# + #{mod 1011}# (module-name (current-module)))) (module-variable - (resolve-module #{mod 1007}#) - #{var 997}#) + (resolve-module #{mod 1011}#) + #{var 1001}#) #f) - (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f) - (#{bare-cont 999}# #{var 997}#)) + (#{modref-cont 1002}# + #{mod 1011}# + #{var 1001}# + #f) + (#{bare-cont 1003}# #{var 1001}#)) (syntax-violation #f "bad module kind" - #{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 1015}# - #{mod 1021}# - #{var 1022}# - #{public? 1023}#)) - (lambda (#{var 1027}#) - (#{make-toplevel-ref 217}# - #{source 1015}# - #{var 1027}#))))) - (#{build-global-assignment 280}# - (lambda (#{source 1029}# - #{var 1030}# - #{exp 1031}# - #{mod 1032}#) + #{var 1001}# + #{mod 1011}#)))))))))) + (#{build-global-reference 282}# + (lambda (#{source 1019}# #{var 1020}# #{mod 1021}#) + (#{analyze-variable 280}# + #{mod 1021}# + #{var 1020}# + (lambda (#{mod 1025}# #{var 1026}# #{public? 1027}#) + (#{make-module-ref 217}# + #{source 1019}# + #{mod 1025}# + #{var 1026}# + #{public? 1027}#)) + (lambda (#{var 1031}#) + (#{make-toplevel-ref 221}# + #{source 1019}# + #{var 1031}#))))) + (#{build-global-assignment 284}# + (lambda (#{source 1033}# + #{var 1034}# + #{exp 1035}# + #{mod 1036}#) (begin - (#{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 1029}# - #{mod 1037}# - #{var 1038}# - #{public? 1039}# - #{exp 1031}#)) - (lambda (#{var 1043}#) - (#{make-toplevel-set 219}# - #{source 1029}# - #{var 1043}# - #{exp 1031}#)))))) - (#{build-global-definition 282}# - (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#) + (#{maybe-name-value! 266}# + #{var 1034}# + #{exp 1035}#) + (#{analyze-variable 280}# + #{mod 1036}# + #{var 1034}# + (lambda (#{mod 1041}# #{var 1042}# #{public? 1043}#) + (#{make-module-set 219}# + #{source 1033}# + #{mod 1041}# + #{var 1042}# + #{public? 1043}# + #{exp 1035}#)) + (lambda (#{var 1047}#) + (#{make-toplevel-set 223}# + #{source 1033}# + #{var 1047}# + #{exp 1035}#)))))) + (#{build-global-definition 286}# + (lambda (#{source 1049}# #{var 1050}# #{exp 1051}#) (begin - (#{maybe-name-value! 262}# - #{var 1046}# - #{exp 1047}#) - (#{make-toplevel-define 221}# - #{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 1051}# - #{meta 1055}# - (#{make-lambda-case 231}# - #{src 1051}# - #{req 1052}# + (#{maybe-name-value! 266}# + #{var 1050}# + #{exp 1051}#) + (#{make-toplevel-define 225}# + #{source 1049}# + #{var 1050}# + #{exp 1051}#)))) + (#{build-simple-lambda 288}# + (lambda (#{src 1055}# + #{req 1056}# + #{rest 1057}# + #{vars 1058}# + #{meta 1059}# + #{exp 1060}#) + (#{make-lambda 233}# + #{src 1055}# + #{meta 1059}# + (#{make-lambda-case 235}# + #{src 1055}# + #{req 1056}# #f - #{rest 1053}# + #{rest 1057}# #f '() - #{vars 1054}# - #{exp 1056}# + #{vars 1058}# + #{exp 1060}# #f)))) - (#{build-case-lambda 286}# - (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#) - (#{make-lambda 229}# - #{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 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}#) + (#{build-lambda-case 292}# + (lambda (#{src 1073}# + #{req 1074}# + #{opt 1075}# + #{rest 1076}# + #{kw 1077}# + #{inits 1078}# + #{vars 1079}# + #{body 1080}# + #{else-case 1081}#) + (#{make-lambda-case 235}# + #{src 1073}# + #{req 1074}# + #{opt 1075}# + #{rest 1076}# + #{kw 1077}# + #{inits 1078}# + #{vars 1079}# + #{body 1080}# + #{else-case 1081}#))) + (#{build-primref 294}# + (lambda (#{src 1091}# #{name 1092}#) (if (equal? (module-name (current-module)) '(guile)) - (#{make-toplevel-ref 217}# - #{src 1087}# - #{name 1088}#) - (#{make-module-ref 213}# - #{src 1087}# + (#{make-toplevel-ref 221}# + #{src 1091}# + #{name 1092}#) + (#{make-module-ref 217}# + #{src 1091}# '(guile) - #{name 1088}# + #{name 1092}# #f)))) - (#{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 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! 262}# - #{ids 1100}# - #{val-exps 1102}#) - (if (null? #{vars 1101}#) - #{body-exp 1103}# - (#{make-let 233}# - #{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 1123}# (car #{vars 1111}#)) - (#{f-name 1124}# (car #{ids 1110}#)) - (#{vars 1125}# (cdr #{vars 1111}#)) - (#{ids 1126}# (cdr #{ids 1110}#))) - (begin - (let ((#{proc 1128}# - (#{build-simple-lambda 284}# - #{src 1109}# - #{ids 1126}# - #f - #{vars 1125}# - '() - #{body-exp 1113}#))) - (begin - (#{maybe-name-value! 262}# - #{f-name 1124}# - #{proc 1128}#) - (for-each - #{maybe-name-value! 262}# - #{ids 1126}# - #{val-exps 1112}#) - (#{make-letrec 235}# - #{src 1109}# - #f - (list #{f-name 1124}#) - (list #{f 1123}#) - (list #{proc 1128}#) - (#{build-application 266}# - #{src 1109}# - (#{build-lexical-reference 272}# - 'fun - #{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}# + (#{build-data 296}# + (lambda (#{src 1095}# #{exp 1096}#) + (#{make-const 209}# #{src 1095}# #{exp 1096}#))) + (#{build-sequence 298}# + (lambda (#{src 1099}# #{exps 1100}#) + (if (null? (cdr #{exps 1100}#)) + (car #{exps 1100}#) + (#{make-sequence 231}# + #{src 1099}# + #{exps 1100}#)))) + (#{build-letrec 304}# + (lambda (#{src 1133}# + #{in-order? 1134}# + #{ids 1135}# + #{vars 1136}# + #{val-exps 1137}# + #{body-exp 1138}#) + (if (null? #{vars 1136}#) + #{body-exp 1138}# (begin (for-each - #{maybe-name-value! 262}# - #{ids 1131}# - #{val-exps 1133}#) - (#{make-letrec 235}# - #{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}#) + #{maybe-name-value! 266}# + #{ids 1135}# + #{val-exps 1137}#) + (#{make-letrec 239}# + #{src 1133}# + #{in-order? 1134}# + #{ids 1135}# + #{vars 1136}# + #{val-exps 1137}# + #{body-exp 1138}#))))) + (#{make-syntax-object 309}# + (lambda (#{expression 1145}# + #{wrap 1146}# + #{module 1147}#) (vector '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) + #{expression 1145}# + #{wrap 1146}# + #{module 1147}#))) + (#{syntax-object? 311}# + (lambda (#{x 1151}#) + (if (vector? #{x 1151}#) + (if (= (vector-length #{x 1151}#) 4) + (eq? (vector-ref #{x 1151}# 0) 'syntax-object) #f) #f))) - (#{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}#) + (#{syntax-object-expression 313}# + (lambda (#{x 1156}#) (vector-ref #{x 1156}# 1))) + (#{syntax-object-wrap 315}# + (lambda (#{x 1158}#) (vector-ref #{x 1158}# 2))) + (#{syntax-object-module 317}# + (lambda (#{x 1160}#) (vector-ref #{x 1160}# 3))) + (#{source-annotation 326}# + (lambda (#{x 1174}#) + (if (#{syntax-object? 311}# #{x 1174}#) + (#{source-annotation 326}# + (#{syntax-object-expression 313}# #{x 1174}#)) + (if (pair? #{x 1174}#) (begin - (let ((#{props 1177}# (source-properties #{x 1170}#))) - (if (pair? #{props 1177}#) #{props 1177}# #f))) + (let ((#{props 1181}# (source-properties #{x 1174}#))) + (if (pair? #{props 1181}#) #{props 1181}# #f))) #f)))) - (#{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}#) + (#{extend-env 336}# + (lambda (#{labels 1183}# #{bindings 1184}# #{r 1185}#) + (if (null? #{labels 1183}#) + #{r 1185}# + (#{extend-env 336}# + (cdr #{labels 1183}#) + (cdr #{bindings 1184}#) + (cons (cons (car #{labels 1183}#) + (car #{bindings 1184}#)) + #{r 1185}#))))) + (#{extend-var-env 338}# + (lambda (#{labels 1189}# #{vars 1190}# #{r 1191}#) + (if (null? #{labels 1189}#) + #{r 1191}# + (#{extend-var-env 338}# + (cdr #{labels 1189}#) + (cdr #{vars 1190}#) + (cons (cons (car #{labels 1189}#) + (cons 'lexical (car #{vars 1190}#))) + #{r 1191}#))))) + (#{macros-only-env 340}# + (lambda (#{r 1196}#) + (if (null? #{r 1196}#) '() (begin - (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}#) + (let ((#{a 1199}# (car #{r 1196}#))) + (if (eq? (car (cdr #{a 1199}#)) 'macro) + (cons #{a 1199}# + (#{macros-only-env 340}# (cdr #{r 1196}#))) + (#{macros-only-env 340}# (cdr #{r 1196}#)))))))) + (#{lookup 342}# + (lambda (#{x 1200}# #{r 1201}# #{mod 1202}#) (begin - (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#))) - (if #{t 1204}# - (cdr #{t 1204}#) - (if (symbol? #{x 1196}#) + (let ((#{t 1208}# (assq #{x 1200}# #{r 1201}#))) + (if #{t 1208}# + (cdr #{t 1208}#) + (if (symbol? #{x 1200}#) (begin - (let ((#{t 1210}# - (#{get-global-definition-hook 258}# - #{x 1196}# - #{mod 1198}#))) - (if #{t 1210}# #{t 1210}# '(global)))) + (let ((#{t 1214}# + (#{get-global-definition-hook 262}# + #{x 1200}# + #{mod 1202}#))) + (if #{t 1214}# #{t 1214}# '(global)))) '(displaced-lexical))))))) - (#{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}#) + (#{global-extend 344}# + (lambda (#{type 1219}# #{sym 1220}# #{val 1221}#) + (#{put-global-definition-hook 260}# + #{sym 1220}# + #{type 1219}# + #{val 1221}#))) + (#{nonsymbol-id? 346}# + (lambda (#{x 1225}#) + (if (#{syntax-object? 311}# #{x 1225}#) (symbol? - (#{syntax-object-expression 309}# #{x 1221}#)) + (#{syntax-object-expression 313}# #{x 1225}#)) #f))) - (#{id? 344}# - (lambda (#{x 1225}#) - (if (symbol? #{x 1225}#) + (#{id? 348}# + (lambda (#{x 1229}#) + (if (symbol? #{x 1229}#) #t - (if (#{syntax-object? 307}# #{x 1225}#) + (if (#{syntax-object? 311}# #{x 1229}#) (symbol? - (#{syntax-object-expression 309}# #{x 1225}#)) + (#{syntax-object-expression 313}# #{x 1229}#)) #f)))) - (#{id-sym-name&marks 348}# - (lambda (#{x 1232}# #{w 1233}#) - (if (#{syntax-object? 307}# #{x 1232}#) + (#{id-sym-name&marks 352}# + (lambda (#{x 1236}# #{w 1237}#) + (if (#{syntax-object? 311}# #{x 1236}#) (values - (#{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}# + (#{syntax-object-expression 313}# #{x 1236}#) + (#{join-marks 406}# + (car #{w 1237}#) + (car (#{syntax-object-wrap 315}# #{x 1236}#)))) + (values #{x 1236}# (car #{w 1237}#))))) + (#{gen-label 366}# (lambda () (symbol->string (gensym "i")))) - (#{gen-labels 364}# - (lambda (#{ls 1239}#) - (if (null? #{ls 1239}#) + (#{gen-labels 368}# + (lambda (#{ls 1243}#) + (if (null? #{ls 1243}#) '() - (cons (#{gen-label 362}#) - (#{gen-labels 364}# (cdr #{ls 1239}#)))))) - (#{make-ribcage 367}# - (lambda (#{symnames 1241}# - #{marks 1242}# - #{labels 1243}#) + (cons (#{gen-label 366}#) + (#{gen-labels 368}# (cdr #{ls 1243}#)))))) + (#{make-ribcage 371}# + (lambda (#{symnames 1245}# + #{marks 1246}# + #{labels 1247}#) (vector 'ribcage - #{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}# + #{symnames 1245}# + #{marks 1246}# + #{labels 1247}#))) + (#{ribcage-symnames 375}# + (lambda (#{x 1256}#) (vector-ref #{x 1256}# 1))) + (#{ribcage-marks 377}# + (lambda (#{x 1258}#) (vector-ref #{x 1258}# 2))) + (#{ribcage-labels 379}# + (lambda (#{x 1260}#) (vector-ref #{x 1260}# 3))) + (#{set-ribcage-symnames! 381}# (lambda (#{x 1262}# #{update 1263}#) - (vector-set! #{x 1262}# 2 #{update 1263}#))) - (#{set-ribcage-labels! 381}# + (vector-set! #{x 1262}# 1 #{update 1263}#))) + (#{set-ribcage-marks! 383}# (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}#) + (vector-set! #{x 1266}# 2 #{update 1267}#))) + (#{set-ribcage-labels! 385}# + (lambda (#{x 1270}# #{update 1271}#) + (vector-set! #{x 1270}# 3 #{update 1271}#))) + (#{anti-mark 392}# + (lambda (#{w 1274}#) + (cons (cons #f (car #{w 1274}#)) + (cons 'shift (cdr #{w 1274}#))))) + (#{extend-ribcage! 398}# + (lambda (#{ribcage 1280}# #{id 1281}# #{label 1282}#) (begin - (#{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}#) + (#{set-ribcage-symnames! 381}# + #{ribcage 1280}# + (cons (#{syntax-object-expression 313}# #{id 1281}#) + (#{ribcage-symnames 375}# #{ribcage 1280}#))) + (#{set-ribcage-marks! 383}# + #{ribcage 1280}# + (cons (car (#{syntax-object-wrap 315}# #{id 1281}#)) + (#{ribcage-marks 377}# #{ribcage 1280}#))) + (#{set-ribcage-labels! 385}# + #{ribcage 1280}# + (cons #{label 1282}# + (#{ribcage-labels 379}# #{ribcage 1280}#)))))) + (#{make-binding-wrap 400}# + (lambda (#{ids 1287}# #{labels 1288}# #{w 1289}#) + (if (null? #{ids 1287}#) + #{w 1289}# + (cons (car #{w 1289}#) (cons (begin - (let ((#{labelvec 1292}# - (list->vector #{labels 1284}#))) + (let ((#{labelvec 1296}# + (list->vector #{labels 1288}#))) (begin - (let ((#{n 1294}# - (vector-length #{labelvec 1292}#))) + (let ((#{n 1298}# + (vector-length #{labelvec 1296}#))) (begin - (let ((#{symnamevec 1297}# - (make-vector #{n 1294}#)) - (#{marksvec 1298}# - (make-vector #{n 1294}#))) + (let ((#{symnamevec 1301}# + (make-vector #{n 1298}#)) + (#{marksvec 1302}# + (make-vector #{n 1298}#))) (begin (letrec* - ((#{f 1302}# - (lambda (#{ids 1303}# #{i 1304}#) - (if (not (null? #{ids 1303}#)) + ((#{f 1306}# + (lambda (#{ids 1307}# #{i 1308}#) + (if (not (null? #{ids 1307}#)) (call-with-values (lambda () - (#{id-sym-name&marks 348}# - (car #{ids 1303}#) - #{w 1285}#)) - (lambda (#{symname 1305}# - #{marks 1306}#) + (#{id-sym-name&marks 352}# + (car #{ids 1307}#) + #{w 1289}#)) + (lambda (#{symname 1309}# + #{marks 1310}#) (begin (vector-set! - #{symnamevec 1297}# - #{i 1304}# - #{symname 1305}#) + #{symnamevec 1301}# + #{i 1308}# + #{symname 1309}#) (vector-set! - #{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 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}#) + #{marksvec 1302}# + #{i 1308}# + #{marks 1310}#) + (#{f 1306}# + (cdr #{ids 1307}#) + (#{1+}# #{i 1308}#))))))))) + (begin (#{f 1306}# #{ids 1287}# 0))) + (#{make-ribcage 371}# + #{symnamevec 1301}# + #{marksvec 1302}# + #{labelvec 1296}#)))))))) + (cdr #{w 1289}#)))))) + (#{smart-append 402}# + (lambda (#{m1 1315}# #{m2 1316}#) + (if (null? #{m2 1316}#) + #{m1 1315}# + (append #{m1 1315}# #{m2 1316}#)))) + (#{join-wraps 404}# + (lambda (#{w1 1319}# #{w2 1320}#) (begin - (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 406}# - (lambda (#{id 1347}# #{w 1348}#) + (let ((#{m1 1325}# (car #{w1 1319}#)) + (#{s1 1326}# (cdr #{w1 1319}#))) + (if (null? #{m1 1325}#) + (if (null? #{s1 1326}#) + #{w2 1320}# + (cons (car #{w2 1320}#) + (#{smart-append 402}# + #{s1 1326}# + (cdr #{w2 1320}#)))) + (cons (#{smart-append 402}# + #{m1 1325}# + (car #{w2 1320}#)) + (#{smart-append 402}# + #{s1 1326}# + (cdr #{w2 1320}#)))))))) + (#{join-marks 406}# + (lambda (#{m1 1335}# #{m2 1336}#) + (#{smart-append 402}# #{m1 1335}# #{m2 1336}#))) + (#{same-marks? 408}# + (lambda (#{x 1339}# #{y 1340}#) + (if (eq? #{x 1339}# #{y 1340}#) + (eq? #{x 1339}# #{y 1340}#) + (if (not (null? #{x 1339}#)) + (if (not (null? #{y 1340}#)) + (if (eq? (car #{x 1339}#) (car #{y 1340}#)) + (#{same-marks? 408}# + (cdr #{x 1339}#) + (cdr #{y 1340}#)) + #f) + #f) + #f)))) + (#{id-var-name 410}# + (lambda (#{id 1351}# #{w 1352}#) (letrec* - ((#{search 1354}# - (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#) - (if (null? #{subst 1371}#) - (values #f #{marks 1372}#) + ((#{search 1358}# + (lambda (#{sym 1374}# #{subst 1375}# #{marks 1376}#) + (if (null? #{subst 1375}#) + (values #f #{marks 1376}#) (begin - (let ((#{fst 1377}# (car #{subst 1371}#))) - (if (eq? #{fst 1377}# 'shift) - (#{search 1354}# - #{sym 1370}# - (cdr #{subst 1371}#) - (cdr #{marks 1372}#)) + (let ((#{fst 1381}# (car #{subst 1375}#))) + (if (eq? #{fst 1381}# 'shift) + (#{search 1358}# + #{sym 1374}# + (cdr #{subst 1375}#) + (cdr #{marks 1376}#)) (begin - (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}#) + (let ((#{symnames 1383}# + (#{ribcage-symnames 375}# #{fst 1381}#))) + (if (vector? #{symnames 1383}#) + (#{search-vector-rib 1362}# + #{sym 1374}# + #{subst 1375}# + #{marks 1376}# + #{symnames 1383}# + #{fst 1381}#) + (#{search-list-rib 1360}# + #{sym 1374}# + #{subst 1375}# + #{marks 1376}# + #{symnames 1383}# + #{fst 1381}#)))))))))) + (#{search-list-rib 1360}# + (lambda (#{sym 1384}# + #{subst 1385}# + #{marks 1386}# + #{symnames 1387}# + #{ribcage 1388}#) (letrec* - ((#{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}# + ((#{f 1397}# + (lambda (#{symnames 1398}# #{i 1399}#) + (if (null? #{symnames 1398}#) + (#{search 1358}# + #{sym 1384}# + (cdr #{subst 1385}#) + #{marks 1386}#) + (if (if (eq? (car #{symnames 1398}#) #{sym 1384}#) + (#{same-marks? 408}# + #{marks 1386}# (list-ref - (#{ribcage-marks 373}# #{ribcage 1384}#) - #{i 1395}#)) + (#{ribcage-marks 377}# #{ribcage 1388}#) + #{i 1399}#)) #f) (values (list-ref - (#{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}#) + (#{ribcage-labels 379}# #{ribcage 1388}#) + #{i 1399}#) + #{marks 1386}#) + (#{f 1397}# + (cdr #{symnames 1398}#) + (#{1+}# #{i 1399}#))))))) + (begin (#{f 1397}# #{symnames 1387}# 0))))) + (#{search-vector-rib 1362}# + (lambda (#{sym 1408}# + #{subst 1409}# + #{marks 1410}# + #{symnames 1411}# + #{ribcage 1412}#) (begin - (let ((#{n 1415}# (vector-length #{symnames 1407}#))) + (let ((#{n 1419}# (vector-length #{symnames 1411}#))) (letrec* - ((#{f 1418}# - (lambda (#{i 1419}#) - (if (= #{i 1419}# #{n 1415}#) - (#{search 1354}# - #{sym 1404}# - (cdr #{subst 1405}#) - #{marks 1406}#) + ((#{f 1422}# + (lambda (#{i 1423}#) + (if (= #{i 1423}# #{n 1419}#) + (#{search 1358}# + #{sym 1408}# + (cdr #{subst 1409}#) + #{marks 1410}#) (if (if (eq? (vector-ref - #{symnames 1407}# - #{i 1419}#) - #{sym 1404}#) - (#{same-marks? 404}# - #{marks 1406}# + #{symnames 1411}# + #{i 1423}#) + #{sym 1408}#) + (#{same-marks? 408}# + #{marks 1410}# (vector-ref - (#{ribcage-marks 373}# #{ribcage 1408}#) - #{i 1419}#)) + (#{ribcage-marks 377}# #{ribcage 1412}#) + #{i 1423}#)) #f) (values (vector-ref - (#{ribcage-labels 375}# #{ribcage 1408}#) - #{i 1419}#) - #{marks 1406}#) - (#{f 1418}# (#{1+}# #{i 1419}#))))))) - (begin (#{f 1418}# 0)))))))) + (#{ribcage-labels 379}# #{ribcage 1412}#) + #{i 1423}#) + #{marks 1410}#) + (#{f 1422}# (#{1+}# #{i 1423}#))))))) + (begin (#{f 1422}# 0)))))))) (begin - (if (symbol? #{id 1347}#) + (if (symbol? #{id 1351}#) (begin - (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}#) + (let ((#{t 1435}# + (#{search 1358}# + #{id 1351}# + (cdr #{w 1352}#) + (car #{w 1352}#)))) + (if #{t 1435}# #{t 1435}# #{id 1351}#))) + (if (#{syntax-object? 311}# #{id 1351}#) (begin - (let ((#{id 1440}# - (#{syntax-object-expression 309}# #{id 1347}#)) - (#{w1 1441}# - (#{syntax-object-wrap 311}# #{id 1347}#))) + (let ((#{id 1444}# + (#{syntax-object-expression 313}# #{id 1351}#)) + (#{w1 1445}# + (#{syntax-object-wrap 315}# #{id 1351}#))) (begin - (let ((#{marks 1443}# - (#{join-marks 402}# - (car #{w 1348}#) - (car #{w1 1441}#)))) + (let ((#{marks 1447}# + (#{join-marks 406}# + (car #{w 1352}#) + (car #{w1 1445}#)))) (call-with-values (lambda () - (#{search 1354}# - #{id 1440}# - (cdr #{w 1348}#) - #{marks 1443}#)) - (lambda (#{new-id 1447}# #{marks 1448}#) - (begin - (let ((#{t 1453}# #{new-id 1447}#)) - (if #{t 1453}# - #{t 1453}# - (begin - (let ((#{t 1456}# - (#{search 1354}# - #{id 1440}# - (cdr #{w1 1441}#) - #{marks 1448}#))) - (if #{t 1456}# - #{t 1456}# - #{id 1440}#)))))))))))) + (#{search 1358}# + #{id 1444}# + (cdr #{w 1352}#) + #{marks 1447}#)) + (lambda (#{new-id 1451}# #{marks 1452}#) + (if #{new-id 1451}# + #{new-id 1451}# + (begin + (let ((#{t 1460}# + (#{search 1358}# + #{id 1444}# + (cdr #{w1 1445}#) + #{marks 1452}#))) + (if #{t 1460}# + #{t 1460}# + #{id 1444}#)))))))))) (syntax-violation 'id-var-name "invalid id" - #{id 1347}#))))))) - (#{free-id=? 408}# - (lambda (#{i 1461}# #{j 1462}#) - (if (eq? (begin - (let ((#{x 1468}# #{i 1461}#)) - (if (#{syntax-object? 307}# #{x 1468}#) - (#{syntax-object-expression 309}# #{x 1468}#) - #{x 1468}#))) - (begin - (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}# '(()))) + #{id 1351}#))))))) + (#{free-id=? 412}# + (lambda (#{i 1465}# #{j 1466}#) + (if (eq? (if (#{syntax-object? 311}# #{i 1465}#) + (#{syntax-object-expression 313}# #{i 1465}#) + #{i 1465}#) + (if (#{syntax-object? 311}# #{j 1466}#) + (#{syntax-object-expression 313}# #{j 1466}#) + #{j 1466}#)) + (eq? (#{id-var-name 410}# #{i 1465}# '(())) + (#{id-var-name 410}# #{j 1466}# '(()))) #f))) - (#{bound-id=? 410}# - (lambda (#{i 1475}# #{j 1476}#) - (if (if (#{syntax-object? 307}# #{i 1475}#) - (#{syntax-object? 307}# #{j 1476}#) + (#{bound-id=? 414}# + (lambda (#{i 1479}# #{j 1480}#) + (if (if (#{syntax-object? 311}# #{i 1479}#) + (#{syntax-object? 311}# #{j 1480}#) #f) - (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}#))) + (if (eq? (#{syntax-object-expression 313}# #{i 1479}#) + (#{syntax-object-expression 313}# #{j 1480}#)) + (#{same-marks? 408}# + (car (#{syntax-object-wrap 315}# #{i 1479}#)) + (car (#{syntax-object-wrap 315}# #{j 1480}#))) #f) - (eq? #{i 1475}# #{j 1476}#)))) - (#{valid-bound-ids? 412}# - (lambda (#{ids 1485}#) + (eq? #{i 1479}# #{j 1480}#)))) + (#{valid-bound-ids? 416}# + (lambda (#{ids 1489}#) (if (letrec* - ((#{all-ids? 1490}# - (lambda (#{ids 1491}#) - (begin - (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? 1490}# #{ids 1485}#))) - (#{distinct-bound-ids? 414}# #{ids 1485}#) + ((#{all-ids? 1494}# + (lambda (#{ids 1495}#) + (if (null? #{ids 1495}#) + (null? #{ids 1495}#) + (if (#{id? 348}# (car #{ids 1495}#)) + (#{all-ids? 1494}# (cdr #{ids 1495}#)) + #f))))) + (begin (#{all-ids? 1494}# #{ids 1489}#))) + (#{distinct-bound-ids? 418}# #{ids 1489}#) #f))) - (#{distinct-bound-ids? 414}# - (lambda (#{ids 1499}#) + (#{distinct-bound-ids? 418}# + (lambda (#{ids 1503}#) (letrec* - ((#{distinct? 1503}# - (lambda (#{ids 1504}#) - (begin - (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? 1503}# #{ids 1499}#))))) - (#{bound-id-member? 416}# - (lambda (#{x 1511}# #{list 1512}#) - (if (not (null? #{list 1512}#)) + ((#{distinct? 1507}# + (lambda (#{ids 1508}#) + (if (null? #{ids 1508}#) + (null? #{ids 1508}#) + (if (not (#{bound-id-member? 420}# + (car #{ids 1508}#) + (cdr #{ids 1508}#))) + (#{distinct? 1507}# (cdr #{ids 1508}#)) + #f))))) + (begin (#{distinct? 1507}# #{ids 1503}#))))) + (#{bound-id-member? 420}# + (lambda (#{x 1515}# #{list 1516}#) + (if (not (null? #{list 1516}#)) (begin - (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}#))))) + (let ((#{t 1523}# + (#{bound-id=? 414}# + #{x 1515}# + (car #{list 1516}#)))) + (if #{t 1523}# + #{t 1523}# + (#{bound-id-member? 420}# + #{x 1515}# + (cdr #{list 1516}#))))) #f))) - (#{wrap 418}# - (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#) - (if (if (null? (car #{w 1522}#)) - (null? (cdr #{w 1522}#)) + (#{wrap 422}# + (lambda (#{x 1525}# #{w 1526}# #{defmod 1527}#) + (if (if (null? (car #{w 1526}#)) + (null? (cdr #{w 1526}#)) #f) - #{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}# + #{x 1525}# + (if (#{syntax-object? 311}# #{x 1525}#) + (#{make-syntax-object 309}# + (#{syntax-object-expression 313}# #{x 1525}#) + (#{join-wraps 404}# + #{w 1526}# + (#{syntax-object-wrap 315}# #{x 1525}#)) + (#{syntax-object-module 317}# #{x 1525}#)) + (if (null? #{x 1525}#) + #{x 1525}# + (#{make-syntax-object 309}# + #{x 1525}# + #{w 1526}# + #{defmod 1527}#)))))) + (#{source-wrap 424}# + (lambda (#{x 1542}# + #{w 1543}# + #{s 1544}# + #{defmod 1545}#) + (#{wrap 422}# + (#{decorate-source 264}# #{x 1542}# #{s 1544}#) + #{w 1543}# + #{defmod 1545}#))) + (#{chi-sequence 426}# + (lambda (#{body 1550}# + #{r 1551}# + #{w 1552}# + #{s 1553}# + #{mod 1554}#) + (#{build-sequence 298}# + #{s 1553}# (letrec* - ((#{dobody 1561}# - (lambda (#{body 1562}# - #{r 1563}# - #{w 1564}# - #{mod 1565}#) - (if (null? #{body 1562}#) + ((#{dobody 1565}# + (lambda (#{body 1566}# + #{r 1567}# + #{w 1568}# + #{mod 1569}#) + (if (null? #{body 1566}#) '() (begin - (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}#)))))))) + (let ((#{first 1571}# + (#{chi 436}# + (car #{body 1566}#) + #{r 1567}# + #{w 1568}# + #{mod 1569}#))) + (cons #{first 1571}# + (#{dobody 1565}# + (cdr #{body 1566}#) + #{r 1567}# + #{w 1568}# + #{mod 1569}#)))))))) (begin - (#{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}#) + (#{dobody 1565}# + #{body 1550}# + #{r 1551}# + #{w 1552}# + #{mod 1554}#)))))) + (#{chi-top-sequence 428}# + (lambda (#{body 1572}# + #{r 1573}# + #{w 1574}# + #{s 1575}# + #{m 1576}# + #{esew 1577}# + #{mod 1578}#) (letrec* - ((#{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}# + ((#{scan 1587}# + (lambda (#{body 1588}# + #{r 1589}# + #{w 1590}# + #{s 1591}# + #{m 1592}# + #{esew 1593}# + #{mod 1594}# + #{exps 1595}#) + (if (null? #{body 1588}#) + #{exps 1595}# (call-with-values (lambda () (call-with-values (lambda () (begin - (let ((#{e 1604}# (car #{body 1584}#))) - (#{syntax-type 430}# - #{e 1604}# - #{r 1585}# - #{w 1586}# + (let ((#{e 1608}# (car #{body 1588}#))) + (#{syntax-type 434}# + #{e 1608}# + #{r 1589}# + #{w 1590}# (begin - (let ((#{t 1607}# - (#{source-annotation 322}# - #{e 1604}#))) - (if #{t 1607}# #{t 1607}# #{s 1587}#))) + (let ((#{t 1611}# + (#{source-annotation 326}# + #{e 1608}#))) + (if #{t 1611}# #{t 1611}# #{s 1591}#))) #f - #{mod 1590}# + #{mod 1594}# #f)))) - (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 1622}# - '(_ any . each-any)))) - (if #{tmp 1624}# - (@apply - (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 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}# + (lambda (#{type 1613}# + #{value 1614}# + #{e 1615}# + #{w 1616}# + #{s 1617}# + #{mod 1618}#) + (if (eqv? #{type 1613}# 'begin-form) + (begin + (let ((#{tmp 1627}# + ($sc-dispatch #{e 1615}# '(_)))) + (if #{tmp 1627}# + (@apply (lambda () #{exps 1595}#) #{tmp 1627}#) + (begin + (let ((#{tmp 1628}# + ($sc-dispatch + #{e 1615}# + '(_ any . each-any)))) + (if #{tmp 1628}# + (@apply + (lambda (#{e1 1631}# #{e2 1632}#) + (#{scan 1587}# + (cons #{e1 1631}# #{e2 1632}#) + #{r 1589}# + #{w 1616}# + #{s 1617}# + #{m 1592}# + #{esew 1593}# + #{mod 1618}# + #{exps 1595}#)) + #{tmp 1628}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1615}#))))))) + (if (eqv? #{type 1613}# 'local-syntax-form) + (#{chi-local-syntax 446}# + #{value 1614}# + #{e 1615}# + #{r 1589}# + #{w 1616}# + #{s 1617}# + #{mod 1618}# + (lambda (#{body 1635}# + #{r 1636}# + #{w 1637}# + #{s 1638}# + #{mod 1639}#) + (#{scan 1587}# + #{body 1635}# + #{r 1636}# + #{w 1637}# + #{s 1638}# + #{m 1592}# + #{esew 1593}# + #{mod 1639}# + #{exps 1595}#))) + (if (eqv? #{type 1613}# 'eval-when-form) + (begin + (let ((#{tmp 1647}# ($sc-dispatch - #{tmp 1642}# + #{e 1615}# '(_ each-any any . each-any)))) - (if #{tmp 1643}# + (if #{tmp 1647}# (@apply - (lambda (#{x 1647}# - #{e1 1648}# - #{e2 1649}#) + (lambda (#{x 1651}# + #{e1 1652}# + #{e2 1653}#) (begin - (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) + (let ((#{when-list 1656}# + (#{chi-when-list 432}# + #{e 1615}# + #{x 1651}# + #{w 1616}#)) + (#{body 1657}# + (cons #{e1 1652}# + #{e2 1653}#))) + (if (eq? #{m 1592}# 'e) (if (memq 'eval - #{when-list 1652}#) - (#{scan 1583}# - #{body 1653}# - #{r 1585}# - #{w 1612}# - #{s 1613}# + #{when-list 1656}#) + (#{scan 1587}# + #{body 1657}# + #{r 1589}# + #{w 1616}# + #{s 1617}# (if (memq 'expand - #{when-list 1652}#) + #{when-list 1656}#) 'c&e 'e) '(eval) - #{mod 1614}# - #{exps 1591}#) + #{mod 1618}# + #{exps 1595}#) (begin (if (memq 'expand - #{when-list 1652}#) - (#{top-level-eval-hook 250}# - (#{chi-top-sequence 424}# - #{body 1653}# - #{r 1585}# - #{w 1612}# - #{s 1613}# + #{when-list 1656}#) + (#{top-level-eval-hook 254}# + (#{chi-top-sequence 428}# + #{body 1657}# + #{r 1589}# + #{w 1616}# + #{s 1617}# 'e '(eval) - #{mod 1614}#) - #{mod 1614}#)) - (values #{exps 1591}#))) + #{mod 1618}#) + #{mod 1618}#)) + (values #{exps 1595}#))) (if (memq 'load - #{when-list 1652}#) + #{when-list 1656}#) (if (begin - (let ((#{t 1662}# + (let ((#{t 1666}# (memq 'compile - #{when-list 1652}#))) - (if #{t 1662}# - #{t 1662}# + #{when-list 1656}#))) + (if #{t 1666}# + #{t 1666}# (begin - (let ((#{t 1665}# + (let ((#{t 1669}# (memq 'expand - #{when-list 1652}#))) - (if #{t 1665}# - #{t 1665}# - (if (eq? #{m 1588}# + #{when-list 1656}#))) + (if #{t 1669}# + #{t 1669}# + (if (eq? #{m 1592}# 'c&e) (memq 'eval - #{when-list 1652}#) + #{when-list 1656}#) #f))))))) - (#{scan 1583}# - #{body 1653}# - #{r 1585}# - #{w 1612}# - #{s 1613}# + (#{scan 1587}# + #{body 1657}# + #{r 1589}# + #{w 1616}# + #{s 1617}# 'c&e '(compile load) - #{mod 1614}# - #{exps 1591}#) - (if (if (eq? #{m 1588}# 'c) + #{mod 1618}# + #{exps 1595}#) + (if (if (eq? #{m 1592}# 'c) #t - (eq? #{m 1588}# 'c&e)) - (#{scan 1583}# - #{body 1653}# - #{r 1585}# - #{w 1612}# - #{s 1613}# + (eq? #{m 1592}# 'c&e)) + (#{scan 1587}# + #{body 1657}# + #{r 1589}# + #{w 1616}# + #{s 1617}# 'c '(load) - #{mod 1614}# - #{exps 1591}#) - (values #{exps 1591}#))) + #{mod 1618}# + #{exps 1595}#) + (values #{exps 1595}#))) (if (begin - (let ((#{t 1673}# + (let ((#{t 1677}# (memq 'compile - #{when-list 1652}#))) - (if #{t 1673}# - #{t 1673}# + #{when-list 1656}#))) + (if #{t 1677}# + #{t 1677}# (begin - (let ((#{t 1676}# + (let ((#{t 1680}# (memq 'expand - #{when-list 1652}#))) - (if #{t 1676}# - #{t 1676}# - (if (eq? #{m 1588}# + #{when-list 1656}#))) + (if #{t 1680}# + #{t 1680}# + (if (eq? #{m 1592}# 'c&e) (memq 'eval - #{when-list 1652}#) + #{when-list 1656}#) #f))))))) (begin - (#{top-level-eval-hook 250}# - (#{chi-top-sequence 424}# - #{body 1653}# - #{r 1585}# - #{w 1612}# - #{s 1613}# + (#{top-level-eval-hook 254}# + (#{chi-top-sequence 428}# + #{body 1657}# + #{r 1589}# + #{w 1616}# + #{s 1617}# 'e '(eval) - #{mod 1614}#) - #{mod 1614}#) - (values #{exps 1591}#)) - (values #{exps 1591}#))))))) - #{tmp 1643}#) + #{mod 1618}#) + #{mod 1618}#) + (values #{exps 1595}#)) + (values #{exps 1595}#))))))) + #{tmp 1647}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1642}#)))) - (if (eqv? #{type 1609}# 'define-syntax-form) + #{e 1615}#)))) + (if (eqv? #{type 1613}# 'define-syntax-form) (begin - (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}#) + (let ((#{n 1688}# + (#{id-var-name 410}# + #{value 1614}# + #{w 1616}#)) + (#{r 1689}# + (#{macros-only-env 340}# + #{r 1589}#))) + (if (eqv? #{m 1592}# 'c) + (if (memq 'compile #{esew 1593}#) (begin - (let ((#{e 1688}# - (#{chi-install-global 426}# - #{n 1684}# - (#{chi 432}# - #{e 1611}# - #{r 1685}# - #{w 1612}# - #{mod 1614}#)))) + (let ((#{e 1692}# + (#{chi-install-global 430}# + #{n 1688}# + (#{chi 436}# + #{e 1615}# + #{r 1689}# + #{w 1616}# + #{mod 1618}#)))) (begin - (#{top-level-eval-hook 250}# - #{e 1688}# - #{mod 1614}#) - (if (memq 'load #{esew 1589}#) + (#{top-level-eval-hook 254}# + #{e 1692}# + #{mod 1618}#) + (if (memq 'load #{esew 1593}#) (values - (cons #{e 1688}# - #{exps 1591}#)) - (values #{exps 1591}#))))) - (if (memq 'load #{esew 1589}#) + (cons #{e 1692}# + #{exps 1595}#)) + (values #{exps 1595}#))))) + (if (memq 'load #{esew 1593}#) (values - (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) + (cons (#{chi-install-global 430}# + #{n 1688}# + (#{chi 436}# + #{e 1615}# + #{r 1689}# + #{w 1616}# + #{mod 1618}#)) + #{exps 1595}#)) + (values #{exps 1595}#))) + (if (eqv? #{m 1592}# 'c&e) (begin - (let ((#{e 1691}# - (#{chi-install-global 426}# - #{n 1684}# - (#{chi 432}# - #{e 1611}# - #{r 1685}# - #{w 1612}# - #{mod 1614}#)))) + (let ((#{e 1695}# + (#{chi-install-global 430}# + #{n 1688}# + (#{chi 436}# + #{e 1615}# + #{r 1689}# + #{w 1616}# + #{mod 1618}#)))) (begin - (#{top-level-eval-hook 250}# - #{e 1691}# - #{mod 1614}#) + (#{top-level-eval-hook 254}# + #{e 1695}# + #{mod 1618}#) (values - (cons #{e 1691}# - #{exps 1591}#))))) + (cons #{e 1695}# + #{exps 1595}#))))) (begin - (if (memq 'eval #{esew 1589}#) - (#{top-level-eval-hook 250}# - (#{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) + (if (memq 'eval #{esew 1593}#) + (#{top-level-eval-hook 254}# + (#{chi-install-global 430}# + #{n 1688}# + (#{chi 436}# + #{e 1615}# + #{r 1689}# + #{w 1616}# + #{mod 1618}#)) + #{mod 1618}#)) + (values #{exps 1595}#)))))) + (if (eqv? #{type 1613}# 'define-form) (begin - (let ((#{n 1696}# - (#{id-var-name 406}# - #{value 1610}# - #{w 1612}#))) + (let ((#{n 1700}# + (#{id-var-name 410}# + #{value 1614}# + #{w 1616}#))) (begin - (let ((#{type 1698}# - (car (#{lookup 338}# - #{n 1696}# - #{r 1585}# - #{mod 1614}#)))) - (if (if (eqv? #{type 1698}# 'global) + (let ((#{type 1702}# + (car (#{lookup 342}# + #{n 1700}# + #{r 1589}# + #{mod 1618}#)))) + (if (if (eqv? #{type 1702}# 'global) #t - (if (eqv? #{type 1698}# 'core) + (if (eqv? #{type 1702}# 'core) #t - (if (eqv? #{type 1698}# + (if (eqv? #{type 1702}# 'macro) #t - (eqv? #{type 1698}# + (eqv? #{type 1702}# 'module-ref)))) (begin - (if (if (if (eq? #{m 1588}# 'c) + (if (if (if (eq? #{m 1592}# 'c) #t - (eq? #{m 1588}# 'c&e)) + (eq? #{m 1592}# 'c&e)) (if (not (module-local-variable (current-module) - #{n 1696}#)) + #{n 1700}#)) (current-module) #f) #f) (begin - (let ((#{old 1705}# + (let ((#{old 1709}# (module-variable (current-module) - #{n 1696}#))) + #{n 1700}#))) (if (if (variable? - #{old 1705}#) + #{old 1709}#) (variable-bound? - #{old 1705}#) + #{old 1709}#) #f) (module-define! (current-module) - #{n 1696}# + #{n 1700}# (variable-ref - #{old 1705}#)) + #{old 1709}#)) (module-add! (current-module) - #{n 1696}# + #{n 1700}# (make-undefined-variable)))))) (values - (cons (if (eq? #{m 1588}# 'c&e) + (cons (if (eq? #{m 1592}# 'c&e) (begin - (let ((#{x 1709}# - (#{build-global-definition 282}# - #{s 1613}# - #{n 1696}# - (#{chi 432}# - #{e 1611}# - #{r 1585}# - #{w 1612}# - #{mod 1614}#)))) + (let ((#{x 1713}# + (#{build-global-definition 286}# + #{s 1617}# + #{n 1700}# + (#{chi 436}# + #{e 1615}# + #{r 1589}# + #{w 1616}# + #{mod 1618}#)))) (begin - (#{top-level-eval-hook 250}# - #{x 1709}# - #{mod 1614}#) - #{x 1709}#))) + (#{top-level-eval-hook 254}# + #{x 1713}# + #{mod 1618}#) + #{x 1713}#))) (lambda () - (#{build-global-definition 282}# - #{s 1613}# - #{n 1696}# - (#{chi 432}# - #{e 1611}# - #{r 1585}# - #{w 1612}# - #{mod 1614}#)))) - #{exps 1591}#))) - (if (eqv? #{type 1698}# + (#{build-global-definition 286}# + #{s 1617}# + #{n 1700}# + (#{chi 436}# + #{e 1615}# + #{r 1589}# + #{w 1616}# + #{mod 1618}#)))) + #{exps 1595}#))) + (if (eqv? #{type 1702}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 1611}# - (#{wrap 418}# - #{value 1610}# - #{w 1612}# - #{mod 1614}#)) + #{e 1615}# + (#{wrap 422}# + #{value 1614}# + #{w 1616}# + #{mod 1618}#)) (syntax-violation #f "cannot define keyword at top level" - #{e 1611}# - (#{wrap 418}# - #{value 1610}# - #{w 1612}# - #{mod 1614}#)))))))) + #{e 1615}# + (#{wrap 422}# + #{value 1614}# + #{w 1616}# + #{mod 1618}#)))))))) (values - (cons (if (eq? #{m 1588}# 'c&e) + (cons (if (eq? #{m 1592}# 'c&e) (begin - (let ((#{x 1714}# - (#{chi-expr 434}# - #{type 1609}# - #{value 1610}# - #{e 1611}# - #{r 1585}# - #{w 1612}# - #{s 1613}# - #{mod 1614}#))) + (let ((#{x 1718}# + (#{chi-expr 438}# + #{type 1613}# + #{value 1614}# + #{e 1615}# + #{r 1589}# + #{w 1616}# + #{s 1617}# + #{mod 1618}#))) (begin - (#{top-level-eval-hook 250}# - #{x 1714}# - #{mod 1614}#) - #{x 1714}#))) + (#{top-level-eval-hook 254}# + #{x 1718}# + #{mod 1618}#) + #{x 1718}#))) (lambda () - (#{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}#))))))) + (#{chi-expr 438}# + #{type 1613}# + #{value 1614}# + #{e 1615}# + #{r 1589}# + #{w 1616}# + #{s 1617}# + #{mod 1618}#))) + #{exps 1595}#)))))))))) + (lambda (#{exps 1719}#) + (#{scan 1587}# + (cdr #{body 1588}#) + #{r 1589}# + #{w 1590}# + #{s 1591}# + #{m 1592}# + #{esew 1593}# + #{mod 1594}# + #{exps 1719}#))))))) (begin (call-with-values (lambda () - (#{scan 1583}# - #{body 1568}# - #{r 1569}# - #{w 1570}# - #{s 1571}# - #{m 1572}# - #{esew 1573}# - #{mod 1574}# + (#{scan 1587}# + #{body 1572}# + #{r 1573}# + #{w 1574}# + #{s 1575}# + #{m 1576}# + #{esew 1577}# + #{mod 1578}# '())) - (lambda (#{exps 1717}#) - (if (null? #{exps 1717}#) - (#{build-void 264}# #{s 1571}#) - (#{build-sequence 294}# - #{s 1571}# + (lambda (#{exps 1721}#) + (if (null? #{exps 1721}#) + (#{build-void 268}# #{s 1575}#) + (#{build-sequence 298}# + #{s 1575}# (letrec* - ((#{lp 1722}# - (lambda (#{in 1723}# #{out 1724}#) - (if (null? #{in 1723}#) - #{out 1724}# + ((#{lp 1726}# + (lambda (#{in 1727}# #{out 1728}#) + (if (null? #{in 1727}#) + #{out 1728}# (begin - (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}# + (let ((#{e 1730}# (car #{in 1727}#))) + (#{lp 1726}# + (cdr #{in 1727}#) + (cons (if (procedure? #{e 1730}#) + (#{e 1730}#) + #{e 1730}#) + #{out 1728}#)))))))) + (begin (#{lp 1726}# #{exps 1721}# '()))))))))))) + (#{chi-install-global 430}# + (lambda (#{name 1731}# #{e 1732}#) + (#{build-global-definition 286}# #f - #{name 1727}# - (#{build-application 266}# + #{name 1731}# + (#{build-application 270}# #f - (#{build-primref 290}# + (#{build-primref 294}# #f 'make-syntax-transformer) - (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}#) + (list (#{build-data 296}# #f #{name 1731}#) + (#{build-data 296}# #f 'macro) + #{e 1732}#))))) + (#{chi-when-list 432}# + (lambda (#{e 1740}# #{when-list 1741}# #{w 1742}#) (letrec* - ((#{f 1745}# - (lambda (#{when-list 1746}# #{situations 1747}#) - (if (null? #{when-list 1746}#) - #{situations 1747}# - (#{f 1745}# - (cdr #{when-list 1746}#) + ((#{f 1749}# + (lambda (#{when-list 1750}# #{situations 1751}#) + (if (null? #{when-list 1750}#) + #{situations 1751}# + (#{f 1749}# + (cdr #{when-list 1750}#) (cons (begin - (let ((#{x 1749}# (car #{when-list 1746}#))) - (if (#{free-id=? 408}# - #{x 1749}# + (let ((#{x 1753}# (car #{when-list 1750}#))) + (if (#{free-id=? 412}# + #{x 1753}# '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1748")) + #(ribcage #(x) #((top)) #("i1752")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1742" "i1743" "i1744")) + #("i1746" "i1747" "i1748")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1739" "i1740" "i1741")) + #("i1743" "i1744" "i1745")) #(ribcage (lambda-var-list gen-var @@ -1796,7 +1703,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -1829,14 +1738,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -1844,33 +1753,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -1879,8 +1788,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -1902,18 +1811,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -1929,36 +1838,34 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile))) 'compile - (if (#{free-id=? 408}# - #{x 1749}# + (if (#{free-id=? 412}# + #{x 1753}# '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1748")) + #(ribcage #(x) #((top)) #("i1752")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1742" "i1743" "i1744")) + #("i1746" "i1747" "i1748")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1739" "i1740" "i1741")) + #("i1743" "i1744" "i1745")) #(ribcage (lambda-var-list gen-var @@ -2232,7 +2139,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -2265,14 +2174,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -2280,33 +2189,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -2315,8 +2224,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -2338,18 +2247,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -2365,36 +2274,34 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile))) 'load - (if (#{free-id=? 408}# - #{x 1749}# + (if (#{free-id=? 412}# + #{x 1753}# '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1748")) + #(ribcage #(x) #((top)) #("i1752")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1742" "i1743" "i1744")) + #("i1746" "i1747" "i1748")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1739" "i1740" "i1741")) + #("i1743" "i1744" "i1745")) #(ribcage (lambda-var-list gen-var @@ -2668,7 +2575,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -2701,14 +2610,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -2716,33 +2625,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -2751,8 +2660,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -2774,18 +2683,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -2801,36 +2710,34 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile))) 'eval - (if (#{free-id=? 408}# - #{x 1749}# + (if (#{free-id=? 412}# + #{x 1753}# '#(syntax-object expand ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1748")) + #(ribcage #(x) #((top)) #("i1752")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1742" "i1743" "i1744")) + #("i1746" "i1747" "i1748")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1739" "i1740" "i1741")) + #("i1743" "i1744" "i1745")) #(ribcage (lambda-var-list gen-var @@ -3104,7 +3011,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -3137,14 +3046,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -3152,33 +3061,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -3187,8 +3096,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -3210,18 +3119,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -3237,3093 +3146,3092 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e 1736}# - (#{wrap 418}# - #{x 1749}# - #{w 1738}# + #{e 1740}# + (#{wrap 422}# + #{x 1753}# + #{w 1742}# #f)))))))) - #{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}#) + #{situations 1751}#)))))) + (begin (#{f 1749}# #{when-list 1741}# '()))))) + (#{syntax-type 434}# + (lambda (#{e 1763}# + #{r 1764}# + #{w 1765}# + #{s 1766}# + #{rib 1767}# + #{mod 1768}# + #{for-car? 1769}#) + (if (symbol? #{e 1763}#) (begin - (let ((#{n 1777}# - (#{id-var-name 406}# #{e 1759}# #{w 1761}#))) + (let ((#{n 1781}# + (#{id-var-name 410}# #{e 1763}# #{w 1765}#))) (begin - (let ((#{b 1779}# - (#{lookup 338}# - #{n 1777}# - #{r 1760}# - #{mod 1764}#))) + (let ((#{b 1783}# + (#{lookup 342}# + #{n 1781}# + #{r 1764}# + #{mod 1768}#))) (begin - (let ((#{type 1781}# (car #{b 1779}#))) - (if (eqv? #{type 1781}# 'lexical) + (let ((#{type 1785}# (car #{b 1783}#))) + (if (eqv? #{type 1785}# 'lexical) (values - #{type 1781}# - (cdr #{b 1779}#) - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{type 1781}# 'global) + #{type 1785}# + (cdr #{b 1783}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{type 1785}# 'global) (values - #{type 1781}# - #{n 1777}# - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{type 1781}# 'macro) - (if #{for-car? 1765}# + #{type 1785}# + #{n 1781}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{type 1785}# 'macro) + (if #{for-car? 1769}# (values - #{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}# + #{type 1785}# + (cdr #{b 1783}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (#{syntax-type 434}# + (#{chi-macro 442}# + (cdr #{b 1783}#) + #{e 1763}# + #{r 1764}# + #{w 1765}# + #{s 1766}# + #{rib 1767}# + #{mod 1768}#) + #{r 1764}# '(()) - #{s 1762}# - #{rib 1763}# - #{mod 1764}# + #{s 1766}# + #{rib 1767}# + #{mod 1768}# #f)) (values - #{type 1781}# - (cdr #{b 1779}#) - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#)))))))))) - (if (pair? #{e 1759}#) + #{type 1785}# + (cdr #{b 1783}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#)))))))))) + (if (pair? #{e 1763}#) (begin - (let ((#{first 1795}# (car #{e 1759}#))) + (let ((#{first 1799}# (car #{e 1763}#))) (call-with-values (lambda () - (#{syntax-type 430}# - #{first 1795}# - #{r 1760}# - #{w 1761}# - #{s 1762}# - #{rib 1763}# - #{mod 1764}# + (#{syntax-type 434}# + #{first 1799}# + #{r 1764}# + #{w 1765}# + #{s 1766}# + #{rib 1767}# + #{mod 1768}# #t)) - (lambda (#{ftype 1796}# - #{fval 1797}# - #{fe 1798}# - #{fw 1799}# - #{fs 1800}# - #{fmod 1801}#) - (if (eqv? #{ftype 1796}# 'lexical) + (lambda (#{ftype 1800}# + #{fval 1801}# + #{fe 1802}# + #{fw 1803}# + #{fs 1804}# + #{fmod 1805}#) + (if (eqv? #{ftype 1800}# 'lexical) (values 'lexical-call - #{fval 1797}# - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{ftype 1796}# 'global) + #{fval 1801}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'global) (values 'global-call - (#{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}# + (#{make-syntax-object 309}# + #{fval 1801}# + #{w 1765}# + #{fmod 1805}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'macro) + (#{syntax-type 434}# + (#{chi-macro 442}# + #{fval 1801}# + #{e 1763}# + #{r 1764}# + #{w 1765}# + #{s 1766}# + #{rib 1767}# + #{mod 1768}#) + #{r 1764}# '(()) - #{s 1762}# - #{rib 1763}# - #{mod 1764}# - #{for-car? 1765}#) - (if (eqv? #{ftype 1796}# 'module-ref) + #{s 1766}# + #{rib 1767}# + #{mod 1768}# + #{for-car? 1769}#) + (if (eqv? #{ftype 1800}# 'module-ref) (call-with-values (lambda () - (#{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) + (#{fval 1801}# + #{e 1763}# + #{r 1764}# + #{w 1765}#)) + (lambda (#{e 1817}# + #{r 1818}# + #{w 1819}# + #{s 1820}# + #{mod 1821}#) + (#{syntax-type 434}# + #{e 1817}# + #{r 1818}# + #{w 1819}# + #{s 1820}# + #{rib 1767}# + #{mod 1821}# + #{for-car? 1769}#))) + (if (eqv? #{ftype 1800}# 'core) (values 'core-form - #{fval 1797}# - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{ftype 1796}# 'local-syntax) + #{fval 1801}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'local-syntax) (values 'local-syntax-form - #{fval 1797}# - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{ftype 1796}# 'begin) + #{fval 1801}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'begin) (values 'begin-form #f - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{ftype 1796}# 'eval-when) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'eval-when) (values 'eval-when-form #f - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) - (if (eqv? #{ftype 1796}# 'define) - (let ((#{tmp 1828}# #{e 1759}#)) - (let ((#{tmp 1829}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) + (if (eqv? #{ftype 1800}# 'define) + (begin + (let ((#{tmp 1833}# ($sc-dispatch - #{tmp 1828}# + #{e 1763}# '(_ any any)))) - (if (if #{tmp 1829}# + (if (if #{tmp 1833}# (@apply - (lambda (#{name 1832}# - #{val 1833}#) - (#{id? 344}# #{name 1832}#)) - #{tmp 1829}#) + (lambda (#{name 1836}# + #{val 1837}#) + (#{id? 348}# #{name 1836}#)) + #{tmp 1833}#) #f) (@apply - (lambda (#{name 1836}# - #{val 1837}#) + (lambda (#{name 1840}# + #{val 1841}#) (values 'define-form - #{name 1836}# - #{val 1837}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#)) - #{tmp 1829}#) - (let ((#{tmp 1838}# - ($sc-dispatch - #{tmp 1828}# - '(_ (any . any) - any - . - each-any)))) - (if (if #{tmp 1838}# - (@apply - (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 1838}#) - #f) - (@apply - (lambda (#{name 1853}# - #{args 1854}# - #{e1 1855}# - #{e2 1856}#) - (values - 'define-form - (#{wrap 418}# - #{name 1853}# - #{w 1761}# - #{mod 1764}#) - (#{decorate-source 260}# - (cons '#(syntax-object - lambda - ((top) - #(ribcage - #(name - args - e1 - e2) - #((top) + #{name 1840}# + #{val 1841}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#)) + #{tmp 1833}#) + (begin + (let ((#{tmp 1842}# + ($sc-dispatch + #{e 1763}# + '(_ (any . any) + any + . + each-any)))) + (if (if #{tmp 1842}# + (@apply + (lambda (#{name 1847}# + #{args 1848}# + #{e1 1849}# + #{e2 1850}#) + (if (#{id? 348}# + #{name 1847}#) + (#{valid-bound-ids? 416}# + (#{lambda-var-list 466}# + #{args 1848}#)) + #f)) + #{tmp 1842}#) + #f) + (@apply + (lambda (#{name 1857}# + #{args 1858}# + #{e1 1859}# + #{e2 1860}#) + (values + 'define-form + (#{wrap 422}# + #{name 1857}# + #{w 1765}# + #{mod 1768}#) + (#{decorate-source 264}# + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(name + args + e1 + e2) + #((top) + (top) + (top) + (top)) + #("i1853" + "i1854" + "i1855" + "i1856")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1798")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1770" + "i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + (#{wrap 422}# + (cons #{args 1858}# + (cons #{e1 1859}# + #{e2 1860}#)) + #{w 1765}# + #{mod 1768}#)) + #{s 1766}#) + '(()) + #{s 1766}# + #{mod 1768}#)) + #{tmp 1842}#) + (begin + (let ((#{tmp 1863}# + ($sc-dispatch + #{e 1763}# + '(_ any)))) + (if (if #{tmp 1863}# + (@apply + (lambda (#{name 1865}#) + (#{id? 348}# + #{name 1865}#)) + #{tmp 1863}#) + #f) + (@apply + (lambda (#{name 1867}#) + (values + 'define-form + (#{wrap 422}# + #{name 1867}# + #{w 1765}# + #{mod 1768}#) + '(#(syntax-object + if + ((top) + #(ribcage + #(name) + #((top)) + #("i1866")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1798")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1770" + "i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top)) - #("i1849" - "i1850" - "i1851" - "i1852")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1866")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1798")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1770" + "i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top) (top)) - #("i1802" - "i1803" - "i1804" - "i1805" - "i1806" - "i1807")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1794")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + #(syntax-object + #f + ((top) + #(ribcage + #(name) + #((top)) + #("i1866")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(ftype + fval + fe + fw + fs + fmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i1806" + "i1807" + "i1808" + "i1809" + "i1810" + "i1811")) + #(ribcage + () + () + ()) + #(ribcage + #(first) + #((top)) + #("i1798")) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(e + r + w + s + rib + mod + for-car?) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i1770" + "i1771" + "i1772" + "i1773" + "i1774" + "i1775" + "i1776")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top) (top) (top) (top) (top) (top)) - #("i1766" - "i1767" - "i1768" - "i1769" - "i1770" - "i1771" - "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i40" - "i39" - "i38"))) - (hygiene - guile)) - (#{wrap 418}# - (cons #{args 1854}# - (cons #{e1 1855}# - #{e2 1856}#)) - #{w 1761}# - #{mod 1764}#)) - #{s 1762}#) - '(()) - #{s 1762}# - #{mod 1764}#)) - #{tmp 1838}#) - (let ((#{tmp 1859}# - ($sc-dispatch - #{tmp 1828}# - '(_ any)))) - (if (if #{tmp 1859}# - (@apply - (lambda (#{name 1861}#) - (#{id? 344}# - #{name 1861}#)) - #{tmp 1859}#) - #f) - (@apply - (lambda (#{name 1863}#) - (values - 'define-form - (#{wrap 418}# - #{name 1863}# - #{w 1761}# - #{mod 1764}#) - '(#(syntax-object - if - ((top) - #(ribcage - #(name) - #((top)) - #("i1862")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1802" - "i1803" - "i1804" - "i1805" - "i1806" - "i1807")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1794")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1766" - "i1767" - "i1768" - "i1769" - "i1770" - "i1771" - "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i40" - "i39" - "i38"))) - (hygiene guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1862")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1802" - "i1803" - "i1804" - "i1805" - "i1806" - "i1807")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1794")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1766" - "i1767" - "i1768" - "i1769" - "i1770" - "i1771" - "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i40" - "i39" - "i38"))) - (hygiene guile)) - #(syntax-object - #f - ((top) - #(ribcage - #(name) - #((top)) - #("i1862")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(ftype - fval - fe - fw - fs - fmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i1802" - "i1803" - "i1804" - "i1805" - "i1806" - "i1807")) - #(ribcage - () - () - ()) - #(ribcage - #(first) - #((top)) - #("i1794")) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - () - () - ()) - #(ribcage - #(e - r - w - s - rib - mod - for-car?) - #((top) - (top) - (top) - (top) - (top) - (top) - (top)) - #("i1766" - "i1767" - "i1768" - "i1769" - "i1770" - "i1771" - "i1772")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) - (top) - (top)) - ("i40" - "i39" - "i38"))) - (hygiene guile))) - '(()) - #{s 1762}# - #{mod 1764}#)) - #{tmp 1859}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 1828}#)))))))) - (if (eqv? #{ftype 1796}# 'define-syntax) - (let ((#{tmp 1866}# #{e 1759}#)) - (let ((#{tmp 1867}# + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile))) + '(()) + #{s 1766}# + #{mod 1768}#)) + #{tmp 1863}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 1763}#)))))))))) + (if (eqv? #{ftype 1800}# 'define-syntax) + (begin + (let ((#{tmp 1871}# ($sc-dispatch - #{tmp 1866}# + #{e 1763}# '(_ any any)))) - (if (if #{tmp 1867}# + (if (if #{tmp 1871}# (@apply - (lambda (#{name 1870}# - #{val 1871}#) - (#{id? 344}# - #{name 1870}#)) - #{tmp 1867}#) + (lambda (#{name 1874}# + #{val 1875}#) + (#{id? 348}# + #{name 1874}#)) + #{tmp 1871}#) #f) (@apply - (lambda (#{name 1874}# - #{val 1875}#) + (lambda (#{name 1878}# + #{val 1879}#) (values 'define-syntax-form - #{name 1874}# - #{val 1875}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#)) - #{tmp 1867}#) + #{name 1878}# + #{val 1879}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#)) + #{tmp 1871}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1866}#)))) + #{e 1763}#)))) (values 'call #f - #{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 1881}# - (#{source-annotation 322}# #{e 1759}#))) - (if #{t 1881}# #{t 1881}# #{s 1762}#))) - #{rib 1763}# + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#))))))))))))))) + (if (#{syntax-object? 311}# #{e 1763}#) + (#{syntax-type 434}# + (#{syntax-object-expression 313}# #{e 1763}#) + #{r 1764}# + (#{join-wraps 404}# + #{w 1765}# + (#{syntax-object-wrap 315}# #{e 1763}#)) (begin (let ((#{t 1885}# - (#{syntax-object-module 313}# #{e 1759}#))) - (if #{t 1885}# #{t 1885}# #{mod 1764}#))) - #{for-car? 1765}#) - (if (self-evaluating? #{e 1759}#) + (#{source-annotation 326}# #{e 1763}#))) + (if #{t 1885}# #{t 1885}# #{s 1766}#))) + #{rib 1767}# + (begin + (let ((#{t 1889}# + (#{syntax-object-module 317}# #{e 1763}#))) + (if #{t 1889}# #{t 1889}# #{mod 1768}#))) + #{for-car? 1769}#) + (if (self-evaluating? #{e 1763}#) (values 'constant #f - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#) (values 'other #f - #{e 1759}# - #{w 1761}# - #{s 1762}# - #{mod 1764}#))))))) - (#{chi 432}# - (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#) + #{e 1763}# + #{w 1765}# + #{s 1766}# + #{mod 1768}#))))))) + (#{chi 436}# + (lambda (#{e 1894}# #{r 1895}# #{w 1896}# #{mod 1897}#) (call-with-values (lambda () - (#{syntax-type 430}# - #{e 1890}# - #{r 1891}# - #{w 1892}# - (#{source-annotation 322}# #{e 1890}#) + (#{syntax-type 434}# + #{e 1894}# + #{r 1895}# + #{w 1896}# + (#{source-annotation 326}# #{e 1894}#) #f - #{mod 1893}# + #{mod 1897}# #f)) - (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}# + (lambda (#{type 1902}# + #{value 1903}# + #{e 1904}# + #{w 1905}# + #{s 1906}# + #{mod 1907}#) + (#{chi-expr 438}# + #{type 1902}# + #{value 1903}# + #{e 1904}# + #{r 1895}# + #{w 1905}# + #{s 1906}# + #{mod 1907}#))))) + (#{chi-expr 438}# + (lambda (#{type 1914}# + #{value 1915}# + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'lexical) + (#{build-lexical-reference 276}# 'value - #{s 1915}# - #{e 1912}# - #{value 1911}#) - (if (if (eqv? #{type 1910}# 'core) + #{s 1919}# + #{e 1916}# + #{value 1915}#) + (if (if (eqv? #{type 1914}# 'core) #t - (eqv? #{type 1910}# 'core-form)) - (#{value 1911}# - #{e 1912}# - #{r 1913}# - #{w 1914}# - #{s 1915}# - #{mod 1916}#) - (if (eqv? #{type 1910}# 'module-ref) + (eqv? #{type 1914}# 'core-form)) + (#{value 1915}# + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'module-ref) (call-with-values (lambda () - (#{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}# + (#{value 1915}# #{e 1916}# #{r 1917}# #{w 1918}#)) + (lambda (#{e 1931}# + #{r 1932}# + #{w 1933}# + #{s 1934}# + #{mod 1935}#) + (#{chi 436}# + #{e 1931}# + #{r 1932}# + #{w 1933}# + #{mod 1935}#))) + (if (eqv? #{type 1914}# 'lexical-call) + (#{chi-application 440}# (begin - (let ((#{id 1939}# (car #{e 1912}#))) - (#{build-lexical-reference 272}# + (let ((#{id 1943}# (car #{e 1916}#))) + (#{build-lexical-reference 276}# 'fun - (#{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}#) + (#{source-annotation 326}# #{id 1943}#) + (if (#{syntax-object? 311}# #{id 1943}#) + (syntax->datum #{id 1943}#) + #{id 1943}#) + #{value 1915}#))) + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'global-call) + (#{chi-application 440}# + (#{build-global-reference 282}# + (#{source-annotation 326}# (car #{e 1916}#)) + (if (#{syntax-object? 311}# #{value 1915}#) + (#{syntax-object-expression 313}# #{value 1915}#) + #{value 1915}#) + (if (#{syntax-object? 311}# #{value 1915}#) + (#{syntax-object-module 317}# #{value 1915}#) + #{mod 1920}#)) + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'constant) + (#{build-data 296}# + #{s 1919}# + (#{strip 462}# + (#{source-wrap 424}# + #{e 1916}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) '(()))) - (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}# + (if (eqv? #{type 1914}# 'global) + (#{build-global-reference 282}# + #{s 1919}# + #{value 1915}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'call) + (#{chi-application 440}# + (#{chi 436}# + (car #{e 1916}#) + #{r 1917}# + #{w 1918}# + #{mod 1920}#) + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (if (eqv? #{type 1914}# 'begin-form) + (begin + (let ((#{tmp 1951}# ($sc-dispatch - #{tmp 1946}# + #{e 1916}# '(_ any . each-any)))) - (if #{tmp 1947}# + (if #{tmp 1951}# (@apply - (lambda (#{e1 1950}# #{e2 1951}#) - (#{chi-sequence 422}# - (cons #{e1 1950}# #{e2 1951}#) - #{r 1913}# - #{w 1914}# - #{s 1915}# - #{mod 1916}#)) - #{tmp 1947}#) + (lambda (#{e1 1954}# #{e2 1955}#) + (#{chi-sequence 426}# + (cons #{e1 1954}# #{e2 1955}#) + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#)) + #{tmp 1951}#) (syntax-violation #f "source expression failed to match any pattern" - #{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}# + #{e 1916}#)))) + (if (eqv? #{type 1914}# 'local-syntax-form) + (#{chi-local-syntax 446}# + #{value 1915}# + #{e 1916}# + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}# + #{chi-sequence 426}#) + (if (eqv? #{type 1914}# 'eval-when-form) + (begin + (let ((#{tmp 1960}# ($sc-dispatch - #{tmp 1955}# + #{e 1916}# '(_ each-any any . each-any)))) - (if #{tmp 1956}# + (if #{tmp 1960}# (@apply - (lambda (#{x 1960}# - #{e1 1961}# - #{e2 1962}#) + (lambda (#{x 1964}# + #{e1 1965}# + #{e2 1966}#) (begin - (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}#) + (let ((#{when-list 1968}# + (#{chi-when-list 432}# + #{e 1916}# + #{x 1964}# + #{w 1918}#))) + (if (memq 'eval #{when-list 1968}#) + (#{chi-sequence 426}# + (cons #{e1 1965}# #{e2 1966}#) + #{r 1917}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#) + (#{chi-void 450}#))))) + #{tmp 1960}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1955}#)))) - (if (if (eqv? #{type 1910}# 'define-form) + #{e 1916}#)))) + (if (if (eqv? #{type 1914}# 'define-form) #t - (eqv? #{type 1910}# 'define-syntax-form)) + (eqv? #{type 1914}# 'define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e 1912}# - (#{wrap 418}# - #{value 1911}# - #{w 1914}# - #{mod 1916}#)) - (if (eqv? #{type 1910}# 'syntax) + #{e 1916}# + (#{wrap 422}# + #{value 1915}# + #{w 1918}# + #{mod 1920}#)) + (if (eqv? #{type 1914}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap 420}# - #{e 1912}# - #{w 1914}# - #{s 1915}# - #{mod 1916}#)) - (if (eqv? #{type 1910}# 'displaced-lexical) + (#{source-wrap 424}# + #{e 1916}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#)) + (if (eqv? #{type 1914}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap 420}# - #{e 1912}# - #{w 1914}# - #{s 1915}# - #{mod 1916}#)) + (#{source-wrap 424}# + #{e 1916}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#)) (syntax-violation #f "unexpected syntax" - (#{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}# + (#{source-wrap 424}# + #{e 1916}# + #{w 1918}# + #{s 1919}# + #{mod 1920}#)))))))))))))))))) + (#{chi-application 440}# + (lambda (#{x 1975}# + #{e 1976}# + #{r 1977}# + #{w 1978}# + #{s 1979}# + #{mod 1980}#) + (begin + (let ((#{tmp 1988}# + ($sc-dispatch #{e 1976}# '(any . each-any)))) + (if #{tmp 1988}# (@apply - (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}#) + (lambda (#{e0 1991}# #{e1 1992}#) + (#{build-application 270}# + #{s 1979}# + #{x 1975}# + (map (lambda (#{e 1993}#) + (#{chi 436}# + #{e 1993}# + #{r 1977}# + #{w 1978}# + #{mod 1980}#)) + #{e1 1992}#))) + #{tmp 1988}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 1983}#)))))) - (#{chi-macro 438}# - (lambda (#{p 1992}# - #{e 1993}# - #{r 1994}# - #{w 1995}# - #{s 1996}# - #{rib 1997}# - #{mod 1998}#) + #{e 1976}#)))))) + (#{chi-macro 442}# + (lambda (#{p 1996}# + #{e 1997}# + #{r 1998}# + #{w 1999}# + #{s 2000}# + #{rib 2001}# + #{mod 2002}#) (letrec* - ((#{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}#) + ((#{rebuild-macro-output 2011}# + (lambda (#{x 2012}# #{m 2013}#) + (if (pair? #{x 2012}#) + (#{decorate-source 264}# + (cons (#{rebuild-macro-output 2011}# + (car #{x 2012}#) + #{m 2013}#) + (#{rebuild-macro-output 2011}# + (cdr #{x 2012}#) + #{m 2013}#)) + #{s 2000}#) + (if (#{syntax-object? 311}# #{x 2012}#) (begin - (let ((#{w 2017}# - (#{syntax-object-wrap 311}# #{x 2008}#))) + (let ((#{w 2021}# + (#{syntax-object-wrap 315}# #{x 2012}#))) (begin - (let ((#{ms 2020}# (car #{w 2017}#)) - (#{s 2021}# (cdr #{w 2017}#))) - (if (if (pair? #{ms 2020}#) - (eq? (car #{ms 2020}#) #f) + (let ((#{ms 2024}# (car #{w 2021}#)) + (#{s 2025}# (cdr #{w 2021}#))) + (if (if (pair? #{ms 2024}#) + (eq? (car #{ms 2024}#) #f) #f) - (#{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}#) + (#{make-syntax-object 309}# + (#{syntax-object-expression 313}# #{x 2012}#) + (cons (cdr #{ms 2024}#) + (if #{rib 2001}# + (cons #{rib 2001}# (cdr #{s 2025}#)) + (cdr #{s 2025}#))) + (#{syntax-object-module 317}# #{x 2012}#)) + (#{make-syntax-object 309}# + (#{decorate-source 264}# + (#{syntax-object-expression 313}# #{x 2012}#) + #{s 2025}#) + (cons (cons #{m 2013}# #{ms 2024}#) + (if #{rib 2001}# + (cons #{rib 2001}# + (cons 'shift #{s 2025}#)) + (cons 'shift #{s 2025}#))) + (#{syntax-object-module 317}# #{x 2012}#))))))) + (if (vector? #{x 2012}#) (begin - (let ((#{n 2033}# (vector-length #{x 2008}#))) + (let ((#{n 2037}# (vector-length #{x 2012}#))) (begin - (let ((#{v 2035}# - (#{decorate-source 260}# - (make-vector #{n 2033}#) - #{x 2008}#))) + (let ((#{v 2039}# + (#{decorate-source 264}# + (make-vector #{n 2037}#) + #{x 2012}#))) (letrec* - ((#{loop 2038}# - (lambda (#{i 2039}#) - (if (= #{i 2039}# #{n 2033}#) - (begin (if #f #f) #{v 2035}#) + ((#{loop 2042}# + (lambda (#{i 2043}#) + (if (= #{i 2043}# #{n 2037}#) + #{v 2039}# (begin (vector-set! - #{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}#) + #{v 2039}# + #{i 2043}# + (#{rebuild-macro-output 2011}# + (vector-ref #{x 2012}# #{i 2043}#) + #{m 2013}#)) + (#{loop 2042}# (#{1+}# #{i 2043}#))))))) + (begin (#{loop 2042}# 0))))))) + (if (symbol? #{x 2012}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap 420}# - #{e 1993}# - #{w 1995}# - (cdr #{w 1995}#) - #{mod 1998}#) - #{x 2008}#) - (#{decorate-source 260}# #{x 2008}# #{s 1996}#)))))))) + (#{source-wrap 424}# + #{e 1997}# + #{w 1999}# + (cdr #{w 1999}#) + #{mod 2002}#) + #{x 2012}#) + (#{decorate-source 264}# #{x 2012}# #{s 2000}#)))))))) (begin - (#{rebuild-macro-output 2007}# - (#{p 1992}# - (#{source-wrap 420}# - #{e 1993}# - (#{anti-mark 388}# #{w 1995}#) - #{s 1996}# - #{mod 1998}#)) + (#{rebuild-macro-output 2011}# + (#{p 1996}# + (#{source-wrap 424}# + #{e 1997}# + (#{anti-mark 392}# #{w 1999}#) + #{s 2000}# + #{mod 2002}#)) (gensym "m")))))) - (#{chi-body 440}# - (lambda (#{body 2049}# - #{outer-form 2050}# - #{r 2051}# - #{w 2052}# - #{mod 2053}#) + (#{chi-body 444}# + (lambda (#{body 2053}# + #{outer-form 2054}# + #{r 2055}# + #{w 2056}# + #{mod 2057}#) (begin - (let ((#{r 2061}# - (cons '("placeholder" placeholder) #{r 2051}#))) + (let ((#{r 2065}# + (cons '("placeholder" placeholder) #{r 2055}#))) (begin - (let ((#{ribcage 2063}# - (#{make-ribcage 367}# '() '() '()))) + (let ((#{ribcage 2067}# + (#{make-ribcage 371}# '() '() '()))) (begin - (let ((#{w 2066}# - (cons (car #{w 2052}#) - (cons #{ribcage 2063}# (cdr #{w 2052}#))))) + (let ((#{w 2070}# + (cons (car #{w 2056}#) + (cons #{ribcage 2067}# (cdr #{w 2056}#))))) (letrec* - ((#{parse 2078}# - (lambda (#{body 2079}# - #{ids 2080}# - #{labels 2081}# - #{var-ids 2082}# - #{vars 2083}# - #{vals 2084}# - #{bindings 2085}#) - (if (null? #{body 2079}#) + ((#{parse 2082}# + (lambda (#{body 2083}# + #{ids 2084}# + #{labels 2085}# + #{var-ids 2086}# + #{vars 2087}# + #{vals 2088}# + #{bindings 2089}#) + (if (null? #{body 2083}#) (syntax-violation #f "no expressions in body" - #{outer-form 2050}#) + #{outer-form 2054}#) (begin - (let ((#{e 2090}# (cdr (car #{body 2079}#))) - (#{er 2091}# (car (car #{body 2079}#)))) + (let ((#{e 2094}# (cdr (car #{body 2083}#))) + (#{er 2095}# (car (car #{body 2083}#)))) (call-with-values (lambda () - (#{syntax-type 430}# - #{e 2090}# - #{er 2091}# + (#{syntax-type 434}# + #{e 2094}# + #{er 2095}# '(()) - (#{source-annotation 322}# #{er 2091}#) - #{ribcage 2063}# - #{mod 2053}# + (#{source-annotation 326}# #{er 2095}#) + #{ribcage 2067}# + #{mod 2057}# #f)) - (lambda (#{type 2093}# - #{value 2094}# - #{e 2095}# - #{w 2096}# - #{s 2097}# - #{mod 2098}#) - (if (eqv? #{type 2093}# 'define-form) + (lambda (#{type 2097}# + #{value 2098}# + #{e 2099}# + #{w 2100}# + #{s 2101}# + #{mod 2102}#) + (if (eqv? #{type 2097}# 'define-form) (begin - (let ((#{id 2108}# - (#{wrap 418}# - #{value 2094}# - #{w 2096}# - #{mod 2098}#)) - (#{label 2109}# - (#{gen-label 362}#))) + (let ((#{id 2112}# + (#{wrap 422}# + #{value 2098}# + #{w 2100}# + #{mod 2102}#)) + (#{label 2113}# + (#{gen-label 366}#))) (begin - (let ((#{var 2111}# - (#{gen-var 460}# - #{id 2108}#))) + (let ((#{var 2115}# + (#{gen-var 464}# + #{id 2112}#))) (begin - (#{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}#) + (#{extend-ribcage! 398}# + #{ribcage 2067}# + #{id 2112}# + #{label 2113}#) + (#{parse 2082}# + (cdr #{body 2083}#) + (cons #{id 2112}# + #{ids 2084}#) + (cons #{label 2113}# + #{labels 2085}#) + (cons #{id 2112}# + #{var-ids 2086}#) + (cons #{var 2115}# + #{vars 2087}#) + (cons (cons #{er 2095}# + (#{wrap 422}# + #{e 2099}# + #{w 2100}# + #{mod 2102}#)) + #{vals 2088}#) (cons (cons 'lexical - #{var 2111}#) - #{bindings 2085}#))))))) - (if (eqv? #{type 2093}# + #{var 2115}#) + #{bindings 2089}#))))))) + (if (eqv? #{type 2097}# 'define-syntax-form) (begin - (let ((#{id 2116}# - (#{wrap 418}# - #{value 2094}# - #{w 2096}# - #{mod 2098}#)) - (#{label 2117}# - (#{gen-label 362}#))) + (let ((#{id 2120}# + (#{wrap 422}# + #{value 2098}# + #{w 2100}# + #{mod 2102}#)) + (#{label 2121}# + (#{gen-label 366}#))) (begin - (#{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}# + (#{extend-ribcage! 398}# + #{ribcage 2067}# + #{id 2120}# + #{label 2121}#) + (#{parse 2082}# + (cdr #{body 2083}#) + (cons #{id 2120}# #{ids 2084}#) + (cons #{label 2121}# + #{labels 2085}#) + #{var-ids 2086}# + #{vars 2087}# + #{vals 2088}# (cons (cons 'macro - (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}# + (cons #{er 2095}# + (#{wrap 422}# + #{e 2099}# + #{w 2100}# + #{mod 2102}#))) + #{bindings 2089}#))))) + (if (eqv? #{type 2097}# 'begin-form) + (begin + (let ((#{tmp 2125}# ($sc-dispatch - #{tmp 2120}# + #{e 2099}# '(_ . each-any)))) - (if #{tmp 2121}# + (if #{tmp 2125}# (@apply - (lambda (#{e1 2123}#) - (#{parse 2078}# + (lambda (#{e1 2127}#) + (#{parse 2082}# (letrec* - ((#{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}#))))))) + ((#{f 2130}# + (lambda (#{forms 2131}#) + (if (null? #{forms 2131}#) + (cdr #{body 2083}#) + (cons (cons #{er 2095}# + (#{wrap 422}# + (car #{forms 2131}#) + #{w 2100}# + #{mod 2102}#)) + (#{f 2130}# + (cdr #{forms 2131}#))))))) (begin - (#{f 2126}# - #{e1 2123}#))) - #{ids 2080}# - #{labels 2081}# - #{var-ids 2082}# - #{vars 2083}# - #{vals 2084}# - #{bindings 2085}#)) - #{tmp 2121}#) + (#{f 2130}# + #{e1 2127}#))) + #{ids 2084}# + #{labels 2085}# + #{var-ids 2086}# + #{vars 2087}# + #{vals 2088}# + #{bindings 2089}#)) + #{tmp 2125}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 2120}#)))) - (if (eqv? #{type 2093}# + #{e 2099}#)))) + (if (eqv? #{type 2097}# 'local-syntax-form) - (#{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}# + (#{chi-local-syntax 446}# + #{value 2098}# + #{e 2099}# + #{er 2095}# + #{w 2100}# + #{s 2101}# + #{mod 2102}# + (lambda (#{forms 2134}# + #{er 2135}# + #{w 2136}# + #{s 2137}# + #{mod 2138}#) + (#{parse 2082}# (letrec* - ((#{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}#))))))) + ((#{f 2146}# + (lambda (#{forms 2147}#) + (if (null? #{forms 2147}#) + (cdr #{body 2083}#) + (cons (cons #{er 2135}# + (#{wrap 422}# + (car #{forms 2147}#) + #{w 2136}# + #{mod 2138}#)) + (#{f 2146}# + (cdr #{forms 2147}#))))))) (begin - (#{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 2146}# + #{forms 2134}#))) + #{ids 2084}# + #{labels 2085}# + #{var-ids 2086}# + #{vars 2087}# + #{vals 2088}# + #{bindings 2089}#))) + (if (null? #{ids 2084}#) + (#{build-sequence 298}# #f - (map (lambda (#{x 2146}#) - (#{chi 432}# - (cdr #{x 2146}#) - (car #{x 2146}#) + (map (lambda (#{x 2150}#) + (#{chi 436}# + (cdr #{x 2150}#) + (car #{x 2150}#) '(()) - #{mod 2098}#)) - (cons (cons #{er 2091}# - (#{source-wrap 420}# - #{e 2095}# - #{w 2096}# - #{s 2097}# - #{mod 2098}#)) - (cdr #{body 2079}#)))) + #{mod 2102}#)) + (cons (cons #{er 2095}# + (#{source-wrap 424}# + #{e 2099}# + #{w 2100}# + #{s 2101}# + #{mod 2102}#)) + (cdr #{body 2083}#)))) (begin - (if (not (#{valid-bound-ids? 412}# - #{ids 2080}#)) + (if (not (#{valid-bound-ids? 416}# + #{ids 2084}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 2050}#)) + #{outer-form 2054}#)) (letrec* - ((#{loop 2153}# - (lambda (#{bs 2154}# - #{er-cache 2155}# - #{r-cache 2156}#) - (if (not (null? #{bs 2154}#)) + ((#{loop 2157}# + (lambda (#{bs 2158}# + #{er-cache 2159}# + #{r-cache 2160}#) + (if (not (null? #{bs 2158}#)) (begin - (let ((#{b 2159}# - (car #{bs 2154}#))) - (if (eq? (car #{b 2159}#) + (let ((#{b 2163}# + (car #{bs 2158}#))) + (if (eq? (car #{b 2163}#) 'macro) (begin - (let ((#{er 2162}# - (car (cdr #{b 2159}#)))) + (let ((#{er 2166}# + (car (cdr #{b 2163}#)))) (begin - (let ((#{r-cache 2164}# - (if (eq? #{er 2162}# - #{er-cache 2155}#) - #{r-cache 2156}# - (#{macros-only-env 336}# - #{er 2162}#)))) + (let ((#{r-cache 2168}# + (if (eq? #{er 2166}# + #{er-cache 2159}#) + #{r-cache 2160}# + (#{macros-only-env 340}# + #{er 2166}#)))) (begin (set-cdr! - #{b 2159}# - (#{eval-local-transformer 444}# - (#{chi 432}# - (cdr (cdr #{b 2159}#)) - #{r-cache 2164}# + #{b 2163}# + (#{eval-local-transformer 448}# + (#{chi 436}# + (cdr (cdr #{b 2163}#)) + #{r-cache 2168}# '(()) - #{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}#)))))))) + #{mod 2102}#) + #{mod 2102}#)) + (#{loop 2157}# + (cdr #{bs 2158}#) + #{er 2166}# + #{r-cache 2168}#)))))) + (#{loop 2157}# + (cdr #{bs 2158}#) + #{er-cache 2159}# + #{r-cache 2160}#)))))))) (begin - (#{loop 2153}# - #{bindings 2085}# + (#{loop 2157}# + #{bindings 2089}# #f #f))) (set-cdr! - #{r 2061}# - (#{extend-env 332}# - #{labels 2081}# - #{bindings 2085}# - (cdr #{r 2061}#))) - (#{build-letrec 300}# + #{r 2065}# + (#{extend-env 336}# + #{labels 2085}# + #{bindings 2089}# + (cdr #{r 2065}#))) + (#{build-letrec 304}# #f #t (reverse (map syntax->datum - #{var-ids 2082}#)) - (reverse #{vars 2083}#) - (map (lambda (#{x 2167}#) - (#{chi 432}# - (cdr #{x 2167}#) - (car #{x 2167}#) + #{var-ids 2086}#)) + (reverse #{vars 2087}#) + (map (lambda (#{x 2171}#) + (#{chi 436}# + (cdr #{x 2171}#) + (car #{x 2171}#) '(()) - #{mod 2098}#)) - (reverse #{vals 2084}#)) - (#{build-sequence 294}# + #{mod 2102}#)) + (reverse #{vals 2088}#)) + (#{build-sequence 298}# #f - (map (lambda (#{x 2171}#) - (#{chi 432}# - (cdr #{x 2171}#) - (car #{x 2171}#) + (map (lambda (#{x 2175}#) + (#{chi 436}# + (cdr #{x 2175}#) + (car #{x 2175}#) '(()) - #{mod 2098}#)) - (cons (cons #{er 2091}# - (#{source-wrap 420}# - #{e 2095}# - #{w 2096}# - #{s 2097}# - #{mod 2098}#)) - (cdr #{body 2079}#))))))))))))))))))) + #{mod 2102}#)) + (cons (cons #{er 2095}# + (#{source-wrap 424}# + #{e 2099}# + #{w 2100}# + #{s 2101}# + #{mod 2102}#)) + (cdr #{body 2083}#))))))))))))))))))) (begin - (#{parse 2078}# - (map (lambda (#{x 2086}#) - (cons #{r 2061}# - (#{wrap 418}# - #{x 2086}# - #{w 2066}# - #{mod 2053}#))) - #{body 2049}#) + (#{parse 2082}# + (map (lambda (#{x 2090}#) + (cons #{r 2065}# + (#{wrap 422}# + #{x 2090}# + #{w 2070}# + #{mod 2057}#))) + #{body 2053}#) '() '() '() '() '() '()))))))))))) - (#{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}# + (#{chi-local-syntax 446}# + (lambda (#{rec? 2178}# + #{e 2179}# + #{r 2180}# + #{w 2181}# + #{s 2182}# + #{mod 2183}# + #{k 2184}#) + (begin + (let ((#{tmp 2193}# ($sc-dispatch - #{tmp 2188}# + #{e 2179}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp 2189}# + (if #{tmp 2193}# (@apply - (lambda (#{id 2194}# - #{val 2195}# - #{e1 2196}# - #{e2 2197}#) - (begin - (let ((#{ids 2199}# #{id 2194}#)) - (if (not (#{valid-bound-ids? 412}# #{ids 2199}#)) - (syntax-violation - #f - "duplicate bound keyword" - #{e 2175}#) + (lambda (#{id 2198}# + #{val 2199}# + #{e1 2200}# + #{e2 2201}#) + (if (not (#{valid-bound-ids? 416}# #{id 2198}#)) + (syntax-violation + #f + "duplicate bound keyword" + #{e 2179}#) + (begin + (let ((#{labels 2206}# + (#{gen-labels 368}# #{id 2198}#))) (begin - (let ((#{labels 2202}# - (#{gen-labels 364}# #{ids 2199}#))) - (begin - (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}# + (let ((#{new-w 2208}# + (#{make-binding-wrap 400}# + #{id 2198}# + #{labels 2206}# + #{w 2181}#))) + (#{k 2184}# + (cons #{e1 2200}# #{e2 2201}#) + (#{extend-env 336}# + #{labels 2206}# + (begin + (let ((#{trans-r 2213}# + (#{macros-only-env 340}# #{r 2180}#))) (begin - (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 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 420}# - #{e 2175}# - #{w 2177}# - #{s 2178}# - #{mod 2179}#)))))))) - (#{eval-local-transformer 444}# - (lambda (#{expanded 2216}# #{mod 2217}#) + (if #{rec? 2178}# (if #f #f)) + (map (lambda (#{x 2214}#) + (cons 'macro + (#{eval-local-transformer 448}# + (#{chi 436}# + #{x 2214}# + #{trans-r 2213}# + (if #{rec? 2178}# + #{new-w 2208}# + #{w 2181}#) + #{mod 2183}#) + #{mod 2183}#))) + #{val 2199}#)))) + #{r 2180}#) + #{new-w 2208}# + #{s 2182}# + #{mod 2183}#))))))) + #{tmp 2193}#) + (syntax-violation + #f + "bad local syntax definition" + (#{source-wrap 424}# + #{e 2179}# + #{w 2181}# + #{s 2182}# + #{mod 2183}#))))))) + (#{eval-local-transformer 448}# + (lambda (#{expanded 2220}# #{mod 2221}#) (begin - (let ((#{p 2221}# - (#{local-eval-hook 252}# - #{expanded 2216}# - #{mod 2217}#))) - (if (procedure? #{p 2221}#) - #{p 2221}# + (let ((#{p 2225}# + (#{local-eval-hook 256}# + #{expanded 2220}# + #{mod 2221}#))) + (if (procedure? #{p 2225}#) + #{p 2225}# (syntax-violation #f "nonprocedure transformer" - #{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}# + #{p 2225}#)))))) + (#{chi-void 450}# + (lambda () (#{build-void 268}# #f))) + (#{ellipsis? 452}# + (lambda (#{x 2227}#) + (if (#{nonsymbol-id? 346}# #{x 2227}#) + (#{free-id=? 412}# + #{x 2227}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i2224")) + #(ribcage #(x) #((top)) #("i2228")) #(ribcage (lambda-var-list gen-var @@ -6597,7 +6505,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -6630,14 +6540,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -6645,33 +6555,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -6680,8 +6590,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -6703,18 +6613,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -6730,4195 +6640,3576 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile))) #f))) - (#{lambda-formals 450}# - (lambda (#{orig-args 2227}#) + (#{lambda-formals 454}# + (lambda (#{orig-args 2231}#) (letrec* - ((#{req 2230}# - (lambda (#{args 2233}# #{rreq 2234}#) - (let ((#{tmp 2237}# #{args 2233}#)) - (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '()))) - (if #{tmp 2238}# + ((#{req 2234}# + (lambda (#{args 2237}# #{rreq 2238}#) + (begin + (let ((#{tmp 2242}# ($sc-dispatch #{args 2237}# '()))) + (if #{tmp 2242}# (@apply (lambda () - (#{check 2232}# (reverse #{rreq 2234}#) #f)) - #{tmp 2238}#) - (let ((#{tmp 2239}# - ($sc-dispatch #{tmp 2237}# '(any . any)))) - (if (if #{tmp 2239}# - (@apply - (lambda (#{a 2242}# #{b 2243}#) - (#{id? 344}# #{a 2242}#)) - #{tmp 2239}#) - #f) - (@apply - (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}# + (#{check 2236}# (reverse #{rreq 2238}#) #f)) + #{tmp 2242}#) + (begin + (let ((#{tmp 2243}# + ($sc-dispatch #{args 2237}# '(any . any)))) + (if (if #{tmp 2243}# + (@apply + (lambda (#{a 2246}# #{b 2247}#) + (#{id? 348}# #{a 2246}#)) + #{tmp 2243}#) + #f) + (@apply + (lambda (#{a 2250}# #{b 2251}#) + (#{req 2234}# + #{b 2251}# + (cons #{a 2250}# #{rreq 2238}#))) + #{tmp 2243}#) + (begin + (let ((#{tmp 2252}# (list #{args 2237}#))) + (if (if #{tmp 2252}# + (@apply + (lambda (#{r 2254}#) + (#{id? 348}# #{r 2254}#)) + #{tmp 2252}#) + #f) (@apply - (lambda (#{r 2250}#) - (#{id? 344}# #{r 2250}#)) - #{tmp 2248}#) - #f) - (@apply - (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 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) + (lambda (#{r 2256}#) + (#{check 2236}# + (reverse #{rreq 2238}#) + #{r 2256}#)) + #{tmp 2252}#) + (syntax-violation + 'lambda + "invalid argument list" + #{orig-args 2231}# + #{args 2237}#)))))))))))) + (#{check 2236}# + (lambda (#{req 2259}# #{rest 2260}#) + (if (#{distinct-bound-ids? 418}# + (if #{rest 2260}# + (cons #{rest 2260}# #{req 2259}#) + #{req 2259}#)) + (values #{req 2259}# #f #{rest 2260}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{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 2282}# - (if #{rest 2268}# - (append #{req 2267}# (list #{rest 2268}#)) - #{req 2267}#))) - (begin - (let ((#{vars 2284}# - (map #{gen-var 460}# #{ids 2282}#))) - (begin - (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 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}#) + #{orig-args 2231}#))))) + (begin (#{req 2234}# #{orig-args 2231}# '()))))) + (#{lambda*-formals 458}# + (lambda (#{orig-args 2293}#) (letrec* - ((#{req 2292}# - (lambda (#{args 2301}# #{rreq 2302}#) - (let ((#{tmp 2305}# #{args 2301}#)) - (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '()))) - (if #{tmp 2306}# + ((#{req 2296}# + (lambda (#{args 2305}# #{rreq 2306}#) + (begin + (let ((#{tmp 2310}# ($sc-dispatch #{args 2305}# '()))) + (if #{tmp 2310}# (@apply (lambda () - (#{check 2300}# - (reverse #{rreq 2302}#) + (#{check 2304}# + (reverse #{rreq 2306}#) '() #f '())) - #{tmp 2306}#) - (let ((#{tmp 2307}# - ($sc-dispatch #{tmp 2305}# '(any . any)))) - (if (if #{tmp 2307}# - (@apply - (lambda (#{a 2310}# #{b 2311}#) - (#{id? 344}# #{a 2310}#)) - #{tmp 2307}#) - #f) - (@apply - (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 2319}# #{b 2320}#) - (eq? (syntax->datum #{a 2319}#) - #:optional)) - #{tmp 2316}#) - #f) - (@apply - (lambda (#{a 2323}# #{b 2324}#) - (#{opt 2294}# - #{b 2324}# - (reverse #{rreq 2302}#) - '())) - #{tmp 2316}#) - (let ((#{tmp 2325}# - ($sc-dispatch #{tmp 2305}# '(any . any)))) - (if (if #{tmp 2325}# + #{tmp 2310}#) + (begin + (let ((#{tmp 2311}# + ($sc-dispatch #{args 2305}# '(any . any)))) + (if (if #{tmp 2311}# + (@apply + (lambda (#{a 2314}# #{b 2315}#) + (#{id? 348}# #{a 2314}#)) + #{tmp 2311}#) + #f) + (@apply + (lambda (#{a 2318}# #{b 2319}#) + (#{req 2296}# + #{b 2319}# + (cons #{a 2318}# #{rreq 2306}#))) + #{tmp 2311}#) + (begin + (let ((#{tmp 2320}# + ($sc-dispatch #{args 2305}# '(any . any)))) + (if (if #{tmp 2320}# (@apply - (lambda (#{a 2328}# #{b 2329}#) - (eq? (syntax->datum #{a 2328}#) #:key)) - #{tmp 2325}#) + (lambda (#{a 2323}# #{b 2324}#) + (eq? (syntax->datum #{a 2323}#) + #:optional)) + #{tmp 2320}#) #f) (@apply - (lambda (#{a 2332}# #{b 2333}#) - (#{key 2296}# - #{b 2333}# - (reverse #{rreq 2302}#) - '() + (lambda (#{a 2327}# #{b 2328}#) + (#{opt 2298}# + #{b 2328}# + (reverse #{rreq 2306}#) '())) - #{tmp 2325}#) - (let ((#{tmp 2334}# - ($sc-dispatch - #{tmp 2305}# - '(any any)))) - (if (if #{tmp 2334}# - (@apply - (lambda (#{a 2337}# #{b 2338}#) - (eq? (syntax->datum #{a 2337}#) - #:rest)) - #{tmp 2334}#) - #f) - (@apply - (lambda (#{a 2341}# #{b 2342}#) - (#{rest 2298}# - #{b 2342}# - (reverse #{rreq 2302}#) - '() - '())) - #{tmp 2334}#) - (let ((#{tmp 2343}# (list #{tmp 2305}#))) - (if (if #{tmp 2343}# + #{tmp 2320}#) + (begin + (let ((#{tmp 2329}# + ($sc-dispatch + #{args 2305}# + '(any . any)))) + (if (if #{tmp 2329}# + (@apply + (lambda (#{a 2332}# #{b 2333}#) + (eq? (syntax->datum #{a 2332}#) + #:key)) + #{tmp 2329}#) + #f) + (@apply + (lambda (#{a 2336}# #{b 2337}#) + (#{key 2300}# + #{b 2337}# + (reverse #{rreq 2306}#) + '() + '())) + #{tmp 2329}#) + (begin + (let ((#{tmp 2338}# + ($sc-dispatch + #{args 2305}# + '(any any)))) + (if (if #{tmp 2338}# + (@apply + (lambda (#{a 2341}# + #{b 2342}#) + (eq? (syntax->datum + #{a 2341}#) + #:rest)) + #{tmp 2338}#) + #f) (@apply - (lambda (#{r 2345}#) - (#{id? 344}# #{r 2345}#)) - #{tmp 2343}#) - #f) - (@apply - (lambda (#{r 2347}#) - (#{rest 2298}# - #{r 2347}# - (reverse #{rreq 2302}#) - '() - '())) - #{tmp 2343}#) - (let ((#{else 2349}# #{tmp 2305}#)) - (syntax-violation - 'lambda* - "invalid argument list" - #{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}# + (lambda (#{a 2345}# #{b 2346}#) + (#{rest 2302}# + #{b 2346}# + (reverse #{rreq 2306}#) + '() + '())) + #{tmp 2338}#) + (begin + (let ((#{tmp 2347}# + (list #{args 2305}#))) + (if (if #{tmp 2347}# + (@apply + (lambda (#{r 2349}#) + (#{id? 348}# + #{r 2349}#)) + #{tmp 2347}#) + #f) + (@apply + (lambda (#{r 2351}#) + (#{rest 2302}# + #{r 2351}# + (reverse #{rreq 2306}#) + '() + '())) + #{tmp 2347}#) + (syntax-violation + 'lambda* + "invalid argument list" + #{orig-args 2293}# + #{args 2305}#))))))))))))))))))))) + (#{opt 2298}# + (lambda (#{args 2354}# #{req 2355}# #{ropt 2356}#) + (begin + (let ((#{tmp 2361}# ($sc-dispatch #{args 2354}# '()))) + (if #{tmp 2361}# (@apply (lambda () - (#{check 2300}# - #{req 2351}# - (reverse #{ropt 2352}#) + (#{check 2304}# + #{req 2355}# + (reverse #{ropt 2356}#) #f '())) - #{tmp 2357}#) - (let ((#{tmp 2358}# - ($sc-dispatch #{tmp 2356}# '(any . any)))) - (if (if #{tmp 2358}# - (@apply - (lambda (#{a 2361}# #{b 2362}#) - (#{id? 344}# #{a 2361}#)) - #{tmp 2358}#) - #f) - (@apply - (lambda (#{a 2365}# #{b 2366}#) - (#{opt 2294}# - #{b 2366}# - #{req 2351}# - (cons (cons #{a 2365}# - '(#(syntax-object - #f - ((top) - #(ribcage - #(a b) - #((top) (top)) - #("i2363" "i2364")) - #(ribcage () () ()) - #(ribcage - #(args req ropt) - #((top) (top) (top)) - #("i2353" "i2354" "i2355")) - #(ribcage - (check rest key opt req) - ((top) - (top) - (top) - (top) - (top)) - ("i2299" - "i2297" - "i2295" - "i2293" - "i2291")) - #(ribcage - #(orig-args) - #((top)) - #("i2290")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile)))) - #{ropt 2352}#))) - #{tmp 2358}#) - (let ((#{tmp 2367}# - ($sc-dispatch - #{tmp 2356}# - '((any any) . any)))) - (if (if #{tmp 2367}# - (@apply - (lambda (#{a 2371}# #{init 2372}# #{b 2373}#) - (#{id? 344}# #{a 2371}#)) - #{tmp 2367}#) - #f) - (@apply - (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}# + #{tmp 2361}#) + (begin + (let ((#{tmp 2362}# + ($sc-dispatch #{args 2354}# '(any . any)))) + (if (if #{tmp 2362}# + (@apply + (lambda (#{a 2365}# #{b 2366}#) + (#{id? 348}# #{a 2365}#)) + #{tmp 2362}#) + #f) + (@apply + (lambda (#{a 2369}# #{b 2370}#) + (#{opt 2298}# + #{b 2370}# + #{req 2355}# + (cons (cons #{a 2369}# + '(#(syntax-object + #f + ((top) + #(ribcage + #(a b) + #((top) (top)) + #("i2367" "i2368")) + #(ribcage () () ()) + #(ribcage + #(args req ropt) + #((top) (top) (top)) + #("i2357" "i2358" "i2359")) + #(ribcage + (check rest key opt req) + ((top) + (top) + (top) + (top) + (top)) + ("i2303" + "i2301" + "i2299" + "i2297" + "i2295")) + #(ribcage + #(orig-args) + #((top)) + #("i2294")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)))) + #{ropt 2356}#))) + #{tmp 2362}#) + (begin + (let ((#{tmp 2371}# + ($sc-dispatch + #{args 2354}# + '((any any) . any)))) + (if (if #{tmp 2371}# (@apply - (lambda (#{a 2383}# #{b 2384}#) - (eq? (syntax->datum #{a 2383}#) #:key)) - #{tmp 2380}#) + (lambda (#{a 2375}# + #{init 2376}# + #{b 2377}#) + (#{id? 348}# #{a 2375}#)) + #{tmp 2371}#) #f) (@apply - (lambda (#{a 2387}# #{b 2388}#) - (#{key 2296}# - #{b 2388}# - #{req 2351}# - (reverse #{ropt 2352}#) - '())) - #{tmp 2380}#) - (let ((#{tmp 2389}# - ($sc-dispatch - #{tmp 2356}# - '(any any)))) - (if (if #{tmp 2389}# - (@apply - (lambda (#{a 2392}# #{b 2393}#) - (eq? (syntax->datum #{a 2392}#) - #:rest)) - #{tmp 2389}#) - #f) - (@apply - (lambda (#{a 2396}# #{b 2397}#) - (#{rest 2298}# - #{b 2397}# - #{req 2351}# - (reverse #{ropt 2352}#) - '())) - #{tmp 2389}#) - (let ((#{tmp 2398}# (list #{tmp 2356}#))) - (if (if #{tmp 2398}# + (lambda (#{a 2381}# #{init 2382}# #{b 2383}#) + (#{opt 2298}# + #{b 2383}# + #{req 2355}# + (cons (list #{a 2381}# #{init 2382}#) + #{ropt 2356}#))) + #{tmp 2371}#) + (begin + (let ((#{tmp 2384}# + ($sc-dispatch + #{args 2354}# + '(any . any)))) + (if (if #{tmp 2384}# + (@apply + (lambda (#{a 2387}# #{b 2388}#) + (eq? (syntax->datum #{a 2387}#) + #:key)) + #{tmp 2384}#) + #f) + (@apply + (lambda (#{a 2391}# #{b 2392}#) + (#{key 2300}# + #{b 2392}# + #{req 2355}# + (reverse #{ropt 2356}#) + '())) + #{tmp 2384}#) + (begin + (let ((#{tmp 2393}# + ($sc-dispatch + #{args 2354}# + '(any any)))) + (if (if #{tmp 2393}# + (@apply + (lambda (#{a 2396}# + #{b 2397}#) + (eq? (syntax->datum + #{a 2396}#) + #:rest)) + #{tmp 2393}#) + #f) (@apply - (lambda (#{r 2400}#) - (#{id? 344}# #{r 2400}#)) - #{tmp 2398}#) - #f) - (@apply - (lambda (#{r 2402}#) - (#{rest 2298}# - #{r 2402}# - #{req 2351}# - (reverse #{ropt 2352}#) - '())) - #{tmp 2398}#) - (let ((#{else 2404}# #{tmp 2356}#)) - (syntax-violation - 'lambda* - "invalid optional argument list" - #{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}# + (lambda (#{a 2400}# #{b 2401}#) + (#{rest 2302}# + #{b 2401}# + #{req 2355}# + (reverse #{ropt 2356}#) + '())) + #{tmp 2393}#) + (begin + (let ((#{tmp 2402}# + (list #{args 2354}#))) + (if (if #{tmp 2402}# + (@apply + (lambda (#{r 2404}#) + (#{id? 348}# + #{r 2404}#)) + #{tmp 2402}#) + #f) + (@apply + (lambda (#{r 2406}#) + (#{rest 2302}# + #{r 2406}# + #{req 2355}# + (reverse #{ropt 2356}#) + '())) + #{tmp 2402}#) + (syntax-violation + 'lambda* + "invalid optional argument list" + #{orig-args 2293}# + #{args 2354}#))))))))))))))))))))) + (#{key 2300}# + (lambda (#{args 2409}# + #{req 2410}# + #{opt 2411}# + #{rkey 2412}#) + (begin + (let ((#{tmp 2418}# ($sc-dispatch #{args 2409}# '()))) + (if #{tmp 2418}# (@apply (lambda () - (#{check 2300}# - #{req 2406}# - #{opt 2407}# + (#{check 2304}# + #{req 2410}# + #{opt 2411}# #f - (cons #f (reverse #{rkey 2408}#)))) - #{tmp 2414}#) - (let ((#{tmp 2415}# - ($sc-dispatch #{tmp 2413}# '(any . any)))) - (if (if #{tmp 2415}# - (@apply - (lambda (#{a 2418}# #{b 2419}#) - (#{id? 344}# #{a 2418}#)) - #{tmp 2415}#) - #f) - (@apply - (lambda (#{a 2422}# #{b 2423}#) - (let ((#{tmp 2425}# - (symbol->keyword - (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) - #(ribcage () () ()) - #(ribcage - #(k) - #((top)) - #("i2426")) - #(ribcage - #(a b) - #((top) (top)) - #("i2420" "i2421")) - #(ribcage () () ()) - #(ribcage - #(args req opt rkey) - #((top) - (top) - (top) - (top)) - #("i2409" - "i2410" - "i2411" - "i2412")) - #(ribcage - (check rest - key - opt - req) - ((top) - (top) - (top) - (top) - (top)) - ("i2299" - "i2297" - "i2295" - "i2293" - "i2291")) - #(ribcage - #(orig-args) - #((top)) - #("i2290")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" - "i39" - "i38"))) - (hygiene guile))))) - #{rkey 2408}#))))) - #{tmp 2415}#) - (let ((#{tmp 2428}# - ($sc-dispatch - #{tmp 2413}# - '((any any) . any)))) - (if (if #{tmp 2428}# - (@apply - (lambda (#{a 2432}# #{init 2433}# #{b 2434}#) - (#{id? 344}# #{a 2432}#)) - #{tmp 2428}#) - #f) - (@apply - (lambda (#{a 2438}# #{init 2439}# #{b 2440}#) - (let ((#{tmp 2442}# + (cons #f (reverse #{rkey 2412}#)))) + #{tmp 2418}#) + (begin + (let ((#{tmp 2419}# + ($sc-dispatch #{args 2409}# '(any . any)))) + (if (if #{tmp 2419}# + (@apply + (lambda (#{a 2422}# #{b 2423}#) + (#{id? 348}# #{a 2422}#)) + #{tmp 2419}#) + #f) + (@apply + (lambda (#{a 2426}# #{b 2427}#) + (begin + (let ((#{tmp 2429}# (symbol->keyword - (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}# + (syntax->datum #{a 2426}#)))) + (#{key 2300}# + #{b 2427}# + #{req 2410}# + #{opt 2411}# + (cons (cons #{tmp 2429}# + (cons #{a 2426}# + '(#(syntax-object + #f + ((top) + #(ribcage () () ()) + #(ribcage + #(k) + #((top)) + #("i2430")) + #(ribcage + #(a b) + #((top) (top)) + #("i2424" + "i2425")) + #(ribcage () () ()) + #(ribcage + #(args + req + opt + rkey) + #((top) + (top) + (top) + (top)) + #("i2413" + "i2414" + "i2415" + "i2416")) + #(ribcage + (check rest + key + opt + req) + ((top) + (top) + (top) + (top) + (top)) + ("i2303" + "i2301" + "i2299" + "i2297" + "i2295")) + #(ribcage + #(orig-args) + #((top)) + #("i2294")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile))))) + #{rkey 2412}#))))) + #{tmp 2419}#) + (begin + (let ((#{tmp 2432}# ($sc-dispatch - #{tmp 2413}# - '((any any any) . any)))) - (if (if #{tmp 2445}# + #{args 2409}# + '((any any) . any)))) + (if (if #{tmp 2432}# (@apply - (lambda (#{a 2450}# - #{init 2451}# - #{k 2452}# - #{b 2453}#) - (if (#{id? 344}# #{a 2450}#) - (keyword? (syntax->datum #{k 2452}#)) - #f)) - #{tmp 2445}#) + (lambda (#{a 2436}# + #{init 2437}# + #{b 2438}#) + (#{id? 348}# #{a 2436}#)) + #{tmp 2432}#) #f) (@apply - (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 2466}#) - (eq? (syntax->datum #{aok 2466}#) - #:allow-other-keys)) - #{tmp 2464}#) - #f) - (@apply - (lambda (#{aok 2468}#) - (#{check 2300}# - #{req 2406}# - #{opt 2407}# - #f - (cons #t (reverse #{rkey 2408}#)))) - #{tmp 2464}#) - (let ((#{tmp 2469}# - ($sc-dispatch - #{tmp 2413}# - '(any any any)))) - (if (if #{tmp 2469}# - (@apply - (lambda (#{aok 2473}# - #{a 2474}# - #{b 2475}#) - (if (eq? (syntax->datum - #{aok 2473}#) - #:allow-other-keys) - (eq? (syntax->datum - #{a 2474}#) - #:rest) - #f)) - #{tmp 2469}#) - #f) - (@apply - (lambda (#{aok 2481}# - #{a 2482}# - #{b 2483}#) - (#{rest 2298}# - #{b 2483}# - #{req 2406}# - #{opt 2407}# - (cons #t - (reverse #{rkey 2408}#)))) - #{tmp 2469}#) - (let ((#{tmp 2484}# + (lambda (#{a 2442}# #{init 2443}# #{b 2444}#) + (begin + (let ((#{tmp 2446}# + (symbol->keyword + (syntax->datum #{a 2442}#)))) + (#{key 2300}# + #{b 2444}# + #{req 2410}# + #{opt 2411}# + (cons (list #{tmp 2446}# + #{a 2442}# + #{init 2443}#) + #{rkey 2412}#))))) + #{tmp 2432}#) + (begin + (let ((#{tmp 2449}# + ($sc-dispatch + #{args 2409}# + '((any any any) . any)))) + (if (if #{tmp 2449}# + (@apply + (lambda (#{a 2454}# + #{init 2455}# + #{k 2456}# + #{b 2457}#) + (if (#{id? 348}# #{a 2454}#) + (keyword? + (syntax->datum #{k 2456}#)) + #f)) + #{tmp 2449}#) + #f) + (@apply + (lambda (#{a 2464}# + #{init 2465}# + #{k 2466}# + #{b 2467}#) + (#{key 2300}# + #{b 2467}# + #{req 2410}# + #{opt 2411}# + (cons (list #{k 2466}# + #{a 2464}# + #{init 2465}#) + #{rkey 2412}#))) + #{tmp 2449}#) + (begin + (let ((#{tmp 2468}# ($sc-dispatch - #{tmp 2413}# - '(any . any)))) - (if (if #{tmp 2484}# + #{args 2409}# + '(any)))) + (if (if #{tmp 2468}# (@apply - (lambda (#{aok 2487}# - #{r 2488}#) - (if (eq? (syntax->datum - #{aok 2487}#) - #:allow-other-keys) - (#{id? 344}# #{r 2488}#) - #f)) - #{tmp 2484}#) + (lambda (#{aok 2470}#) + (eq? (syntax->datum + #{aok 2470}#) + #:allow-other-keys)) + #{tmp 2468}#) #f) (@apply - (lambda (#{aok 2493}# #{r 2494}#) - (#{rest 2298}# - #{r 2494}# - #{req 2406}# - #{opt 2407}# + (lambda (#{aok 2472}#) + (#{check 2304}# + #{req 2410}# + #{opt 2411}# + #f (cons #t (reverse - #{rkey 2408}#)))) - #{tmp 2484}#) - (let ((#{tmp 2495}# - ($sc-dispatch - #{tmp 2413}# - '(any any)))) - (if (if #{tmp 2495}# - (@apply - (lambda (#{a 2498}# - #{b 2499}#) - (eq? (syntax->datum - #{a 2498}#) - #:rest)) - #{tmp 2495}#) - #f) - (@apply - (lambda (#{a 2502}# - #{b 2503}#) - (#{rest 2298}# - #{b 2503}# - #{req 2406}# - #{opt 2407}# - (cons #f - (reverse - #{rkey 2408}#)))) - #{tmp 2495}#) - (let ((#{tmp 2504}# - (list #{tmp 2413}#))) - (if (if #{tmp 2504}# + #{rkey 2412}#)))) + #{tmp 2468}#) + (begin + (let ((#{tmp 2473}# + ($sc-dispatch + #{args 2409}# + '(any any any)))) + (if (if #{tmp 2473}# + (@apply + (lambda (#{aok 2477}# + #{a 2478}# + #{b 2479}#) + (if (eq? (syntax->datum + #{aok 2477}#) + #:allow-other-keys) + (eq? (syntax->datum + #{a 2478}#) + #:rest) + #f)) + #{tmp 2473}#) + #f) + (@apply + (lambda (#{aok 2485}# + #{a 2486}# + #{b 2487}#) + (#{rest 2302}# + #{b 2487}# + #{req 2410}# + #{opt 2411}# + (cons #t + (reverse + #{rkey 2412}#)))) + #{tmp 2473}#) + (begin + (let ((#{tmp 2488}# + ($sc-dispatch + #{args 2409}# + '(any . any)))) + (if (if #{tmp 2488}# + (@apply + (lambda (#{aok 2491}# + #{r 2492}#) + (if (eq? (syntax->datum + #{aok 2491}#) + #:allow-other-keys) + (#{id? 348}# + #{r 2492}#) + #f)) + #{tmp 2488}#) + #f) (@apply - (lambda (#{r 2506}#) - (#{id? 344}# - #{r 2506}#)) - #{tmp 2504}#) - #f) - (@apply - (lambda (#{r 2508}#) - (#{rest 2298}# - #{r 2508}# - #{req 2406}# - #{opt 2407}# - (cons #f - (reverse - #{rkey 2408}#)))) - #{tmp 2504}#) - (let ((#{else 2510}# - #{tmp 2413}#)) - (syntax-violation - 'lambda* - "invalid keyword argument list" - #{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}# + (lambda (#{aok 2497}# + #{r 2498}#) + (#{rest 2302}# + #{r 2498}# + #{req 2410}# + #{opt 2411}# + (cons #t + (reverse + #{rkey 2412}#)))) + #{tmp 2488}#) + (begin + (let ((#{tmp 2499}# + ($sc-dispatch + #{args 2409}# + '(any any)))) + (if (if #{tmp 2499}# + (@apply + (lambda (#{a 2502}# + #{b 2503}#) + (eq? (syntax->datum + #{a 2502}#) + #:rest)) + #{tmp 2499}#) + #f) + (@apply + (lambda (#{a 2506}# + #{b 2507}#) + (#{rest 2302}# + #{b 2507}# + #{req 2410}# + #{opt 2411}# + (cons #f + (reverse + #{rkey 2412}#)))) + #{tmp 2499}#) + (begin + (let ((#{tmp 2508}# + (list #{args 2409}#))) + (if (if #{tmp 2508}# + (@apply + (lambda (#{r 2510}#) + (#{id? 348}# + #{r 2510}#)) + #{tmp 2508}#) + #f) + (@apply + (lambda (#{r 2512}#) + (#{rest 2302}# + #{r 2512}# + #{req 2410}# + #{opt 2411}# + (cons #f + (reverse + #{rkey 2412}#)))) + #{tmp 2508}#) + (syntax-violation + 'lambda* + "invalid keyword argument list" + #{orig-args 2293}# + #{args 2409}#)))))))))))))))))))))))))))))) + (#{rest 2302}# + (lambda (#{args 2515}# + #{req 2516}# + #{opt 2517}# + #{kw 2518}#) + (begin + (let ((#{tmp 2524}# (list #{args 2515}#))) + (if (if #{tmp 2524}# (@apply - (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#)) - #{tmp 2520}#) + (lambda (#{r 2526}#) (#{id? 348}# #{r 2526}#)) + #{tmp 2524}#) #f) (@apply - (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 2289}# - #{args 2511}#))))))) - (#{check 2300}# - (lambda (#{req 2527}# - #{opt 2528}# - #{rest 2529}# - #{kw 2530}#) - (if (#{distinct-bound-ids? 414}# + (lambda (#{r 2528}#) + (#{check 2304}# + #{req 2516}# + #{opt 2517}# + #{r 2528}# + #{kw 2518}#)) + #{tmp 2524}#) + (syntax-violation + 'lambda* + "invalid rest argument" + #{orig-args 2293}# + #{args 2515}#)))))) + (#{check 2304}# + (lambda (#{req 2531}# + #{opt 2532}# + #{rest 2533}# + #{kw 2534}#) + (if (#{distinct-bound-ids? 418}# (append - #{req 2527}# - (map car #{opt 2528}#) - (if #{rest 2529}# (list #{rest 2529}#) '()) - (if (pair? #{kw 2530}#) - (map cadr (cdr #{kw 2530}#)) + #{req 2531}# + (map car #{opt 2532}#) + (if #{rest 2533}# (list #{rest 2533}#) '()) + (if (pair? #{kw 2534}#) + (map cadr (cdr #{kw 2534}#)) '()))) (values - #{req 2527}# - #{opt 2528}# - #{rest 2529}# - #{kw 2530}#) + #{req 2531}# + #{opt 2532}# + #{rest 2533}# + #{kw 2534}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{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}#) + #{orig-args 2293}#))))) + (begin (#{req 2296}# #{orig-args 2293}# '()))))) + (#{chi-lambda-case 460}# + (lambda (#{e 2542}# + #{r 2543}# + #{w 2544}# + #{s 2545}# + #{mod 2546}# + #{get-formals 2547}# + #{clauses 2548}#) (letrec* - ((#{expand-req 2553}# - (lambda (#{req 2560}# - #{opt 2561}# - #{rest 2562}# - #{kw 2563}# - #{body 2564}#) - (begin - (let ((#{vars 2572}# - (map #{gen-var 460}# #{req 2560}#)) - (#{labels 2573}# - (#{gen-labels 364}# #{req 2560}#))) - (begin - (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 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 2604}# #{i 2605}#) - (begin - (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#))) + ((#{expand-opt 2559}# + (lambda (#{req 2582}# + #{opt 2583}# + #{rest 2584}# + #{kw 2585}# + #{body 2586}# + #{vars 2587}# + #{r* 2588}# + #{w* 2589}# + #{out 2590}# + #{inits 2591}#) + (if (pair? #{opt 2583}#) + (begin + (let ((#{tmp 2604}# (car #{opt 2583}#))) + (begin + (let ((#{tmp 2605}# + ($sc-dispatch #{tmp 2604}# '(any any)))) + (if #{tmp 2605}# + (@apply + (lambda (#{id 2608}# #{i 2609}#) (begin - (let ((#{l 2610}# - (#{gen-labels 364}# - (list #{v 2608}#)))) + (let ((#{v 2612}# + (#{gen-var 464}# #{id 2608}#))) (begin - (let ((#{r** 2612}# - (#{extend-var-env 334}# - #{l 2610}# - (list #{v 2608}#) - #{r* 2584}#))) + (let ((#{l 2614}# + (#{gen-labels 368}# + (list #{v 2612}#)))) (begin - (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 2600}#)))) - (if #{rest 2580}# + (let ((#{r** 2616}# + (#{extend-var-env 338}# + #{l 2614}# + (list #{v 2612}#) + #{r* 2588}#))) + (begin + (let ((#{w** 2618}# + (#{make-binding-wrap 400}# + (list #{id 2608}#) + #{l 2614}# + #{w* 2589}#))) + (#{expand-opt 2559}# + #{req 2582}# + (cdr #{opt 2583}#) + #{rest 2584}# + #{kw 2585}# + #{body 2586}# + (cons #{v 2612}# #{vars 2587}#) + #{r** 2616}# + #{w** 2618}# + (cons (syntax->datum + #{id 2608}#) + #{out 2590}#) + (cons (#{chi 436}# + #{i 2609}# + #{r* 2588}# + #{w* 2589}# + #{mod 2546}#) + #{inits 2591}#))))))))))) + #{tmp 2605}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 2604}#)))))) + (if #{rest 2584}# (begin - (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#))) + (let ((#{v 2623}# (#{gen-var 464}# #{rest 2584}#))) (begin - (let ((#{l 2621}# - (#{gen-labels 364}# (list #{v 2619}#)))) + (let ((#{l 2625}# + (#{gen-labels 368}# (list #{v 2623}#)))) (begin - (let ((#{r* 2623}# - (#{extend-var-env 334}# - #{l 2621}# - (list #{v 2619}#) - #{r* 2584}#))) + (let ((#{r* 2627}# + (#{extend-var-env 338}# + #{l 2625}# + (list #{v 2623}#) + #{r* 2588}#))) (begin - (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}#) + (let ((#{w* 2629}# + (#{make-binding-wrap 400}# + (list #{rest 2584}#) + #{l 2625}# + #{w* 2589}#))) + (#{expand-kw 2561}# + #{req 2582}# + (if (pair? #{out 2590}#) + (reverse #{out 2590}#) #f) - (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}#) + (syntax->datum #{rest 2584}#) + (if (pair? #{kw 2585}#) + (cdr #{kw 2585}#) + #{kw 2585}#) + #{body 2586}# + (cons #{v 2623}# #{vars 2587}#) + #{r* 2627}# + #{w* 2629}# + (if (pair? #{kw 2585}#) + (car #{kw 2585}#) #f) '() - #{inits 2587}#))))))))) - (#{expand-kw 2557}# - #{req 2578}# - (if (pair? #{out 2586}#) - (reverse #{out 2586}#) + #{inits 2591}#))))))))) + (#{expand-kw 2561}# + #{req 2582}# + (if (pair? #{out 2590}#) + (reverse #{out 2590}#) #f) #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) + (if (pair? #{kw 2585}#) + (cdr #{kw 2585}#) + #{kw 2585}#) + #{body 2586}# + #{vars 2587}# + #{r* 2588}# + #{w* 2589}# + (if (pair? #{kw 2585}#) (car #{kw 2585}#) #f) '() - #{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 2656}# #{id 2657}# #{i 2658}#) - (begin - (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#))) + #{inits 2591}#))))) + (#{expand-kw 2561}# + (lambda (#{req 2631}# + #{opt 2632}# + #{rest 2633}# + #{kw 2634}# + #{body 2635}# + #{vars 2636}# + #{r* 2637}# + #{w* 2638}# + #{aok 2639}# + #{out 2640}# + #{inits 2641}#) + (if (pair? #{kw 2634}#) + (begin + (let ((#{tmp 2655}# (car #{kw 2634}#))) + (begin + (let ((#{tmp 2656}# + ($sc-dispatch #{tmp 2655}# '(any any any)))) + (if #{tmp 2656}# + (@apply + (lambda (#{k 2660}# #{id 2661}# #{i 2662}#) (begin - (let ((#{l 2663}# - (#{gen-labels 364}# - (list #{v 2661}#)))) + (let ((#{v 2665}# + (#{gen-var 464}# #{id 2661}#))) (begin - (let ((#{r** 2665}# - (#{extend-var-env 334}# - #{l 2663}# - (list #{v 2661}#) - #{r* 2633}#))) + (let ((#{l 2667}# + (#{gen-labels 368}# + (list #{v 2665}#)))) (begin - (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 2656}#) - (syntax->datum - #{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 2651}#)))) - (#{expand-body 2559}# - #{req 2627}# - #{opt 2628}# - #{rest 2629}# - (if (begin - (let ((#{t 2671}# #{aok 2635}#)) - (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#)))) - (cons #{aok 2635}# (reverse #{out 2636}#)) + (let ((#{r** 2669}# + (#{extend-var-env 338}# + #{l 2667}# + (list #{v 2665}#) + #{r* 2637}#))) + (begin + (let ((#{w** 2671}# + (#{make-binding-wrap 400}# + (list #{id 2661}#) + #{l 2667}# + #{w* 2638}#))) + (#{expand-kw 2561}# + #{req 2631}# + #{opt 2632}# + #{rest 2633}# + (cdr #{kw 2634}#) + #{body 2635}# + (cons #{v 2665}# #{vars 2636}#) + #{r** 2669}# + #{w** 2671}# + #{aok 2639}# + (cons (list (syntax->datum + #{k 2660}#) + (syntax->datum + #{id 2661}#) + #{v 2665}#) + #{out 2640}#) + (cons (#{chi 436}# + #{i 2662}# + #{r* 2637}# + #{w* 2638}# + #{mod 2546}#) + #{inits 2641}#))))))))))) + #{tmp 2656}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 2655}#)))))) + (#{expand-body 2563}# + #{req 2631}# + #{opt 2632}# + #{rest 2633}# + (if (if #{aok 2639}# + #{aok 2639}# + (pair? #{out 2640}#)) + (cons #{aok 2639}# (reverse #{out 2640}#)) #f) - #{body 2631}# - (reverse #{vars 2632}#) - #{r* 2633}# - #{w* 2634}# - (reverse #{inits 2637}#) + #{body 2635}# + (reverse #{vars 2636}#) + #{r* 2637}# + #{w* 2638}# + (reverse #{inits 2641}#) '())))) - (#{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}# + (#{expand-body 2563}# + (lambda (#{req 2677}# + #{opt 2678}# + #{rest 2679}# + #{kw 2680}# + #{body 2681}# + #{vars 2682}# + #{r* 2683}# + #{w* 2684}# + #{inits 2685}# + #{meta 2686}#) + (begin + (let ((#{tmp 2698}# + ($sc-dispatch + #{body 2681}# + '(any any . each-any)))) + (if (if #{tmp 2698}# (@apply - (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#) - (string? (syntax->datum #{docstring 2698}#))) - #{tmp 2694}#) + (lambda (#{docstring 2702}# #{e1 2703}# #{e2 2704}#) + (string? (syntax->datum #{docstring 2702}#))) + #{tmp 2698}#) #f) (@apply - (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}# + (lambda (#{docstring 2708}# #{e1 2709}# #{e2 2710}#) + (#{expand-body 2563}# + #{req 2677}# + #{opt 2678}# + #{rest 2679}# + #{kw 2680}# + (cons #{e1 2709}# #{e2 2710}#) + #{vars 2682}# + #{r* 2683}# + #{w* 2684}# + #{inits 2685}# (append - #{meta 2682}# + #{meta 2686}# (list (cons 'documentation - (syntax->datum #{docstring 2704}#)))))) - #{tmp 2694}#) - (let ((#{tmp 2709}# - ($sc-dispatch - #{tmp 2693}# - '(#(vector #(each (any . any))) - any - . - each-any)))) - (if #{tmp 2709}# - (@apply - (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 2682}# - (syntax->datum - (map cons #{k 2714}# #{v 2715}#))))) - #{tmp 2709}#) - (let ((#{tmp 2721}# - ($sc-dispatch #{tmp 2693}# '(any . each-any)))) - (if #{tmp 2721}# - (@apply - (lambda (#{e1 2724}# #{e2 2725}#) - (values - #{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 2693}#))))))))))) + (syntax->datum #{docstring 2708}#)))))) + #{tmp 2698}#) + (begin + (let ((#{tmp 2713}# + ($sc-dispatch + #{body 2681}# + '(#(vector #(each (any . any))) + any + . + each-any)))) + (if #{tmp 2713}# + (@apply + (lambda (#{k 2718}# + #{v 2719}# + #{e1 2720}# + #{e2 2721}#) + (#{expand-body 2563}# + #{req 2677}# + #{opt 2678}# + #{rest 2679}# + #{kw 2680}# + (cons #{e1 2720}# #{e2 2721}#) + #{vars 2682}# + #{r* 2683}# + #{w* 2684}# + #{inits 2685}# + (append + #{meta 2686}# + (syntax->datum + (map cons #{k 2718}# #{v 2719}#))))) + #{tmp 2713}#) + (begin + (let ((#{tmp 2725}# + ($sc-dispatch + #{body 2681}# + '(any . each-any)))) + (if #{tmp 2725}# + (@apply + (lambda (#{e1 2728}# #{e2 2729}#) + (values + #{meta 2686}# + #{req 2677}# + #{opt 2678}# + #{rest 2679}# + #{kw 2680}# + #{inits 2685}# + #{vars 2682}# + (#{chi-body 444}# + (cons #{e1 2728}# #{e2 2729}#) + (#{source-wrap 424}# + #{e 2542}# + #{w 2544}# + #{s 2545}# + #{mod 2546}#) + #{r* 2683}# + #{w* 2684}# + #{mod 2546}#))) + #{tmp 2725}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{body 2681}#))))))))))))) (begin - (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 2727}# - '((any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 2729}# - (@apply - (lambda (#{args 2736}# - #{e1 2737}# - #{e2 2738}# - #{args* 2739}# - #{e1* 2740}# - #{e2* 2741}#) - (call-with-values - (lambda () (#{get-formals 2543}# #{args 2736}#)) - (lambda (#{req 2742}# - #{opt 2743}# - #{rest 2744}# - #{kw 2745}#) - (call-with-values - (lambda () - (#{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 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 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 2727}#)))))))))) - (#{strip 458}# - (lambda (#{x 2775}# #{w 2776}#) - (if (memq 'top (car #{w 2776}#)) - #{x 2775}# + (begin + (let ((#{tmp 2732}# + ($sc-dispatch #{clauses 2548}# '()))) + (if #{tmp 2732}# + (@apply (lambda () (values '() #f)) #{tmp 2732}#) + (begin + (let ((#{tmp 2733}# + ($sc-dispatch + #{clauses 2548}# + '((any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 2733}# + (@apply + (lambda (#{args 2740}# + #{e1 2741}# + #{e2 2742}# + #{args* 2743}# + #{e1* 2744}# + #{e2* 2745}#) + (call-with-values + (lambda () (#{get-formals 2547}# #{args 2740}#)) + (lambda (#{req 2746}# + #{opt 2747}# + #{rest 2748}# + #{kw 2749}#) + (call-with-values + (lambda () + (begin + (let ((#{body 4787}# + (cons #{e1 2741}# #{e2 2742}#))) + (begin + (let ((#{vars 4788}# + (map #{gen-var 464}# + #{req 2746}#)) + (#{labels 4789}# + (#{gen-labels 368}# + #{req 2746}#))) + (begin + (let ((#{r* 4790}# + (#{extend-var-env 338}# + #{labels 4789}# + #{vars 4788}# + #{r 2543}#)) + (#{w* 4791}# + (#{make-binding-wrap 400}# + #{req 2746}# + #{labels 4789}# + #{w 2544}#))) + (#{expand-opt 2559}# + (map syntax->datum + #{req 2746}#) + #{opt 2747}# + #{rest 2748}# + #{kw 2749}# + #{body 4787}# + (reverse #{vars 4788}#) + #{r* 4790}# + #{w* 4791}# + '() + '())))))))) + (lambda (#{meta 2755}# + #{req 2756}# + #{opt 2757}# + #{rest 2758}# + #{kw 2759}# + #{inits 2760}# + #{vars 2761}# + #{body 2762}#) + (call-with-values + (lambda () + (#{chi-lambda-case 460}# + #{e 2542}# + #{r 2543}# + #{w 2544}# + #{s 2545}# + #{mod 2546}# + #{get-formals 2547}# + (map (lambda (#{tmp 2773}# + #{tmp 2772}# + #{tmp 2771}#) + (cons #{tmp 2771}# + (cons #{tmp 2772}# + #{tmp 2773}#))) + #{e2* 2745}# + #{e1* 2744}# + #{args* 2743}#))) + (lambda (#{meta* 2775}# #{else* 2776}#) + (values + (append #{meta 2755}# #{meta* 2775}#) + (#{build-lambda-case 292}# + #{s 2545}# + #{req 2756}# + #{opt 2757}# + #{rest 2758}# + #{kw 2759}# + #{inits 2760}# + #{vars 2761}# + #{body 2762}# + #{else* 2776}#))))))))) + #{tmp 2733}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{clauses 2548}#))))))))))) + (#{strip 462}# + (lambda (#{x 2779}# #{w 2780}#) + (if (memq 'top (car #{w 2780}#)) + #{x 2779}# (letrec* - ((#{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}#) + ((#{f 2787}# + (lambda (#{x 2788}#) + (if (#{syntax-object? 311}# #{x 2788}#) + (#{strip 462}# + (#{syntax-object-expression 313}# #{x 2788}#) + (#{syntax-object-wrap 315}# #{x 2788}#)) + (if (pair? #{x 2788}#) (begin - (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}#)) + (let ((#{a 2795}# (#{f 2787}# (car #{x 2788}#))) + (#{d 2796}# (#{f 2787}# (cdr #{x 2788}#)))) + (if (if (eq? #{a 2795}# (car #{x 2788}#)) + (eq? #{d 2796}# (cdr #{x 2788}#)) #f) - #{x 2784}# - (cons #{a 2791}# #{d 2792}#)))) - (if (vector? #{x 2784}#) + #{x 2788}# + (cons #{a 2795}# #{d 2796}#)))) + (if (vector? #{x 2788}#) (begin - (let ((#{old 2798}# (vector->list #{x 2784}#))) + (let ((#{old 2802}# (vector->list #{x 2788}#))) (begin - (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#))) + (let ((#{new 2804}# (map #{f 2787}# #{old 2802}#))) (letrec* - ((#{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}#)))))) + ((#{lp 2808}# + (lambda (#{l1 2809}# #{l2 2810}#) + (if (null? #{l1 2809}#) + #{x 2788}# + (if (eq? (car #{l1 2809}#) + (car #{l2 2810}#)) + (#{lp 2808}# + (cdr #{l1 2809}#) + (cdr #{l2 2810}#)) + (list->vector #{new 2804}#)))))) (begin - (#{lp 2804}# #{old 2798}# #{new 2800}#))))))) - #{x 2784}#)))))) - (begin (#{f 2783}# #{x 2775}#)))))) - (#{gen-var 460}# - (lambda (#{id 2808}#) + (#{lp 2808}# #{old 2802}# #{new 2804}#))))))) + #{x 2788}#)))))) + (begin (#{f 2787}# #{x 2779}#)))))) + (#{gen-var 464}# + (lambda (#{id 2812}#) (begin - (let ((#{id 2811}# - (if (#{syntax-object? 307}# #{id 2808}#) - (#{syntax-object-expression 309}# #{id 2808}#) - #{id 2808}#))) + (let ((#{id 2815}# + (if (#{syntax-object? 311}# #{id 2812}#) + (#{syntax-object-expression 313}# #{id 2812}#) + #{id 2812}#))) (gensym - (string-append (symbol->string #{id 2811}#) " ")))))) - (#{lambda-var-list 462}# - (lambda (#{vars 2813}#) + (string-append (symbol->string #{id 2815}#) " ")))))) + (#{lambda-var-list 466}# + (lambda (#{vars 2817}#) (letrec* - ((#{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}# '() '(()))))))) + ((#{lvl 2823}# + (lambda (#{vars 2824}# #{ls 2825}# #{w 2826}#) + (if (pair? #{vars 2824}#) + (#{lvl 2823}# + (cdr #{vars 2824}#) + (cons (#{wrap 422}# (car #{vars 2824}#) #{w 2826}# #f) + #{ls 2825}#) + #{w 2826}#) + (if (#{id? 348}# #{vars 2824}#) + (cons (#{wrap 422}# #{vars 2824}# #{w 2826}# #f) + #{ls 2825}#) + (if (null? #{vars 2824}#) + #{ls 2825}# + (if (#{syntax-object? 311}# #{vars 2824}#) + (#{lvl 2823}# + (#{syntax-object-expression 313}# #{vars 2824}#) + #{ls 2825}# + (#{join-wraps 404}# + #{w 2826}# + (#{syntax-object-wrap 315}# #{vars 2824}#))) + (cons #{vars 2824}# #{ls 2825}#)))))))) + (begin (#{lvl 2823}# #{vars 2817}# '() '(()))))))) (begin - (lambda (#{src 780}# #{name 781}#) - (make-struct/no-tail - (vector-ref %expanded-vtables 2) - #{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 340}# - 'local-syntax + (module-define! + (current-module) 'letrec-syntax - #t) - (#{global-extend 340}# - 'local-syntax + (make-syntax-transformer + 'letrec-syntax + 'local-syntax + #t)) + (module-define! + (current-module) 'let-syntax - #f) - (#{global-extend 340}# + (make-syntax-transformer + 'let-syntax + 'local-syntax + #f)) + (#{global-extend 344}# 'core 'fluid-let-syntax - (lambda (#{e 2833}# - #{r 2834}# - #{w 2835}# - #{s 2836}# - #{mod 2837}#) - (let ((#{tmp 2843}# #{e 2833}#)) - (let ((#{tmp 2844}# + (lambda (#{e 2837}# + #{r 2838}# + #{w 2839}# + #{s 2840}# + #{mod 2841}#) + (begin + (let ((#{tmp 2848}# ($sc-dispatch - #{tmp 2843}# + #{e 2837}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 2844}# + (if (if #{tmp 2848}# (@apply - (lambda (#{var 2849}# - #{val 2850}# - #{e1 2851}# - #{e2 2852}#) - (#{valid-bound-ids? 412}# #{var 2849}#)) - #{tmp 2844}#) + (lambda (#{var 2853}# + #{val 2854}# + #{e1 2855}# + #{e2 2856}#) + (#{valid-bound-ids? 416}# #{var 2853}#)) + #{tmp 2848}#) #f) (@apply - (lambda (#{var 2858}# - #{val 2859}# - #{e1 2860}# - #{e2 2861}#) + (lambda (#{var 2862}# + #{val 2863}# + #{e1 2864}# + #{e2 2865}#) (begin - (let ((#{names 2863}# - (map (lambda (#{x 2864}#) - (#{id-var-name 406}# - #{x 2864}# - #{w 2835}#)) - #{var 2858}#))) + (let ((#{names 2867}# + (map (lambda (#{x 2868}#) + (#{id-var-name 410}# + #{x 2868}# + #{w 2839}#)) + #{var 2862}#))) (begin (for-each - (lambda (#{id 2867}# #{n 2868}#) + (lambda (#{id 2871}# #{n 2872}#) (begin - (let ((#{atom-key 2873}# - (car (#{lookup 338}# - #{n 2868}# - #{r 2834}# - #{mod 2837}#)))) - (if (eqv? #{atom-key 2873}# + (let ((#{atom-key 2877}# + (car (begin + (let ((#{t 5035}# + (assq #{n 2872}# + #{r 2838}#))) + (if #{t 5035}# + (cdr #{t 5035}#) + (if (symbol? #{n 2872}#) + (begin + (let ((#{t 5036}# + (#{get-global-definition-hook 262}# + #{n 2872}# + #{mod 2841}#))) + (if #{t 5036}# + #{t 5036}# + '(global)))) + '(displaced-lexical)))))))) + (if (eqv? #{atom-key 2877}# 'displaced-lexical) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{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}# + #{e 2837}# + (#{wrap 422}# + (begin + (if (if (pair? #{id 2871}#) + #{s 2840}# + #f) + (set-source-properties! + #{id 2871}# + #{s 2840}#)) + #{id 2871}#) + #{w 2839}# + #{mod 2841}#)))))) + #{var 2862}# + #{names 2867}#) + (#{chi-body 444}# + (cons #{e1 2864}# #{e2 2865}#) + (#{wrap 422}# + (begin + (if (if (pair? #{e 2837}#) #{s 2840}# #f) + (set-source-properties! + #{e 2837}# + #{s 2840}#)) + #{e 2837}#) + #{w 2839}# + #{mod 2841}#) + (#{extend-env 336}# + #{names 2867}# (begin - (let ((#{trans-r 2879}# - (#{macros-only-env 336}# #{r 2834}#))) - (map (lambda (#{x 2880}#) + (let ((#{trans-r 2883}# + (#{macros-only-env 340}# #{r 2838}#))) + (map (lambda (#{x 2884}#) (cons 'macro - (#{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 420}# - #{e 2833}# - #{w 2835}# - #{s 2836}# - #{mod 2837}#)))))))) - (#{global-extend 340}# - 'core + (#{eval-local-transformer 448}# + (#{chi 436}# + #{x 2884}# + #{trans-r 2883}# + #{w 2839}# + #{mod 2841}#) + #{mod 2841}#))) + #{val 2863}#))) + #{r 2838}#) + #{w 2839}# + #{mod 2841}#))))) + #{tmp 2848}#) + (syntax-violation + 'fluid-let-syntax + "bad syntax" + (#{wrap 422}# + (begin + (if (if (pair? #{e 2837}#) #{s 2840}# #f) + (set-source-properties! #{e 2837}# #{s 2840}#)) + #{e 2837}#) + #{w 2839}# + #{mod 2841}#))))))) + (module-define! + (current-module) 'quote - (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 2899}#) - (#{build-data 292}# - #{s 2889}# - (#{strip 458}# #{e 2899}# #{w 2888}#))) - #{tmp 2897}#) - (let ((#{_ 2901}# #{tmp 2896}#)) + (make-syntax-transformer + 'quote + 'core + (lambda (#{e 2890}# + #{r 2891}# + #{w 2892}# + #{s 2893}# + #{mod 2894}#) + (begin + (let ((#{tmp 2901}# ($sc-dispatch #{e 2890}# '(_ any)))) + (if #{tmp 2901}# + (@apply + (lambda (#{e 2903}#) + (begin + (let ((#{exp 5265}# + (#{strip 462}# #{e 2903}# #{w 2892}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #{s 2893}# + #{exp 5265}#)))) + #{tmp 2901}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap 420}# - #{e 2886}# - #{w 2888}# - #{s 2889}# - #{mod 2890}#)))))))) - (#{global-extend 340}# + (#{wrap 422}# + (begin + (if (if (pair? #{e 2890}#) #{s 2893}# #f) + (set-source-properties! #{e 2890}# #{s 2893}#)) + #{e 2890}#) + #{w 2892}# + #{mod 2894}#)))))))) + (#{global-extend 344}# 'core 'syntax (letrec* - ((#{gen-syntax 2903}# - (lambda (#{src 2918}# - #{e 2919}# - #{r 2920}# - #{maps 2921}# - #{ellipsis? 2922}# - #{mod 2923}#) - (if (#{id? 344}# #{e 2919}#) + ((#{gen-syntax 2907}# + (lambda (#{src 2922}# + #{e 2923}# + #{r 2924}# + #{maps 2925}# + #{ellipsis? 2926}# + #{mod 2927}#) + (if (if (symbol? #{e 2923}#) + #t + (if (if (vector? #{e 2923}#) + (if (= (vector-length #{e 2923}#) 4) + (eq? (vector-ref #{e 2923}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 2923}# 1)) + #f)) (begin - (let ((#{label 2931}# - (#{id-var-name 406}# #{e 2919}# '(())))) + (let ((#{label 2935}# + (#{id-var-name 410}# #{e 2923}# '(())))) (begin - (let ((#{b 2934}# - (#{lookup 338}# - #{label 2931}# - #{r 2920}# - #{mod 2923}#))) - (if (eq? (car #{b 2934}#) 'syntax) + (let ((#{b 2938}# + (begin + (let ((#{t 5328}# + (assq #{label 2935}# #{r 2924}#))) + (if #{t 5328}# + (cdr #{t 5328}#) + (if (symbol? #{label 2935}#) + (begin + (let ((#{t 5329}# + (#{get-global-definition-hook 262}# + #{label 2935}# + #{mod 2927}#))) + (if #{t 5329}# + #{t 5329}# + '(global)))) + '(displaced-lexical))))))) + (if (eq? (car #{b 2938}#) 'syntax) (call-with-values (lambda () (begin - (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}#) + (let ((#{var.lev 2941}# (cdr #{b 2938}#))) + (#{gen-ref 2909}# + #{src 2922}# + (car #{var.lev 2941}#) + (cdr #{var.lev 2941}#) + #{maps 2925}#)))) + (lambda (#{var 2943}# #{maps 2944}#) (values - (list 'ref #{var 2939}#) - #{maps 2940}#))) - (if (#{ellipsis? 2922}# #{e 2919}#) + (list 'ref #{var 2943}#) + #{maps 2944}#))) + (if (#{ellipsis? 2926}# #{e 2923}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src 2918}#) + #{src 2922}#) (values - (list 'quote #{e 2919}#) - #{maps 2921}#))))))) - (let ((#{tmp 2945}# #{e 2919}#)) - (let ((#{tmp 2946}# - ($sc-dispatch #{tmp 2945}# '(any any)))) - (if (if #{tmp 2946}# + (list 'quote #{e 2923}#) + #{maps 2925}#))))))) + (begin + (let ((#{tmp 2950}# + ($sc-dispatch #{e 2923}# '(any any)))) + (if (if #{tmp 2950}# (@apply - (lambda (#{dots 2949}# #{e 2950}#) - (#{ellipsis? 2922}# #{dots 2949}#)) - #{tmp 2946}#) + (lambda (#{dots 2953}# #{e 2954}#) + (#{ellipsis? 2926}# #{dots 2953}#)) + #{tmp 2950}#) #f) (@apply - (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 2961}# #{dots 2962}# #{y 2963}#) - (#{ellipsis? 2922}# #{dots 2962}#)) - #{tmp 2957}#) - #f) - (@apply - (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#) - (letrec* - ((#{f 2973}# - (lambda (#{y 2974}# #{k 2975}#) - (let ((#{tmp 2982}# #{y 2974}#)) - (let ((#{tmp 2983}# - ($sc-dispatch - #{tmp 2982}# - '(any . any)))) - (if (if #{tmp 2983}# - (@apply - (lambda (#{dots 2986}# - #{y 2987}#) - (#{ellipsis? 2922}# - #{dots 2986}#)) - #{tmp 2983}#) - #f) - (@apply - (lambda (#{dots 2990}# - #{y 2991}#) - (#{f 2973}# - #{y 2991}# - (lambda (#{maps 2992}#) - (call-with-values - (lambda () - (#{k 2975}# - (cons '() - #{maps 2992}#))) - (lambda (#{x 2994}# - #{maps 2995}#) - (if (null? (car #{maps 2995}#)) - (syntax-violation - 'syntax - "extra ellipsis" - #{src 2918}#) - (values - (#{gen-mappend 2907}# - #{x 2994}# - (car #{maps 2995}#)) - (cdr #{maps 2995}#)))))))) - #{tmp 2983}#) - (let ((#{_ 2999}# #{tmp 2982}#)) + (lambda (#{dots 2957}# #{e 2958}#) + (#{gen-syntax 2907}# + #{src 2922}# + #{e 2958}# + #{r 2924}# + #{maps 2925}# + (lambda (#{x 2959}#) #f) + #{mod 2927}#)) + #{tmp 2950}#) + (begin + (let ((#{tmp 2961}# + ($sc-dispatch #{e 2923}# '(any any . any)))) + (if (if #{tmp 2961}# + (@apply + (lambda (#{x 2965}# + #{dots 2966}# + #{y 2967}#) + (#{ellipsis? 2926}# #{dots 2966}#)) + #{tmp 2961}#) + #f) + (@apply + (lambda (#{x 2971}# #{dots 2972}# #{y 2973}#) + (letrec* + ((#{f 2977}# + (lambda (#{y 2978}# #{k 2979}#) + (begin + (let ((#{tmp 2987}# + ($sc-dispatch + #{y 2978}# + '(any . any)))) + (if (if #{tmp 2987}# + (@apply + (lambda (#{dots 2990}# + #{y 2991}#) + (#{ellipsis? 2926}# + #{dots 2990}#)) + #{tmp 2987}#) + #f) + (@apply + (lambda (#{dots 2994}# + #{y 2995}#) + (#{f 2977}# + #{y 2995}# + (lambda (#{maps 2996}#) + (call-with-values + (lambda () + (#{k 2979}# + (cons '() + #{maps 2996}#))) + (lambda (#{x 2998}# + #{maps 2999}#) + (if (null? (car #{maps 2999}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 2922}#) + (values + (#{gen-mappend 2911}# + #{x 2998}# + (car #{maps 2999}#)) + (cdr #{maps 2999}#)))))))) + #{tmp 2987}#) (call-with-values (lambda () - (#{gen-syntax 2903}# - #{src 2918}# - #{y 2974}# - #{r 2920}# - #{maps 2921}# - #{ellipsis? 2922}# - #{mod 2923}#)) - (lambda (#{y 3000}# - #{maps 3001}#) + (#{gen-syntax 2907}# + #{src 2922}# + #{y 2978}# + #{r 2924}# + #{maps 2925}# + #{ellipsis? 2926}# + #{mod 2927}#)) + (lambda (#{y 3004}# + #{maps 3005}#) (call-with-values (lambda () - (#{k 2975}# - #{maps 3001}#)) - (lambda (#{x 3004}# - #{maps 3005}#) + (#{k 2979}# + #{maps 3005}#)) + (lambda (#{x 3008}# + #{maps 3009}#) (values - (#{gen-append 2913}# - #{x 3004}# - #{y 3000}#) - #{maps 3005}#)))))))))))) - (begin - (#{f 2973}# - #{y 2969}# - (lambda (#{maps 2976}#) - (call-with-values - (lambda () - (#{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 2918}#) - (values - (#{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 3011}# #{y 3012}#) - (call-with-values - (lambda () - (#{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 2903}# - #{src 2918}# - #{y 3012}# - #{r 2920}# - #{maps 3014}# - #{ellipsis? 2922}# - #{mod 2923}#)) - (lambda (#{y 3017}# #{maps 3018}#) - (values - (#{gen-cons 2911}# - #{x 3013}# - #{y 3017}#) - #{maps 3018}#)))))) - #{tmp 3008}#) - (let ((#{tmp 3021}# - ($sc-dispatch - #{tmp 2945}# - '#(vector (any . each-any))))) - (if #{tmp 3021}# + (#{gen-append 2917}# + #{x 3008}# + #{y 3004}#) + #{maps 3009}#))))))))))) + (begin + (#{f 2977}# + #{y 2973}# + (lambda (#{maps 2980}#) + (call-with-values + (lambda () + (#{gen-syntax 2907}# + #{src 2922}# + #{x 2971}# + #{r 2924}# + (cons '() #{maps 2980}#) + #{ellipsis? 2926}# + #{mod 2927}#)) + (lambda (#{x 2982}# #{maps 2983}#) + (if (null? (car #{maps 2983}#)) + (syntax-violation + 'syntax + "extra ellipsis" + #{src 2922}#) + (values + (#{gen-map 2913}# + #{x 2982}# + (car #{maps 2983}#)) + (cdr #{maps 2983}#)))))))))) + #{tmp 2961}#) + (begin + (let ((#{tmp 3012}# + ($sc-dispatch #{e 2923}# '(any . any)))) + (if #{tmp 3012}# (@apply - (lambda (#{e1 3024}# #{e2 3025}#) + (lambda (#{x 3015}# #{y 3016}#) (call-with-values (lambda () - (#{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 2915}# #{e 3027}#) - #{maps 3028}#)))) - #{tmp 3021}#) - (let ((#{_ 3032}# #{tmp 2945}#)) - (values - (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}#) + (#{gen-syntax 2907}# + #{src 2922}# + #{x 3015}# + #{r 2924}# + #{maps 2925}# + #{ellipsis? 2926}# + #{mod 2927}#)) + (lambda (#{x 3017}# #{maps 3018}#) + (call-with-values + (lambda () + (#{gen-syntax 2907}# + #{src 2922}# + #{y 3016}# + #{r 2924}# + #{maps 3018}# + #{ellipsis? 2926}# + #{mod 2927}#)) + (lambda (#{y 3021}# #{maps 3022}#) + (values + (#{gen-cons 2915}# + #{x 3017}# + #{y 3021}#) + #{maps 3022}#)))))) + #{tmp 3012}#) + (begin + (let ((#{tmp 3025}# + ($sc-dispatch + #{e 2923}# + '#(vector (any . each-any))))) + (if #{tmp 3025}# + (@apply + (lambda (#{e1 3028}# #{e2 3029}#) + (call-with-values + (lambda () + (#{gen-syntax 2907}# + #{src 2922}# + (cons #{e1 3028}# + #{e2 3029}#) + #{r 2924}# + #{maps 2925}# + #{ellipsis? 2926}# + #{mod 2927}#)) + (lambda (#{e 3031}# + #{maps 3032}#) + (values + (#{gen-vector 2919}# + #{e 3031}#) + #{maps 3032}#)))) + #{tmp 3025}#) + (values + (list 'quote #{e 2923}#) + #{maps 2925}#)))))))))))))))) + (#{gen-ref 2909}# + (lambda (#{src 3038}# + #{var 3039}# + #{level 3040}# + #{maps 3041}#) + (if (= #{level 3040}# 0) + (values #{var 3039}# #{maps 3041}#) + (if (null? #{maps 3041}#) (syntax-violation 'syntax "missing ellipsis" - #{src 3034}#) + #{src 3038}#) (call-with-values (lambda () - (#{gen-ref 2905}# - #{src 3034}# - #{var 3035}# - (#{1-}# #{level 3036}#) - (cdr #{maps 3037}#))) - (lambda (#{outer-var 3044}# #{outer-maps 3045}#) + (#{gen-ref 2909}# + #{src 3038}# + #{var 3039}# + (#{1-}# #{level 3040}#) + (cdr #{maps 3041}#))) + (lambda (#{outer-var 3048}# #{outer-maps 3049}#) (begin - (let ((#{b 3049}# - (assq #{outer-var 3044}# - (car #{maps 3037}#)))) - (if #{b 3049}# - (values (cdr #{b 3049}#) #{maps 3037}#) + (let ((#{b 3053}# + (assq #{outer-var 3048}# + (car #{maps 3041}#)))) + (if #{b 3053}# + (values (cdr #{b 3053}#) #{maps 3041}#) (begin - (let ((#{inner-var 3051}# - (#{gen-var 460}# 'tmp))) + (let ((#{inner-var 3055}# + (gensym + (string-append + (symbol->string 'tmp) + " ")))) (values - #{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}#) + #{inner-var 3055}# + (cons (cons (cons #{outer-var 3048}# + #{inner-var 3055}#) + (car #{maps 3041}#)) + #{outer-maps 3049}#))))))))))))) + (#{gen-mappend 2911}# + (lambda (#{e 3056}# #{map-env 3057}#) (list 'apply '(primitive append) - (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#)))) - (#{gen-map 2909}# - (lambda (#{e 3057}# #{map-env 3058}#) + (#{gen-map 2913}# #{e 3056}# #{map-env 3057}#)))) + (#{gen-map 2913}# + (lambda (#{e 3061}# #{map-env 3062}#) (begin - (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}#) + (let ((#{formals 3067}# (map cdr #{map-env 3062}#)) + (#{actuals 3068}# + (map (lambda (#{x 3069}#) + (list 'ref (car #{x 3069}#))) + #{map-env 3062}#))) + (if (eq? (car #{e 3061}#) 'ref) + (car #{actuals 3068}#) (if (and-map - (lambda (#{x 3072}#) - (if (eq? (car #{x 3072}#) 'ref) - (memq (car (cdr #{x 3072}#)) #{formals 3063}#) + (lambda (#{x 3076}#) + (if (eq? (car #{x 3076}#) 'ref) + (memq (car (cdr #{x 3076}#)) #{formals 3067}#) #f)) - (cdr #{e 3057}#)) + (cdr #{e 3061}#)) (cons 'map - (cons (list 'primitive (car #{e 3057}#)) + (cons (list 'primitive (car #{e 3061}#)) (map (begin - (let ((#{r 3078}# + (let ((#{r 3082}# (map cons - #{formals 3063}# - #{actuals 3064}#))) - (lambda (#{x 3079}#) - (cdr (assq (car (cdr #{x 3079}#)) - #{r 3078}#))))) - (cdr #{e 3057}#)))) + #{formals 3067}# + #{actuals 3068}#))) + (lambda (#{x 3083}#) + (cdr (assq (car (cdr #{x 3083}#)) + #{r 3082}#))))) + (cdr #{e 3061}#)))) (cons 'map - (cons (list 'lambda #{formals 3063}# #{e 3057}#) - #{actuals 3064}#)))))))) - (#{gen-cons 2911}# - (lambda (#{x 3083}# #{y 3084}#) + (cons (list 'lambda #{formals 3067}# #{e 3061}#) + #{actuals 3068}#)))))))) + (#{gen-cons 2915}# + (lambda (#{x 3087}# #{y 3088}#) (begin - (let ((#{atom-key 3089}# (car #{y 3084}#))) - (if (eqv? #{atom-key 3089}# 'quote) - (if (eq? (car #{x 3083}#) 'quote) + (let ((#{atom-key 3093}# (car #{y 3088}#))) + (if (eqv? #{atom-key 3093}# 'quote) + (if (eq? (car #{x 3087}#) 'quote) (list '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) + (cons (car (cdr #{x 3087}#)) + (car (cdr #{y 3088}#)))) + (if (eq? (car (cdr #{y 3088}#)) '()) + (list 'list #{x 3087}#) + (list 'cons #{x 3087}# #{y 3088}#))) + (if (eqv? #{atom-key 3093}# 'list) + (cons 'list (cons #{x 3087}# (cdr #{y 3088}#))) + (list 'cons #{x 3087}# #{y 3088}#))))))) + (#{gen-append 2917}# + (lambda (#{x 3102}# #{y 3103}#) + (if (equal? #{y 3103}# ''()) + #{x 3102}# + (list 'append #{x 3102}# #{y 3103}#)))) + (#{gen-vector 2919}# + (lambda (#{x 3107}#) + (if (eq? (car #{x 3107}#) 'list) + (cons 'vector (cdr #{x 3107}#)) + (if (eq? (car #{x 3107}#) 'quote) (list 'quote - (list->vector (car (cdr #{x 3103}#)))) - (list 'list->vector #{x 3103}#))))) - (#{regen 2917}# - (lambda (#{x 3113}#) + (list->vector (car (cdr #{x 3107}#)))) + (list 'list->vector #{x 3107}#))))) + (#{regen 2921}# + (lambda (#{x 3117}#) (begin - (let ((#{atom-key 3117}# (car #{x 3113}#))) - (if (eqv? #{atom-key 3117}# 'ref) - (#{build-lexical-reference 272}# - 'value - #f - (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}# + (let ((#{atom-key 3121}# (car #{x 3117}#))) + (if (eqv? #{atom-key 3121}# 'ref) + (begin + (let ((#{name 5344}# (car (cdr #{x 3117}#))) + (#{var 5345}# (car (cdr #{x 3117}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 3) + #f + #{name 5344}# + #{var 5345}#))) + (if (eqv? #{atom-key 3121}# 'primitive) + (begin + (let ((#{name 5354}# (car (cdr #{x 3117}#)))) + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5354}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) #f - (car (cdr #{x 3113}#)) + '(guile) + #{name 5354}# + #f)))) + (if (eqv? #{atom-key 3121}# 'quote) + (begin + (let ((#{exp 5368}# (car (cdr #{x 3117}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) #f - (car (cdr #{x 3113}#)) - '() - (#{regen 2917}# (car (cdr (cdr #{x 3113}#))))) - (error "how did we get here" #{x 3113}#)) - (#{build-application 266}# - #f - (#{build-primref 290}# #f (car #{x 3113}#)) - (map #{regen 2917}# (cdr #{x 3113}#)))))))))))) + #{exp 5368}#))) + (if (eqv? #{atom-key 3121}# 'lambda) + (if (list? (car (cdr #{x 3117}#))) + (begin + (let ((#{req 5376}# (car (cdr #{x 3117}#))) + (#{vars 5378}# (car (cdr #{x 3117}#))) + (#{exp 5380}# + (#{regen 2921}# + (car (cdr (cdr #{x 3117}#)))))) + (begin + (let ((#{body 5385}# + (make-struct/no-tail + (vector-ref %expanded-vtables 14) + #f + #{req 5376}# + #f + #f + #f + '() + #{vars 5378}# + #{exp 5380}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 5385}#))))) + (error "how did we get here" #{x 3117}#)) + (begin + (let ((#{fun-exp 5400}# + (begin + (let ((#{name 5405}# (car #{x 3117}#))) + (if (equal? + (module-name (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + #{name 5405}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + #{name 5405}# + #f))))) + (#{arg-exps 5401}# + (map #{regen 2921}# (cdr #{x 3117}#)))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 5400}# + #{arg-exps 5401}#)))))))))))) (begin - (lambda (#{e 3129}# - #{r 3130}# - #{w 3131}# - #{s 3132}# - #{mod 3133}#) + (lambda (#{e 3133}# + #{r 3134}# + #{w 3135}# + #{s 3136}# + #{mod 3137}#) (begin - (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}# + (let ((#{e 3144}# + (#{wrap 422}# + (begin + (if (if (pair? #{e 3133}#) #{s 3136}# #f) + (set-source-properties! #{e 3133}# #{s 3136}#)) + #{e 3133}#) + #{w 3135}# + #{mod 3137}#))) + (begin + (let ((#{tmp 3146}# ($sc-dispatch #{e 3144}# '(_ any)))) + (if #{tmp 3146}# (@apply - (lambda (#{x 3144}#) + (lambda (#{x 3148}#) (call-with-values (lambda () - (#{gen-syntax 2903}# - #{e 3140}# - #{x 3144}# - #{r 3130}# + (#{gen-syntax 2907}# + #{e 3144}# + #{x 3148}# + #{r 3134}# '() - #{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 3140}#))))))))))) - (#{global-extend 340}# + #{ellipsis? 452}# + #{mod 3137}#)) + (lambda (#{e 3149}# #{maps 3150}#) + (#{regen 2921}# #{e 3149}#)))) + #{tmp 3146}#) + (syntax-violation + 'syntax + "bad `syntax' form" + #{e 3144}#)))))))))) + (#{global-extend 344}# 'core 'lambda - (lambda (#{e 3151}# - #{r 3152}# - #{w 3153}# - #{s 3154}# - #{mod 3155}#) - (let ((#{tmp 3161}# #{e 3151}#)) - (let ((#{tmp 3162}# - ($sc-dispatch - #{tmp 3161}# - '(_ any any . each-any)))) - (if #{tmp 3162}# + (lambda (#{e 3155}# + #{r 3156}# + #{w 3157}# + #{s 3158}# + #{mod 3159}#) + (begin + (let ((#{tmp 3166}# + ($sc-dispatch #{e 3155}# '(_ any any . each-any)))) + (if #{tmp 3166}# (@apply - (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#) + (lambda (#{args 3170}# #{e1 3171}# #{e2 3172}#) (call-with-values (lambda () - (#{lambda-formals 450}# #{args 3166}#)) - (lambda (#{req 3169}# - #{opt 3170}# - #{rest 3171}# - #{kw 3172}#) + (#{lambda-formals 454}# #{args 3170}#)) + (lambda (#{req 3173}# + #{opt 3174}# + #{rest 3175}# + #{kw 3176}#) (letrec* - ((#{lp 3180}# - (lambda (#{body 3181}# #{meta 3182}#) - (let ((#{tmp 3184}# #{body 3181}#)) - (let ((#{tmp 3185}# + ((#{lp 3184}# + (lambda (#{body 3185}# #{meta 3186}#) + (begin + (let ((#{tmp 3189}# ($sc-dispatch - #{tmp 3184}# + #{body 3185}# '(any any . each-any)))) - (if (if #{tmp 3185}# + (if (if #{tmp 3189}# (@apply - (lambda (#{docstring 3189}# - #{e1 3190}# - #{e2 3191}#) + (lambda (#{docstring 3193}# + #{e1 3194}# + #{e2 3195}#) (string? (syntax->datum - #{docstring 3189}#))) - #{tmp 3185}#) + #{docstring 3193}#))) + #{tmp 3189}#) #f) (@apply - (lambda (#{docstring 3195}# - #{e1 3196}# - #{e2 3197}#) - (#{lp 3180}# - (cons #{e1 3196}# #{e2 3197}#) + (lambda (#{docstring 3199}# + #{e1 3200}# + #{e2 3201}#) + (#{lp 3184}# + (cons #{e1 3200}# #{e2 3201}#) (append - #{meta 3182}# + #{meta 3186}# (list (cons 'documentation (syntax->datum - #{docstring 3195}#)))))) - #{tmp 3185}#) - (let ((#{tmp 3200}# - ($sc-dispatch - #{tmp 3184}# - '(#(vector #(each (any . any))) - any - . - each-any)))) - (if #{tmp 3200}# - (@apply - (lambda (#{k 3205}# - #{v 3206}# - #{e1 3207}# - #{e2 3208}#) - (#{lp 3180}# - (cons #{e1 3207}# #{e2 3208}#) - (append - #{meta 3182}# - (syntax->datum - (map cons - #{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}#)))))))))) + #{docstring 3199}#)))))) + #{tmp 3189}#) + (begin + (let ((#{tmp 3204}# + ($sc-dispatch + #{body 3185}# + '(#(vector + #(each (any . any))) + any + . + each-any)))) + (if #{tmp 3204}# + (@apply + (lambda (#{k 3209}# + #{v 3210}# + #{e1 3211}# + #{e2 3212}#) + (#{lp 3184}# + (cons #{e1 3211}# #{e2 3212}#) + (append + #{meta 3186}# + (syntax->datum + (map cons + #{k 3209}# + #{v 3210}#))))) + #{tmp 3204}#) + (let ((#{e 2266}# #{e 3155}#) + (#{r 2267}# #{r 3156}#) + (#{w 2268}# #{w 3157}#) + (#{s 2269}# #{s 3158}#) + (#{mod 2270}# #{mod 3159}#) + (#{req 2271}# #{req 3173}#) + (#{rest 2272}# #{rest 3175}#) + (#{meta 2273}# #{meta 3186}#) + (#{body 2274}# #{body 3185}#)) + (begin + (let ((#{ids 2286}# + (if #{rest 2272}# + (append + #{req 2271}# + (list #{rest 2272}#)) + #{req 2271}#))) + (begin + (let ((#{vars 2288}# + (map #{gen-var 464}# + #{ids 2286}#))) + (begin + (let ((#{labels 2290}# + (#{gen-labels 368}# + #{ids 2286}#))) + (#{build-simple-lambda 288}# + #{s 2269}# + (map syntax->datum + #{req 2271}#) + (if #{rest 2272}# + (syntax->datum + #{rest 2272}#) + #f) + #{vars 2288}# + #{meta 2273}# + (#{chi-body 444}# + #{body 2274}# + (#{source-wrap 424}# + #{e 2266}# + #{w 2268}# + #{s 2269}# + #{mod 2270}#) + (#{extend-var-env 338}# + #{labels 2290}# + #{vars 2288}# + #{r 2267}#) + (#{make-binding-wrap 400}# + #{ids 2286}# + #{labels 2290}# + #{w 2268}#) + #{mod 2270}#)))))))))))))))))) (begin - (#{lp 3180}# - (cons #{e1 3167}# #{e2 3168}#) + (#{lp 3184}# + (cons #{e1 3171}# #{e2 3172}#) '())))))) - #{tmp 3162}#) - (let ((#{_ 3215}# #{tmp 3161}#)) - (syntax-violation - 'lambda - "bad lambda" - #{e 3151}#))))))) - (#{global-extend 340}# - 'core + #{tmp 3166}#) + (syntax-violation + 'lambda + "bad lambda" + #{e 3155}#)))))) + (module-define! + (current-module) 'lambda* - (lambda (#{e 3216}# - #{r 3217}# - #{w 3218}# - #{s 3219}# - #{mod 3220}#) - (let ((#{tmp 3226}# #{e 3216}#)) - (let ((#{tmp 3227}# - ($sc-dispatch - #{tmp 3226}# - '(_ any any . each-any)))) - (if #{tmp 3227}# - (@apply - (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#) - (call-with-values - (lambda () - (#{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}#)) + (make-syntax-transformer + 'lambda* + 'core + (lambda (#{e 3220}# + #{r 3221}# + #{w 3222}# + #{s 3223}# + #{mod 3224}#) + (begin + (let ((#{tmp 3231}# + ($sc-dispatch #{e 3220}# '(_ any any . each-any)))) + (if #{tmp 3231}# + (@apply + (lambda (#{args 3235}# #{e1 3236}# #{e2 3237}#) + (call-with-values + (lambda () + (#{chi-lambda-case 460}# + #{e 3220}# + #{r 3221}# + #{w 3222}# + #{s 3223}# + #{mod 3224}# + #{lambda*-formals 458}# + (list (cons #{args 3235}# + (cons #{e1 3236}# #{e2 3237}#))))) + (lambda (#{meta 3239}# #{lcase 3240}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3223}# + #{meta 3239}# + #{lcase 3240}#)))) + #{tmp 3231}#) (syntax-violation 'lambda "bad lambda*" - #{e 3216}#))))))) - (#{global-extend 340}# - 'core + #{e 3220}#))))))) + (module-define! + (current-module) 'case-lambda - (lambda (#{e 3241}# - #{r 3242}# - #{w 3243}# - #{s 3244}# - #{mod 3245}#) - (let ((#{tmp 3251}# #{e 3241}#)) - (let ((#{tmp 3252}# - ($sc-dispatch - #{tmp 3251}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3252}# - (@apply - (lambda (#{args 3259}# - #{e1 3260}# - #{e2 3261}# - #{args* 3262}# - #{e1* 3263}# - #{e2* 3264}#) - (call-with-values - (lambda () - (#{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}#)) + (make-syntax-transformer + 'case-lambda + 'core + (lambda (#{e 3245}# + #{r 3246}# + #{w 3247}# + #{s 3248}# + #{mod 3249}#) + (begin + (let ((#{tmp 3256}# + ($sc-dispatch + #{e 3245}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 3256}# + (@apply + (lambda (#{args 3263}# + #{e1 3264}# + #{e2 3265}# + #{args* 3266}# + #{e1* 3267}# + #{e2* 3268}#) + (call-with-values + (lambda () + (#{chi-lambda-case 460}# + #{e 3245}# + #{r 3246}# + #{w 3247}# + #{s 3248}# + #{mod 3249}# + #{lambda-formals 454}# + (cons (cons #{args 3263}# + (cons #{e1 3264}# #{e2 3265}#)) + (map (lambda (#{tmp 3272}# + #{tmp 3271}# + #{tmp 3270}#) + (cons #{tmp 3270}# + (cons #{tmp 3271}# + #{tmp 3272}#))) + #{e2* 3268}# + #{e1* 3267}# + #{args* 3266}#)))) + (lambda (#{meta 3274}# #{lcase 3275}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3248}# + #{meta 3274}# + #{lcase 3275}#)))) + #{tmp 3256}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e 3241}#))))))) - (#{global-extend 340}# - 'core + #{e 3245}#))))))) + (module-define! + (current-module) 'case-lambda* - (lambda (#{e 3276}# - #{r 3277}# - #{w 3278}# - #{s 3279}# - #{mod 3280}#) - (let ((#{tmp 3286}# #{e 3276}#)) - (let ((#{tmp 3287}# - ($sc-dispatch - #{tmp 3286}# - '(_ (any any . each-any) - . - #(each (any any . each-any)))))) - (if #{tmp 3287}# - (@apply - (lambda (#{args 3294}# - #{e1 3295}# - #{e2 3296}# - #{args* 3297}# - #{e1* 3298}# - #{e2* 3299}#) - (call-with-values - (lambda () - (#{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}#)) + (make-syntax-transformer + 'case-lambda* + 'core + (lambda (#{e 3280}# + #{r 3281}# + #{w 3282}# + #{s 3283}# + #{mod 3284}#) + (begin + (let ((#{tmp 3291}# + ($sc-dispatch + #{e 3280}# + '(_ (any any . each-any) + . + #(each (any any . each-any)))))) + (if #{tmp 3291}# + (@apply + (lambda (#{args 3298}# + #{e1 3299}# + #{e2 3300}# + #{args* 3301}# + #{e1* 3302}# + #{e2* 3303}#) + (call-with-values + (lambda () + (#{chi-lambda-case 460}# + #{e 3280}# + #{r 3281}# + #{w 3282}# + #{s 3283}# + #{mod 3284}# + #{lambda*-formals 458}# + (cons (cons #{args 3298}# + (cons #{e1 3299}# #{e2 3300}#)) + (map (lambda (#{tmp 3307}# + #{tmp 3306}# + #{tmp 3305}#) + (cons #{tmp 3305}# + (cons #{tmp 3306}# + #{tmp 3307}#))) + #{e2* 3303}# + #{e1* 3302}# + #{args* 3301}#)))) + (lambda (#{meta 3309}# #{lcase 3310}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #{s 3283}# + #{meta 3309}# + #{lcase 3310}#)))) + #{tmp 3291}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 3276}#))))))) - (#{global-extend 340}# + #{e 3280}#))))))) + (#{global-extend 344}# 'core 'let (letrec* - ((#{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}#)) + ((#{chi-let 3316}# + (lambda (#{e 3317}# + #{r 3318}# + #{w 3319}# + #{s 3320}# + #{mod 3321}# + #{constructor 3322}# + #{ids 3323}# + #{vals 3324}# + #{exps 3325}#) + (if (not (#{valid-bound-ids? 416}# #{ids 3323}#)) (syntax-violation 'let "duplicate bound variable" - #{e 3313}#) + #{e 3317}#) (begin - (let ((#{labels 3333}# - (#{gen-labels 364}# #{ids 3319}#)) - (#{new-vars 3334}# - (map #{gen-var 460}# #{ids 3319}#))) + (let ((#{labels 3337}# + (#{gen-labels 368}# #{ids 3323}#)) + (#{new-vars 3338}# + (map #{gen-var 464}# #{ids 3323}#))) (begin - (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}#)))))))))) + (let ((#{nw 3341}# + (#{make-binding-wrap 400}# + #{ids 3323}# + #{labels 3337}# + #{w 3319}#)) + (#{nr 3342}# + (#{extend-var-env 338}# + #{labels 3337}# + #{new-vars 3338}# + #{r 3318}#))) + (#{constructor 3322}# + #{s 3320}# + (map syntax->datum #{ids 3323}#) + #{new-vars 3338}# + (map (lambda (#{x 3343}#) + (#{chi 436}# + #{x 3343}# + #{r 3318}# + #{w 3319}# + #{mod 3321}#)) + #{vals 3324}#) + (#{chi-body 444}# + #{exps 3325}# + (#{wrap 422}# + (begin + (if (if (pair? #{e 3317}#) #{s 3320}# #f) + (set-source-properties! + #{e 3317}# + #{s 3320}#)) + #{e 3317}#) + #{nw 3341}# + #{mod 3321}#) + #{nr 3342}# + #{nw 3341}# + #{mod 3321}#)))))))))) (begin - (lambda (#{e 3341}# - #{r 3342}# - #{w 3343}# - #{s 3344}# - #{mod 3345}#) - (let ((#{tmp 3351}# #{e 3341}#)) - (let ((#{tmp 3352}# + (lambda (#{e 3345}# + #{r 3346}# + #{w 3347}# + #{s 3348}# + #{mod 3349}#) + (begin + (let ((#{tmp 3356}# ($sc-dispatch - #{tmp 3351}# + #{e 3345}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3352}# + (if (if #{tmp 3356}# (@apply - (lambda (#{id 3357}# - #{val 3358}# - #{e1 3359}# - #{e2 3360}#) - (and-map #{id? 344}# #{id 3357}#)) - #{tmp 3352}#) + (lambda (#{id 3361}# + #{val 3362}# + #{e1 3363}# + #{e2 3364}#) + (and-map #{id? 348}# #{id 3361}#)) + #{tmp 3356}#) #f) (@apply - (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 3351}# - '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 3373}# - (@apply - (lambda (#{f 3379}# - #{id 3380}# - #{val 3381}# - #{e1 3382}# - #{e2 3383}#) - (if (#{id? 344}# #{f 3379}#) - (and-map #{id? 344}# #{id 3380}#) - #f)) - #{tmp 3373}#) - #f) - (@apply - (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}#)) + (lambda (#{id 3370}# + #{val 3371}# + #{e1 3372}# + #{e2 3373}#) + (#{chi-let 3316}# + #{e 3345}# + #{r 3346}# + #{w 3347}# + #{s 3348}# + #{mod 3349}# + (lambda (#{src 1103}# + #{ids 1104}# + #{vars 1105}# + #{val-exps 1106}# + #{body-exp 1107}#) + (begin + (for-each + #{maybe-name-value! 266}# + #{ids 1104}# + #{val-exps 1106}#) + (if (null? #{vars 1105}#) + #{body-exp 1107}# + (#{make-let 237}# + #{src 1103}# + #{ids 1104}# + #{vars 1105}# + #{val-exps 1106}# + #{body-exp 1107}#)))) + #{id 3370}# + #{val 3371}# + (cons #{e1 3372}# #{e2 3373}#))) + #{tmp 3356}#) + (begin + (let ((#{tmp 3377}# + ($sc-dispatch + #{e 3345}# + '(_ any #(each (any any)) any . each-any)))) + (if (if #{tmp 3377}# + (@apply + (lambda (#{f 3383}# + #{id 3384}# + #{val 3385}# + #{e1 3386}# + #{e2 3387}#) + (if (if (symbol? #{f 3383}#) + #t + (if (if (vector? #{f 3383}#) + (if (= (vector-length #{f 3383}#) + 4) + (eq? (vector-ref #{f 3383}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{f 3383}# 1)) + #f)) + (and-map #{id? 348}# #{id 3384}#) + #f)) + #{tmp 3377}#) + #f) + (@apply + (lambda (#{f 3396}# + #{id 3397}# + #{val 3398}# + #{e1 3399}# + #{e2 3400}#) + (#{chi-let 3316}# + #{e 3345}# + #{r 3346}# + #{w 3347}# + #{s 3348}# + #{mod 3349}# + (lambda (#{src 1113}# + #{ids 1114}# + #{vars 1115}# + #{val-exps 1116}# + #{body-exp 1117}#) + (begin + (let ((#{f 1127}# (car #{vars 1115}#)) + (#{f-name 1128}# (car #{ids 1114}#)) + (#{vars 1129}# (cdr #{vars 1115}#)) + (#{ids 1130}# (cdr #{ids 1114}#))) + (begin + (let ((#{proc 1132}# + (#{build-simple-lambda 288}# + #{src 1113}# + #{ids 1130}# + #f + #{vars 1129}# + '() + #{body-exp 1117}#))) + (begin + (#{maybe-name-value! 266}# + #{f-name 1128}# + #{proc 1132}#) + (for-each + #{maybe-name-value! 266}# + #{ids 1130}# + #{val-exps 1116}#) + (#{make-letrec 239}# + #{src 1113}# + #f + (list #{f-name 1128}#) + (list #{f 1127}#) + (list #{proc 1132}#) + (#{build-application 270}# + #{src 1113}# + (#{build-lexical-reference 276}# + 'fun + #{src 1113}# + #{f-name 1128}# + #{f 1127}#) + #{val-exps 1116}#)))))))) + (cons #{f 3396}# #{id 3397}#) + #{val 3398}# + (cons #{e1 3399}# #{e2 3400}#))) + #{tmp 3377}#) (syntax-violation 'let "bad let" - (#{source-wrap 420}# - #{e 3341}# - #{w 3343}# - #{s 3344}# - #{mod 3345}#)))))))))))) - (#{global-extend 340}# + (#{wrap 422}# + (begin + (if (if (pair? #{e 3345}#) #{s 3348}# #f) + (set-source-properties! + #{e 3345}# + #{s 3348}#)) + #{e 3345}#) + #{w 3347}# + #{mod 3349}#)))))))))))) + (#{global-extend 344}# 'core 'letrec - (lambda (#{e 3402}# - #{r 3403}# - #{w 3404}# - #{s 3405}# - #{mod 3406}#) - (let ((#{tmp 3412}# #{e 3402}#)) - (let ((#{tmp 3413}# + (lambda (#{e 3406}# + #{r 3407}# + #{w 3408}# + #{s 3409}# + #{mod 3410}#) + (begin + (let ((#{tmp 3417}# ($sc-dispatch - #{tmp 3412}# + #{e 3406}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3413}# + (if (if #{tmp 3417}# (@apply - (lambda (#{id 3418}# - #{val 3419}# - #{e1 3420}# - #{e2 3421}#) - (and-map #{id? 344}# #{id 3418}#)) - #{tmp 3413}#) + (lambda (#{id 3422}# + #{val 3423}# + #{e1 3424}# + #{e2 3425}#) + (and-map #{id? 348}# #{id 3422}#)) + #{tmp 3417}#) #f) (@apply - (lambda (#{id 3427}# - #{val 3428}# - #{e1 3429}# - #{e2 3430}#) - (begin - (let ((#{ids 3432}# #{id 3427}#)) - (if (not (#{valid-bound-ids? 412}# #{ids 3432}#)) - (syntax-violation - 'letrec - "duplicate bound variable" - #{e 3402}#) + (lambda (#{id 3431}# + #{val 3432}# + #{e1 3433}# + #{e2 3434}#) + (if (not (#{valid-bound-ids? 416}# #{id 3431}#)) + (syntax-violation + 'letrec + "duplicate bound variable" + #{e 3406}#) + (begin + (let ((#{labels 3440}# + (#{gen-labels 368}# #{id 3431}#)) + (#{new-vars 3441}# + (map #{gen-var 464}# #{id 3431}#))) (begin - (let ((#{labels 3436}# - (#{gen-labels 364}# #{ids 3432}#)) - (#{new-vars 3437}# - (map #{gen-var 460}# #{ids 3432}#))) - (begin - (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 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 420}# - #{e 3402}# - #{w 3404}# - #{s 3405}# - #{mod 3406}#)))))))) - (#{global-extend 340}# + (let ((#{w 3444}# + (#{make-binding-wrap 400}# + #{id 3431}# + #{labels 3440}# + #{w 3408}#)) + (#{r 3445}# + (#{extend-var-env 338}# + #{labels 3440}# + #{new-vars 3441}# + #{r 3407}#))) + (#{build-letrec 304}# + #{s 3409}# + #f + (map syntax->datum #{id 3431}#) + #{new-vars 3441}# + (map (lambda (#{x 3446}#) + (#{chi 436}# + #{x 3446}# + #{r 3445}# + #{w 3444}# + #{mod 3410}#)) + #{val 3432}#) + (#{chi-body 444}# + (cons #{e1 3433}# #{e2 3434}#) + (#{wrap 422}# + (begin + (if (if (pair? #{e 3406}#) #{s 3409}# #f) + (set-source-properties! + #{e 3406}# + #{s 3409}#)) + #{e 3406}#) + #{w 3444}# + #{mod 3410}#) + #{r 3445}# + #{w 3444}# + #{mod 3410}#)))))))) + #{tmp 3417}#) + (syntax-violation + 'letrec + "bad letrec" + (#{wrap 422}# + (begin + (if (if (pair? #{e 3406}#) #{s 3409}# #f) + (set-source-properties! #{e 3406}# #{s 3409}#)) + #{e 3406}#) + #{w 3408}# + #{mod 3410}#))))))) + (#{global-extend 344}# 'core 'letrec* - (lambda (#{e 3448}# - #{r 3449}# - #{w 3450}# - #{s 3451}# - #{mod 3452}#) - (let ((#{tmp 3458}# #{e 3448}#)) - (let ((#{tmp 3459}# + (lambda (#{e 3452}# + #{r 3453}# + #{w 3454}# + #{s 3455}# + #{mod 3456}#) + (begin + (let ((#{tmp 3463}# ($sc-dispatch - #{tmp 3458}# + #{e 3452}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 3459}# + (if (if #{tmp 3463}# (@apply - (lambda (#{id 3464}# - #{val 3465}# - #{e1 3466}# - #{e2 3467}#) - (and-map #{id? 344}# #{id 3464}#)) - #{tmp 3459}#) + (lambda (#{id 3468}# + #{val 3469}# + #{e1 3470}# + #{e2 3471}#) + (and-map #{id? 348}# #{id 3468}#)) + #{tmp 3463}#) #f) (@apply - (lambda (#{id 3473}# - #{val 3474}# - #{e1 3475}# - #{e2 3476}#) - (begin - (let ((#{ids 3478}# #{id 3473}#)) - (if (not (#{valid-bound-ids? 412}# #{ids 3478}#)) - (syntax-violation - 'letrec* - "duplicate bound variable" - #{e 3448}#) + (lambda (#{id 3477}# + #{val 3478}# + #{e1 3479}# + #{e2 3480}#) + (if (not (#{valid-bound-ids? 416}# #{id 3477}#)) + (syntax-violation + 'letrec* + "duplicate bound variable" + #{e 3452}#) + (begin + (let ((#{labels 3486}# + (#{gen-labels 368}# #{id 3477}#)) + (#{new-vars 3487}# + (map #{gen-var 464}# #{id 3477}#))) (begin - (let ((#{labels 3482}# - (#{gen-labels 364}# #{ids 3478}#)) - (#{new-vars 3483}# - (map #{gen-var 460}# #{ids 3478}#))) - (begin - (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 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 420}# - #{e 3448}# - #{w 3450}# - #{s 3451}# - #{mod 3452}#)))))))) - (#{global-extend 340}# + (let ((#{w 3490}# + (#{make-binding-wrap 400}# + #{id 3477}# + #{labels 3486}# + #{w 3454}#)) + (#{r 3491}# + (#{extend-var-env 338}# + #{labels 3486}# + #{new-vars 3487}# + #{r 3453}#))) + (#{build-letrec 304}# + #{s 3455}# + #t + (map syntax->datum #{id 3477}#) + #{new-vars 3487}# + (map (lambda (#{x 3492}#) + (#{chi 436}# + #{x 3492}# + #{r 3491}# + #{w 3490}# + #{mod 3456}#)) + #{val 3478}#) + (#{chi-body 444}# + (cons #{e1 3479}# #{e2 3480}#) + (#{wrap 422}# + (begin + (if (if (pair? #{e 3452}#) #{s 3455}# #f) + (set-source-properties! + #{e 3452}# + #{s 3455}#)) + #{e 3452}#) + #{w 3490}# + #{mod 3456}#) + #{r 3491}# + #{w 3490}# + #{mod 3456}#)))))))) + #{tmp 3463}#) + (syntax-violation + 'letrec* + "bad letrec*" + (#{wrap 422}# + (begin + (if (if (pair? #{e 3452}#) #{s 3455}# #f) + (set-source-properties! #{e 3452}# #{s 3455}#)) + #{e 3452}#) + #{w 3454}# + #{mod 3456}#))))))) + (#{global-extend 344}# 'core 'set! - (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}# + (lambda (#{e 3498}# + #{r 3499}# + #{w 3500}# + #{s 3501}# + #{mod 3502}#) + (begin + (let ((#{tmp 3509}# + ($sc-dispatch #{e 3498}# '(_ any any)))) + (if (if #{tmp 3509}# (@apply - (lambda (#{id 3508}# #{val 3509}#) - (#{id? 344}# #{id 3508}#)) - #{tmp 3505}#) + (lambda (#{id 3512}# #{val 3513}#) + (if (symbol? #{id 3512}#) + #t + (if (if (vector? #{id 3512}#) + (if (= (vector-length #{id 3512}#) 4) + (eq? (vector-ref #{id 3512}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 3512}# 1)) + #f))) + #{tmp 3509}#) #f) (@apply - (lambda (#{id 3512}# #{val 3513}#) + (lambda (#{id 3516}# #{val 3517}#) (begin - (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}#))) + (let ((#{n 3520}# + (#{id-var-name 410}# #{id 3516}# #{w 3500}#)) + (#{id-mod 3521}# + (if (if (vector? #{id 3516}#) + (if (= (vector-length #{id 3516}#) 4) + (eq? (vector-ref #{id 3516}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{id 3516}# 3) + #{mod 3502}#))) (begin - (let ((#{b 3519}# - (#{lookup 338}# - #{n 3516}# - #{r 3495}# - #{id-mod 3517}#))) + (let ((#{b 3523}# + (begin + (let ((#{t 7015}# + (assq #{n 3520}# #{r 3499}#))) + (if #{t 7015}# + (cdr #{t 7015}#) + (if (symbol? #{n 3520}#) + (begin + (let ((#{t 7016}# + (#{get-global-definition-hook 262}# + #{n 3520}# + #{id-mod 3521}#))) + (if #{t 7016}# + #{t 7016}# + '(global)))) + '(displaced-lexical))))))) (begin - (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) + (let ((#{atom-key 3526}# (car #{b 3523}#))) + (if (eqv? #{atom-key 3526}# 'lexical) + (let ((#{source 992}# #{s 3501}#) + (#{name 993}# + (syntax->datum #{id 3516}#)) + (#{var 994}# (cdr #{b 3523}#)) + (#{exp 995}# + (#{chi 436}# + #{val 3517}# + #{r 3499}# + #{w 3500}# + #{mod 3502}#))) + (begin + (#{maybe-name-value! 266}# + #{name 993}# + #{exp 995}#) + (#{make-lexical-set 215}# + #{source 992}# + #{name 993}# + #{var 994}# + #{exp 995}#))) + (if (eqv? #{atom-key 3526}# 'global) + (#{build-global-assignment 284}# + #{s 3501}# + #{n 3520}# + (#{chi 436}# + #{val 3517}# + #{r 3499}# + #{w 3500}# + #{mod 3502}#) + #{id-mod 3521}#) + (if (eqv? #{atom-key 3526}# 'macro) (begin - (let ((#{p 3529}# (cdr #{b 3519}#))) + (let ((#{p 3533}# (cdr #{b 3523}#))) (if (procedure-property - #{p 3529}# + #{p 3533}# 'variable-transformer) - (#{chi 432}# - (#{chi-macro 438}# - #{p 3529}# - #{e 3494}# - #{r 3495}# - #{w 3496}# - #{s 3497}# + (#{chi 436}# + (#{chi-macro 442}# + #{p 3533}# + #{e 3498}# + #{r 3499}# + #{w 3500}# + #{s 3501}# #f - #{mod 3498}#) - #{r 3495}# + #{mod 3502}#) + #{r 3499}# '(()) - #{mod 3498}#) + #{mod 3502}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap 418}# - #{e 3494}# - #{w 3496}# - #{mod 3498}#) - (#{wrap 418}# - #{id 3512}# - #{w 3496}# - #{id-mod 3517}#))))) - (if (eqv? #{atom-key 3522}# + (#{wrap 422}# + #{e 3498}# + #{w 3500}# + #{mod 3502}#) + (#{wrap 422}# + #{id 3516}# + #{w 3500}# + #{id-mod 3521}#))))) + (if (eqv? #{atom-key 3526}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 418}# - #{id 3512}# - #{w 3496}# - #{mod 3498}#)) + (#{wrap 422}# + #{id 3516}# + #{w 3500}# + #{mod 3502}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap 420}# - #{e 3494}# - #{w 3496}# - #{s 3497}# - #{mod 3498}#))))))))))))) - #{tmp 3505}#) - (let ((#{tmp 3534}# - ($sc-dispatch - #{tmp 3504}# - '(_ (any . each-any) any)))) - (if #{tmp 3534}# - (@apply - (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#) - (call-with-values - (lambda () - (#{syntax-type 430}# - #{head 3538}# - #{r 3495}# - '(()) - #f - #f - #{mod 3498}# - #t)) - (lambda (#{type 3543}# - #{value 3544}# - #{ee 3545}# - #{ww 3546}# - #{ss 3547}# - #{modmod 3548}#) - (if (eqv? #{type 3543}# 'module-ref) - (begin - (let ((#{val 3557}# - (#{chi 432}# - #{val 3540}# - #{r 3495}# - #{w 3496}# - #{mod 3498}#))) - (call-with-values - (lambda () - (#{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 3572}#) - (#{id? 344}# #{e 3572}#)) - #{tmp 3570}#) - #f) - (@apply - (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 3569}#)))))))) - (#{build-application 266}# - #{s 3497}# - (#{chi 432}# - (list '#(syntax-object - setter - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(type value ee ww ss modmod) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i3549" - "i3550" - "i3551" - "i3552" - "i3553" - "i3554")) - #(ribcage - #(head tail val) - #((top) (top) (top)) - #("i3535" "i3536" "i3537")) - #(ribcage () () ()) - #(ribcage - #(e r w s mod) - #((top) (top) (top) (top) (top)) - #("i3499" - "i3500" - "i3501" - "i3502" - "i3503")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile)) - #{head 3538}#) - #{r 3495}# - #{w 3496}# - #{mod 3498}#) - (map (lambda (#{e 3576}#) - (#{chi 432}# - #{e 3576}# - #{r 3495}# - #{w 3496}# - #{mod 3498}#)) - (append - #{tail 3539}# - (list #{val 3540}#)))))))) - #{tmp 3534}#) - (let ((#{_ 3580}# #{tmp 3504}#)) - (syntax-violation - 'set! - "bad set!" - (#{source-wrap 420}# - #{e 3494}# - #{w 3496}# - #{s 3497}# - #{mod 3498}#)))))))))) - (#{global-extend 340}# - 'module-ref - '@ - (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 3591}# #{id 3592}#) - (if (and-map #{id? 344}# #{mod 3591}#) - (#{id? 344}# #{id 3592}#) - #f)) - #{tmp 3588}#) - #f) - (@apply - (lambda (#{mod 3598}# #{id 3599}#) - (values - (syntax->datum #{id 3599}#) - #{r 3582}# - #{w 3583}# - #f - (syntax->datum - (cons '#(syntax-object - public - ((top) - #(ribcage - #(mod id) - #((top) (top)) - #("i3596" "i3597")) - #(ribcage () () ()) - #(ribcage - #(e r w) - #((top) (top) (top)) - #("i3584" "i3585" "i3586")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile)) - #{mod 3598}#)))) - #{tmp 3588}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 3587}#)))))) - (#{global-extend 340}# - 'module-ref - '@@ - (lambda (#{e 3601}# #{r 3602}# #{w 3603}#) - (letrec* - ((#{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 3621}# (vector-length #{x 3609}#))) - (begin - (let ((#{v 3623}# (make-vector #{n 3621}#))) - (letrec* - ((#{loop 3626}# - (lambda (#{i 3627}#) - (if (= #{i 3627}# #{n 3621}#) - (begin (if #f #f) #{v 3623}#) + (#{wrap 422}# + (begin + (if (if (pair? #{e 3498}#) + #{s 3501}# + #f) + (set-source-properties! + #{e 3498}# + #{s 3501}#)) + #{e 3498}#) + #{w 3500}# + #{mod 3502}#))))))))))))) + #{tmp 3509}#) + (begin + (let ((#{tmp 3538}# + ($sc-dispatch + #{e 3498}# + '(_ (any . each-any) any)))) + (if #{tmp 3538}# + (@apply + (lambda (#{head 3542}# #{tail 3543}# #{val 3544}#) + (call-with-values + (lambda () + (#{syntax-type 434}# + #{head 3542}# + #{r 3499}# + '(()) + #f + #f + #{mod 3502}# + #t)) + (lambda (#{type 3547}# + #{value 3548}# + #{ee 3549}# + #{ww 3550}# + #{ss 3551}# + #{modmod 3552}#) + (if (eqv? #{type 3547}# 'module-ref) + (begin + (let ((#{val 3561}# + (#{chi 436}# + #{val 3544}# + #{r 3499}# + #{w 3500}# + #{mod 3502}#))) + (call-with-values + (lambda () + (#{value 3548}# + (cons #{head 3542}# #{tail 3543}#) + #{r 3499}# + #{w 3500}#)) + (lambda (#{e 3563}# + #{r 3564}# + #{w 3565}# + #{s* 3566}# + #{mod 3567}#) (begin - (vector-set! - #{v 3623}# - #{i 3627}# - (#{remodulate 3608}# - (vector-ref - #{x 3609}# - #{i 3627}#) - #{mod 3610}#)) - (#{loop 3626}# - (#{1+}# #{i 3627}#))))))) - (begin (#{loop 3626}# 0))))))) - #{x 3609}#)))))) - (begin - (let ((#{tmp 3633}# #{e 3601}#)) - (let ((#{tmp 3634}# - ($sc-dispatch #{tmp 3633}# '(_ each-any any)))) - (if (if #{tmp 3634}# - (@apply - (lambda (#{mod 3637}# #{exp 3638}#) - (and-map #{id? 344}# #{mod 3637}#)) - #{tmp 3634}#) - #f) - (@apply - (lambda (#{mod 3642}# #{exp 3643}#) - (begin - (let ((#{mod 3645}# - (syntax->datum - (cons '#(syntax-object - private + (let ((#{tmp 3574}# + (list #{e 3563}#))) + (if (if #{tmp 3574}# + (@apply + (lambda (#{e 3576}#) + (if (symbol? #{e 3576}#) + #t + (if (if (vector? + #{e 3576}#) + (if (= (vector-length + #{e 3576}#) + 4) + (eq? (vector-ref + #{e 3576}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{e 3576}# + 1)) + #f))) + #{tmp 3574}#) + #f) + (@apply + (lambda (#{e 3578}#) + (begin + (let ((#{var 7355}# + (syntax->datum + #{e 3578}#))) + (begin + (if (if (struct? + #{val 3561}#) + (eq? (struct-vtable + #{val 3561}#) + (vector-ref + %expanded-vtables + 13)) + #f) + (begin + (let ((#{meta 7366}# + (struct-ref + #{val 3561}# + 1))) + (if (not (assq 'name + #{meta 7366}#)) + (begin + (let ((#{v 7376}# + (cons (cons 'name + #{var 7355}#) + #{meta 7366}#))) + (struct-set! + #{val 3561}# + 1 + #{v 7376}#))))))) + (#{analyze-variable 280}# + #{mod 3567}# + #{var 7355}# + (lambda (#{mod 7358}# + #{var 7359}# + #{public? 7360}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 6) + #{s 3501}# + #{mod 7358}# + #{var 7359}# + #{public? 7360}# + #{val 3561}#)) + (lambda (#{var 7361}#) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 8) + #{s 3501}# + #{var 7361}# + #{val 3561}#))))))) + #{tmp 3574}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3563}#)))))))) + (#{build-application 270}# + #{s 3501}# + (#{chi 436}# + (list '#(syntax-object + setter ((top) + #(ribcage () () ()) + #(ribcage () () ()) #(ribcage - #(mod exp) - #((top) (top)) - #("i3640" "i3641")) - #(ribcage - (remodulate) - ((top)) - ("i3607")) + #(type value ee ww ss modmod) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i3553" + "i3554" + "i3555" + "i3556" + "i3557" + "i3558")) #(ribcage - #(e r w) + #(head tail val) #((top) (top) (top)) - #("i3604" "i3605" "i3606")) + #("i3539" "i3540" "i3541")) + #(ribcage () () ()) + #(ribcage + #(e r w s mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3503" + "i3504" + "i3505" + "i3506" + "i3507")) #(ribcage (lambda-var-list gen-var @@ -11192,7 +10483,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -11225,14 +10518,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -11240,33 +10533,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -11275,8 +10568,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -11298,18 +10591,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -11325,216 +10618,85 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) + ("i44" "i43" "i42"))) (hygiene guile)) - #{mod 3642}#)))) - (values - (#{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 3633}#)))))))) - (#{global-extend 340}# - 'core - 'if - (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 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 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 3657}#)))))))) - (#{global-extend 340}# - 'core - 'with-fluids - (lambda (#{e 3671}# - #{r 3672}# - #{w 3673}# - #{s 3674}# - #{mod 3675}#) - (let ((#{tmp 3681}# #{e 3671}#)) - (let ((#{tmp 3682}# - ($sc-dispatch - #{tmp 3681}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 3682}# - (@apply - (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 3681}#)))))) - (#{global-extend 340}# 'begin 'begin '()) - (#{global-extend 340}# 'define 'define '()) - (#{global-extend 340}# - 'define-syntax - 'define-syntax - '()) - (#{global-extend 340}# 'eval-when 'eval-when '()) - (#{global-extend 340}# - 'core - 'syntax-case - (letrec* - ((#{convert-pattern 3699}# - (lambda (#{pattern 3706}# #{keys 3707}#) - (letrec* - ((#{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* 3711}# - (cdr #{p* 3716}#) - #{n 3717}# - #{ids 3718}#)) - (lambda (#{y 3722}# #{ids 3723}#) - (call-with-values - (lambda () - (#{cvt 3715}# - (car #{p* 3716}#) - #{n 3717}# - #{ids 3723}#)) - (lambda (#{x 3726}# #{ids 3727}#) - (values - (cons #{x 3726}# #{y 3722}#) - #{ids 3727}#)))))))) - (#{v-reverse 3713}# - (lambda (#{x 3730}#) - (letrec* - ((#{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 3738}#) - #{ids 3740}#) - (if (#{free-id=? 408}# - #{p 3738}# - '#(syntax-object - _ + #{head 3542}#) + #{r 3499}# + #{w 3500}# + #{mod 3502}#) + (map (lambda (#{e 3580}#) + (#{chi 436}# + #{e 3580}# + #{r 3499}# + #{w 3500}# + #{mod 3502}#)) + (append + #{tail 3543}# + (list #{val 3544}#)))))))) + #{tmp 3538}#) + (syntax-violation + 'set! + "bad set!" + (#{wrap 422}# + (begin + (if (if (pair? #{e 3498}#) #{s 3501}# #f) + (set-source-properties! #{e 3498}# #{s 3501}#)) + #{e 3498}#) + #{w 3500}# + #{mod 3502}#)))))))))) + (module-define! + (current-module) + '@ + (make-syntax-transformer + '@ + 'module-ref + (lambda (#{e 3585}# #{r 3586}# #{w 3587}#) + (begin + (let ((#{tmp 3592}# + ($sc-dispatch #{e 3585}# '(_ each-any any)))) + (if (if #{tmp 3592}# + (@apply + (lambda (#{mod 3595}# #{id 3596}#) + (if (and-map #{id? 348}# #{mod 3595}#) + (if (symbol? #{id 3596}#) + #t + (if (if (vector? #{id 3596}#) + (if (= (vector-length #{id 3596}#) 4) + (eq? (vector-ref #{id 3596}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{id 3596}# 1)) + #f)) + #f)) + #{tmp 3592}#) + #f) + (@apply + (lambda (#{mod 3602}# #{id 3603}#) + (values + (syntax->datum #{id 3603}#) + #{r 3586}# + #{w 3587}# + #f + (syntax->datum + (cons '#(syntax-object + public ((top) - #(ribcage () () ()) - #(ribcage - #(p n ids) - #((top) (top) (top)) - #("i3741" "i3742" "i3743")) #(ribcage - (cvt v-reverse cvt*) - ((top) (top) (top)) - ("i3714" "i3712" "i3710")) - #(ribcage - #(pattern keys) + #(mod id) #((top) (top)) - #("i3708" "i3709")) + #("i3600" "i3601")) + #(ribcage () () ()) #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3704" "i3702" "i3700" "i3698")) + #(e r w) + #((top) (top) (top)) + #("i3588" "i3589" "i3590")) #(ribcage (lambda-var-list gen-var @@ -11808,7 +10970,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -11841,14 +11005,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -11856,33 +11020,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -11891,8 +11055,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -11914,18 +11078,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -11941,338 +11105,2115 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile))) - (values '_ #{ids 3740}#) + ("i44" "i43" "i42"))) + (hygiene guile)) + #{mod 3602}#)))) + #{tmp 3592}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3585}#))))))) + (#{global-extend 344}# + 'module-ref + '@@ + (lambda (#{e 3605}# #{r 3606}# #{w 3607}#) + (letrec* + ((#{remodulate 3612}# + (lambda (#{x 3613}# #{mod 3614}#) + (if (pair? #{x 3613}#) + (cons (#{remodulate 3612}# + (car #{x 3613}#) + #{mod 3614}#) + (#{remodulate 3612}# + (cdr #{x 3613}#) + #{mod 3614}#)) + (if (if (vector? #{x 3613}#) + (if (= (vector-length #{x 3613}#) 4) + (eq? (vector-ref #{x 3613}# 0) 'syntax-object) + #f) + #f) + (begin + (let ((#{expression 7616}# + (#{remodulate 3612}# + (vector-ref #{x 3613}# 1) + #{mod 3614}#)) + (#{wrap 7617}# (vector-ref #{x 3613}# 2))) + (vector + 'syntax-object + #{expression 7616}# + #{wrap 7617}# + #{mod 3614}#))) + (if (vector? #{x 3613}#) + (begin + (let ((#{n 3625}# (vector-length #{x 3613}#))) + (begin + (let ((#{v 3627}# (make-vector #{n 3625}#))) + (letrec* + ((#{loop 3630}# + (lambda (#{i 3631}#) + (if (= #{i 3631}# #{n 3625}#) + #{v 3627}# + (begin + (vector-set! + #{v 3627}# + #{i 3631}# + (#{remodulate 3612}# + (vector-ref + #{x 3613}# + #{i 3631}#) + #{mod 3614}#)) + (#{loop 3630}# + (#{1+}# #{i 3631}#))))))) + (begin (#{loop 3630}# 0))))))) + #{x 3613}#)))))) + (begin + (begin + (let ((#{tmp 3638}# + ($sc-dispatch #{e 3605}# '(_ each-any any)))) + (if (if #{tmp 3638}# + (@apply + (lambda (#{mod 3641}# #{exp 3642}#) + (and-map #{id? 348}# #{mod 3641}#)) + #{tmp 3638}#) + #f) + (@apply + (lambda (#{mod 3646}# #{exp 3647}#) + (begin + (let ((#{mod 3649}# + (syntax->datum + (cons '#(syntax-object + private + ((top) + #(ribcage + #(mod exp) + #((top) (top)) + #("i3644" "i3645")) + #(ribcage + (remodulate) + ((top)) + ("i3611")) + #(ribcage + #(e r w) + #((top) (top) (top)) + #("i3608" "i3609" "i3610")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + #{mod 3646}#)))) (values - 'any - (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 3753}# #{dots 3754}#) - (#{ellipsis? 448}# #{dots 3754}#)) - #{tmp 3750}#) + (#{remodulate 3612}# #{exp 3647}# #{mod 3649}#) + #{r 3606}# + #{w 3607}# + (#{source-annotation 326}# #{exp 3647}#) + #{mod 3649}#)))) + #{tmp 3638}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3605}#)))))))) + (#{global-extend 344}# + 'core + 'if + (lambda (#{e 3651}# + #{r 3652}# + #{w 3653}# + #{s 3654}# + #{mod 3655}#) + (begin + (let ((#{tmp 3662}# + ($sc-dispatch #{e 3651}# '(_ any any)))) + (if #{tmp 3662}# + (@apply + (lambda (#{test 3665}# #{then 3666}#) + (#{build-conditional 272}# + #{s 3654}# + (#{chi 436}# + #{test 3665}# + #{r 3652}# + #{w 3653}# + #{mod 3655}#) + (#{chi 436}# + #{then 3666}# + #{r 3652}# + #{w 3653}# + #{mod 3655}#) + (make-struct/no-tail + (vector-ref %expanded-vtables 0) + #f))) + #{tmp 3662}#) + (begin + (let ((#{tmp 3668}# + ($sc-dispatch #{e 3651}# '(_ any any any)))) + (if #{tmp 3668}# + (@apply + (lambda (#{test 3672}# #{then 3673}# #{else 3674}#) + (#{build-conditional 272}# + #{s 3654}# + (#{chi 436}# + #{test 3672}# + #{r 3652}# + #{w 3653}# + #{mod 3655}#) + (#{chi 436}# + #{then 3673}# + #{r 3652}# + #{w 3653}# + #{mod 3655}#) + (#{chi 436}# + #{else 3674}# + #{r 3652}# + #{w 3653}# + #{mod 3655}#))) + #{tmp 3668}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3651}#))))))))) + (#{global-extend 344}# + 'core + 'with-fluids + (lambda (#{e 3675}# + #{r 3676}# + #{w 3677}# + #{s 3678}# + #{mod 3679}#) + (begin + (let ((#{tmp 3686}# + ($sc-dispatch + #{e 3675}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 3686}# + (@apply + (lambda (#{fluid 3691}# + #{val 3692}# + #{b 3693}# + #{b* 3694}#) + (let ((#{source 976}# #{s 3678}#) + (#{fluids 977}# + (map (lambda (#{x 3695}#) + (#{chi 436}# + #{x 3695}# + #{r 3676}# + #{w 3677}# + #{mod 3679}#)) + #{fluid 3691}#)) + (#{vals 978}# + (map (lambda (#{x 3698}#) + (#{chi 436}# + #{x 3698}# + #{r 3676}# + #{w 3677}# + #{mod 3679}#)) + #{val 3692}#)) + (#{body 979}# + (#{chi-body 444}# + (cons #{b 3693}# #{b* 3694}#) + (#{wrap 422}# + (begin + (if (if (pair? #{e 3675}#) #{s 3678}# #f) + (set-source-properties! + #{e 3675}# + #{s 3678}#)) + #{e 3675}#) + #{w 3677}# + #{mod 3679}#) + #{r 3676}# + #{w 3677}# + #{mod 3679}#))) + (#{make-dynlet 241}# + #{source 976}# + #{fluids 977}# + #{vals 978}# + #{body 979}#))) + #{tmp 3686}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e 3675}#)))))) + (module-define! + (current-module) + 'begin + (make-syntax-transformer 'begin 'begin '())) + (module-define! + (current-module) + 'define + (make-syntax-transformer 'define 'define '())) + (module-define! + (current-module) + 'define-syntax + (make-syntax-transformer + 'define-syntax + 'define-syntax + '())) + (module-define! + (current-module) + 'eval-when + (make-syntax-transformer + 'eval-when + 'eval-when + '())) + (#{global-extend 344}# + 'core + 'syntax-case + (letrec* + ((#{convert-pattern 3703}# + (lambda (#{pattern 3710}# #{keys 3711}#) + (letrec* + ((#{cvt* 3715}# + (lambda (#{p* 3720}# #{n 3721}# #{ids 3722}#) + (if (not (pair? #{p* 3720}#)) + (#{cvt 3719}# + #{p* 3720}# + #{n 3721}# + #{ids 3722}#) + (call-with-values + (lambda () + (#{cvt* 3715}# + (cdr #{p* 3720}#) + #{n 3721}# + #{ids 3722}#)) + (lambda (#{y 3726}# #{ids 3727}#) + (call-with-values + (lambda () + (#{cvt 3719}# + (car #{p* 3720}#) + #{n 3721}# + #{ids 3727}#)) + (lambda (#{x 3730}# #{ids 3731}#) + (values + (cons #{x 3730}# #{y 3726}#) + #{ids 3731}#)))))))) + (#{v-reverse 3717}# + (lambda (#{x 3734}#) + (letrec* + ((#{loop 3739}# + (lambda (#{r 3740}# #{x 3741}#) + (if (not (pair? #{x 3741}#)) + (values #{r 3740}# #{x 3741}#) + (#{loop 3739}# + (cons (car #{x 3741}#) #{r 3740}#) + (cdr #{x 3741}#)))))) + (begin (#{loop 3739}# '() #{x 3734}#))))) + (#{cvt 3719}# + (lambda (#{p 3742}# #{n 3743}# #{ids 3744}#) + (if (if (symbol? #{p 3742}#) + #t + (if (if (vector? #{p 3742}#) + (if (= (vector-length #{p 3742}#) 4) + (eq? (vector-ref #{p 3742}# 0) + 'syntax-object) + #f) #f) - (@apply - (lambda (#{x 3757}# #{dots 3758}#) - (call-with-values - (lambda () - (#{cvt 3715}# - #{x 3757}# - (#{1+}# #{n 3739}#) - #{ids 3740}#)) - (lambda (#{p 3760}# #{ids 3761}#) - (values - (if (eq? #{p 3760}# 'any) - 'each-any - (vector 'each #{p 3760}#)) - #{ids 3761}#)))) - #{tmp 3750}#) - (let ((#{tmp 3764}# - ($sc-dispatch - #{tmp 3749}# - '(any any . any)))) - (if (if #{tmp 3764}# - (@apply - (lambda (#{x 3768}# - #{dots 3769}# - #{ys 3770}#) - (#{ellipsis? 448}# #{dots 3769}#)) - #{tmp 3764}#) - #f) - (@apply - (lambda (#{x 3774}# - #{dots 3775}# - #{ys 3776}#) - (call-with-values - (lambda () - (#{cvt* 3711}# - #{ys 3776}# - #{n 3739}# - #{ids 3740}#)) - (lambda (#{ys 3777}# #{ids 3778}#) - (call-with-values - (lambda () - (#{cvt 3715}# - #{x 3774}# - (#{1+}# #{n 3739}#) - #{ids 3778}#)) - (lambda (#{x 3781}# #{ids 3782}#) - (call-with-values - (lambda () - (#{v-reverse 3713}# - #{ys 3777}#)) - (lambda (#{ys 3785}# - #{e 3786}#) - (values - (vector - 'each+ - #{x 3781}# - #{ys 3785}# - #{e 3786}#) - #{ids 3782}#)))))))) - #{tmp 3764}#) - (let ((#{tmp 3790}# - ($sc-dispatch - #{tmp 3749}# - '(any . any)))) - (if #{tmp 3790}# - (@apply - (lambda (#{x 3793}# #{y 3794}#) - (call-with-values - (lambda () - (#{cvt 3715}# - #{y 3794}# - #{n 3739}# - #{ids 3740}#)) - (lambda (#{y 3795}# #{ids 3796}#) - (call-with-values - (lambda () - (#{cvt 3715}# - #{x 3793}# - #{n 3739}# - #{ids 3796}#)) - (lambda (#{x 3799}# - #{ids 3800}#) - (values - (cons #{x 3799}# - #{y 3795}#) - #{ids 3800}#)))))) - #{tmp 3790}#) - (let ((#{tmp 3803}# - ($sc-dispatch #{tmp 3749}# '()))) - (if #{tmp 3803}# - (@apply - (lambda () - (values '() #{ids 3740}#)) - #{tmp 3803}#) - (let ((#{tmp 3804}# - ($sc-dispatch - #{tmp 3749}# - '#(vector each-any)))) - (if #{tmp 3804}# - (@apply - (lambda (#{x 3806}#) - (call-with-values - (lambda () - (#{cvt 3715}# - #{x 3806}# - #{n 3739}# - #{ids 3740}#)) - (lambda (#{p 3808}# - #{ids 3809}#) - (values - (vector - 'vector - #{p 3808}#) - #{ids 3809}#)))) - #{tmp 3804}#) - (let ((#{x 3813}# #{tmp 3749}#)) - (values - (vector - 'atom - (#{strip 458}# - #{p 3738}# - '(()))) - #{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 3815}#) - (let ((#{ids 3827}# (map car #{pvars 3815}#))) - (begin - (let ((#{labels 3831}# - (#{gen-labels 364}# #{ids 3827}#)) - (#{new-vars 3832}# - (map #{gen-var 460}# #{ids 3827}#))) - (#{build-application 266}# - #f - (#{build-primref 290}# #f 'apply) - (list (#{build-simple-lambda 284}# - #f - (map syntax->datum #{ids 3827}#) - #f - #{new-vars 3832}# - '() - (#{chi 432}# - #{exp 3816}# - (#{extend-env 332}# - #{labels 3831}# - (map (lambda (#{var 3836}# #{level 3837}#) - (cons 'syntax - (cons #{var 3836}# - #{level 3837}#))) - #{new-vars 3832}# - (map cdr #{pvars 3815}#)) - #{r 3818}#) - (#{make-binding-wrap 396}# - #{ids 3827}# - #{labels 3831}# - '(())) - #{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 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 3847}#) - (if (not (and-map - (lambda (#{x 3867}#) - (not (#{ellipsis? 448}# (car #{x 3867}#)))) - #{pvars 3860}#)) - (syntax-violation - 'syntax-case - "misplaced ellipsis" - #{pat 3847}#) - (begin - (let ((#{y 3871}# (#{gen-var 460}# 'tmp))) - (#{build-application 266}# - #f - (#{build-simple-lambda 284}# - #f - (list 'tmp) - #f - (list #{y 3871}#) - '() - (begin - (let ((#{y 3875}# - (#{build-lexical-reference 272}# - 'value - #f - 'tmp - #{y 3871}#))) - (#{build-conditional 268}# - #f - (let ((#{tmp 3878}# #{fender 3848}#)) - (let ((#{tmp 3879}# - ($sc-dispatch - #{tmp 3878}# - '#(atom #t)))) - (if #{tmp 3879}# - (@apply - (lambda () #{y 3875}#) - #{tmp 3879}#) - (let ((#{_ 3881}# #{tmp 3878}#)) - (#{build-conditional 268}# - #f - #{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 290}# #f 'list) - (list #{x 3843}#)) - (#{build-application 266}# - #f - (#{build-primref 290}# #f '$sc-dispatch) - (list #{x 3843}# - (#{build-data 292}# - #f - #{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 290}# #f 'syntax-violation) - (list (#{build-data 292}# #f #f) - (#{build-data 292}# - #f - "source expression failed to match any pattern") - #{x 3889}#)) - (let ((#{tmp 3903}# (car #{clauses 3891}#))) - (let ((#{tmp 3904}# - ($sc-dispatch #{tmp 3903}# '(any any)))) - (if #{tmp 3904}# - (@apply - (lambda (#{pat 3907}# #{exp 3908}#) - (if (if (#{id? 344}# #{pat 3907}#) - (and-map - (lambda (#{x 3911}#) - (not (#{free-id=? 408}# - #{pat 3907}# - #{x 3911}#))) - (cons '#(syntax-object - ... + (symbol? (vector-ref #{p 3742}# 1)) + #f)) + (if (#{bound-id-member? 420}# + #{p 3742}# + #{keys 3711}#) + (values + (vector 'free-id #{p 3742}#) + #{ids 3744}#) + (if (if (eq? (if (if (vector? #{p 3742}#) + (if (= (vector-length #{p 3742}#) + 4) + (eq? (vector-ref #{p 3742}# 0) + 'syntax-object) + #f) + #f) + (vector-ref #{p 3742}# 1) + #{p 3742}#) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3745" + "i3746" + "i3747")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3718" + "i3716" + "i3714")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3712" "i3713")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3745" + "i3746" + "i3747")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3718" + "i3716" + "i3714")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3712" "i3713")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3745" "i3746" "i3747")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3718" "i3716" "i3714")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3712" "i3713")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + _ ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3905" "i3906")) #(ribcage () () ()) #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3894" - "i3895" - "i3896" - "i3897" - "i3898")) + #(p n ids) + #((top) (top) (top)) + #("i3745" "i3746" "i3747")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3718" "i3716" "i3714")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3712" "i3713")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("i3704" - "i3702" - "i3700" - "i3698")) + ("i3708" + "i3706" + "i3704" + "i3702")) #(ribcage (lambda-var-list gen-var @@ -12546,7 +13487,9 @@ (top) (top) (top)) - ("i461" + ("i465" + "i463" + "i461" "i459" "i457" "i455" @@ -12579,14 +13522,14 @@ "i401" "i399" "i397" - "i395" - "i393" - "i392" + "i396" + "i394" + "i391" "i390" + "i389" "i387" "i386" - "i385" - "i383" + "i384" "i382" "i380" "i378" @@ -12594,33 +13537,33 @@ "i374" "i372" "i370" - "i368" - "i366" - "i363" - "i361" + "i367" + "i365" + "i364" + "i362" "i360" "i358" "i356" + "i355" "i354" - "i352" + "i353" "i351" "i350" - "i349" "i347" - "i346" + "i345" "i343" "i341" "i339" "i337" "i335" + "i334" "i333" "i331" - "i330" "i329" - "i327" + "i328" "i325" "i324" - "i321" + "i322" "i320" "i318" "i316" @@ -12629,8 +13572,8 @@ "i310" "i308" "i306" - "i304" - "i302" + "i303" + "i301" "i299" "i297" "i295" @@ -12652,18 +13595,18 @@ "i263" "i261" "i259" - "i257" + "i258" "i255" - "i254" + "i253" + "i252" "i251" + "i250" "i249" - "i248" "i247" - "i246" "i245" "i243" - "i241" - "i239" + "i240" + "i238" "i236" "i234" "i232" @@ -12679,1456 +13622,15493 @@ "i212" "i210" "i208" - "i206" - "i204" - "i202")) + "i206")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile)) - #{keys 3890}#)) - #f) - (if (#{free-id=? 408}# - '#(syntax-object - pad - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3905" "i3906")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3894" - "i3895" - "i3896" - "i3897" - "i3898")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3704" "i3702" "i3700" "i3698")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile)) - '#(syntax-object - _ - ((top) - #(ribcage - #(pat exp) - #((top) (top)) - #("i3905" "i3906")) - #(ribcage () () ()) - #(ribcage - #(x keys clauses r mod) - #((top) (top) (top) (top) (top)) - #("i3894" - "i3895" - "i3896" - "i3897" - "i3898")) - #(ribcage - (gen-syntax-case - gen-clause - build-dispatch-call - convert-pattern) - ((top) (top) (top) (top)) - ("i3704" "i3702" "i3700" "i3698")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-dynlet - build-conditional - build-application - build-void - maybe-name-value! - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - set-lambda-meta! - lambda-meta - lambda? - make-dynlet - make-letrec - make-let - make-lambda-case - make-lambda - make-sequence - make-application - make-conditional - make-toplevel-define - make-toplevel-set - make-toplevel-ref - make-module-set - make-module-ref - make-lexical-set - make-lexical-ref - make-primitive-ref - make-const - make-void) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("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" - "i387" - "i386" - "i385" - "i383" - "i382" - "i380" - "i378" - "i376" - "i374" - "i372" - "i370" - "i368" - "i366" - "i363" - "i361" - "i360" - "i358" - "i356" - "i354" - "i352" - "i351" - "i350" - "i349" - "i347" - "i346" - "i343" - "i341" - "i339" - "i337" - "i335" - "i333" - "i331" - "i330" - "i329" - "i327" - "i325" - "i324" - "i321" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i302" - "i299" - "i297" - "i295" - "i293" - "i291" - "i289" - "i287" - "i285" - "i283" - "i281" - "i279" - "i277" - "i275" - "i273" - "i271" - "i269" - "i267" - "i265" - "i263" - "i261" - "i259" - "i257" - "i255" - "i254" - "i251" - "i249" - "i248" - "i247" - "i246" - "i245" - "i243" - "i241" - "i239" - "i236" - "i234" - "i232" - "i230" - "i228" - "i226" - "i224" - "i222" - "i220" - "i218" - "i216" - "i214" - "i212" - "i210" - "i208" - "i206" - "i204" - "i202")) - #(ribcage - (define-structure - define-expansion-accessors - define-expansion-constructors) - ((top) (top) (top)) - ("i40" "i39" "i38"))) - (hygiene guile))) - (#{chi 432}# - #{exp 3908}# - #{r 3892}# - '(()) - #{mod 3893}#) - (begin - (let ((#{labels 3916}# - (list (#{gen-label 362}#))) - (#{var 3917}# - (#{gen-var 460}# #{pat 3907}#))) - (#{build-application 266}# - #f - (#{build-simple-lambda 284}# - #f - (list (syntax->datum #{pat 3907}#)) - #f - (list #{var 3917}#) - '() - (#{chi 432}# - #{exp 3908}# - (#{extend-env 332}# - #{labels 3916}# - (list (cons 'syntax - (cons #{var 3917}# 0))) - #{r 3892}#) - (#{make-binding-wrap 396}# - (list #{pat 3907}#) - #{labels 3916}# - '(())) - #{mod 3893}#)) - (list #{x 3889}#))))) - (#{gen-clause 3703}# - #{x 3889}# - #{keys 3890}# - (cdr #{clauses 3891}#) - #{r 3892}# - #{pat 3907}# - #t - #{exp 3908}# - #{mod 3893}#))) - #{tmp 3904}#) - (let ((#{tmp 3923}# - ($sc-dispatch #{tmp 3903}# '(any any any)))) - (if #{tmp 3923}# + ("i44" "i43" "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# #{p 3742}# '(())) + (#{id-var-name 410}# + '#(syntax-object + _ + ((top) + #(ribcage () () ()) + #(ribcage + #(p n ids) + #((top) (top) (top)) + #("i3745" "i3746" "i3747")) + #(ribcage + (cvt v-reverse cvt*) + ((top) (top) (top)) + ("i3718" "i3716" "i3714")) + #(ribcage + #(pattern keys) + #((top) (top)) + #("i3712" "i3713")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" "i3706" "i3704" "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + '(()))) + #f) + (values '_ #{ids 3744}#) + (values + 'any + (cons (cons #{p 3742}# #{n 3743}#) + #{ids 3744}#)))) + (begin + (let ((#{tmp 3754}# + ($sc-dispatch #{p 3742}# '(any any)))) + (if (if #{tmp 3754}# + (@apply + (lambda (#{x 3757}# #{dots 3758}#) + (if (if (if (vector? #{dots 3758}#) + (if (= (vector-length + #{dots 3758}#) + 4) + (eq? (vector-ref + #{dots 3758}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{dots 3758}# 1)) + #f) + (if (eq? (if (if (vector? + #{dots 3758}#) + (if (= (vector-length + #{dots 3758}#) + 4) + (eq? (vector-ref + #{dots 3758}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{dots 3758}# 1) + #{dots 3758}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# + #{dots 3758}# + '(())) + (#{id-var-name 410}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #{tmp 3754}#) + #f) + (@apply + (lambda (#{x 3761}# #{dots 3762}#) + (call-with-values + (lambda () + (#{cvt 3719}# + #{x 3761}# + (#{1+}# #{n 3743}#) + #{ids 3744}#)) + (lambda (#{p 3764}# #{ids 3765}#) + (values + (if (eq? #{p 3764}# 'any) + 'each-any + (vector 'each #{p 3764}#)) + #{ids 3765}#)))) + #{tmp 3754}#) + (begin + (let ((#{tmp 3768}# + ($sc-dispatch + #{p 3742}# + '(any any . any)))) + (if (if #{tmp 3768}# + (@apply + (lambda (#{x 3772}# + #{dots 3773}# + #{ys 3774}#) + (if (if (if (vector? #{dots 3773}#) + (if (= (vector-length + #{dots 3773}#) + 4) + (eq? (vector-ref + #{dots 3773}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref + #{dots 3773}# + 1)) + #f) + (if (eq? (if (if (vector? + #{dots 3773}#) + (if (= (vector-length + #{dots 3773}#) + 4) + (eq? (vector-ref + #{dots 3773}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{dots 3773}# + 1) + #{dots 3773}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# + #{dots 3773}# + '(())) + (#{id-var-name 410}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + '(()))) + #f) + #f)) + #{tmp 3768}#) + #f) + (@apply + (lambda (#{x 3778}# + #{dots 3779}# + #{ys 3780}#) + (call-with-values + (lambda () + (#{cvt* 3715}# + #{ys 3780}# + #{n 3743}# + #{ids 3744}#)) + (lambda (#{ys 3781}# #{ids 3782}#) + (call-with-values + (lambda () + (#{cvt 3719}# + #{x 3778}# + (#{1+}# #{n 3743}#) + #{ids 3782}#)) + (lambda (#{x 3785}# #{ids 3786}#) + (call-with-values + (lambda () + (#{v-reverse 3717}# + #{ys 3781}#)) + (lambda (#{ys 3789}# + #{e 3790}#) + (values + (vector + 'each+ + #{x 3785}# + #{ys 3789}# + #{e 3790}#) + #{ids 3786}#)))))))) + #{tmp 3768}#) + (begin + (let ((#{tmp 3794}# + ($sc-dispatch + #{p 3742}# + '(any . any)))) + (if #{tmp 3794}# + (@apply + (lambda (#{x 3797}# #{y 3798}#) + (call-with-values + (lambda () + (#{cvt 3719}# + #{y 3798}# + #{n 3743}# + #{ids 3744}#)) + (lambda (#{y 3799}# + #{ids 3800}#) + (call-with-values + (lambda () + (#{cvt 3719}# + #{x 3797}# + #{n 3743}# + #{ids 3800}#)) + (lambda (#{x 3803}# + #{ids 3804}#) + (values + (cons #{x 3803}# + #{y 3799}#) + #{ids 3804}#)))))) + #{tmp 3794}#) + (begin + (let ((#{tmp 3807}# + ($sc-dispatch + #{p 3742}# + '()))) + (if #{tmp 3807}# + (@apply + (lambda () + (values '() #{ids 3744}#)) + #{tmp 3807}#) + (begin + (let ((#{tmp 3808}# + ($sc-dispatch + #{p 3742}# + '#(vector + each-any)))) + (if #{tmp 3808}# + (@apply + (lambda (#{x 3810}#) + (call-with-values + (lambda () + (#{cvt 3719}# + #{x 3810}# + #{n 3743}# + #{ids 3744}#)) + (lambda (#{p 3812}# + #{ids 3813}#) + (values + (vector + 'vector + #{p 3812}#) + #{ids 3813}#)))) + #{tmp 3808}#) + (values + (vector + 'atom + (#{strip 462}# + #{p 3742}# + '(()))) + #{ids 3744}#)))))))))))))))))))) + (begin (#{cvt 3719}# #{pattern 3710}# 0 '()))))) + (#{build-dispatch-call 3705}# + (lambda (#{pvars 3819}# + #{exp 3820}# + #{y 3821}# + #{r 3822}# + #{mod 3823}#) + (begin + (let ((#{ids 3831}# (map car #{pvars 3819}#))) + (begin + (map cdr #{pvars 3819}#) + (begin + (let ((#{labels 3835}# + (#{gen-labels 368}# #{ids 3831}#)) + (#{new-vars 3836}# + (map #{gen-var 464}# #{ids 3831}#))) + (#{build-application 270}# + #f + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'apply) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'apply + #f)) + (list (#{build-simple-lambda 288}# + #f + (map syntax->datum #{ids 3831}#) + #f + #{new-vars 3836}# + '() + (#{chi 436}# + #{exp 3820}# + (#{extend-env 336}# + #{labels 3835}# + (map (lambda (#{var 3840}# + #{level 3841}#) + (cons 'syntax + (cons #{var 3840}# + #{level 3841}#))) + #{new-vars 3836}# + (map cdr #{pvars 3819}#)) + #{r 3822}#) + (#{make-binding-wrap 400}# + #{ids 3831}# + #{labels 3835}# + '(())) + #{mod 3823}#)) + #{y 3821}#))))))))) + (#{gen-clause 3707}# + (lambda (#{x 3847}# + #{keys 3848}# + #{clauses 3849}# + #{r 3850}# + #{pat 3851}# + #{fender 3852}# + #{exp 3853}# + #{mod 3854}#) + (call-with-values + (lambda () + (#{convert-pattern 3703}# + #{pat 3851}# + #{keys 3848}#)) + (lambda (#{p 3863}# #{pvars 3864}#) + (if (not (#{distinct-bound-ids? 418}# + (map car #{pvars 3864}#))) + (syntax-violation + 'syntax-case + "duplicate pattern variable" + #{pat 3851}#) + (if (not (and-map + (lambda (#{x 3871}#) + (not (begin + (let ((#{x 9163}# (car #{x 3871}#))) + (if (if (if (vector? #{x 9163}#) + (if (= (vector-length + #{x 9163}#) + 4) + (eq? (vector-ref + #{x 9163}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{x 9163}# 1)) + #f) + (if (eq? (if (if (vector? + #{x 9163}#) + (if (= (vector-length + #{x 9163}#) + 4) + (eq? (vector-ref + #{x 9163}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{x 9163}# + 1) + #{x 9163}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# + #{x 9163}# + '(())) + (#{id-var-name 410}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + '(()))) + #f) + #f))))) + #{pvars 3864}#)) + (syntax-violation + 'syntax-case + "misplaced ellipsis" + #{pat 3851}#) + (begin + (let ((#{y 3875}# + (gensym + (string-append (symbol->string 'tmp) " ")))) + (begin + (let ((#{fun-exp 9203}# + (begin + (let ((#{req 9208}# (list 'tmp)) + (#{vars 9210}# (list #{y 3875}#)) + (#{exp 9212}# + (begin + (let ((#{y 3879}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 3) + #f + 'tmp + #{y 3875}#))) + (begin + (let ((#{test-exp 9227}# + (begin + (let ((#{tmp 3883}# + ($sc-dispatch + #{fender 3852}# + '#(atom + #t)))) + (if #{tmp 3883}# + (@apply + (lambda () + #{y 3879}#) + #{tmp 3883}#) + (begin + (let ((#{then-exp 9234}# + (#{build-dispatch-call 3705}# + #{pvars 3864}# + #{fender 3852}# + #{y 3879}# + #{r 3850}# + #{mod 3854}#)) + (#{else-exp 9235}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #f))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 10) + #f + #{y 3879}# + #{then-exp 9234}# + #{else-exp 9235}#))))))) + (#{then-exp 9228}# + (#{build-dispatch-call 3705}# + #{pvars 3864}# + #{exp 3853}# + #{y 3879}# + #{r 3850}# + #{mod 3854}#)) + (#{else-exp 9229}# + (#{gen-syntax-case 3709}# + #{x 3847}# + #{keys 3848}# + #{clauses 3849}# + #{r 3850}# + #{mod 3854}#))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 10) + #f + #{test-exp 9227}# + #{then-exp 9228}# + #{else-exp 9229}#))))))) + (begin + (let ((#{body 9260}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 14) + #f + #{req 9208}# + #f + #f + #f + '() + #{vars 9210}# + #{exp 9212}# + #f))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 13) + #f + '() + #{body 9260}#)))))) + (#{arg-exps 9204}# + (list (if (eq? #{p 3863}# 'any) + (begin + (let ((#{fun-exp 9275}# + (if (equal? + (module-name + (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 7) + #f + 'list) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 5) + #f + '(guile) + 'list + #f))) + (#{arg-exps 9276}# + (list #{x 3847}#))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 11) + #f + #{fun-exp 9275}# + #{arg-exps 9276}#))) + (begin + (let ((#{fun-exp 9298}# + (if (equal? + (module-name + (current-module)) + '(guile)) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 7) + #f + '$sc-dispatch) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 5) + #f + '(guile) + '$sc-dispatch + #f))) + (#{arg-exps 9299}# + (list #{x 3847}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 1) + #f + #{p 3863}#)))) + (make-struct/no-tail + (vector-ref + %expanded-vtables + 11) + #f + #{fun-exp 9298}# + #{arg-exps 9299}#))))))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9203}# + #{arg-exps 9204}#))))))))))) + (#{gen-syntax-case 3709}# + (lambda (#{x 3893}# + #{keys 3894}# + #{clauses 3895}# + #{r 3896}# + #{mod 3897}#) + (if (null? #{clauses 3895}#) + (begin + (let ((#{fun-exp 9334}# + (if (equal? (module-name (current-module)) '(guile)) + (make-struct/no-tail + (vector-ref %expanded-vtables 7) + #f + 'syntax-violation) + (make-struct/no-tail + (vector-ref %expanded-vtables 5) + #f + '(guile) + 'syntax-violation + #f))) + (#{arg-exps 9335}# + (list (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + #f) + (make-struct/no-tail + (vector-ref %expanded-vtables 1) + #f + "source expression failed to match any pattern") + #{x 3893}#))) + (make-struct/no-tail + (vector-ref %expanded-vtables 11) + #f + #{fun-exp 9334}# + #{arg-exps 9335}#))) + (begin + (let ((#{tmp 3907}# (car #{clauses 3895}#))) + (begin + (let ((#{tmp 3908}# + ($sc-dispatch #{tmp 3907}# '(any any)))) + (if #{tmp 3908}# (@apply - (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 3891}#)))))))))))) + (lambda (#{pat 3911}# #{exp 3912}#) + (if (if (if (symbol? #{pat 3911}#) + #t + (if (if (vector? #{pat 3911}#) + (if (= (vector-length + #{pat 3911}#) + 4) + (eq? (vector-ref + #{pat 3911}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{pat 3911}# 1)) + #f)) + (and-map + (lambda (#{x 3915}#) + (not (if (eq? (if (if (vector? + #{pat 3911}#) + (if (= (vector-length + #{pat 3911}#) + 4) + (eq? (vector-ref + #{pat 3911}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{pat 3911}# + 1) + #{pat 3911}#) + (if (if (vector? + #{x 3915}#) + (if (= (vector-length + #{x 3915}#) + 4) + (eq? (vector-ref + #{x 3915}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{x 3915}# + 1) + #{x 3915}#)) + (eq? (#{id-var-name 410}# + #{pat 3911}# + '(())) + (#{id-var-name 410}# + #{x 3915}# + '(()))) + #f))) + (cons '#(syntax-object + ... + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + #{keys 3894}#)) + #f) + (if (if (eq? (if (if (= (vector-length + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" + "i3910")) + #(ribcage + () + () + ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" + "i3910")) + #(ribcage + () + () + ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile))) + (if (if (= (vector-length + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" + "i3910")) + #(ribcage + () + () + ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile))) + 4) + (eq? (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" + "i3910")) + #(ribcage + () + () + ()) + #(ribcage + #(x + keys + clauses + r + mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) + (top) + (top) + (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# + '#(syntax-object + pad + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + '(())) + (#{id-var-name 410}# + '#(syntax-object + _ + ((top) + #(ribcage + #(pat exp) + #((top) (top)) + #("i3909" "i3910")) + #(ribcage () () ()) + #(ribcage + #(x keys clauses r mod) + #((top) + (top) + (top) + (top) + (top)) + #("i3898" + "i3899" + "i3900" + "i3901" + "i3902")) + #(ribcage + (gen-syntax-case + gen-clause + build-dispatch-call + convert-pattern) + ((top) (top) (top) (top)) + ("i3708" + "i3706" + "i3704" + "i3702")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" "i43" "i42"))) + (hygiene guile)) + '(()))) + #f) + (#{chi 436}# + #{exp 3912}# + #{r 3896}# + '(()) + #{mod 3897}#) + (begin + (let ((#{labels 3920}# + (list (symbol->string + (gensym "i")))) + (#{var 3921}# + (begin + (let ((#{id 9472}# + (if (if (vector? + #{pat 3911}#) + (if (= (vector-length + #{pat 3911}#) + 4) + (eq? (vector-ref + #{pat 3911}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{pat 3911}# + 1) + #{pat 3911}#))) + (gensym + (string-append + (symbol->string + #{id 9472}#) + " ")))))) + (#{build-application 270}# + #f + (#{build-simple-lambda 288}# + #f + (list (syntax->datum #{pat 3911}#)) + #f + (list #{var 3921}#) + '() + (#{chi 436}# + #{exp 3912}# + (#{extend-env 336}# + #{labels 3920}# + (list (cons 'syntax + (cons #{var 3921}# + 0))) + #{r 3896}#) + (#{make-binding-wrap 400}# + (list #{pat 3911}#) + #{labels 3920}# + '(())) + #{mod 3897}#)) + (list #{x 3893}#))))) + (#{gen-clause 3707}# + #{x 3893}# + #{keys 3894}# + (cdr #{clauses 3895}#) + #{r 3896}# + #{pat 3911}# + #t + #{exp 3912}# + #{mod 3897}#))) + #{tmp 3908}#) + (begin + (let ((#{tmp 3927}# + ($sc-dispatch + #{tmp 3907}# + '(any any any)))) + (if #{tmp 3927}# + (@apply + (lambda (#{pat 3931}# + #{fender 3932}# + #{exp 3933}#) + (#{gen-clause 3707}# + #{x 3893}# + #{keys 3894}# + (cdr #{clauses 3895}#) + #{r 3896}# + #{pat 3931}# + #{fender 3932}# + #{exp 3933}# + #{mod 3897}#)) + #{tmp 3927}#) + (syntax-violation + 'syntax-case + "invalid clause" + (car #{clauses 3895}#)))))))))))))) (begin - (lambda (#{e 3932}# - #{r 3933}# - #{w 3934}# - #{s 3935}# - #{mod 3936}#) + (lambda (#{e 3936}# + #{r 3937}# + #{w 3938}# + #{s 3939}# + #{mod 3940}#) (begin - (let ((#{e 3943}# - (#{source-wrap 420}# - #{e 3932}# - #{w 3934}# - #{s 3935}# - #{mod 3936}#))) - (let ((#{tmp 3944}# #{e 3943}#)) - (let ((#{tmp 3945}# + (let ((#{e 3947}# + (#{wrap 422}# + (begin + (if (if (pair? #{e 3936}#) #{s 3939}# #f) + (set-source-properties! #{e 3936}# #{s 3939}#)) + #{e 3936}#) + #{w 3938}# + #{mod 3940}#))) + (begin + (let ((#{tmp 3949}# ($sc-dispatch - #{tmp 3944}# + #{e 3947}# '(_ any each-any . each-any)))) - (if #{tmp 3945}# + (if #{tmp 3949}# (@apply - (lambda (#{val 3949}# #{key 3950}# #{m 3951}#) + (lambda (#{val 3953}# #{key 3954}# #{m 3955}#) (if (and-map - (lambda (#{x 3952}#) - (if (#{id? 344}# #{x 3952}#) - (not (#{ellipsis? 448}# #{x 3952}#)) + (lambda (#{x 3956}#) + (if (if (symbol? #{x 3956}#) + #t + (if (if (vector? #{x 3956}#) + (if (= (vector-length + #{x 3956}#) + 4) + (eq? (vector-ref + #{x 3956}# + 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3956}# 1)) + #f)) + (not (if (if (if (vector? #{x 3956}#) + (if (= (vector-length + #{x 3956}#) + 4) + (eq? (vector-ref + #{x 3956}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{x 3956}# 1)) + #f) + (if (eq? (if (if (vector? + #{x 3956}#) + (if (= (vector-length + #{x 3956}#) + 4) + (eq? (vector-ref + #{x 3956}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{x 3956}# + 1) + #{x 3956}#) + (if (if (= (vector-length + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile))) + 4) + (eq? (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene + guile)) + 0) + 'syntax-object) + #f) + (vector-ref + '#(syntax-object + ... + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + 1) + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) + (top) + (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)))) + (eq? (#{id-var-name 410}# + #{x 3956}# + '(())) + (#{id-var-name 410}# + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i2228")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-dynlet + build-conditional + build-application + build-void + maybe-name-value! + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + set-lambda-meta! + lambda-meta + lambda? + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i409" + "i407" + "i405" + "i403" + "i401" + "i399" + "i397" + "i396" + "i394" + "i391" + "i390" + "i389" + "i387" + "i386" + "i384" + "i382" + "i380" + "i378" + "i376" + "i374" + "i372" + "i370" + "i367" + "i365" + "i364" + "i362" + "i360" + "i358" + "i356" + "i355" + "i354" + "i353" + "i351" + "i350" + "i347" + "i345" + "i343" + "i341" + "i339" + "i337" + "i335" + "i334" + "i333" + "i331" + "i329" + "i328" + "i325" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i303" + "i301" + "i299" + "i297" + "i295" + "i293" + "i291" + "i289" + "i287" + "i285" + "i283" + "i281" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i258" + "i255" + "i253" + "i252" + "i251" + "i250" + "i249" + "i247" + "i245" + "i243" + "i240" + "i238" + "i236" + "i234" + "i232" + "i230" + "i228" + "i226" + "i224" + "i222" + "i220" + "i218" + "i216" + "i214" + "i212" + "i210" + "i208" + "i206")) + #(ribcage + (define-structure + define-expansion-accessors + define-expansion-constructors) + ((top) (top) (top)) + ("i44" + "i43" + "i42"))) + (hygiene guile)) + '(()))) + #f) + #f)) #f)) - #{key 3950}#) + #{key 3954}#) (begin - (let ((#{x 3958}# (#{gen-var 460}# 'tmp))) - (#{build-application 266}# - #{s 3935}# - (#{build-simple-lambda 284}# - #f - (list 'tmp) - #f - (list #{x 3958}#) - '() - (#{gen-syntax-case 3705}# - (#{build-lexical-reference 272}# - 'value - #f - 'tmp - #{x 3958}#) - #{key 3950}# - #{m 3951}# - #{r 3933}# - #{mod 3936}#)) - (list (#{chi 432}# - #{val 3949}# - #{r 3933}# + (let ((#{x 3962}# + (gensym + (string-append + (symbol->string 'tmp) + " ")))) + (#{build-application 270}# + #{s 3939}# + (begin + (let ((#{req 9846}# (list 'tmp)) + (#{vars 9848}# (list #{x 3962}#)) + (#{exp 9850}# + (#{gen-syntax-case 3709}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 3) + #f + 'tmp + #{x 3962}#) + #{key 3954}# + #{m 3955}# + #{r 3937}# + #{mod 3940}#))) + (begin + (let ((#{body 9867}# + (make-struct/no-tail + (vector-ref + %expanded-vtables + 14) + #f + #{req 9846}# + #f + #f + #f + '() + #{vars 9848}# + #{exp 9850}# + #f))) + (make-struct/no-tail + (vector-ref %expanded-vtables 13) + #f + '() + #{body 9867}#))))) + (list (#{chi 436}# + #{val 3953}# + #{r 3937}# '(()) - #{mod 3936}#))))) + #{mod 3940}#))))) (syntax-violation 'syntax-case "invalid literals list" - #{e 3943}#))) - #{tmp 3945}#) + #{e 3947}#))) + #{tmp 3949}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 3944}#)))))))))) + #{e 3947}#)))))))))) (set! macroexpand (lambda* - (#{x 3964}# + (#{x 3968}# #:optional - (#{m 3966}# 'e) - (#{esew 3968}# '(eval))) - (#{chi-top-sequence 424}# - (list #{x 3964}#) + (#{m 3970}# 'e) + (#{esew 3972}# '(eval))) + (#{chi-top-sequence 428}# + (list #{x 3968}#) '() '((top)) #f - #{m 3966}# - #{esew 3968}# + #{m 3970}# + #{esew 3972}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 3972}#) - (#{nonsymbol-id? 342}# #{x 3972}#))) + (lambda (#{x 3976}#) + (if (if (vector? #{x 3976}#) + (if (= (vector-length #{x 3976}#) 4) + (eq? (vector-ref #{x 3976}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3976}# 1)) + #f))) (set! datum->syntax - (lambda (#{id 3974}# #{datum 3975}#) - (#{make-syntax-object 305}# - #{datum 3975}# - (#{syntax-object-wrap 311}# #{id 3974}#) - (#{syntax-object-module 313}# #{id 3974}#)))) + (lambda (#{id 3978}# #{datum 3979}#) + (begin + (let ((#{wrap 9941}# (vector-ref #{id 3978}# 2)) + (#{module 9942}# (vector-ref #{id 3978}# 3))) + (vector + 'syntax-object + #{datum 3979}# + #{wrap 9941}# + #{module 9942}#))))) (set! syntax->datum - (lambda (#{x 3978}#) - (#{strip 458}# #{x 3978}# '(())))) + (lambda (#{x 3982}#) + (#{strip 462}# #{x 3982}# '(())))) (set! syntax-source - (lambda (#{x 3981}#) - (#{source-annotation 322}# #{x 3981}#))) + (lambda (#{x 3985}#) + (#{source-annotation 326}# #{x 3985}#))) (set! generate-temporaries - (lambda (#{ls 3983}#) + (lambda (#{ls 3987}#) (begin + (if (not (list? #{ls 3987}#)) + (syntax-violation + 'generate-temporaries + "invalid argument" + #{ls 3987}#)) (begin - (let ((#{x 3987}# #{ls 3983}#)) - (if (not (list? #{x 3987}#)) - (syntax-violation - 'generate-temporaries - "invalid argument" - #{x 3987}#)))) - (begin - (let ((#{mod 3989}# + (let ((#{mod 3993}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 3990}#) - (#{wrap 418}# (gensym) '((top)) #{mod 3989}#)) - #{ls 3983}#)))))) + (map (lambda (#{x 3994}#) + (#{wrap 422}# (gensym) '((top)) #{mod 3993}#)) + #{ls 3987}#)))))) (set! free-identifier=? - (lambda (#{x 3994}# #{y 3995}#) + (lambda (#{x 3998}# #{y 3999}#) (begin - (begin - (let ((#{x 4000}# #{x 3994}#)) - (if (not (#{nonsymbol-id? 342}# #{x 4000}#)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x 4000}#)))) - (begin - (let ((#{x 4003}# #{y 3995}#)) - (if (not (#{nonsymbol-id? 342}# #{x 4003}#)) - (syntax-violation - 'free-identifier=? - "invalid argument" - #{x 4003}#)))) - (#{free-id=? 408}# #{x 3994}# #{y 3995}#)))) + (if (not (if (if (vector? #{x 3998}#) + (if (= (vector-length #{x 3998}#) 4) + (eq? (vector-ref #{x 3998}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 3998}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{x 3998}#)) + (if (not (if (if (vector? #{y 3999}#) + (if (= (vector-length #{y 3999}#) 4) + (eq? (vector-ref #{y 3999}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 3999}# 1)) + #f)) + (syntax-violation + 'free-identifier=? + "invalid argument" + #{y 3999}#)) + (if (eq? (if (if (vector? #{x 3998}#) + (if (= (vector-length #{x 3998}#) 4) + (eq? (vector-ref #{x 3998}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{x 3998}# 1) + #{x 3998}#) + (if (if (vector? #{y 3999}#) + (if (= (vector-length #{y 3999}#) 4) + (eq? (vector-ref #{y 3999}# 0) 'syntax-object) + #f) + #f) + (vector-ref #{y 3999}# 1) + #{y 3999}#)) + (eq? (#{id-var-name 410}# #{x 3998}# '(())) + (#{id-var-name 410}# #{y 3999}# '(()))) + #f)))) (set! bound-identifier=? - (lambda (#{x 4004}# #{y 4005}#) + (lambda (#{x 4008}# #{y 4009}#) (begin - (begin - (let ((#{x 4010}# #{x 4004}#)) - (if (not (#{nonsymbol-id? 342}# #{x 4010}#)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x 4010}#)))) - (begin - (let ((#{x 4013}# #{y 4005}#)) - (if (not (#{nonsymbol-id? 342}# #{x 4013}#)) - (syntax-violation - 'bound-identifier=? - "invalid argument" - #{x 4013}#)))) - (#{bound-id=? 410}# #{x 4004}# #{y 4005}#)))) + (if (not (if (if (vector? #{x 4008}#) + (if (= (vector-length #{x 4008}#) 4) + (eq? (vector-ref #{x 4008}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{x 4008}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{x 4008}#)) + (if (not (if (if (vector? #{y 4009}#) + (if (= (vector-length #{y 4009}#) 4) + (eq? (vector-ref #{y 4009}# 0) 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{y 4009}# 1)) + #f)) + (syntax-violation + 'bound-identifier=? + "invalid argument" + #{y 4009}#)) + (if (if (if (vector? #{x 4008}#) + (if (= (vector-length #{x 4008}#) 4) + (eq? (vector-ref #{x 4008}# 0) 'syntax-object) + #f) + #f) + (if (vector? #{y 4009}#) + (if (= (vector-length #{y 4009}#) 4) + (eq? (vector-ref #{y 4009}# 0) 'syntax-object) + #f) + #f) + #f) + (if (eq? (vector-ref #{x 4008}# 1) + (vector-ref #{y 4009}# 1)) + (#{same-marks? 408}# + (car (vector-ref #{x 4008}# 2)) + (car (vector-ref #{y 4009}# 2))) + #f) + (eq? #{x 4008}# #{y 4009}#))))) (set! syntax-violation (lambda* - (#{who 4014}# - #{message 4015}# - #{form 4016}# + (#{who 4018}# + #{message 4019}# + #{form 4020}# #:optional - (#{subform 4020}# #f)) + (#{subform 4024}# #f)) (begin - (begin - (let ((#{x 4024}# #{who 4014}#)) - (if (not (let ((#{x 4025}# #{x 4024}#)) - (begin - (let ((#{t 4029}# (not #{x 4025}#))) - (if #{t 4029}# - #{t 4029}# - (begin - (let ((#{t 4032}# (string? #{x 4025}#))) - (if #{t 4032}# - #{t 4032}# - (symbol? #{x 4025}#))))))))) - (syntax-violation - 'syntax-violation - "invalid argument" - #{x 4024}#)))) - (begin - (let ((#{x 4036}# #{message 4015}#)) - (if (not (string? #{x 4036}#)) - (syntax-violation - 'syntax-violation - "invalid argument" - #{x 4036}#)))) + (if (not (if (not #{who 4018}#) + (not #{who 4018}#) + (begin + (let ((#{t 4036}# (string? #{who 4018}#))) + (if #{t 4036}# + #{t 4036}# + (symbol? #{who 4018}#)))))) + (syntax-violation + 'syntax-violation + "invalid argument" + #{who 4018}#)) + (if (not (string? #{message 4019}#)) + (syntax-violation + 'syntax-violation + "invalid argument" + #{message 4019}#)) (throw 'syntax-error - #{who 4014}# - #{message 4015}# - (#{source-annotation 322}# - (begin - (let ((#{t 4039}# #{form 4016}#)) - (if #{t 4039}# #{t 4039}# #{subform 4020}#)))) - (#{strip 458}# #{form 4016}# '(())) - (if #{subform 4020}# - (#{strip 458}# #{subform 4020}# '(())) + #{who 4018}# + #{message 4019}# + (#{source-annotation 326}# + (if #{form 4020}# #{form 4020}# #{subform 4024}#)) + (#{strip 462}# #{form 4020}# '(())) + (if #{subform 4024}# + (#{strip 462}# #{subform 4024}# '(())) #f))))) (letrec* - ((#{match-each 4046}# - (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#) - (if (pair? #{e 4059}#) + ((#{match-each 4050}# + (lambda (#{e 4063}# #{p 4064}# #{w 4065}# #{mod 4066}#) + (if (pair? #{e 4063}#) (begin - (let ((#{first 4070}# - (#{match 4058}# - (car #{e 4059}#) - #{p 4060}# - #{w 4061}# + (let ((#{first 4074}# + (#{match 4062}# + (car #{e 4063}#) + #{p 4064}# + #{w 4065}# '() - #{mod 4062}#))) - (if #{first 4070}# + #{mod 4066}#))) + (if #{first 4074}# (begin - (let ((#{rest 4074}# - (#{match-each 4046}# - (cdr #{e 4059}#) - #{p 4060}# - #{w 4061}# - #{mod 4062}#))) - (if #{rest 4074}# - (cons #{first 4070}# #{rest 4074}#) + (let ((#{rest 4078}# + (#{match-each 4050}# + (cdr #{e 4063}#) + #{p 4064}# + #{w 4065}# + #{mod 4066}#))) + (if #{rest 4078}# + (cons #{first 4074}# #{rest 4078}#) #f))) #f))) - (if (null? #{e 4059}#) + (if (null? #{e 4063}#) '() - (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}#)) + (if (if (vector? #{e 4063}#) + (if (= (vector-length #{e 4063}#) 4) + (eq? (vector-ref #{e 4063}# 0) 'syntax-object) + #f) + #f) + (#{match-each 4050}# + (vector-ref #{e 4063}# 1) + #{p 4064}# + (#{join-wraps 404}# + #{w 4065}# + (vector-ref #{e 4063}# 2)) + (vector-ref #{e 4063}# 3)) #f))))) - (#{match-each+ 4048}# - (lambda (#{e 4082}# - #{x-pat 4083}# - #{y-pat 4084}# - #{z-pat 4085}# - #{w 4086}# - #{r 4087}# - #{mod 4088}#) + (#{match-each+ 4052}# + (lambda (#{e 4086}# + #{x-pat 4087}# + #{y-pat 4088}# + #{z-pat 4089}# + #{w 4090}# + #{r 4091}# + #{mod 4092}#) (letrec* - ((#{f 4099}# - (lambda (#{e 4100}# #{w 4101}#) - (if (pair? #{e 4100}#) + ((#{f 4103}# + (lambda (#{e 4104}# #{w 4105}#) + (if (pair? #{e 4104}#) (call-with-values (lambda () - (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#)) - (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#) - (if #{r 4106}# - (if (null? #{y-pat 4105}#) + (#{f 4103}# (cdr #{e 4104}#) #{w 4105}#)) + (lambda (#{xr* 4108}# #{y-pat 4109}# #{r 4110}#) + (if #{r 4110}# + (if (null? #{y-pat 4109}#) (begin - (let ((#{xr 4111}# - (#{match 4058}# - (car #{e 4100}#) - #{x-pat 4083}# - #{w 4101}# + (let ((#{xr 4115}# + (#{match 4062}# + (car #{e 4104}#) + #{x-pat 4087}# + #{w 4105}# '() - #{mod 4088}#))) - (if #{xr 4111}# + #{mod 4092}#))) + (if #{xr 4115}# (values - (cons #{xr 4111}# #{xr* 4104}#) - #{y-pat 4105}# - #{r 4106}#) + (cons #{xr 4115}# #{xr* 4108}#) + #{y-pat 4109}# + #{r 4110}#) (values #f #f #f)))) (values '() - (cdr #{y-pat 4105}#) - (#{match 4058}# - (car #{e 4100}#) - (car #{y-pat 4105}#) - #{w 4101}# - #{r 4106}# - #{mod 4088}#))) + (cdr #{y-pat 4109}#) + (#{match 4062}# + (car #{e 4104}#) + (car #{y-pat 4109}#) + #{w 4105}# + #{r 4110}# + #{mod 4092}#))) (values #f #f #f)))) - (if (#{syntax-object? 307}# #{e 4100}#) - (#{f 4099}# - (#{syntax-object-expression 309}# #{e 4100}#) - (#{join-wraps 400}# #{w 4101}# #{e 4100}#)) + (if (if (vector? #{e 4104}#) + (if (= (vector-length #{e 4104}#) 4) + (eq? (vector-ref #{e 4104}# 0) 'syntax-object) + #f) + #f) + (#{f 4103}# + (vector-ref #{e 4104}# 1) + (#{join-wraps 404}# #{w 4105}# #{e 4104}#)) (values '() - #{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}#) + #{y-pat 4088}# + (#{match 4062}# + #{e 4104}# + #{z-pat 4089}# + #{w 4105}# + #{r 4091}# + #{mod 4092}#))))))) + (begin (#{f 4103}# #{e 4086}# #{w 4090}#))))) + (#{match-each-any 4054}# + (lambda (#{e 4119}# #{w 4120}# #{mod 4121}#) + (if (pair? #{e 4119}#) (begin - (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}#) + (let ((#{l 4128}# + (#{match-each-any 4054}# + (cdr #{e 4119}#) + #{w 4120}# + #{mod 4121}#))) + (if #{l 4128}# + (cons (#{wrap 422}# + (car #{e 4119}#) + #{w 4120}# + #{mod 4121}#) + #{l 4128}#) #f))) - (if (null? #{e 4115}#) + (if (null? #{e 4119}#) '() - (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}#) + (if (if (vector? #{e 4119}#) + (if (= (vector-length #{e 4119}#) 4) + (eq? (vector-ref #{e 4119}# 0) 'syntax-object) + #f) + #f) + (#{match-each-any 4054}# + (vector-ref #{e 4119}# 1) + (#{join-wraps 404}# + #{w 4120}# + (vector-ref #{e 4119}# 2)) + #{mod 4121}#) #f))))) - (#{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}#) + (#{match-empty 4056}# + (lambda (#{p 4136}# #{r 4137}#) + (if (null? #{p 4136}#) + #{r 4137}# + (if (eq? #{p 4136}# '_) + #{r 4137}# + (if (eq? #{p 4136}# 'any) + (cons '() #{r 4137}#) + (if (pair? #{p 4136}#) + (#{match-empty 4056}# + (car #{p 4136}#) + (#{match-empty 4056}# + (cdr #{p 4136}#) + #{r 4137}#)) + (if (eq? #{p 4136}# 'each-any) + (cons '() #{r 4137}#) (begin - (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) + (let ((#{atom-key 4153}# (vector-ref #{p 4136}# 0))) + (if (eqv? #{atom-key 4153}# 'each) + (#{match-empty 4056}# + (vector-ref #{p 4136}# 1) + #{r 4137}#) + (if (eqv? #{atom-key 4153}# 'each+) + (#{match-empty 4056}# + (vector-ref #{p 4136}# 1) + (#{match-empty 4056}# + (reverse (vector-ref #{p 4136}# 2)) + (#{match-empty 4056}# + (vector-ref #{p 4136}# 3) + #{r 4137}#))) + (if (if (eqv? #{atom-key 4153}# 'free-id) #t - (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}#) + (eqv? #{atom-key 4153}# 'atom)) + #{r 4137}# + (if (eqv? #{atom-key 4153}# 'vector) + (#{match-empty 4056}# + (vector-ref #{p 4136}# 1) + #{r 4137}#)))))))))))))) + (#{combine 4058}# + (lambda (#{r* 4158}# #{r 4159}#) + (if (null? (car #{r* 4158}#)) + #{r 4159}# + (cons (map car #{r* 4158}#) + (#{combine 4058}# + (map cdr #{r* 4158}#) + #{r 4159}#))))) + (#{match* 4060}# + (lambda (#{e 4162}# + #{p 4163}# + #{w 4164}# + #{r 4165}# + #{mod 4166}#) + (if (null? #{p 4163}#) + (if (null? #{e 4162}#) #{r 4165}# #f) + (if (pair? #{p 4163}#) + (if (pair? #{e 4162}#) + (#{match 4062}# + (car #{e 4162}#) + (car #{p 4163}#) + #{w 4164}# + (#{match 4062}# + (cdr #{e 4162}#) + (cdr #{p 4163}#) + #{w 4164}# + #{r 4165}# + #{mod 4166}#) + #{mod 4166}#) #f) - (if (eq? #{p 4159}# 'each-any) + (if (eq? #{p 4163}# 'each-any) (begin - (let ((#{l 4179}# - (#{match-each-any 4050}# - #{e 4158}# - #{w 4160}# - #{mod 4162}#))) - (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f))) + (let ((#{l 4183}# + (#{match-each-any 4054}# + #{e 4162}# + #{w 4164}# + #{mod 4166}#))) + (if #{l 4183}# (cons #{l 4183}# #{r 4165}#) #f))) (begin - (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}#) + (let ((#{atom-key 4189}# (vector-ref #{p 4163}# 0))) + (if (eqv? #{atom-key 4189}# 'each) + (if (null? #{e 4162}#) + (#{match-empty 4056}# + (vector-ref #{p 4163}# 1) + #{r 4165}#) (begin - (let ((#{l 4188}# - (#{match-each 4046}# - #{e 4158}# - (vector-ref #{p 4159}# 1) - #{w 4160}# - #{mod 4162}#))) - (if #{l 4188}# + (let ((#{l 4192}# + (#{match-each 4050}# + #{e 4162}# + (vector-ref #{p 4163}# 1) + #{w 4164}# + #{mod 4166}#))) + (if #{l 4192}# (letrec* - ((#{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}#))) + ((#{collect 4197}# + (lambda (#{l 4198}#) + (if (null? (car #{l 4198}#)) + #{r 4165}# + (cons (map car #{l 4198}#) + (#{collect 4197}# + (map cdr #{l 4198}#))))))) + (begin (#{collect 4197}# #{l 4192}#))) #f)))) - (if (eqv? #{atom-key 4185}# 'each+) + (if (eqv? #{atom-key 4189}# 'each+) (call-with-values (lambda () - (#{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}#)) + (#{match-each+ 4052}# + #{e 4162}# + (vector-ref #{p 4163}# 1) + (vector-ref #{p 4163}# 2) + (vector-ref #{p 4163}# 3) + #{w 4164}# + #{r 4165}# + #{mod 4166}#)) + (lambda (#{xr* 4200}# #{y-pat 4201}# #{r 4202}#) + (if #{r 4202}# + (if (null? #{y-pat 4201}#) + (if (null? #{xr* 4200}#) + (#{match-empty 4056}# + (vector-ref #{p 4163}# 1) + #{r 4202}#) + (#{combine 4058}# + #{xr* 4200}# + #{r 4202}#)) #f) #f))) - (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}# + (if (eqv? #{atom-key 4189}# 'free-id) + (if (if (symbol? #{e 4162}#) + #t + (if (if (vector? #{e 4162}#) + (if (= (vector-length #{e 4162}#) 4) + (eq? (vector-ref #{e 4162}# 0) + 'syntax-object) + #f) + #f) + (symbol? (vector-ref #{e 4162}# 1)) + #f)) + (if (begin + (let ((#{i 10361}# + (#{wrap 422}# + #{e 4162}# + #{w 4164}# + #{mod 4166}#)) + (#{j 10362}# + (vector-ref #{p 4163}# 1))) + (if (eq? (if (if (vector? #{i 10361}#) + (if (= (vector-length + #{i 10361}#) + 4) + (eq? (vector-ref + #{i 10361}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{i 10361}# 1) + #{i 10361}#) + (if (if (vector? #{j 10362}#) + (if (= (vector-length + #{j 10362}#) + 4) + (eq? (vector-ref + #{j 10362}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref #{j 10362}# 1) + #{j 10362}#)) + (eq? (#{id-var-name 410}# + #{i 10361}# + '(())) + (#{id-var-name 410}# + #{j 10362}# + '(()))) + #f))) + #{r 4165}# #f) #f) - (if (eqv? #{atom-key 4185}# 'atom) + (if (eqv? #{atom-key 4189}# 'atom) (if (equal? - (vector-ref #{p 4159}# 1) - (#{strip 458}# #{e 4158}# #{w 4160}#)) - #{r 4161}# + (vector-ref #{p 4163}# 1) + (#{strip 462}# #{e 4162}# #{w 4164}#)) + #{r 4165}# #f) - (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}#) + (if (eqv? #{atom-key 4189}# 'vector) + (if (vector? #{e 4162}#) + (#{match 4062}# + (vector->list #{e 4162}#) + (vector-ref #{p 4163}# 1) + #{w 4164}# + #{r 4165}# + #{mod 4166}#) #f))))))))))))) - (#{match 4058}# - (lambda (#{e 4215}# - #{p 4216}# - #{w 4217}# - #{r 4218}# - #{mod 4219}#) - (if (not #{r 4218}#) + (#{match 4062}# + (lambda (#{e 4219}# + #{p 4220}# + #{w 4221}# + #{r 4222}# + #{mod 4223}#) + (if (not #{r 4222}#) #f - (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}#)))))))) + (if (eq? #{p 4220}# '_) + #{r 4222}# + (if (eq? #{p 4220}# 'any) + (cons (#{wrap 422}# #{e 4219}# #{w 4221}# #{mod 4223}#) + #{r 4222}#) + (if (if (vector? #{e 4219}#) + (if (= (vector-length #{e 4219}#) 4) + (eq? (vector-ref #{e 4219}# 0) 'syntax-object) + #f) + #f) + (#{match* 4060}# + (vector-ref #{e 4219}# 1) + #{p 4220}# + (#{join-wraps 404}# + #{w 4221}# + (vector-ref #{e 4219}# 2)) + #{r 4222}# + (vector-ref #{e 4219}# 3)) + (#{match* 4060}# + #{e 4219}# + #{p 4220}# + #{w 4221}# + #{r 4222}# + #{mod 4223}#)))))))) (begin (set! $sc-dispatch - (lambda (#{e 4234}# #{p 4235}#) - (if (eq? #{p 4235}# 'any) - (list #{e 4234}#) - (if (eq? #{p 4235}# '_) + (lambda (#{e 4238}# #{p 4239}#) + (if (eq? #{p 4239}# 'any) + (list #{e 4238}#) + (if (eq? #{p 4239}# '_) '() - (if (#{syntax-object? 307}# #{e 4234}#) - (#{match* 4056}# - (#{syntax-object-expression 309}# #{e 4234}#) - #{p 4235}# - (#{syntax-object-wrap 311}# #{e 4234}#) + (if (if (vector? #{e 4238}#) + (if (= (vector-length #{e 4238}#) 4) + (eq? (vector-ref #{e 4238}# 0) 'syntax-object) + #f) + #f) + (#{match* 4060}# + (vector-ref #{e 4238}# 1) + #{p 4239}# + (vector-ref #{e 4238}# 2) '() - (#{syntax-object-module 313}# #{e 4234}#)) - (#{match* 4056}# - #{e 4234}# - #{p 4235}# + (vector-ref #{e 4238}# 3)) + (#{match* 4060}# + #{e 4238}# + #{p 4239}# '(()) '() #f))))))))))) @@ -14137,146 +29117,159 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 4246}#) - (let ((#{tmp 4248}# #{x 4246}#)) - (let ((#{tmp 4249}# - ($sc-dispatch - #{tmp 4248}# - '(_ () any . each-any)))) - (if #{tmp 4249}# + (lambda (#{x 10408}#) + (begin + (let ((#{tmp 10411}# + ($sc-dispatch #{x 10408}# '(_ () any . each-any)))) + (if #{tmp 10411}# (@apply - (lambda (#{e1 4252}# #{e2 4253}#) + (lambda (#{e1 10414}# #{e2 10415}#) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("i4250" "i4251")) + #("i10412" "i10413")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4247"))) + #(ribcage #(x) #((top)) #("i10409"))) (hygiene guile)) - (cons '() (cons #{e1 4252}# #{e2 4253}#)))) - #{tmp 4249}#) - (let ((#{tmp 4255}# - ($sc-dispatch - #{tmp 4248}# - '(_ ((any any)) any . each-any)))) - (if #{tmp 4255}# - (@apply - (lambda (#{out 4260}# - #{in 4261}# - #{e1 4262}# - #{e2 4263}#) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i4256" "i4257" "i4258" "i4259")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4247"))) - (hygiene guile)) - #{in 4261}# - '() - (list #{out 4260}# - (cons '#(syntax-object - let - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i4256" "i4257" "i4258" "i4259")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4247"))) - (hygiene guile)) - (cons '() - (cons #{e1 4262}# #{e2 4263}#)))))) - #{tmp 4255}#) - (let ((#{tmp 4265}# - ($sc-dispatch - #{tmp 4248}# - '(_ #(each (any any)) any . each-any)))) - (if #{tmp 4265}# - (@apply - (lambda (#{out 4270}# - #{in 4271}# - #{e1 4272}# - #{e2 4273}#) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4247"))) - (hygiene guile)) - (cons '#(syntax-object - list - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i4266" "i4267" "i4268" "i4269")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4247"))) - (hygiene guile)) - #{in 4271}#) - '() - (list #{out 4270}# - (cons '#(syntax-object - let - ((top) - #(ribcage - #(out in e1 e2) - #((top) (top) (top) (top)) - #("i4266" - "i4267" - "i4268" - "i4269")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4247"))) - (hygiene guile)) - (cons '() - (cons #{e1 4272}# - #{e2 4273}#)))))) - #{tmp 4265}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4248}#))))))))))) + (cons '() (cons #{e1 10414}# #{e2 10415}#)))) + #{tmp 10411}#) + (begin + (let ((#{tmp 10417}# + ($sc-dispatch + #{x 10408}# + '(_ ((any any)) any . each-any)))) + (if #{tmp 10417}# + (@apply + (lambda (#{out 10422}# + #{in 10423}# + #{e1 10424}# + #{e2 10425}#) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10418" "i10419" "i10420" "i10421")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10409"))) + (hygiene guile)) + #{in 10423}# + '() + (list #{out 10422}# + (cons '#(syntax-object + let + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10418" + "i10419" + "i10420" + "i10421")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10409"))) + (hygiene guile)) + (cons '() + (cons #{e1 10424}# + #{e2 10425}#)))))) + #{tmp 10417}#) + (begin + (let ((#{tmp 10427}# + ($sc-dispatch + #{x 10408}# + '(_ #(each (any any)) any . each-any)))) + (if #{tmp 10427}# + (@apply + (lambda (#{out 10432}# + #{in 10433}# + #{e1 10434}# + #{e2 10435}#) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10428" "i10429" "i10430" "i10431")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10409"))) + (hygiene guile)) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10428" + "i10429" + "i10430" + "i10431")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10409"))) + (hygiene guile)) + #{in 10433}#) + '() + (list #{out 10432}# + (cons '#(syntax-object + let + ((top) + #(ribcage + #(out in e1 e2) + #((top) (top) (top) (top)) + #("i10428" + "i10429" + "i10430" + "i10431")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10409"))) + (hygiene guile)) + (cons '() + (cons #{e1 10434}# + #{e2 10435}#)))))) + #{tmp 10427}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10408}#))))))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 4277}#) - (let ((#{tmp 4279}# #{x 4277}#)) - (let ((#{tmp 4280}# + (lambda (#{x 10439}#) + (begin + (let ((#{tmp 10442}# ($sc-dispatch - #{tmp 4279}# + #{x 10439}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 4280}# + (if #{tmp 10442}# (@apply - (lambda (#{k 4285}# - #{keyword 4286}# - #{pattern 4287}# - #{template 4288}#) + (lambda (#{k 10447}# + #{keyword 10448}# + #{pattern 10449}# + #{template 10450}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) '(#(syntax-object x @@ -14284,9 +29277,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile))) (vector '(#(syntax-object @@ -14295,9 +29288,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) . #(syntax-object @@ -14306,9 +29299,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -14316,20 +29309,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) - #{pattern 4287}#)) + #{pattern 10449}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) (cons '#(syntax-object x @@ -14337,13 +29330,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("i4281" "i4282" "i4283" "i4284")) + #("i10443" "i10444" "i10445" "i10446")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) - (cons #{k 4285}# - (map (lambda (#{tmp 4292}# - #{tmp 4291}#) + (cons #{k 10447}# + (map (lambda (#{tmp 10454}# + #{tmp 10453}#) (list (cons '#(syntax-object dummy ((top) @@ -14356,10 +29349,10 @@ (top) (top) (top)) - #("i4281" - "i4282" - "i4283" - "i4284")) + #("i10443" + "i10444" + "i10445" + "i10446")) #(ribcage () () @@ -14367,9 +29360,9 @@ #(ribcage #(x) #((top)) - #("i4278"))) + #("i10440"))) (hygiene guile)) - #{tmp 4291}#) + #{tmp 10453}#) (list '#(syntax-object syntax ((top) @@ -14382,10 +29375,10 @@ (top) (top) (top)) - #("i4281" - "i4282" - "i4283" - "i4284")) + #("i10443" + "i10444" + "i10445" + "i10446")) #(ribcage () () @@ -14393,226 +29386,250 @@ #(ribcage #(x) #((top)) - #("i4278"))) + #("i10440"))) (hygiene guile)) - #{tmp 4292}#))) - #{template 4288}# - #{pattern 4287}#)))))) - #{tmp 4280}#) - (let ((#{tmp 4293}# - ($sc-dispatch - #{tmp 4279}# - '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 4293}# - (@apply - (lambda (#{k 4299}# - #{docstring 4300}# - #{keyword 4301}# - #{pattern 4302}# - #{template 4303}#) - (string? (syntax->datum #{docstring 4300}#))) - #{tmp 4293}#) - #f) - (@apply - (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)) - #("i4304" "i4305" "i4306" "i4307" "i4308")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) - (hygiene guile)) - '(#(syntax-object - x - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4304" "i4305" "i4306" "i4307" "i4308")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) - (hygiene guile))) - #{docstring 4310}# - (vector + #{tmp 10454}#))) + #{template 10450}# + #{pattern 10449}#)))))) + #{tmp 10442}#) + (begin + (let ((#{tmp 10455}# + ($sc-dispatch + #{x 10439}# + '(_ each-any any . #(each ((any . any) any)))))) + (if (if #{tmp 10455}# + (@apply + (lambda (#{k 10461}# + #{docstring 10462}# + #{keyword 10463}# + #{pattern 10464}# + #{template 10465}#) + (string? (syntax->datum #{docstring 10462}#))) + #{tmp 10455}#) + #f) + (@apply + (lambda (#{k 10471}# + #{docstring 10472}# + #{keyword 10473}# + #{pattern 10474}# + #{template 10475}#) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10440"))) + (hygiene guile)) '(#(syntax-object - macro-type + x ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4304" "i4305" "i4306" "i4307" "i4308")) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) - (hygiene guile)) - . - #(syntax-object - syntax-rules - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4304" "i4305" "i4306" "i4307" "i4308")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile))) + #{docstring 10472}# + (vector + '(#(syntax-object + macro-type + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10440"))) + (hygiene guile)) + . + #(syntax-object + syntax-rules + ((top) + #(ribcage + #(k docstring keyword pattern template) + #((top) (top) (top) (top) (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10440"))) + (hygiene guile))) + (cons '#(syntax-object + patterns + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) (top) (top) (top) (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10440"))) + (hygiene guile)) + #{pattern 10474}#)) (cons '#(syntax-object - patterns + syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4304" - "i4305" - "i4306" - "i4307" - "i4308")) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) + #(ribcage #(x) #((top)) #("i10440"))) (hygiene guile)) - #{pattern 4312}#)) - (cons '#(syntax-object - syntax-case - ((top) - #(ribcage - #(k docstring keyword pattern template) - #((top) (top) (top) (top) (top)) - #("i4304" - "i4305" - "i4306" - "i4307" - "i4308")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) - (hygiene guile)) - (cons '#(syntax-object - x - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) (top) (top) (top) (top)) - #("i4304" - "i4305" - "i4306" - "i4307" - "i4308")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4278"))) - (hygiene guile)) - (cons #{k 4309}# - (map (lambda (#{tmp 4317}# - #{tmp 4316}#) - (list (cons '#(syntax-object - dummy - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i4304" - "i4305" - "i4306" - "i4307" - "i4308")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4278"))) - (hygiene - guile)) - #{tmp 4316}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(k - docstring - keyword - pattern - template) - #((top) - (top) - (top) - (top) - (top)) - #("i4304" - "i4305" - "i4306" - "i4307" - "i4308")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4278"))) - (hygiene - guile)) - #{tmp 4317}#))) - #{template 4313}# - #{pattern 4312}#)))))) - #{tmp 4293}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4279}#))))))))) + (cons '#(syntax-object + x + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) (top) (top) (top) (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10440"))) + (hygiene guile)) + (cons #{k 10471}# + (map (lambda (#{tmp 10479}# + #{tmp 10478}#) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10440"))) + (hygiene + guile)) + #{tmp 10478}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(k + docstring + keyword + pattern + template) + #((top) + (top) + (top) + (top) + (top)) + #("i10466" + "i10467" + "i10468" + "i10469" + "i10470")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10440"))) + (hygiene + guile)) + #{tmp 10479}#))) + #{template 10475}# + #{pattern 10474}#)))))) + #{tmp 10455}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10439}#)))))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 4318}#) - (let ((#{tmp 4320}# #{x 4318}#)) - (let ((#{tmp 4321}# - ($sc-dispatch #{tmp 4320}# '(_ (any . any) any)))) - (if #{tmp 4321}# + (lambda (#{x 10480}#) + (begin + (let ((#{tmp 10483}# + ($sc-dispatch #{x 10480}# '(_ (any . any) any)))) + (if #{tmp 10483}# (@apply - (lambda (#{name 4325}# - #{pattern 4326}# - #{template 4327}#) + (lambda (#{name 10487}# + #{pattern 10488}# + #{template 10489}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4322" "i4323" "i4324")) + #("i10484" "i10485" "i10486")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4319"))) + #(ribcage #(x) #((top)) #("i10481"))) (hygiene guile)) - #{name 4325}# + #{name 10487}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4322" "i4323" "i4324")) + #("i10484" "i10485" "i10486")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4319"))) + #(ribcage #(x) #((top)) #("i10481"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -14621,114 +29638,115 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("i4322" "i4323" "i4324")) + #("i10484" "i10485" "i10486")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4319"))) + #("i10481"))) (hygiene guile)) - #{pattern 4326}#) - #{template 4327}#)))) - #{tmp 4321}#) - (let ((#{tmp 4328}# - ($sc-dispatch - #{tmp 4320}# - '(_ (any . any) any any)))) - (if (if #{tmp 4328}# - (@apply - (lambda (#{name 4333}# - #{pattern 4334}# - #{docstring 4335}# - #{template 4336}#) - (string? (syntax->datum #{docstring 4335}#))) - #{tmp 4328}#) - #f) - (@apply - (lambda (#{name 4341}# - #{pattern 4342}# - #{docstring 4343}# - #{template 4344}#) - (list '#(syntax-object - define-syntax - ((top) - #(ribcage - #(name pattern docstring template) - #((top) (top) (top) (top)) - #("i4337" "i4338" "i4339" "i4340")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4319"))) - (hygiene guile)) - #{name 4341}# - (list '#(syntax-object - syntax-rules - ((top) - #(ribcage - #(name pattern docstring template) - #((top) (top) (top) (top)) - #("i4337" "i4338" "i4339" "i4340")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4319"))) - (hygiene guile)) - '() - #{docstring 4343}# - (list (cons '#(syntax-object - _ - ((top) - #(ribcage - #(name - pattern - docstring - template) - #((top) (top) (top) (top)) - #("i4337" - "i4338" - "i4339" - "i4340")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4319"))) - (hygiene guile)) - #{pattern 4342}#) - #{template 4344}#)))) - #{tmp 4328}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4320}#))))))))) + #{pattern 10488}#) + #{template 10489}#)))) + #{tmp 10483}#) + (begin + (let ((#{tmp 10490}# + ($sc-dispatch + #{x 10480}# + '(_ (any . any) any any)))) + (if (if #{tmp 10490}# + (@apply + (lambda (#{name 10495}# + #{pattern 10496}# + #{docstring 10497}# + #{template 10498}#) + (string? (syntax->datum #{docstring 10497}#))) + #{tmp 10490}#) + #f) + (@apply + (lambda (#{name 10503}# + #{pattern 10504}# + #{docstring 10505}# + #{template 10506}#) + (list '#(syntax-object + define-syntax + ((top) + #(ribcage + #(name pattern docstring template) + #((top) (top) (top) (top)) + #("i10499" "i10500" "i10501" "i10502")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10481"))) + (hygiene guile)) + #{name 10503}# + (list '#(syntax-object + syntax-rules + ((top) + #(ribcage + #(name pattern docstring template) + #((top) (top) (top) (top)) + #("i10499" "i10500" "i10501" "i10502")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10481"))) + (hygiene guile)) + '() + #{docstring 10505}# + (list (cons '#(syntax-object + _ + ((top) + #(ribcage + #(name + pattern + docstring + template) + #((top) (top) (top) (top)) + #("i10499" + "i10500" + "i10501" + "i10502")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10481"))) + (hygiene guile)) + #{pattern 10504}#) + #{template 10506}#)))) + #{tmp 10490}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10480}#)))))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 4345}#) - (let ((#{tmp 4347}# #{x 4345}#)) - (let ((#{tmp 4348}# + (lambda (#{x 10507}#) + (begin + (let ((#{tmp 10510}# ($sc-dispatch - #{tmp 4347}# + #{x 10507}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 4348}# + (if (if #{tmp 10510}# (@apply - (lambda (#{let* 4354}# - #{x 4355}# - #{v 4356}# - #{e1 4357}# - #{e2 4358}#) - (and-map identifier? #{x 4355}#)) - #{tmp 4348}#) + (lambda (#{let* 10516}# + #{x 10517}# + #{v 10518}# + #{e1 10519}# + #{e2 10520}#) + (and-map identifier? #{x 10517}#)) + #{tmp 10510}#) #f) (@apply - (lambda (#{let* 4365}# - #{x 4366}# - #{v 4367}# - #{e1 4368}# - #{e2 4369}#) + (lambda (#{let* 10527}# + #{x 10528}# + #{v 10529}# + #{e1 10530}# + #{e2 10531}#) (letrec* - ((#{f 4372}# - (lambda (#{bindings 4373}#) - (if (null? #{bindings 4373}#) + ((#{f 10534}# + (lambda (#{bindings 10535}#) + (if (null? #{bindings 10535}#) (cons '#(syntax-object let ((top) @@ -14736,341 +29754,145 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4370" "i4371")) + #("i10532" "i10533")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("i4360" - "i4361" - "i4362" - "i4363" - "i4364")) + #("i10522" + "i10523" + "i10524" + "i10525" + "i10526")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4346"))) + #(ribcage #(x) #((top)) #("i10508"))) (hygiene guile)) - (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 4382}# #{binding 4383}#) - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(body binding) - #((top) (top)) - #("i4380" "i4381")) - #(ribcage () () ()) - #(ribcage - #(f bindings) - #((top) (top)) - #("i4370" "i4371")) - #(ribcage - #(let* x v e1 e2) - #((top) (top) (top) (top) (top)) - #("i4360" - "i4361" - "i4362" - "i4363" - "i4364")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4346"))) - (hygiene guile)) - (list #{binding 4383}#) - #{body 4382}#)) - #{tmp 4379}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4378}#)))))))) + (cons '() (cons #{e1 10530}# #{e2 10531}#))) + (begin + (let ((#{tmp 10540}# + (list (#{f 10534}# (cdr #{bindings 10535}#)) + (car #{bindings 10535}#)))) + (begin + (let ((#{tmp 10541}# + ($sc-dispatch + #{tmp 10540}# + '(any any)))) + (if #{tmp 10541}# + (@apply + (lambda (#{body 10544}# #{binding 10545}#) + (list '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(body binding) + #((top) (top)) + #("i10542" "i10543")) + #(ribcage () () ()) + #(ribcage + #(f bindings) + #((top) (top)) + #("i10532" "i10533")) + #(ribcage + #(let* x v e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i10522" + "i10523" + "i10524" + "i10525" + "i10526")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10508"))) + (hygiene guile)) + (list #{binding 10545}#) + #{body 10544}#)) + #{tmp 10541}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10540}#)))))))))) (begin - (#{f 4372}# (map list #{x 4366}# #{v 4367}#))))) - #{tmp 4348}#) + (#{f 10534}# (map list #{x 10528}# #{v 10529}#))))) + #{tmp 10510}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4347}#))))))) + #{x 10507}#))))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 4384}#) - (let ((#{tmp 4386}# #{orig-x 4384}#)) - (let ((#{tmp 4387}# + (lambda (#{orig-x 10547}#) + (begin + (let ((#{tmp 10550}# ($sc-dispatch - #{tmp 4386}# + #{orig-x 10547}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 4387}# + (if #{tmp 10550}# (@apply - (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 4422}#) - #{tmp 4427}#) - (let ((#{tmp 4428}# - ($sc-dispatch - #{tmp 4426}# - '(any)))) - (if #{tmp 4428}# - (@apply - (lambda (#{e 4430}#) #{e 4430}#) - #{tmp 4428}#) - (let ((#{_ 4432}# #{tmp 4426}#)) - (syntax-violation - 'do - "bad step expression" - #{orig-x 4384}# - #{s 4423}#)))))))) - #{var 4394}# - #{step 4396}#))) - (let ((#{tmp 4402}# - ($sc-dispatch #{tmp 4401}# 'each-any))) - (if #{tmp 4402}# - (@apply - (lambda (#{step 4404}#) - (let ((#{tmp 4405}# #{e1 4398}#)) - (let ((#{tmp 4406}# - ($sc-dispatch #{tmp 4405}# '()))) - (if #{tmp 4406}# - (@apply - (lambda () - (list '#(syntax-object - let - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var init step e0 e1 c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene guile)) - '#(syntax-object - doloop - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var init step e0 e1 c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene guile)) - (map list #{var 4394}# #{init 4395}#) - (list '#(syntax-object - if - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var init step e0 e1 c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene guile)) - (list '#(syntax-object - not - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene guile)) - #{e0 4397}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage () () ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage () () ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene guile)) - (append - #{c 4399}# - (list (cons '#(syntax-object - doloop - ((top) - #(ribcage - () - () - ()) - #(ribcage - #(step) - #((top)) - #("i4403")) - #(ribcage - #(var - init - step - e0 - e1 - c) - #((top) - (top) - (top) - (top) - (top) - (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) - #(ribcage - () - () - ()) - #(ribcage - #(orig-x) - #((top)) - #("i4385"))) - (hygiene - guile)) - #{step 4404}#))))))) - #{tmp 4406}#) - (let ((#{tmp 4411}# - ($sc-dispatch - #{tmp 4405}# - '(any . each-any)))) - (if #{tmp 4411}# + (lambda (#{var 10557}# + #{init 10558}# + #{step 10559}# + #{e0 10560}# + #{e1 10561}# + #{c 10562}#) + (begin + (let ((#{tmp 10564}# + (map (lambda (#{v 10585}# #{s 10586}#) + (begin + (let ((#{tmp 10590}# + ($sc-dispatch #{s 10586}# '()))) + (if #{tmp 10590}# + (@apply + (lambda () #{v 10585}#) + #{tmp 10590}#) + (begin + (let ((#{tmp 10591}# + ($sc-dispatch + #{s 10586}# + '(any)))) + (if #{tmp 10591}# + (@apply + (lambda (#{e 10593}#) + #{e 10593}#) + #{tmp 10591}#) + (syntax-violation + 'do + "bad step expression" + #{orig-x 10547}# + #{s 10586}#)))))))) + #{var 10557}# + #{step 10559}#))) + (begin + (let ((#{tmp 10565}# + ($sc-dispatch #{tmp 10564}# 'each-any))) + (if #{tmp 10565}# + (@apply + (lambda (#{step 10567}#) + (begin + (let ((#{tmp 10569}# + ($sc-dispatch #{e1 10561}# '()))) + (if #{tmp 10569}# (@apply - (lambda (#{e1 4414}# #{e2 4415}#) + (lambda () (list '#(syntax-object let ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15079,30 +29901,26 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) '#(syntax-object doloop ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init step e0 e1 c) #((top) @@ -15111,33 +29929,29 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) (map list - #{var 4394}# - #{init 4395}#) + #{var 10557}# + #{init 10558}#) (list '#(syntax-object if ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i4412" "i4413")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init @@ -15151,35 +29965,29 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) - #{e0 4397}# - (cons '#(syntax-object - begin + (list '#(syntax-object + not ((top) #(ribcage - #(e1 e2) - #((top) (top)) - #("i4412" - "i4413")) - #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init @@ -15193,12 +30001,12 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () @@ -15206,26 +30014,20 @@ #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) - (cons #{e1 4414}# - #{e2 4415}#)) + #{e0 10560}#) (cons '#(syntax-object begin ((top) #(ribcage - #(e1 e2) - #((top) (top)) - #("i4412" - "i4413")) - #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init @@ -15239,12 +30041,12 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () @@ -15252,28 +30054,21 @@ #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) (append - #{c 4399}# + #{c 10562}# (list (cons '#(syntax-object doloop ((top) #(ribcage - #(e1 - e2) - #((top) - (top)) - #("i4412" - "i4413")) - #(ribcage () () ()) #(ribcage #(step) #((top)) - #("i4403")) + #("i10566")) #(ribcage #(var init @@ -15287,12 +30082,12 @@ (top) (top) (top)) - #("i4388" - "i4389" - "i4390" - "i4391" - "i4392" - "i4393")) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) #(ribcage () () @@ -15300,37 +30095,312 @@ #(ribcage #(orig-x) #((top)) - #("i4385"))) + #("i10548"))) (hygiene guile)) - #{step 4404}#))))))) - #{tmp 4411}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4405}#))))))) - #{tmp 4402}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4401}#))))) - #{tmp 4387}#) + #{step 10567}#))))))) + #{tmp 10569}#) + (begin + (let ((#{tmp 10574}# + ($sc-dispatch + #{e1 10561}# + '(any . each-any)))) + (if #{tmp 10574}# + (@apply + (lambda (#{e1 10577}# #{e2 10578}#) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10575" "i10576")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene guile)) + '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10575" "i10576")) + #(ribcage () () ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage () () ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene guile)) + (map list + #{var 10557}# + #{init 10558}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i10575" + "i10576")) + #(ribcage + () + () + ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene guile)) + #{e0 10560}# + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i10575" + "i10576")) + #(ribcage + () + () + ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene + guile)) + (cons #{e1 10577}# + #{e2 10578}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i10575" + "i10576")) + #(ribcage + () + () + ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene + guile)) + (append + #{c 10562}# + (list (cons '#(syntax-object + doloop + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i10575" + "i10576")) + #(ribcage + () + () + ()) + #(ribcage + #(step) + #((top)) + #("i10566")) + #(ribcage + #(var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i10551" + "i10552" + "i10553" + "i10554" + "i10555" + "i10556")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i10548"))) + (hygiene + guile)) + #{step 10567}#))))))) + #{tmp 10574}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{e1 10561}#)))))))) + #{tmp 10565}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10564}#))))))) + #{tmp 10550}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4386}#))))))) + #{orig-x 10547}#))))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 4436}# - (lambda (#{p 4449}# #{lev 4450}#) - (let ((#{tmp 4453}# #{p 4449}#)) - (let ((#{tmp 4454}# + ((#{quasi 10599}# + (lambda (#{p 10612}# #{lev 10613}#) + (begin + (let ((#{tmp 10617}# ($sc-dispatch - #{tmp 4453}# + #{p 10612}# '(#(free-id #(syntax-object unquote @@ -15339,7 +30409,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15348,28 +30418,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) any)))) - (if #{tmp 4454}# + (if #{tmp 10617}# (@apply - (lambda (#{p 4456}#) - (if (= #{lev 4450}# 0) + (lambda (#{p 10619}#) + (if (= #{lev 10613}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("i4455")) + #(ribcage #(p) #((top)) #("i10618")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15378,25 +30448,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{p 4456}#) - (#{quasicons 4440}# + #{p 10619}#) + (#{quasicons 10603}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4455")) + #(ribcage #(p) #((top)) #("i10618")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15405,23 +30475,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4455")) + #(ribcage #(p) #((top)) #("i10618")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15430,30 +30500,92 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) - (#{quasi 4436}# - (list #{p 4456}#) - (#{1-}# #{lev 4450}#))))) - #{tmp 4454}#) - (let ((#{tmp 4457}# - ($sc-dispatch - #{tmp 4453}# - '(#(free-id + (#{quasi 10599}# + (list #{p 10619}#) + (#{1-}# #{lev 10613}#))))) + #{tmp 10617}#) + (begin + (let ((#{tmp 10620}# + ($sc-dispatch + #{p 10612}# + '(#(free-id + #(syntax-object + quasiquote + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile))) + any)))) + (if #{tmp 10620}# + (@apply + (lambda (#{p 10622}#) + (#{quasicons 10603}# + '(#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i10621")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) #(syntax-object quasiquote ((top) + #(ribcage #(p) #((top)) #("i10621")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15462,271 +30594,41 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) - any)))) - (if #{tmp 4457}# - (@apply - (lambda (#{p 4459}#) - (#{quasicons 4440}# - '(#(syntax-object - "quote" - ((top) - #(ribcage #(p) #((top)) #("i4458")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #(syntax-object - quasiquote - ((top) - #(ribcage #(p) #((top)) #("i4458")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile))) - (#{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 4463}# #{q 4464}#) - (let ((#{tmp 4465}# #{p 4463}#)) - (let ((#{tmp 4466}# - ($sc-dispatch - #{tmp 4465}# - '(#(free-id - #(syntax-object - unquote - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i4461" "i4462")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile))) - . - each-any)))) - (if #{tmp 4466}# - (@apply - (lambda (#{p 4468}#) - (if (= #{lev 4450}# 0) - (#{quasilist* 4444}# - (map (lambda (#{tmp 4469}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i4467")) - #(ribcage - #(p q) - #((top) (top)) - #("i4461" - "i4462")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" - "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{tmp 4469}#)) - #{p 4468}#) - (#{quasi 4436}# - #{q 4464}# - #{lev 4450}#)) - (#{quasicons 4440}# - (#{quasicons 4440}# - '(#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i4467")) - #(ribcage - #(p q) - #((top) (top)) - #("i4461" "i4462")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #(syntax-object - unquote - ((top) - #(ribcage - #(p) - #((top)) - #("i4467")) - #(ribcage - #(p q) - #((top) (top)) - #("i4461" "i4462")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile))) - (#{quasi 4436}# - #{p 4468}# - (#{1-}# #{lev 4450}#))) - (#{quasi 4436}# - #{q 4464}# - #{lev 4450}#)))) - #{tmp 4466}#) - (let ((#{tmp 4471}# + (#{quasi 10599}# + (list #{p 10622}#) + (#{1+}# #{lev 10613}#)))) + #{tmp 10620}#) + (begin + (let ((#{tmp 10623}# + ($sc-dispatch #{p 10612}# '(any . any)))) + (if #{tmp 10623}# + (@apply + (lambda (#{p 10626}# #{q 10627}#) + (begin + (let ((#{tmp 10629}# ($sc-dispatch - #{tmp 4465}# + #{p 10626}# '(#(free-id #(syntax-object - unquote-splicing + unquote ((top) #(ribcage #(p q) #((top) (top)) - #("i4461" "i4462")) + #("i10624" "i10625")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15741,35 +30643,35 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) . each-any)))) - (if #{tmp 4471}# + (if #{tmp 10629}# (@apply - (lambda (#{p 4473}#) - (if (= #{lev 4450}# 0) - (#{quasiappend 4442}# - (map (lambda (#{tmp 4474}#) + (lambda (#{p 10631}#) + (if (= #{lev 10613}# 0) + (#{quasilist* 10607}# + (map (lambda (#{tmp 10632}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4472")) + #("i10630")) #(ribcage #(p q) #((top) (top)) - #("i4461" - "i4462")) + #("i10624" + "i10625")) #(ribcage () () @@ -15778,8 +30680,8 @@ #(p lev) #((top) (top)) - #("i4451" - "i4452")) + #("i10614" + "i10615")) #(ribcage (emit quasivector quasilist* @@ -15794,37 +30696,37 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{tmp 4474}#)) - #{p 4473}#) - (#{quasi 4436}# - #{q 4464}# - #{lev 4450}#)) - (#{quasicons 4440}# - (#{quasicons 4440}# + #{tmp 10632}#)) + #{p 10631}#) + (#{quasi 10599}# + #{q 10627}# + #{lev 10613}#)) + (#{quasicons 10603}# + (#{quasicons 10603}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("i4472")) + #("i10630")) #(ribcage #(p q) #((top) (top)) - #("i4461" "i4462")) + #("i10624" "i10625")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15839,30 +30741,30 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) #(syntax-object - unquote-splicing + unquote ((top) #(ribcage #(p) #((top)) - #("i4472")) + #("i10630")) #(ribcage #(p q) #((top) (top)) - #("i4461" "i4462")) + #("i10624" "i10625")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4451" "i4452")) + #("i10614" "i10615")) #(ribcage (emit quasivector quasilist* @@ -15877,85 +30779,279 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) - (#{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 4453}# - '#(vector each-any)))) - (if #{tmp 4478}# - (@apply - (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)) #("i4482")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4451" "i4452")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{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}# + (#{quasi 10599}# + #{p 10631}# + (#{1-}# #{lev 10613}#))) + (#{quasi 10599}# + #{q 10627}# + #{lev 10613}#)))) + #{tmp 10629}#) + (begin + (let ((#{tmp 10634}# + ($sc-dispatch + #{p 10626}# + '(#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i10624" + "i10625")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" + "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile))) + . + each-any)))) + (if #{tmp 10634}# + (@apply + (lambda (#{p 10636}#) + (if (= #{lev 10613}# 0) + (#{quasiappend 10605}# + (map (lambda (#{tmp 10637}#) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i10635")) + #(ribcage + #(p q) + #((top) + (top)) + #("i10624" + "i10625")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i10614" + "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene + guile)) + #{tmp 10637}#)) + #{p 10636}#) + (#{quasi 10599}# + #{q 10627}# + #{lev 10613}#)) + (#{quasicons 10603}# + (#{quasicons 10603}# + '(#(syntax-object + "quote" + ((top) + #(ribcage + #(p) + #((top)) + #("i10635")) + #(ribcage + #(p q) + #((top) (top)) + #("i10624" + "i10625")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" + "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p) + #((top)) + #("i10635")) + #(ribcage + #(p q) + #((top) (top)) + #("i10624" + "i10625")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" + "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile))) + (#{quasi 10599}# + #{p 10636}# + (#{1-}# #{lev 10613}#))) + (#{quasi 10599}# + #{q 10627}# + #{lev 10613}#)))) + #{tmp 10634}#) + (#{quasicons 10603}# + (#{quasi 10599}# + #{p 10626}# + #{lev 10613}#) + (#{quasi 10599}# + #{q 10627}# + #{lev 10613}#))))))))) + #{tmp 10623}#) + (begin + (let ((#{tmp 10641}# + ($sc-dispatch + #{p 10612}# + '#(vector each-any)))) + (if #{tmp 10641}# + (@apply + (lambda (#{x 10643}#) + (#{quasivector 10609}# + (#{vquasi 10601}# + #{x 10643}# + #{lev 10613}#))) + #{tmp 10641}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(p) + #((top)) + #("i10645")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10614" "i10615")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{p 10612}#))))))))))))))) + (#{vquasi 10601}# + (lambda (#{p 10647}# #{lev 10648}#) + (begin + (let ((#{tmp 10652}# + ($sc-dispatch #{p 10647}# '(any . any)))) + (if #{tmp 10652}# (@apply - (lambda (#{p 4492}# #{q 4493}#) - (let ((#{tmp 4494}# #{p 4492}#)) - (let ((#{tmp 4495}# + (lambda (#{p 10655}# #{q 10656}#) + (begin + (let ((#{tmp 10658}# ($sc-dispatch - #{tmp 4494}# + #{p 10655}# '(#(free-id #(syntax-object unquote @@ -15963,12 +31059,12 @@ #(ribcage #(p q) #((top) (top)) - #("i4490" "i4491")) + #("i10653" "i10654")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4486" "i4487")) + #("i10649" "i10650")) #(ribcage (emit quasivector quasilist* @@ -15983,38 +31079,38 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) . each-any)))) - (if #{tmp 4495}# + (if #{tmp 10658}# (@apply - (lambda (#{p 4497}#) - (if (= #{lev 4485}# 0) - (#{quasilist* 4444}# - (map (lambda (#{tmp 4498}#) + (lambda (#{p 10660}#) + (if (= #{lev 10648}# 0) + (#{quasilist* 10607}# + (map (lambda (#{tmp 10661}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("i4496")) + #("i10659")) #(ribcage #(p q) #((top) (top)) - #("i4490" "i4491")) + #("i10653" "i10654")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4486" "i4487")) + #("i10649" "i10650")) #(ribcage (emit quasivector quasilist* @@ -16029,32 +31125,34 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{tmp 4498}#)) - #{p 4497}#) - (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)) - (#{quasicons 4440}# - (#{quasicons 4440}# + #{tmp 10661}#)) + #{p 10660}#) + (#{vquasi 10601}# + #{q 10656}# + #{lev 10648}#)) + (#{quasicons 10603}# + (#{quasicons 10603}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("i4496")) + #(ribcage #(p) #((top)) #("i10659")) #(ribcage #(p q) #((top) (top)) - #("i4490" "i4491")) + #("i10653" "i10654")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4486" "i4487")) + #("i10649" "i10650")) #(ribcage (emit quasivector quasilist* @@ -16069,27 +31167,27 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("i4496")) + #(ribcage #(p) #((top)) #("i10659")) #(ribcage #(p q) #((top) (top)) - #("i4490" "i4491")) + #("i10653" "i10654")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4486" "i4487")) + #("i10649" "i10650")) #(ribcage (emit quasivector quasilist* @@ -16104,164 +31202,38 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) - (#{quasi 4436}# - #{p 4497}# - (#{1-}# #{lev 4485}#))) - (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)))) - #{tmp 4495}#) - (let ((#{tmp 4500}# - ($sc-dispatch - #{tmp 4494}# - '(#(free-id - #(syntax-object - unquote-splicing - ((top) - #(ribcage - #(p q) - #((top) (top)) - #("i4490" "i4491")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4486" "i4487")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile))) - . - each-any)))) - (if #{tmp 4500}# - (@apply - (lambda (#{p 4502}#) - (if (= #{lev 4485}# 0) - (#{quasiappend 4442}# - (map (lambda (#{tmp 4503}#) - (list '#(syntax-object - "value" - ((top) - #(ribcage - #(p) - #((top)) - #("i4501")) - #(ribcage - #(p q) - #((top) (top)) - #("i4490" "i4491")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4486" "i4487")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{tmp 4503}#)) - #{p 4502}#) - (#{vquasi 4438}# - #{q 4493}# - #{lev 4485}#)) - (#{quasicons 4440}# - (#{quasicons 4440}# - '(#(syntax-object - "quote" - ((top) - #(ribcage - #(p) - #((top)) - #("i4501")) - #(ribcage - #(p q) - #((top) (top)) - #("i4490" "i4491")) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4486" "i4487")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) + (#{quasi 10599}# + #{p 10660}# + (#{1-}# #{lev 10648}#))) + (#{vquasi 10601}# + #{q 10656}# + #{lev 10648}#)))) + #{tmp 10658}#) + (begin + (let ((#{tmp 10663}# + ($sc-dispatch + #{p 10655}# + '(#(free-id #(syntax-object unquote-splicing ((top) #(ribcage - #(p) - #((top)) - #("i4501")) - #(ribcage #(p q) #((top) (top)) - #("i4490" "i4491")) + #("i10653" "i10654")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4486" "i4487")) + #("i10649" "i10650")) #(ribcage (emit quasivector quasilist* @@ -16276,156 +31248,385 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile))) - (#{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}# + . + each-any)))) + (if #{tmp 10663}# + (@apply + (lambda (#{p 10665}#) + (if (= #{lev 10648}# 0) + (#{quasiappend 10605}# + (map (lambda (#{tmp 10666}#) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i10664")) + #(ribcage + #(p q) + #((top) (top)) + #("i10653" + "i10654")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10649" + "i10650")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{tmp 10666}#)) + #{p 10665}#) + (#{vquasi 10601}# + #{q 10656}# + #{lev 10648}#)) + (#{quasicons 10603}# + (#{quasicons 10603}# + '(#(syntax-object + "quote" + ((top) + #(ribcage + #(p) + #((top)) + #("i10664")) + #(ribcage + #(p q) + #((top) (top)) + #("i10653" "i10654")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10649" "i10650")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p) + #((top)) + #("i10664")) + #(ribcage + #(p q) + #((top) (top)) + #("i10653" "i10654")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10649" "i10650")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile))) + (#{quasi 10599}# + #{p 10665}# + (#{1-}# #{lev 10648}#))) + (#{vquasi 10601}# + #{q 10656}# + #{lev 10648}#)))) + #{tmp 10663}#) + (#{quasicons 10603}# + (#{quasi 10599}# #{p 10655}# #{lev 10648}#) + (#{vquasi 10601}# + #{q 10656}# + #{lev 10648}#))))))))) + #{tmp 10652}#) + (begin + (let ((#{tmp 10670}# ($sc-dispatch #{p 10647}# '()))) + (if #{tmp 10670}# + (@apply + (lambda () + '(#(syntax-object + "quote" + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i10649" "i10650")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + ())) + #{tmp 10670}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{p 10647}#))))))))) + (#{quasicons 10603}# + (lambda (#{x 10671}# #{y 10672}#) + (begin + (let ((#{tmp 10676}# (list #{x 10671}# #{y 10672}#))) + (begin + (let ((#{tmp 10677}# + ($sc-dispatch #{tmp 10676}# '(any any)))) + (if #{tmp 10677}# (@apply - (lambda () - '(#(syntax-object - "quote" - ((top) - #(ribcage () () ()) - #(ribcage - #(p lev) - #((top) (top)) - #("i4486" "i4487")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - ())) - #{tmp 4507}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{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 4517}# #{y 4518}#) - (let ((#{tmp 4519}# #{y 4518}#)) - (let ((#{tmp 4520}# - ($sc-dispatch - #{tmp 4519}# - '(#(atom "quote") any)))) - (if #{tmp 4520}# - (@apply - (lambda (#{dy 4522}#) - (let ((#{tmp 4523}# #{x 4517}#)) - (let ((#{tmp 4524}# + (lambda (#{x 10680}# #{y 10681}#) + (begin + (let ((#{tmp 10683}# + ($sc-dispatch + #{y 10681}# + '(#(atom "quote") any)))) + (if #{tmp 10683}# + (@apply + (lambda (#{dy 10685}#) + (begin + (let ((#{tmp 10687}# + ($sc-dispatch + #{x 10680}# + '(#(atom "quote") any)))) + (if #{tmp 10687}# + (@apply + (lambda (#{dx 10689}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(dx) + #((top)) + #("i10688")) + #(ribcage + #(dy) + #((top)) + #("i10684")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10678" "i10679")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10673" "i10674")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + (cons #{dx 10689}# + #{dy 10685}#))) + #{tmp 10687}#) + (if (null? #{dy 10685}#) + (list '#(syntax-object + "list" + ((top) + #(ribcage + #(_) + #((top)) + #("i10690")) + #(ribcage + #(dy) + #((top)) + #("i10684")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10678" "i10679")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10673" "i10674")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{x 10680}#) + (list '#(syntax-object + "list*" + ((top) + #(ribcage + #(_) + #((top)) + #("i10690")) + #(ribcage + #(dy) + #((top)) + #("i10684")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10678" "i10679")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10673" "i10674")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{x 10680}# + #{y 10681}#)))))) + #{tmp 10683}#) + (begin + (let ((#{tmp 10692}# ($sc-dispatch - #{tmp 4523}# - '(#(atom "quote") any)))) - (if #{tmp 4524}# + #{y 10681}# + '(#(atom "list") . any)))) + (if #{tmp 10692}# (@apply - (lambda (#{dx 4526}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(dx) - #((top)) - #("i4525")) - #(ribcage - #(dy) - #((top)) - #("i4521")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4515" "i4516")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4510" "i4511")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - (cons #{dx 4526}# #{dy 4522}#))) - #{tmp 4524}#) - (let ((#{_ 4528}# #{tmp 4523}#)) - (if (null? #{dy 4522}#) - (list '#(syntax-object + (lambda (#{stuff 10694}#) + (cons '#(syntax-object "list" ((top) #(ribcage - #(_) - #((top)) - #("i4527")) - #(ribcage - #(dy) + #(stuff) #((top)) - #("i4521")) + #("i10693")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4515" "i4516")) + #("i10678" "i10679")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4510" "i4511")) + #("i10673" "i10674")) #(ribcage (emit quasivector quasilist* @@ -16440,217 +31641,126 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{x 4517}#) - (list '#(syntax-object - "list*" - ((top) - #(ribcage - #(_) - #((top)) - #("i4527")) - #(ribcage - #(dy) - #((top)) - #("i4521")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4515" "i4516")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4510" "i4511")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{x 4517}# - #{y 4518}#))))))) - #{tmp 4520}#) - (let ((#{tmp 4529}# - ($sc-dispatch - #{tmp 4519}# - '(#(atom "list") . any)))) - (if #{tmp 4529}# - (@apply - (lambda (#{stuff 4531}#) - (cons '#(syntax-object - "list" - ((top) - #(ribcage - #(stuff) - #((top)) - #("i4530")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4515" "i4516")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4510" "i4511")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - (cons #{x 4517}# #{stuff 4531}#))) - #{tmp 4529}#) - (let ((#{tmp 4532}# - ($sc-dispatch - #{tmp 4519}# - '(#(atom "list*") . any)))) - (if #{tmp 4532}# - (@apply - (lambda (#{stuff 4534}#) - (cons '#(syntax-object - "list*" - ((top) - #(ribcage - #(stuff) - #((top)) - #("i4533")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4515" "i4516")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4510" "i4511")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - (cons #{x 4517}# #{stuff 4534}#))) - #{tmp 4532}#) - (let ((#{_ 4536}# #{tmp 4519}#)) - (list '#(syntax-object - "list*" - ((top) - #(ribcage - #(_) - #((top)) - #("i4535")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4515" "i4516")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4510" "i4511")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{x 4517}# - #{y 4518}#)))))))))) - #{tmp 4514}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{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}# + (cons #{x 10680}# + #{stuff 10694}#))) + #{tmp 10692}#) + (begin + (let ((#{tmp 10695}# + ($sc-dispatch + #{y 10681}# + '(#(atom "list*") . any)))) + (if #{tmp 10695}# + (@apply + (lambda (#{stuff 10697}#) + (cons '#(syntax-object + "list*" + ((top) + #(ribcage + #(stuff) + #((top)) + #("i10696")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10678" + "i10679")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10673" + "i10674")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + (cons #{x 10680}# + #{stuff 10697}#))) + #{tmp 10695}#) + (list '#(syntax-object + "list*" + ((top) + #(ribcage + #(_) + #((top)) + #("i10698")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10678" "i10679")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10673" "i10674")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{x 10680}# + #{y 10681}#))))))))))) + #{tmp 10677}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10676}#)))))))) + (#{quasiappend 10605}# + (lambda (#{x 10700}# #{y 10701}#) + (begin + (let ((#{tmp 10705}# + ($sc-dispatch #{y 10701}# '(#(atom "quote") ())))) + (if #{tmp 10705}# (@apply (lambda () - (if (null? #{x 4537}#) + (if (null? #{x 10700}#) '(#(syntax-object "quote" ((top) @@ -16658,7 +31768,7 @@ #(ribcage #(x y) #((top) (top)) - #("i4539" "i4540")) + #("i10702" "i10703")) #(ribcage (emit quasivector quasilist* @@ -16667,23 +31777,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) ()) - (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}# + (if (null? (cdr #{x 10700}#)) + (car #{x 10700}#) + (begin + (let ((#{tmp 10713}# + ($sc-dispatch #{x 10700}# 'each-any))) + (if #{tmp 10713}# (@apply - (lambda (#{p 4552}#) + (lambda (#{p 10715}#) (cons '#(syntax-object "append" ((top) @@ -16691,12 +31801,12 @@ #(ribcage #(p) #((top)) - #("i4551")) + #("i10714")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4539" "i4540")) + #("i10702" "i10703")) #(ribcage (emit quasivector quasilist* @@ -16711,99 +31821,102 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{p 4552}#)) - #{tmp 4550}#) + #{p 10715}#)) + #{tmp 10713}#) (syntax-violation #f "source expression failed to match any pattern" - #{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 4564}# #{y 4565}#) - (cons '#(syntax-object - "append" - ((top) - #(ribcage () () ()) - #(ribcage - #(p y) - #((top) (top)) - #("i4562" "i4563")) - #(ribcage #(_) #((top)) #("i4554")) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("i4539" "i4540")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - (append #{p 4564}# (list #{y 4565}#)))) - #{tmp 4561}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4560}#))))))))))) - (#{quasilist* 4444}# - (lambda (#{x 4567}# #{y 4568}#) + #{x 10700}#))))))) + #{tmp 10705}#) + (if (null? #{x 10700}#) + #{y 10701}# + (begin + (let ((#{tmp 10723}# (list #{x 10700}# #{y 10701}#))) + (begin + (let ((#{tmp 10724}# + ($sc-dispatch #{tmp 10723}# '(each-any any)))) + (if #{tmp 10724}# + (@apply + (lambda (#{p 10727}# #{y 10728}#) + (cons '#(syntax-object + "append" + ((top) + #(ribcage () () ()) + #(ribcage + #(p y) + #((top) (top)) + #("i10725" "i10726")) + #(ribcage #(_) #((top)) #("i10717")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i10702" "i10703")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + (append + #{p 10727}# + (list #{y 10728}#)))) + #{tmp 10724}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10723}#)))))))))))) + (#{quasilist* 10607}# + (lambda (#{x 10730}# #{y 10731}#) (letrec* - ((#{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}# + ((#{f 10736}# + (lambda (#{x 10737}#) + (if (null? #{x 10737}#) + #{y 10731}# + (#{quasicons 10603}# + (car #{x 10737}#) + (#{f 10736}# (cdr #{x 10737}#))))))) + (begin (#{f 10736}# #{x 10730}#))))) + (#{quasivector 10609}# + (lambda (#{x 10738}#) + (begin + (let ((#{tmp 10741}# ($sc-dispatch - #{tmp 4577}# + #{x 10738}# '(#(atom "quote") each-any)))) - (if #{tmp 4578}# + (if #{tmp 10741}# (@apply - (lambda (#{x 4580}#) + (lambda (#{x 10743}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(x) #((top)) #("i4579")) + #(ribcage #(x) #((top)) #("i10742")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4576")) + #(ribcage #(x) #((top)) #("i10739")) #(ribcage (emit quasivector quasilist* @@ -16812,285 +31925,190 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - (list->vector #{x 4580}#))) - #{tmp 4578}#) - (let ((#{_ 4583}# #{tmp 4577}#)) - (letrec* - ((#{f 4587}# - (lambda (#{y 4588}# #{k 4589}#) - (let ((#{tmp 4600}# #{y 4588}#)) - (let ((#{tmp 4601}# - ($sc-dispatch - #{tmp 4600}# - '(#(atom "quote") each-any)))) - (if #{tmp 4601}# - (@apply - (lambda (#{y 4603}#) - (#{k 4589}# - (map (lambda (#{tmp 4604}#) - (list '#(syntax-object - "quote" - ((top) - #(ribcage - #(y) - #((top)) - #("i4602")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i4584" - "i4585" - "i4586")) - #(ribcage - #(_) - #((top)) - #("i4582")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4576")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{tmp 4604}#)) - #{y 4603}#))) - #{tmp 4601}#) - (let ((#{tmp 4605}# + (list->vector #{x 10743}#))) + #{tmp 10741}#) + (letrec* + ((#{f 10750}# + (lambda (#{y 10751}# #{k 10752}#) + (begin + (let ((#{tmp 10764}# + ($sc-dispatch + #{y 10751}# + '(#(atom "quote") each-any)))) + (if #{tmp 10764}# + (@apply + (lambda (#{y 10766}#) + (#{k 10752}# + (map (lambda (#{tmp 10767}#) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(y) + #((top)) + #("i10765")) + #(ribcage () () ()) + #(ribcage + #(f y k) + #((top) (top) (top)) + #("i10747" + "i10748" + "i10749")) + #(ribcage + #(_) + #((top)) + #("i10745")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10739")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{tmp 10767}#)) + #{y 10766}#))) + #{tmp 10764}#) + (begin + (let ((#{tmp 10768}# ($sc-dispatch - #{tmp 4600}# + #{y 10751}# '(#(atom "list") . each-any)))) - (if #{tmp 4605}# + (if #{tmp 10768}# (@apply - (lambda (#{y 4607}#) - (#{k 4589}# #{y 4607}#)) - #{tmp 4605}#) - (let ((#{tmp 4609}# - ($sc-dispatch - #{tmp 4600}# - '(#(atom "list*") - . - #(each+ any (any) ()))))) - (if #{tmp 4609}# - (@apply - (lambda (#{y 4612}# #{z 4613}#) - (#{f 4587}# - #{z 4613}# - (lambda (#{ls 4614}#) - (#{k 4589}# - (append - #{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 - #(#{ g4619}#) - #((m4620 top)) - #("i4623")) - #(ribcage - #(else) - #((top)) - #("i4617")) - #(ribcage () () ()) - #(ribcage - #(f y k) - #((top) (top) (top)) - #("i4584" - "i4585" - "i4586")) - #(ribcage - #(_) - #((top)) - #("i4582")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4576")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4619 4624}#)))))))))))))) - (begin - (#{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 (#{ g4592 4598}#) - (cons '#(syntax-object - "vector" - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g4592}#) - #((m4593 top)) - #("i4597")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(ls) - #((top)) - #("i4591")) - #(ribcage - #(_) - #((top)) - #("i4582")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4576")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4592 4598}#)) - #{tmp 4596}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4595}#)))))))))))))) - (#{emit 4448}# - (lambda (#{x 4625}#) - (let ((#{tmp 4627}# #{x 4625}#)) - (let ((#{tmp 4628}# - ($sc-dispatch - #{tmp 4627}# - '(#(atom "quote") any)))) - (if #{tmp 4628}# - (@apply - (lambda (#{x 4630}#) - (list '#(syntax-object - quote - ((top) - #(ribcage #(x) #((top)) #("i4629")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4626")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) (top) (top) (top) (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{x 4630}#)) - #{tmp 4628}#) - (let ((#{tmp 4631}# - ($sc-dispatch - #{tmp 4627}# - '(#(atom "list") . each-any)))) - (if #{tmp 4631}# - (@apply - (lambda (#{x 4633}#) - (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#))) - (let ((#{tmp 4638}# - ($sc-dispatch #{tmp 4637}# 'each-any))) - (if #{tmp 4638}# + (lambda (#{y 10770}#) + (#{k 10752}# #{y 10770}#)) + #{tmp 10768}#) + (begin + (let ((#{tmp 10772}# + ($sc-dispatch + #{y 10751}# + '(#(atom "list*") + . + #(each+ any (any) ()))))) + (if #{tmp 10772}# + (@apply + (lambda (#{y 10775}# #{z 10776}#) + (#{f 10750}# + #{z 10776}# + (lambda (#{ls 10777}#) + (#{k 10752}# + (append + #{y 10775}# + #{ls 10777}#))))) + #{tmp 10772}#) + (list '#(syntax-object + "list->vector" + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10782}#) + #((m10783 top)) + #("i10786")) + #(ribcage + #(else) + #((top)) + #("i10780")) + #(ribcage () () ()) + #(ribcage + #(f y k) + #((top) (top) (top)) + #("i10747" + "i10748" + "i10749")) + #(ribcage + #(_) + #((top)) + #("i10745")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10739")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{x 10738}#))))))))))))) + (begin + (#{f 10750}# + #{x 10738}# + (lambda (#{ls 10753}#) + (begin + (let ((#{tmp 10759}# + ($sc-dispatch #{ls 10753}# 'each-any))) + (if #{tmp 10759}# (@apply - (lambda (#{ g4634 4640}#) + (lambda (#{ g10755 10761}#) (cons '#(syntax-object - list + "vector" ((top) #(ribcage () () ()) #(ribcage - #(#{ g4634}#) - #((m4635 top)) - #("i4639")) + #(#{ g10755}#) + #((m10756 top)) + #("i10760")) + #(ribcage () () ()) + #(ribcage () () ()) + #(ribcage () () ()) #(ribcage - #(x) + #(ls) + #((top)) + #("i10754")) + #(ribcage + #(_) #((top)) - #("i4632")) + #("i10745")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4626")) + #("i10739")) #(ribcage (emit quasivector quasilist* @@ -17105,344 +32123,503 @@ (top) (top) (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) (hygiene guile)) - #{ g4634 4640}#)) - #{tmp 4638}#) + #{ g10755 10761}#)) + #{tmp 10759}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4637}#))))) - #{tmp 4631}#) - (let ((#{tmp 4643}# - ($sc-dispatch - #{tmp 4627}# - '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 4643}# - (@apply - (lambda (#{x 4646}# #{y 4647}#) - (letrec* - ((#{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 4657}# - '(any any)))) - (if #{tmp 4658}# - (@apply - (lambda (#{ g4654 4661}# - #{ g4653 4662}#) - (list '#(syntax-object - cons - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g4654}# - #{ g4653}#) - #((m4655 top) - (m4655 top)) - #("i4659" "i4660")) - #(ribcage () () ()) - #(ribcage - #(f x*) - #((top) (top)) - #("i4648" "i4649")) - #(ribcage - #(x y) - #((top) (top)) - #("i4644" "i4645")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4626")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4654 4661}# - #{ g4653 4662}#)) - #{tmp 4658}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4657}#)))))))) - (begin (#{f 4650}# #{x 4646}#)))) - #{tmp 4643}#) - (let ((#{tmp 4663}# - ($sc-dispatch - #{tmp 4627}# - '(#(atom "append") . each-any)))) - (if #{tmp 4663}# - (@apply - (lambda (#{x 4665}#) - (let ((#{tmp 4669}# - (map #{emit 4448}# #{x 4665}#))) - (let ((#{tmp 4670}# - ($sc-dispatch - #{tmp 4669}# - 'each-any))) - (if #{tmp 4670}# - (@apply - (lambda (#{ g4666 4672}#) - (cons '#(syntax-object - append - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g4666}#) - #((m4667 top)) - #("i4671")) - #(ribcage - #(x) - #((top)) - #("i4664")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4626")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4666 4672}#)) - #{tmp 4670}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4669}#))))) - #{tmp 4663}#) - (let ((#{tmp 4675}# - ($sc-dispatch - #{tmp 4627}# - '(#(atom "vector") . each-any)))) - (if #{tmp 4675}# - (@apply - (lambda (#{x 4677}#) - (let ((#{tmp 4681}# - (map #{emit 4448}# #{x 4677}#))) - (let ((#{tmp 4682}# - ($sc-dispatch - #{tmp 4681}# - 'each-any))) - (if #{tmp 4682}# - (@apply - (lambda (#{ g4678 4684}#) - (cons '#(syntax-object - vector - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g4678}#) - #((m4679 top)) - #("i4683")) - #(ribcage - #(x) - #((top)) - #("i4676")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4626")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4678 4684}#)) - #{tmp 4682}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4681}#))))) - #{tmp 4675}#) - (let ((#{tmp 4687}# + #{ls 10753}#))))))))))))) + (#{emit 10611}# + (lambda (#{x 10788}#) + (begin + (let ((#{tmp 10791}# + ($sc-dispatch #{x 10788}# '(#(atom "quote") any)))) + (if #{tmp 10791}# + (@apply + (lambda (#{x 10793}#) + (list '#(syntax-object + quote + ((top) + #(ribcage #(x) #((top)) #("i10792")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{x 10793}#)) + #{tmp 10791}#) + (begin + (let ((#{tmp 10794}# + ($sc-dispatch + #{x 10788}# + '(#(atom "list") . each-any)))) + (if #{tmp 10794}# + (@apply + (lambda (#{x 10796}#) + (begin + (let ((#{tmp 10800}# + (map #{emit 10611}# #{x 10796}#))) + (begin + (let ((#{tmp 10801}# ($sc-dispatch - #{tmp 4627}# - '(#(atom "list->vector") any)))) - (if #{tmp 4687}# + #{tmp 10800}# + 'each-any))) + (if #{tmp 10801}# (@apply - (lambda (#{x 4689}#) - (let ((#{tmp 4693}# - (#{emit 4448}# #{x 4689}#))) - (let ((#{ g4690 4695}# - #{tmp 4693}#)) - (list '#(syntax-object - list->vector - ((top) - #(ribcage () () ()) - #(ribcage - #(#{ g4690}#) - #((m4691 top)) - #("i4694")) - #(ribcage - #(x) - #((top)) - #("i4688")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4626")) - #(ribcage - (emit quasivector - quasilist* - quasiappend - quasicons - vquasi - quasi) - ((top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i4447" - "i4445" - "i4443" - "i4441" - "i4439" - "i4437" - "i4435"))) - (hygiene guile)) - #{ g4690 4695}#)))) - #{tmp 4687}#) - (let ((#{tmp 4696}# + (lambda (#{ g10797 10803}#) + (cons '#(syntax-object + list + ((top) + #(ribcage () () ()) + #(ribcage + #(#{ g10797}#) + #((m10798 top)) + #("i10802")) + #(ribcage + #(x) + #((top)) + #("i10795")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{ g10797 10803}#)) + #{tmp 10801}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10800}#))))))) + #{tmp 10794}#) + (begin + (let ((#{tmp 10806}# + ($sc-dispatch + #{x 10788}# + '(#(atom "list*") + . + #(each+ any (any) ()))))) + (if #{tmp 10806}# + (@apply + (lambda (#{x 10809}# #{y 10810}#) + (letrec* + ((#{f 10813}# + (lambda (#{x* 10814}#) + (if (null? #{x* 10814}#) + (#{emit 10611}# #{y 10810}#) + (begin + (let ((#{tmp 10820}# + (list (#{emit 10611}# + (car #{x* 10814}#)) + (#{f 10813}# + (cdr #{x* 10814}#))))) + (begin + (let ((#{tmp 10821}# + ($sc-dispatch + #{tmp 10820}# + '(any any)))) + (if #{tmp 10821}# + (@apply + (lambda (#{ g10817 10824}# + #{ g10816 10825}#) + (list '#(syntax-object + cons + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g10817}# + #{ g10816}#) + #((m10818 + top) + (m10818 + top)) + #("i10822" + "i10823")) + #(ribcage + () + () + ()) + #(ribcage + #(f x*) + #((top) + (top)) + #("i10811" + "i10812")) + #(ribcage + #(x y) + #((top) + (top)) + #("i10807" + "i10808")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene + guile)) + #{ g10817 10824}# + #{ g10816 10825}#)) + #{tmp 10821}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10820}#)))))))))) + (begin (#{f 10813}# #{x 10809}#)))) + #{tmp 10806}#) + (begin + (let ((#{tmp 10826}# + ($sc-dispatch + #{x 10788}# + '(#(atom "append") . each-any)))) + (if #{tmp 10826}# + (@apply + (lambda (#{x 10828}#) + (begin + (let ((#{tmp 10832}# + (map #{emit 10611}# + #{x 10828}#))) + (begin + (let ((#{tmp 10833}# + ($sc-dispatch + #{tmp 10832}# + 'each-any))) + (if #{tmp 10833}# + (@apply + (lambda (#{ g10829 10835}#) + (cons '#(syntax-object + append + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g10829}#) + #((m10830 + top)) + #("i10834")) + #(ribcage + #(x) + #((top)) + #("i10827")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene guile)) + #{ g10829 10835}#)) + #{tmp 10833}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10832}#))))))) + #{tmp 10826}#) + (begin + (let ((#{tmp 10838}# ($sc-dispatch - #{tmp 4627}# - '(#(atom "value") any)))) - (if #{tmp 4696}# + #{x 10788}# + '(#(atom "vector") + . + each-any)))) + (if #{tmp 10838}# (@apply - (lambda (#{x 4698}#) #{x 4698}#) - #{tmp 4696}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4627}#))))))))))))))))))) + (lambda (#{x 10840}#) + (begin + (let ((#{tmp 10844}# + (map #{emit 10611}# + #{x 10840}#))) + (begin + (let ((#{tmp 10845}# + ($sc-dispatch + #{tmp 10844}# + 'each-any))) + (if #{tmp 10845}# + (@apply + (lambda (#{ g10841 10847}#) + (cons '#(syntax-object + vector + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g10841}#) + #((m10842 + top)) + #("i10846")) + #(ribcage + #(x) + #((top)) + #("i10839")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene + guile)) + #{ g10841 10847}#)) + #{tmp 10845}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{tmp 10844}#))))))) + #{tmp 10838}#) + (begin + (let ((#{tmp 10850}# + ($sc-dispatch + #{x 10788}# + '(#(atom "list->vector") + any)))) + (if #{tmp 10850}# + (@apply + (lambda (#{x 10852}#) + (begin + (let ((#{tmp 10856}# + (#{emit 10611}# + #{x 10852}#))) + (list '#(syntax-object + list->vector + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(#{ g10853}#) + #((m10854 + top)) + #("i10857")) + #(ribcage + #(x) + #((top)) + #("i10851")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i10789")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i10610" + "i10608" + "i10606" + "i10604" + "i10602" + "i10600" + "i10598"))) + (hygiene + guile)) + #{tmp 10856}#)))) + #{tmp 10850}#) + (begin + (let ((#{tmp 10859}# + ($sc-dispatch + #{x 10788}# + '(#(atom "value") + any)))) + (if #{tmp 10859}# + (@apply + (lambda (#{x 10861}#) + #{x 10861}#) + #{tmp 10859}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10788}#))))))))))))))))))))))))) (begin - (lambda (#{x 4699}#) - (let ((#{tmp 4701}# #{x 4699}#)) - (let ((#{tmp 4702}# - ($sc-dispatch #{tmp 4701}# '(_ any)))) - (if #{tmp 4702}# + (lambda (#{x 10862}#) + (begin + (let ((#{tmp 10865}# + ($sc-dispatch #{x 10862}# '(_ any)))) + (if #{tmp 10865}# (@apply - (lambda (#{e 4704}#) - (#{emit 4448}# (#{quasi 4436}# #{e 4704}# 0))) - #{tmp 4702}#) + (lambda (#{e 10867}#) + (#{emit 10611}# (#{quasi 10599}# #{e 10867}# 0))) + #{tmp 10865}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4701}#))))))))) + #{x 10862}#))))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 4705}#) - (letrec* - ((#{read-file 4708}# - (lambda (#{fn 4709}# #{k 4710}#) - (begin - (let ((#{p 4714}# (open-input-file #{fn 4709}#))) - (letrec* - ((#{f 4718}# - (lambda (#{x 4719}# #{result 4720}#) - (if (eof-object? #{x 4719}#) - (begin - (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 4721}# #{x 4705}#)) - (let ((#{tmp 4722}# - ($sc-dispatch #{tmp 4721}# '(any any)))) - (if #{tmp 4722}# - (@apply - (lambda (#{k 4725}# #{filename 4726}#) + (lambda (#{x 10938}#) + (begin + (let ((#{tmp 10955}# + ($sc-dispatch #{x 10938}# '(any any)))) + (if #{tmp 10955}# + (@apply + (lambda (#{k 10958}# #{filename 10959}#) + (begin + (let ((#{fn 10961}# (syntax->datum #{filename 10959}#))) (begin - (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}# + (let ((#{tmp 10963}# + (let ((#{fn 10942}# #{fn 10961}#) + (#{k 10943}# #{filename 10959}#)) + (begin + (let ((#{p 10947}# + (open-input-file #{fn 10942}#))) + (letrec* + ((#{f 10951}# + (lambda (#{x 10952}# #{result 10953}#) + (if (eof-object? #{x 10952}#) + (begin + (close-input-port #{p 10947}#) + (reverse #{result 10953}#)) + (#{f 10951}# + (read #{p 10947}#) + (cons (datum->syntax + #{k 10943}# + #{x 10952}#) + #{result 10953}#)))))) + (begin + (#{f 10951}# + (read #{p 10947}#) + '())))))))) + (begin + (let ((#{tmp 10964}# + ($sc-dispatch #{tmp 10963}# 'each-any))) + (if #{tmp 10964}# (@apply - (lambda (#{exp 4733}#) + (lambda (#{exp 10966}#) (cons '#(syntax-object begin ((top) @@ -17450,684 +32627,717 @@ #(ribcage #(exp) #((top)) - #("i4732")) + #("i10965")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4727")) + #("i10960")) #(ribcage #(k filename) #((top) (top)) - #("i4723" "i4724")) + #("i10956" "i10957")) #(ribcage (read-file) ((top)) - ("i4707")) + ("i10940")) #(ribcage #(x) #((top)) - #("i4706"))) + #("i10939"))) (hygiene guile)) - #{exp 4733}#)) - #{tmp 4731}#) + #{exp 10966}#)) + #{tmp 10964}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4730}#))))))) - #{tmp 4722}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4721}#))))))))) + #{tmp 10963}#))))))))) + #{tmp 10955}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 10938}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 4735}#) - (let ((#{tmp 4737}# #{x 4735}#)) - (let ((#{tmp 4738}# - ($sc-dispatch #{tmp 4737}# '(any any)))) - (if #{tmp 4738}# + (lambda (#{x 11063}#) + (begin + (let ((#{tmp 11066}# + ($sc-dispatch #{x 11063}# '(any any)))) + (if #{tmp 11066}# (@apply - (lambda (#{k 4741}# #{filename 4742}#) + (lambda (#{k 11069}# #{filename 11070}#) (begin - (let ((#{fn 4744}# (syntax->datum #{filename 4742}#))) - (let ((#{tmp 4746}# - (datum->syntax - #{filename 4742}# - (begin - (let ((#{t 4751}# - (%search-load-path #{fn 4744}#))) - (if #{t 4751}# - #{t 4751}# - (syntax-violation - 'include-from-path - "file not found in path" - #{x 4735}# - #{filename 4742}#))))))) - (let ((#{fn 4748}# #{tmp 4746}#)) + (let ((#{fn 11072}# (syntax->datum #{filename 11070}#))) + (begin + (let ((#{tmp 11074}# + (datum->syntax + #{filename 11070}# + (begin + (let ((#{t 11079}# + (%search-load-path #{fn 11072}#))) + (if #{t 11079}# + #{t 11079}# + (syntax-violation + 'include-from-path + "file not found in path" + #{x 11063}# + #{filename 11070}#))))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4747")) + #(ribcage #(fn) #((top)) #("i11075")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("i4743")) + #(ribcage #(fn) #((top)) #("i11071")) #(ribcage #(k filename) #((top) (top)) - #("i4739" "i4740")) + #("i11067" "i11068")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4736"))) + #(ribcage #(x) #((top)) #("i11064"))) (hygiene guile)) - #{fn 4748}#)))))) - #{tmp 4738}#) + #{tmp 11074}#)))))) + #{tmp 11066}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4737}#))))))) + #{x 11063}#))))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 4753}#) + (lambda (#{x 11081}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 4753}#)))) + #{x 11081}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 4755}#) + (lambda (#{x 11083}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 4755}#)))) + #{x 11083}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 4757}#) - (let ((#{tmp 4759}# #{x 4757}#)) - (let ((#{tmp 4760}# + (lambda (#{x 11085}#) + (begin + (let ((#{tmp 11088}# ($sc-dispatch - #{tmp 4759}# + #{x 11085}# '(_ any any . each-any)))) - (if #{tmp 4760}# + (if #{tmp 11088}# (@apply - (lambda (#{e 4764}# #{m1 4765}# #{m2 4766}#) - (let ((#{tmp 4768}# - (letrec* - ((#{f 4774}# - (lambda (#{clause 4775}# #{clauses 4776}#) - (if (null? #{clauses 4776}#) - (let ((#{tmp 4778}# #{clause 4775}#)) - (let ((#{tmp 4779}# - ($sc-dispatch - #{tmp 4778}# - '(#(free-id - #(syntax-object - else - ((top) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile))) - any - . - each-any)))) - (if #{tmp 4779}# - (@apply - (lambda (#{e1 4782}# #{e2 4783}#) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(e1 e2) - #((top) (top)) - #("i4780" "i4781")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (cons #{e1 4782}# - #{e2 4783}#))) - #{tmp 4779}#) - (let ((#{tmp 4785}# - ($sc-dispatch - #{tmp 4778}# - '(each-any any . each-any)))) - (if #{tmp 4785}# - (@apply - (lambda (#{k 4789}# - #{e1 4790}# - #{e2 4791}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k e1 e2) - #((top) (top) (top)) - #("i4786" - "i4787" - "i4788")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4786" - "i4787" - "i4788")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4786" - "i4787" - "i4788")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4786" - "i4787" - "i4788")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e - m1 - m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene - guile)) - #{k 4789}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4786" - "i4787" - "i4788")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (cons #{e1 4790}# - #{e2 4791}#)))) - #{tmp 4785}#) - (let ((#{_ 4795}# #{tmp 4778}#)) - (syntax-violation - 'case - "bad clause" - #{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 4800}# - '(each-any any . each-any)))) - (if #{tmp 4801}# - (@apply - (lambda (#{k 4805}# - #{e1 4806}# - #{e2 4807}#) - (list '#(syntax-object - if - ((top) - #(ribcage - #(k e1 e2) - #((top) (top) (top)) - #("i4802" - "i4803" - "i4804")) - #(ribcage () () ()) - #(ribcage - #(rest) - #((top)) - #("i4798")) - #(ribcage () () ()) - #(ribcage - #(f clause clauses) - #((top) (top) (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) (top) (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (list '#(syntax-object - memv - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4802" - "i4803" - "i4804")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i4798")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - '#(syntax-object - t - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4802" - "i4803" - "i4804")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i4798")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (list '#(syntax-object - quote - ((top) - #(ribcage - #(k - e1 - e2) - #((top) - (top) - (top)) - #("i4802" - "i4803" - "i4804")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i4798")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e - m1 - m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene - guile)) - #{k 4805}#)) - (cons '#(syntax-object - begin - ((top) - #(ribcage - #(k e1 e2) - #((top) - (top) - (top)) - #("i4802" - "i4803" - "i4804")) - #(ribcage - () - () - ()) - #(ribcage - #(rest) - #((top)) - #("i4798")) - #(ribcage - () - () - ()) - #(ribcage - #(f - clause - clauses) - #((top) - (top) - (top)) - #("i4771" - "i4772" - "i4773")) - #(ribcage - #(e m1 m2) - #((top) - (top) - (top)) - #("i4761" - "i4762" - "i4763")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4758"))) - (hygiene guile)) - (cons #{e1 4806}# - #{e2 4807}#)) - #{rest 4799}#)) - #{tmp 4801}#) - (let ((#{_ 4811}# #{tmp 4800}#)) + (lambda (#{e 11092}# #{m1 11093}# #{m2 11094}#) + (begin + (let ((#{tmp 11096}# + (letrec* + ((#{f 11102}# + (lambda (#{clause 11103}# #{clauses 11104}#) + (if (null? #{clauses 11104}#) + (begin + (let ((#{tmp 11107}# + ($sc-dispatch + #{clause 11103}# + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene guile))) + any + . + each-any)))) + (if #{tmp 11107}# + (@apply + (lambda (#{e1 11110}# #{e2 11111}#) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) (top)) + #("i11108" "i11109")) + #(ribcage () () ()) + #(ribcage + #(f clause clauses) + #((top) (top) (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) (top) (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene guile)) + (cons #{e1 11110}# + #{e2 11111}#))) + #{tmp 11107}#) + (begin + (let ((#{tmp 11113}# + ($sc-dispatch + #{clause 11103}# + '(each-any + any + . + each-any)))) + (if #{tmp 11113}# + (@apply + (lambda (#{k 11117}# + #{e1 11118}# + #{e2 11119}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11114" + "i11115" + "i11116")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene guile)) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11114" + "i11115" + "i11116")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11114" + "i11115" + "i11116")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i11114" + "i11115" + "i11116")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e + m1 + m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + #{k 11117}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11114" + "i11115" + "i11116")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + (cons #{e1 11118}# + #{e2 11119}#)))) + #{tmp 11113}#) + (syntax-violation + 'case + "bad clause" + #{x 11085}# + #{clause 11103}#))))))) + (begin + (let ((#{tmp 11125}# + (#{f 11102}# + (car #{clauses 11104}#) + (cdr #{clauses 11104}#)))) + (begin + (let ((#{tmp 11129}# + ($sc-dispatch + #{clause 11103}# + '(each-any + any + . + each-any)))) + (if #{tmp 11129}# + (@apply + (lambda (#{k 11133}# + #{e1 11134}# + #{e2 11135}#) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11130" + "i11131" + "i11132")) + #(ribcage () () ()) + #(ribcage + #(rest) + #((top)) + #("i11126")) + #(ribcage () () ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene guile)) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11130" + "i11131" + "i11132")) + #(ribcage + () + () + ()) + #(ribcage + #(rest) + #((top)) + #("i11126")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + '#(syntax-object + t + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11130" + "i11131" + "i11132")) + #(ribcage + () + () + ()) + #(ribcage + #(rest) + #((top)) + #("i11126")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i11130" + "i11131" + "i11132")) + #(ribcage + () + () + ()) + #(ribcage + #(rest) + #((top)) + #("i11126")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e + m1 + m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + #{k 11133}#)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k e1 e2) + #((top) + (top) + (top)) + #("i11130" + "i11131" + "i11132")) + #(ribcage + () + () + ()) + #(ribcage + #(rest) + #((top)) + #("i11126")) + #(ribcage + () + () + ()) + #(ribcage + #(f + clause + clauses) + #((top) + (top) + (top)) + #("i11099" + "i11100" + "i11101")) + #(ribcage + #(e m1 m2) + #((top) + (top) + (top)) + #("i11089" + "i11090" + "i11091")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11086"))) + (hygiene + guile)) + (cons #{e1 11134}# + #{e2 11135}#)) + #{tmp 11125}#)) + #{tmp 11129}#) (syntax-violation 'case "bad clause" - #{x 4757}# - #{clause 4775}#))))))))))) - (begin (#{f 4774}# #{m1 4765}# #{m2 4766}#))))) - (let ((#{body 4770}# #{tmp 4768}#)) + #{x 11085}# + #{clause 11103}#)))))))))) + (begin (#{f 11102}# #{m1 11093}# #{m2 11094}#))))) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("i4769")) + #(ribcage #(body) #((top)) #("i11097")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4761" "i4762" "i4763")) + #("i11089" "i11090" "i11091")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4758"))) + #(ribcage #(x) #((top)) #("i11086"))) (hygiene guile)) (list (list '#(syntax-object t @@ -18136,176 +33346,183 @@ #(ribcage #(body) #((top)) - #("i4769")) + #("i11097")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("i4761" "i4762" "i4763")) + #("i11089" "i11090" "i11091")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4758"))) + #(ribcage #(x) #((top)) #("i11086"))) (hygiene guile)) - #{e 4764}#)) - #{body 4770}#)))) - #{tmp 4760}#) + #{e 11092}#)) + #{tmp 11096}#)))) + #{tmp 11088}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 4759}#))))))) + #{x 11085}#))))))) (define make-variable-transformer - (lambda (#{proc 4812}#) - (if (procedure? #{proc 4812}#) + (lambda (#{proc 11141}#) + (if (procedure? #{proc 11141}#) (begin (letrec* - ((#{trans 4815}# - (lambda (#{x 4816}#) (#{proc 4812}# #{x 4816}#)))) + ((#{trans 11144}# + (lambda (#{x 11145}#) + (#{proc 11141}# #{x 11145}#)))) (begin (set-procedure-property! - #{trans 4815}# + #{trans 11144}# 'variable-transformer #t) - #{trans 4815}#))) + #{trans 11144}#))) (error "variable transformer not a procedure" - #{proc 4812}#)))) + #{proc 11141}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 4818}#) - (let ((#{tmp 4820}# #{x 4818}#)) - (let ((#{tmp 4821}# - ($sc-dispatch #{tmp 4820}# '(_ any)))) - (if #{tmp 4821}# + (lambda (#{x 11151}#) + (begin + (let ((#{tmp 11154}# + ($sc-dispatch #{x 11151}# '(_ any)))) + (if #{tmp 11154}# (@apply - (lambda (#{e 4823}#) + (lambda (#{e 11156}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage + #(e) + #((top)) + #("i11155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4819"))) + #("i11152"))) (hygiene guile)) - #{e 4823}#)) + #{e 11156}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage #(e) #((top)) #("i11155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) + #(ribcage #(x) #((top)) #("i11152"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("i4822")) + #(ribcage + #(e) + #((top)) + #("i11155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4819"))) + #("i11152"))) (hygiene guile)) - (cons #{e 4823}# + (cons #{e 11156}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("i4822")) + #("i11155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4819"))) + #("i11152"))) (hygiene guile)) #(syntax-object ... @@ -18313,481 +33530,519 @@ #(ribcage #(e) #((top)) - #("i4822")) + #("i11155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4819"))) + #("i11152"))) (hygiene guile))))))))) - #{tmp 4821}#) - (let ((#{tmp 4824}# - ($sc-dispatch - #{tmp 4820}# - '(_ (any any) - ((#(free-id - #(syntax-object - set! - ((top) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile))) - any - any) - any))))) - (if (if #{tmp 4824}# - (@apply - (lambda (#{id 4830}# - #{exp1 4831}# - #{var 4832}# - #{val 4833}# - #{exp2 4834}#) - (if (identifier? #{id 4830}#) - (identifier? #{var 4832}#) - #f)) - #{tmp 4824}#) - #f) - (@apply - (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)) - #("i4837" "i4838" "i4839" "i4840" "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)) - (list '#(syntax-object - lambda - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)) - '(#(syntax-object - x - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile))) - '#((#(syntax-object - macro-type - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)) - . - #(syntax-object - variable-transformer + #{tmp 11154}#) + (begin + (let ((#{tmp 11157}# + ($sc-dispatch + #{x 11151}# + '(_ (any any) + ((#(free-id + #(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile))) + any + any) + any))))) + (if (if #{tmp 11157}# + (@apply + (lambda (#{id 11163}# + #{exp1 11164}# + #{var 11165}# + #{val 11166}# + #{exp2 11167}#) + (if (identifier? #{id 11163}#) + (identifier? #{var 11165}#) + #f)) + #{tmp 11157}#) + #f) + (@apply + (lambda (#{id 11175}# + #{exp1 11176}# + #{var 11177}# + #{val 11178}# + #{exp2 11179}#) + (list '#(syntax-object + make-variable-transformer + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile)) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile)) + '(#(syntax-object + x ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)))) - (list '#(syntax-object - syntax-case - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)) - '#(syntax-object - x - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile)) - '(#(syntax-object - set! - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4819"))) - (hygiene guile))) - (list (list '#(syntax-object - set! - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #{var 4844}# - #{val 4845}#) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #{exp2 4846}#)) - (list (cons #{id 4842}# - '(#(syntax-object - x - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)))) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - (cons #{exp1 4843}# - '(#(syntax-object - x - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #(syntax-object - ... - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage - () - () - ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene - guile)))))) - (list #{id 4842}# - (list '#(syntax-object - identifier? - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id - exp1 - var - val - exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #{id 4842}#)) - (list '#(syntax-object - syntax - ((top) - #(ribcage - #(id exp1 var val exp2) - #((top) - (top) - (top) - (top) - (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i4819"))) - (hygiene guile)) - #{exp1 4843}#)))))) - #{tmp 4824}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4820}#))))))))) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile))) + '#((#(syntax-object + macro-type + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile)) + . + #(syntax-object + variable-transformer + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11152"))) + (hygiene guile)))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + '#(syntax-object + x + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + '(#(syntax-object + set! + ((top) + #(ribcage + #(id exp1 var val exp2) + #((top) (top) (top) (top) (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile))) + (list (list '#(syntax-object + set! + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #{var 11177}# + #{val 11178}#) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #{exp2 11179}#)) + (list (cons #{id 11175}# + '(#(syntax-object + x + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + (cons #{exp1 11176}# + '(#(syntax-object + x + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #(syntax-object + ... + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene + guile)))))) + (list #{id 11175}# + (list '#(syntax-object + identifier? + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #{id 11175}#)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(id + exp1 + var + val + exp2) + #((top) + (top) + (top) + (top) + (top)) + #("i11170" + "i11171" + "i11172" + "i11173" + "i11174")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i11152"))) + (hygiene guile)) + #{exp1 11176}#)))))) + #{tmp 11157}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11151}#)))))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 4847}#) - (let ((#{tmp 4849}# #{x 4847}#)) - (let ((#{tmp 4850}# + (lambda (#{x 11180}#) + (begin + (let ((#{tmp 11183}# ($sc-dispatch - #{tmp 4849}# + #{x 11180}# '(_ (any . any) any . each-any)))) - (if #{tmp 4850}# + (if #{tmp 11183}# (@apply - (lambda (#{id 4855}# - #{args 4856}# - #{b0 4857}# - #{b1 4858}#) + (lambda (#{id 11188}# + #{args 11189}# + #{b0 11190}# + #{b1 11191}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4851" "i4852" "i4853" "i4854")) + #("i11184" "i11185" "i11186" "i11187")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4848"))) + #(ribcage #(x) #((top)) #("i11181"))) (hygiene guile)) - #{id 4855}# + #{id 11188}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("i4851" "i4852" "i4853" "i4854")) + #("i11184" "i11185" "i11186" "i11187")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4848"))) + #(ribcage #(x) #((top)) #("i11181"))) (hygiene guile)) - (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 4863}# #{val 4864}#) - (identifier? - '#(syntax-object - x - ((top) - #(ribcage - #(id val) - #((top) (top)) - #("i4861" "i4862")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4848"))) - (hygiene guile)))) - #{tmp 4860}#) - #f) - (@apply - (lambda (#{id 4867}# #{val 4868}#) - (list '#(syntax-object - define - ((top) - #(ribcage - #(id val) - #((top) (top)) - #("i4865" "i4866")) - #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4848"))) - (hygiene guile)) - #{id 4867}# - #{val 4868}#)) - #{tmp 4860}#) - (syntax-violation - #f - "source expression failed to match any pattern" - #{tmp 4849}#))))))))) + (cons #{args 11189}# + (cons #{b0 11190}# #{b1 11191}#))))) + #{tmp 11183}#) + (begin + (let ((#{tmp 11193}# + ($sc-dispatch #{x 11180}# '(_ any any)))) + (if (if #{tmp 11193}# + (@apply + (lambda (#{id 11196}# #{val 11197}#) + (identifier? + '#(syntax-object + x + ((top) + #(ribcage + #(id val) + #((top) (top)) + #("i11194" "i11195")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11181"))) + (hygiene guile)))) + #{tmp 11193}#) + #f) + (@apply + (lambda (#{id 11200}# #{val 11201}#) + (list '#(syntax-object + define + ((top) + #(ribcage + #(id val) + #((top) (top)) + #("i11198" "i11199")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i11181"))) + (hygiene guile)) + #{id 11200}# + #{val 11201}#)) + #{tmp 11193}#) + (syntax-violation + #f + "source expression failed to match any pattern" + #{x 11180}#)))))))))) |