guile/module/ice-9/psyntax-pp.scm

(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)

(letrec*
  ((#{and-map* 39}#
     (lambda (#{f 203}# #{first 204}# . #{rest 205}#)
       (begin
         (let ((#{t 211}# (null? #{first 204}#)))
           (if #{t 211}#
             #{t 211}#
             (if (null? #{rest 205}#)
               (letrec*
                 ((#{andmap 215}#
                    (lambda (#{first 216}#)
                      (begin
                        (let ((#{x 219}# (car #{first 216}#))
                              (#{first 220}# (cdr #{first 216}#)))
                          (if (null? #{first 220}#)
                            (#{f 203}# #{x 219}#)
                            (if (#{f 203}# #{x 219}#)
                              (#{andmap 215}# #{first 220}#)
                              #f)))))))
                 (begin (#{andmap 215}# #{first 204}#)))
               (letrec*
                 ((#{andmap 226}#
                    (lambda (#{first 227}# #{rest 228}#)
                      (begin
                        (let ((#{x 233}# (car #{first 227}#))
                              (#{xr 234}# (map car #{rest 228}#))
                              (#{first 235}# (cdr #{first 227}#))
                              (#{rest 236}# (map cdr #{rest 228}#)))
                          (if (null? #{first 235}#)
                            (@apply #{f 203}# #{x 233}# #{xr 234}#)
                            (if (@apply #{f 203}# #{x 233}# #{xr 234}#)
                              (#{andmap 226}# #{first 235}# #{rest 236}#)
                              #f)))))))
                 (begin
                   (#{andmap 226}# #{first 204}# #{rest 205}#))))))))))
  (begin
    (letrec*
      ((#{make-void 241}#
         (lambda (#{src 799}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 0)
             #{src 799}#)))
       (#{make-const 243}#
         (lambda (#{src 801}# #{exp 802}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 1)
             #{src 801}#
             #{exp 802}#)))
       (#{make-lexical-ref 247}#
         (lambda (#{src 809}# #{name 810}# #{gensym 811}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 3)
             #{src 809}#
             #{name 810}#
             #{gensym 811}#)))
       (#{make-lexical-set 249}#
         (lambda (#{src 815}#
                  #{name 816}#
                  #{gensym 817}#
                  #{exp 818}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 4)
             #{src 815}#
             #{name 816}#
             #{gensym 817}#
             #{exp 818}#)))
       (#{make-module-ref 251}#
         (lambda (#{src 823}#
                  #{mod 824}#
                  #{name 825}#
                  #{public? 826}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 5)
             #{src 823}#
             #{mod 824}#
             #{name 825}#
             #{public? 826}#)))
       (#{make-module-set 253}#
         (lambda (#{src 831}#
                  #{mod 832}#
                  #{name 833}#
                  #{public? 834}#
                  #{exp 835}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 6)
             #{src 831}#
             #{mod 832}#
             #{name 833}#
             #{public? 834}#
             #{exp 835}#)))
       (#{make-toplevel-ref 255}#
         (lambda (#{src 841}# #{name 842}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 7)
             #{src 841}#
             #{name 842}#)))
       (#{make-toplevel-set 257}#
         (lambda (#{src 845}# #{name 846}# #{exp 847}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 8)
             #{src 845}#
             #{name 846}#
             #{exp 847}#)))
       (#{make-toplevel-define 259}#
         (lambda (#{src 851}# #{name 852}# #{exp 853}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 9)
             #{src 851}#
             #{name 852}#
             #{exp 853}#)))
       (#{make-conditional 261}#
         (lambda (#{src 857}#
                  #{test 858}#
                  #{consequent 859}#
                  #{alternate 860}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 10)
             #{src 857}#
             #{test 858}#
             #{consequent 859}#
             #{alternate 860}#)))
       (#{make-application 263}#
         (lambda (#{src 865}# #{proc 866}# #{args 867}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 11)
             #{src 865}#
             #{proc 866}#
             #{args 867}#)))
       (#{make-sequence 265}#
         (lambda (#{src 871}# #{exps 872}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 12)
             #{src 871}#
             #{exps 872}#)))
       (#{make-lambda 267}#
         (lambda (#{src 875}# #{meta 876}# #{body 877}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 13)
             #{src 875}#
             #{meta 876}#
             #{body 877}#)))
       (#{make-lambda-case 269}#
         (lambda (#{src 881}#
                  #{req 882}#
                  #{opt 883}#
                  #{rest 884}#
                  #{kw 885}#
                  #{inits 886}#
                  #{gensyms 887}#
                  #{body 888}#
                  #{alternate 889}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 14)
             #{src 881}#
             #{req 882}#
             #{opt 883}#
             #{rest 884}#
             #{kw 885}#
             #{inits 886}#
             #{gensyms 887}#
             #{body 888}#
             #{alternate 889}#)))
       (#{make-let 271}#
         (lambda (#{src 899}#
                  #{names 900}#
                  #{gensyms 901}#
                  #{vals 902}#
                  #{body 903}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 15)
             #{src 899}#
             #{names 900}#
             #{gensyms 901}#
             #{vals 902}#
             #{body 903}#)))
       (#{make-letrec 273}#
         (lambda (#{src 909}#
                  #{in-order? 910}#
                  #{names 911}#
                  #{gensyms 912}#
                  #{vals 913}#
                  #{body 914}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 16)
             #{src 909}#
             #{in-order? 910}#
             #{names 911}#
             #{gensyms 912}#
             #{vals 913}#
             #{body 914}#)))
       (#{make-dynlet 275}#
         (lambda (#{src 921}#
                  #{fluids 922}#
                  #{vals 923}#
                  #{body 924}#)
           (make-struct/no-tail
             (vector-ref %expanded-vtables 17)
             #{src 921}#
             #{fluids 922}#
             #{vals 923}#
             #{body 924}#)))
       (#{lambda? 278}#
         (lambda (#{x 929}#)
           (if (struct? #{x 929}#)
             (eq? (struct-vtable #{x 929}#)
                  (vector-ref %expanded-vtables 13))
             #f)))
       (#{lambda-meta 280}#
         (lambda (#{x 933}#) (struct-ref #{x 933}# 1)))
       (#{set-lambda-meta! 282}#
         (lambda (#{x 935}# #{v 936}#)
           (struct-set! #{x 935}# 1 #{v 936}#)))
       (#{top-level-eval-hook 288}#
         (lambda (#{x 939}# #{mod 940}#)
           (primitive-eval #{x 939}#)))
       (#{local-eval-hook 290}#
         (lambda (#{x 943}# #{mod 944}#)
           (primitive-eval #{x 943}#)))
       (#{put-global-definition-hook 293}#
         (lambda (#{symbol 947}# #{type 948}# #{val 949}#)
           (module-define!
             (current-module)
             #{symbol 947}#
             (make-syntax-transformer
               #{symbol 947}#
               #{type 948}#
               #{val 949}#))))
       (#{get-global-definition-hook 295}#
         (lambda (#{symbol 953}# #{module 954}#)
           (begin
             (if (if (not #{module 954}#) (current-module) #f)
               (warn "module system is booted, we should have a module"
                     #{symbol 953}#))
             (begin
               (let ((#{v 960}# (module-variable
                                  (if #{module 954}#
                                    (resolve-module (cdr #{module 954}#))
                                    (current-module))
                                  #{symbol 953}#)))
                 (if #{v 960}#
                   (if (variable-bound? #{v 960}#)
                     (begin
                       (let ((#{val 965}# (variable-ref #{v 960}#)))
                         (if (macro? #{val 965}#)
                           (if (macro-type #{val 965}#)
                             (cons (macro-type #{val 965}#)
                                   (macro-binding #{val 965}#))
                             #f)
                           #f)))
                     #f)
                   #f))))))
       (#{decorate-source 297}#
         (lambda (#{e 969}# #{s 970}#)
           (begin
             (if (if (pair? #{e 969}#) #{s 970}# #f)
               (set-source-properties! #{e 969}# #{s 970}#))
             #{e 969}#)))
       (#{maybe-name-value! 299}#
         (lambda (#{name 975}# #{val 976}#)
           (if (#{lambda? 278}# #{val 976}#)
             (begin
               (let ((#{meta 980}# (#{lambda-meta 280}# #{val 976}#)))
                 (if (not (assq 'name #{meta 980}#))
                   (#{set-lambda-meta! 282}#
                     #{val 976}#
                     (cons (cons 'name #{name 975}#) #{meta 980}#))))))))
       (#{build-void 301}#
         (lambda (#{source 981}#)
           (#{make-void 241}# #{source 981}#)))
       (#{build-application 303}#
         (lambda (#{source 983}# #{fun-exp 984}# #{arg-exps 985}#)
           (#{make-application 263}#
             #{source 983}#
             #{fun-exp 984}#
             #{arg-exps 985}#)))
       (#{build-conditional 305}#
         (lambda (#{source 989}#
                  #{test-exp 990}#
                  #{then-exp 991}#
                  #{else-exp 992}#)
           (#{make-conditional 261}#
             #{source 989}#
             #{test-exp 990}#
             #{then-exp 991}#
             #{else-exp 992}#)))
       (#{build-dynlet 307}#
         (lambda (#{source 997}#
                  #{fluids 998}#
                  #{vals 999}#
                  #{body 1000}#)
           (#{make-dynlet 275}#
             #{source 997}#
             #{fluids 998}#
             #{vals 999}#
             #{body 1000}#)))
       (#{build-lexical-reference 309}#
         (lambda (#{type 1005}#
                  #{source 1006}#
                  #{name 1007}#
                  #{var 1008}#)
           (#{make-lexical-ref 247}#
             #{source 1006}#
             #{name 1007}#
             #{var 1008}#)))
       (#{build-lexical-assignment 311}#
         (lambda (#{source 1013}#
                  #{name 1014}#
                  #{var 1015}#
                  #{exp 1016}#)
           (begin
             (#{maybe-name-value! 299}#
               #{name 1014}#
               #{exp 1016}#)
             (#{make-lexical-set 249}#
               #{source 1013}#
               #{name 1014}#
               #{var 1015}#
               #{exp 1016}#))))
       (#{analyze-variable 313}#
         (lambda (#{mod 1021}#
                  #{var 1022}#
                  #{modref-cont 1023}#
                  #{bare-cont 1024}#)
           (if (not #{mod 1021}#)
             (#{bare-cont 1024}# #{var 1022}#)
             (begin
               (let ((#{kind 1031}# (car #{mod 1021}#))
                     (#{mod 1032}# (cdr #{mod 1021}#)))
                 (if (eqv? #{kind 1031}# 'public)
                   (#{modref-cont 1023}#
                     #{mod 1032}#
                     #{var 1022}#
                     #t)
                   (if (eqv? #{kind 1031}# 'private)
                     (if (not (equal?
                                #{mod 1032}#
                                (module-name (current-module))))
                       (#{modref-cont 1023}#
                         #{mod 1032}#
                         #{var 1022}#
                         #f)
                       (#{bare-cont 1024}# #{var 1022}#))
                     (if (eqv? #{kind 1031}# 'bare)
                       (#{bare-cont 1024}# #{var 1022}#)
                       (if (eqv? #{kind 1031}# 'hygiene)
                         (if (if (not (equal?
                                        #{mod 1032}#
                                        (module-name (current-module))))
                               (module-variable
                                 (resolve-module #{mod 1032}#)
                                 #{var 1022}#)
                               #f)
                           (#{modref-cont 1023}#
                             #{mod 1032}#
                             #{var 1022}#
                             #f)
                           (#{bare-cont 1024}# #{var 1022}#))
                         (syntax-violation
                           #f
                           "bad module kind"
                           #{var 1022}#
                           #{mod 1032}#))))))))))
       (#{build-global-reference 315}#
         (lambda (#{source 1040}# #{var 1041}# #{mod 1042}#)
           (#{analyze-variable 313}#
             #{mod 1042}#
             #{var 1041}#
             (lambda (#{mod 1046}# #{var 1047}# #{public? 1048}#)
               (#{make-module-ref 251}#
                 #{source 1040}#
                 #{mod 1046}#
                 #{var 1047}#
                 #{public? 1048}#))
             (lambda (#{var 1052}#)
               (#{make-toplevel-ref 255}#
                 #{source 1040}#
                 #{var 1052}#)))))
       (#{build-global-assignment 317}#
         (lambda (#{source 1054}#
                  #{var 1055}#
                  #{exp 1056}#
                  #{mod 1057}#)
           (begin
             (#{maybe-name-value! 299}#
               #{var 1055}#
               #{exp 1056}#)
             (#{analyze-variable 313}#
               #{mod 1057}#
               #{var 1055}#
               (lambda (#{mod 1062}# #{var 1063}# #{public? 1064}#)
                 (#{make-module-set 253}#
                   #{source 1054}#
                   #{mod 1062}#
                   #{var 1063}#
                   #{public? 1064}#
                   #{exp 1056}#))
               (lambda (#{var 1068}#)
                 (#{make-toplevel-set 257}#
                   #{source 1054}#
                   #{var 1068}#
                   #{exp 1056}#))))))
       (#{build-global-definition 319}#
         (lambda (#{source 1070}# #{var 1071}# #{exp 1072}#)
           (begin
             (#{maybe-name-value! 299}#
               #{var 1071}#
               #{exp 1072}#)
             (#{make-toplevel-define 259}#
               #{source 1070}#
               #{var 1071}#
               #{exp 1072}#))))
       (#{build-simple-lambda 321}#
         (lambda (#{src 1076}#
                  #{req 1077}#
                  #{rest 1078}#
                  #{vars 1079}#
                  #{meta 1080}#
                  #{exp 1081}#)
           (#{make-lambda 267}#
             #{src 1076}#
             #{meta 1080}#
             (#{make-lambda-case 269}#
               #{src 1076}#
               #{req 1077}#
               #f
               #{rest 1078}#
               #f
               '()
               #{vars 1079}#
               #{exp 1081}#
               #f))))
       (#{build-case-lambda 323}#
         (lambda (#{src 1088}# #{meta 1089}# #{body 1090}#)
           (#{make-lambda 267}#
             #{src 1088}#
             #{meta 1089}#
             #{body 1090}#)))
       (#{build-lambda-case 325}#
         (lambda (#{src 1094}#
                  #{req 1095}#
                  #{opt 1096}#
                  #{rest 1097}#
                  #{kw 1098}#
                  #{inits 1099}#
                  #{vars 1100}#
                  #{body 1101}#
                  #{else-case 1102}#)
           (#{make-lambda-case 269}#
             #{src 1094}#
             #{req 1095}#
             #{opt 1096}#
             #{rest 1097}#
             #{kw 1098}#
             #{inits 1099}#
             #{vars 1100}#
             #{body 1101}#
             #{else-case 1102}#)))
       (#{build-primref 327}#
         (lambda (#{src 1112}# #{name 1113}#)
           (if (equal? (module-name (current-module)) '(guile))
             (#{make-toplevel-ref 255}#
               #{src 1112}#
               #{name 1113}#)
             (#{make-module-ref 251}#
               #{src 1112}#
               '(guile)
               #{name 1113}#
               #f))))
       (#{build-data 329}#
         (lambda (#{src 1116}# #{exp 1117}#)
           (#{make-const 243}# #{src 1116}# #{exp 1117}#)))
       (#{build-sequence 331}#
         (lambda (#{src 1120}# #{exps 1121}#)
           (if (null? (cdr #{exps 1121}#))
             (car #{exps 1121}#)
             (#{make-sequence 265}#
               #{src 1120}#
               #{exps 1121}#))))
       (#{build-let 333}#
         (lambda (#{src 1124}#
                  #{ids 1125}#
                  #{vars 1126}#
                  #{val-exps 1127}#
                  #{body-exp 1128}#)
           (begin
             (for-each
               #{maybe-name-value! 299}#
               #{ids 1125}#
               #{val-exps 1127}#)
             (if (null? #{vars 1126}#)
               #{body-exp 1128}#
               (#{make-let 271}#
                 #{src 1124}#
                 #{ids 1125}#
                 #{vars 1126}#
                 #{val-exps 1127}#
                 #{body-exp 1128}#)))))
       (#{build-named-let 335}#
         (lambda (#{src 1134}#
                  #{ids 1135}#
                  #{vars 1136}#
                  #{val-exps 1137}#
                  #{body-exp 1138}#)
           (begin
             (let ((#{f 1148}# (car #{vars 1136}#))
                   (#{f-name 1149}# (car #{ids 1135}#))
                   (#{vars 1150}# (cdr #{vars 1136}#))
                   (#{ids 1151}# (cdr #{ids 1135}#)))
               (begin
                 (let ((#{proc 1153}#
                         (#{build-simple-lambda 321}#
                           #{src 1134}#
                           #{ids 1151}#
                           #f
                           #{vars 1150}#
                           '()
                           #{body-exp 1138}#)))
                   (begin
                     (#{maybe-name-value! 299}#
                       #{f-name 1149}#
                       #{proc 1153}#)
                     (for-each
                       #{maybe-name-value! 299}#
                       #{ids 1151}#
                       #{val-exps 1137}#)
                     (#{make-letrec 273}#
                       #{src 1134}#
                       #f
                       (list #{f-name 1149}#)
                       (list #{f 1148}#)
                       (list #{proc 1153}#)
                       (#{build-application 303}#
                         #{src 1134}#
                         (#{build-lexical-reference 309}#
                           'fun
                           #{src 1134}#
                           #{f-name 1149}#
                           #{f 1148}#)
                         #{val-exps 1137}#)))))))))
       (#{build-letrec 337}#
         (lambda (#{src 1154}#
                  #{in-order? 1155}#
                  #{ids 1156}#
                  #{vars 1157}#
                  #{val-exps 1158}#
                  #{body-exp 1159}#)
           (if (null? #{vars 1157}#)
             #{body-exp 1159}#
             (begin
               (for-each
                 #{maybe-name-value! 299}#
                 #{ids 1156}#
                 #{val-exps 1158}#)
               (#{make-letrec 273}#
                 #{src 1154}#
                 #{in-order? 1155}#
                 #{ids 1156}#
                 #{vars 1157}#
                 #{val-exps 1158}#
                 #{body-exp 1159}#)))))
       (#{make-syntax-object 341}#
         (lambda (#{expression 1166}#
                  #{wrap 1167}#
                  #{module 1168}#)
           (vector
             'syntax-object
             #{expression 1166}#
             #{wrap 1167}#
             #{module 1168}#)))
       (#{syntax-object? 343}#
         (lambda (#{x 1172}#)
           (if (vector? #{x 1172}#)
             (if (= (vector-length #{x 1172}#) 4)
               (eq? (vector-ref #{x 1172}# 0) 'syntax-object)
               #f)
             #f)))
       (#{syntax-object-expression 345}#
         (lambda (#{x 1177}#) (vector-ref #{x 1177}# 1)))
       (#{syntax-object-wrap 347}#
         (lambda (#{x 1179}#) (vector-ref #{x 1179}# 2)))
       (#{syntax-object-module 349}#
         (lambda (#{x 1181}#) (vector-ref #{x 1181}# 3)))
       (#{source-annotation 358}#
         (lambda (#{x 1195}#)
           (if (#{syntax-object? 343}# #{x 1195}#)
             (#{source-annotation 358}#
               (#{syntax-object-expression 345}# #{x 1195}#))
             (if (pair? #{x 1195}#)
               (begin
                 (let ((#{props 1202}# (source-properties #{x 1195}#)))
                   (if (pair? #{props 1202}#) #{props 1202}# #f)))
               #f))))
       (#{extend-env 365}#
         (lambda (#{labels 1204}# #{bindings 1205}# #{r 1206}#)
           (if (null? #{labels 1204}#)
             #{r 1206}#
             (#{extend-env 365}#
               (cdr #{labels 1204}#)
               (cdr #{bindings 1205}#)
               (cons (cons (car #{labels 1204}#)
                           (car #{bindings 1205}#))
                     #{r 1206}#)))))
       (#{extend-var-env 367}#
         (lambda (#{labels 1210}# #{vars 1211}# #{r 1212}#)
           (if (null? #{labels 1210}#)
             #{r 1212}#
             (#{extend-var-env 367}#
               (cdr #{labels 1210}#)
               (cdr #{vars 1211}#)
               (cons (cons (car #{labels 1210}#)
                           (cons 'lexical (car #{vars 1211}#)))
                     #{r 1212}#)))))
       (#{macros-only-env 369}#
         (lambda (#{r 1217}#)
           (if (null? #{r 1217}#)
             '()
             (begin
               (let ((#{a 1220}# (car #{r 1217}#)))
                 (if (eq? (car (cdr #{a 1220}#)) 'macro)
                   (cons #{a 1220}#
                         (#{macros-only-env 369}# (cdr #{r 1217}#)))
                   (#{macros-only-env 369}# (cdr #{r 1217}#))))))))
       (#{lookup 371}#
         (lambda (#{x 1221}# #{r 1222}# #{mod 1223}#)
           (begin
             (let ((#{t 1229}# (assq #{x 1221}# #{r 1222}#)))
               (if #{t 1229}#
                 (cdr #{t 1229}#)
                 (if (symbol? #{x 1221}#)
                   (begin
                     (let ((#{t 1235}#
                             (#{get-global-definition-hook 295}#
                               #{x 1221}#
                               #{mod 1223}#)))
                       (if #{t 1235}# #{t 1235}# '(global))))
                   '(displaced-lexical)))))))
       (#{global-extend 373}#
         (lambda (#{type 1240}# #{sym 1241}# #{val 1242}#)
           (#{put-global-definition-hook 293}#
             #{sym 1241}#
             #{type 1240}#
             #{val 1242}#)))
       (#{nonsymbol-id? 375}#
         (lambda (#{x 1246}#)
           (if (#{syntax-object? 343}# #{x 1246}#)
             (symbol?
               (#{syntax-object-expression 345}# #{x 1246}#))
             #f)))
       (#{id? 377}#
         (lambda (#{x 1250}#)
           (if (symbol? #{x 1250}#)
             #t
             (if (#{syntax-object? 343}# #{x 1250}#)
               (symbol?
                 (#{syntax-object-expression 345}# #{x 1250}#))
               #f))))
       (#{id-sym-name&marks 380}#
         (lambda (#{x 1257}# #{w 1258}#)
           (if (#{syntax-object? 343}# #{x 1257}#)
             (values
               (#{syntax-object-expression 345}# #{x 1257}#)
               (#{join-marks 427}#
                 (car #{w 1258}#)
                 (car (#{syntax-object-wrap 347}# #{x 1257}#))))
             (values #{x 1257}# (car #{w 1258}#)))))
       (#{gen-label 390}#
         (lambda () (symbol->string (gensym "i"))))
       (#{gen-labels 392}#
         (lambda (#{ls 1264}#)
           (if (null? #{ls 1264}#)
             '()
             (cons (#{gen-label 390}#)
                   (#{gen-labels 392}# (cdr #{ls 1264}#))))))
       (#{make-ribcage 395}#
         (lambda (#{symnames 1266}#
                  #{marks 1267}#
                  #{labels 1268}#)
           (vector
             'ribcage
             #{symnames 1266}#
             #{marks 1267}#
             #{labels 1268}#)))
       (#{ribcage-symnames 399}#
         (lambda (#{x 1277}#) (vector-ref #{x 1277}# 1)))
       (#{ribcage-marks 401}#
         (lambda (#{x 1279}#) (vector-ref #{x 1279}# 2)))
       (#{ribcage-labels 403}#
         (lambda (#{x 1281}#) (vector-ref #{x 1281}# 3)))
       (#{set-ribcage-symnames! 405}#
         (lambda (#{x 1283}# #{update 1284}#)
           (vector-set! #{x 1283}# 1 #{update 1284}#)))
       (#{set-ribcage-marks! 407}#
         (lambda (#{x 1287}# #{update 1288}#)
           (vector-set! #{x 1287}# 2 #{update 1288}#)))
       (#{set-ribcage-labels! 409}#
         (lambda (#{x 1291}# #{update 1292}#)
           (vector-set! #{x 1291}# 3 #{update 1292}#)))
       (#{anti-mark 415}#
         (lambda (#{w 1295}#)
           (cons (cons #f (car #{w 1295}#))
                 (cons 'shift (cdr #{w 1295}#)))))
       (#{extend-ribcage! 419}#
         (lambda (#{ribcage 1301}# #{id 1302}# #{label 1303}#)
           (begin
             (#{set-ribcage-symnames! 405}#
               #{ribcage 1301}#
               (cons (#{syntax-object-expression 345}# #{id 1302}#)
                     (#{ribcage-symnames 399}# #{ribcage 1301}#)))
             (#{set-ribcage-marks! 407}#
               #{ribcage 1301}#
               (cons (car (#{syntax-object-wrap 347}# #{id 1302}#))
                     (#{ribcage-marks 401}# #{ribcage 1301}#)))
             (#{set-ribcage-labels! 409}#
               #{ribcage 1301}#
               (cons #{label 1303}#
                     (#{ribcage-labels 403}# #{ribcage 1301}#))))))
       (#{make-binding-wrap 421}#
         (lambda (#{ids 1308}# #{labels 1309}# #{w 1310}#)
           (if (null? #{ids 1308}#)
             #{w 1310}#
             (cons (car #{w 1310}#)
                   (cons (begin
                           (let ((#{labelvec 1317}#
                                   (list->vector #{labels 1309}#)))
                             (begin
                               (let ((#{n 1319}#
                                       (vector-length #{labelvec 1317}#)))
                                 (begin
                                   (let ((#{symnamevec 1322}#
                                           (make-vector #{n 1319}#))
                                         (#{marksvec 1323}#
                                           (make-vector #{n 1319}#)))
                                     (begin
                                       (letrec*
                                         ((#{f 1327}#
                                            (lambda (#{ids 1328}# #{i 1329}#)
                                              (if (not (null? #{ids 1328}#))
                                                (call-with-values
                                                  (lambda ()
                                                    (#{id-sym-name&marks 380}#
                                                      (car #{ids 1328}#)
                                                      #{w 1310}#))
                                                  (lambda (#{symname 1330}#
                                                           #{marks 1331}#)
                                                    (begin
                                                      (vector-set!
                                                        #{symnamevec 1322}#
                                                        #{i 1329}#
                                                        #{symname 1330}#)
                                                      (vector-set!
                                                        #{marksvec 1323}#
                                                        #{i 1329}#
                                                        #{marks 1331}#)
                                                      (#{f 1327}#
                                                        (cdr #{ids 1328}#)
                                                        (#{1+}# #{i 1329}#)))))))))
                                         (begin (#{f 1327}# #{ids 1308}# 0)))
                                       (#{make-ribcage 395}#
                                         #{symnamevec 1322}#
                                         #{marksvec 1323}#
                                         #{labelvec 1317}#))))))))
                         (cdr #{w 1310}#))))))
       (#{smart-append 423}#
         (lambda (#{m1 1336}# #{m2 1337}#)
           (if (null? #{m2 1337}#)
             #{m1 1336}#
             (append #{m1 1336}# #{m2 1337}#))))
       (#{join-wraps 425}#
         (lambda (#{w1 1340}# #{w2 1341}#)
           (begin
             (let ((#{m1 1346}# (car #{w1 1340}#))
                   (#{s1 1347}# (cdr #{w1 1340}#)))
               (if (null? #{m1 1346}#)
                 (if (null? #{s1 1347}#)
                   #{w2 1341}#
                   (cons (car #{w2 1341}#)
                         (#{smart-append 423}#
                           #{s1 1347}#
                           (cdr #{w2 1341}#))))
                 (cons (#{smart-append 423}#
                         #{m1 1346}#
                         (car #{w2 1341}#))
                       (#{smart-append 423}#
                         #{s1 1347}#
                         (cdr #{w2 1341}#))))))))
       (#{join-marks 427}#
         (lambda (#{m1 1356}# #{m2 1357}#)
           (#{smart-append 423}# #{m1 1356}# #{m2 1357}#)))
       (#{same-marks? 429}#
         (lambda (#{x 1360}# #{y 1361}#)
           (begin
             (let ((#{t 1366}# (eq? #{x 1360}# #{y 1361}#)))
               (if #{t 1366}#
                 #{t 1366}#
                 (if (not (null? #{x 1360}#))
                   (if (not (null? #{y 1361}#))
                     (if (eq? (car #{x 1360}#) (car #{y 1361}#))
                       (#{same-marks? 429}#
                         (cdr #{x 1360}#)
                         (cdr #{y 1361}#))
                       #f)
                     #f)
                   #f))))))
       (#{id-var-name 431}#
         (lambda (#{id 1372}# #{w 1373}#)
           (letrec*
             ((#{search 1378}#
                (lambda (#{sym 1394}# #{subst 1395}# #{marks 1396}#)
                  (if (null? #{subst 1395}#)
                    (values #f #{marks 1396}#)
                    (begin
                      (let ((#{fst 1401}# (car #{subst 1395}#)))
                        (if (eq? #{fst 1401}# 'shift)
                          (#{search 1378}#
                            #{sym 1394}#
                            (cdr #{subst 1395}#)
                            (cdr #{marks 1396}#))
                          (begin
                            (let ((#{symnames 1403}#
                                    (#{ribcage-symnames 399}# #{fst 1401}#)))
                              (if (vector? #{symnames 1403}#)
                                (#{search-vector-rib 1382}#
                                  #{sym 1394}#
                                  #{subst 1395}#
                                  #{marks 1396}#
                                  #{symnames 1403}#
                                  #{fst 1401}#)
                                (#{search-list-rib 1380}#
                                  #{sym 1394}#
                                  #{subst 1395}#
                                  #{marks 1396}#
                                  #{symnames 1403}#
                                  #{fst 1401}#))))))))))
              (#{search-list-rib 1380}#
                (lambda (#{sym 1404}#
                         #{subst 1405}#
                         #{marks 1406}#
                         #{symnames 1407}#
                         #{ribcage 1408}#)
                  (letrec*
                    ((#{f 1417}#
                       (lambda (#{symnames 1418}# #{i 1419}#)
                         (if (null? #{symnames 1418}#)
                           (#{search 1378}#
                             #{sym 1404}#
                             (cdr #{subst 1405}#)
                             #{marks 1406}#)
                           (if (if (eq? (car #{symnames 1418}#) #{sym 1404}#)
                                 (#{same-marks? 429}#
                                   #{marks 1406}#
                                   (list-ref
                                     (#{ribcage-marks 401}# #{ribcage 1408}#)
                                     #{i 1419}#))
                                 #f)
                             (values
                               (list-ref
                                 (#{ribcage-labels 403}# #{ribcage 1408}#)
                                 #{i 1419}#)
                               #{marks 1406}#)
                             (#{f 1417}#
                               (cdr #{symnames 1418}#)
                               (#{1+}# #{i 1419}#)))))))
                    (begin (#{f 1417}# #{symnames 1407}# 0)))))
              (#{search-vector-rib 1382}#
                (lambda (#{sym 1428}#
                         #{subst 1429}#
                         #{marks 1430}#
                         #{symnames 1431}#
                         #{ribcage 1432}#)
                  (begin
                    (let ((#{n 1439}# (vector-length #{symnames 1431}#)))
                      (letrec*
                        ((#{f 1442}#
                           (lambda (#{i 1443}#)
                             (if (= #{i 1443}# #{n 1439}#)
                               (#{search 1378}#
                                 #{sym 1428}#
                                 (cdr #{subst 1429}#)
                                 #{marks 1430}#)
                               (if (if (eq? (vector-ref
                                              #{symnames 1431}#
                                              #{i 1443}#)
                                            #{sym 1428}#)
                                     (#{same-marks? 429}#
                                       #{marks 1430}#
                                       (vector-ref
                                         (#{ribcage-marks 401}#
                                           #{ribcage 1432}#)
                                         #{i 1443}#))
                                     #f)
                                 (values
                                   (vector-ref
                                     (#{ribcage-labels 403}# #{ribcage 1432}#)
                                     #{i 1443}#)
                                   #{marks 1430}#)
                                 (#{f 1442}# (#{1+}# #{i 1443}#)))))))
                        (begin (#{f 1442}# 0))))))))
             (begin
               (if (symbol? #{id 1372}#)
                 (begin
                   (let ((#{t 1455}#
                           (#{search 1378}#
                             #{id 1372}#
                             (cdr #{w 1373}#)
                             (car #{w 1373}#))))
                     (if #{t 1455}# #{t 1455}# #{id 1372}#)))
                 (if (#{syntax-object? 343}# #{id 1372}#)
                   (begin
                     (let ((#{id 1464}#
                             (#{syntax-object-expression 345}# #{id 1372}#))
                           (#{w1 1465}#
                             (#{syntax-object-wrap 347}# #{id 1372}#)))
                       (begin
                         (let ((#{marks 1467}#
                                 (#{join-marks 427}#
                                   (car #{w 1373}#)
                                   (car #{w1 1465}#))))
                           (call-with-values
                             (lambda ()
                               (#{search 1378}#
                                 #{id 1464}#
                                 (cdr #{w 1373}#)
                                 #{marks 1467}#))
                             (lambda (#{new-id 1471}# #{marks 1472}#)
                               (begin
                                 (let ((#{t 1477}# #{new-id 1471}#))
                                   (if #{t 1477}#
                                     #{t 1477}#
                                     (begin
                                       (let ((#{t 1480}#
                                               (#{search 1378}#
                                                 #{id 1464}#
                                                 (cdr #{w1 1465}#)
                                                 #{marks 1472}#)))
                                         (if #{t 1480}#
                                           #{t 1480}#
                                           #{id 1464}#))))))))))))
                   (syntax-violation
                     'id-var-name
                     "invalid id"
                     #{id 1372}#)))))))
       (#{free-id=? 433}#
         (lambda (#{i 1485}# #{j 1486}#)
           (begin
             (let ((#{ni 1491}#
                     (#{id-var-name 431}# #{i 1485}# '(())))
                   (#{nj 1492}#
                     (#{id-var-name 431}# #{j 1486}# '(()))))
               (letrec*
                 ((#{id-module-binding 1496}#
                    (lambda (#{id 1497}#)
                      (begin
                        (let ((#{mod 1500}#
                                (if (#{syntax-object? 343}# #{id 1497}#)
                                  (#{syntax-object-module 349}# #{id 1497}#)
                                  #f)))
                          (module-variable
                            (if #{mod 1500}#
                              (resolve-module (cdr #{mod 1500}#))
                              (current-module))
                            (begin
                              (let ((#{x 1505}# #{id 1497}#))
                                (if (#{syntax-object? 343}# #{x 1505}#)
                                  (#{syntax-object-expression 345}# #{x 1505}#)
                                  #{x 1505}#)))))))))
                 (begin
                   (if (eq? #{ni 1491}#
                            (begin
                              (let ((#{x 1508}# #{i 1485}#))
                                (if (#{syntax-object? 343}# #{x 1508}#)
                                  (#{syntax-object-expression 345}# #{x 1508}#)
                                  #{x 1508}#))))
                     (if (eq? #{nj 1492}#
                              (begin
                                (let ((#{x 1512}# #{j 1486}#))
                                  (if (#{syntax-object? 343}# #{x 1512}#)
                                    (#{syntax-object-expression 345}#
                                      #{x 1512}#)
                                    #{x 1512}#))))
                       (if (begin
                             (let ((#{bi 1515}#
                                     (#{id-module-binding 1496}# #{i 1485}#)))
                               (if #{bi 1515}#
                                 (eq? #{bi 1515}#
                                      (#{id-module-binding 1496}# #{j 1486}#))
                                 (if (not (#{id-module-binding 1496}#
                                            #{j 1486}#))
                                   (eq? #{ni 1491}# #{nj 1492}#)
                                   #f))))
                         (eq? (#{id-module-binding 1496}# #{i 1485}#)
                              (#{id-module-binding 1496}# #{j 1486}#))
                         #f)
                       #f)
                     (if (eq? #{ni 1491}# #{nj 1492}#)
                       (not (eq? #{nj 1492}#
                                 (begin
                                   (let ((#{x 1523}# #{j 1486}#))
                                     (if (#{syntax-object? 343}# #{x 1523}#)
                                       (#{syntax-object-expression 345}#
                                         #{x 1523}#)
                                       #{x 1523}#)))))
                       #f))))))))
       (#{bound-id=? 435}#
         (lambda (#{i 1524}# #{j 1525}#)
           (if (if (#{syntax-object? 343}# #{i 1524}#)
                 (#{syntax-object? 343}# #{j 1525}#)
                 #f)
             (if (eq? (#{syntax-object-expression 345}# #{i 1524}#)
                      (#{syntax-object-expression 345}# #{j 1525}#))
               (#{same-marks? 429}#
                 (car (#{syntax-object-wrap 347}# #{i 1524}#))
                 (car (#{syntax-object-wrap 347}# #{j 1525}#)))
               #f)
             (eq? #{i 1524}# #{j 1525}#))))
       (#{valid-bound-ids? 437}#
         (lambda (#{ids 1534}#)
           (if (letrec*
                 ((#{all-ids? 1539}#
                    (lambda (#{ids 1540}#)
                      (begin
                        (let ((#{t 1543}# (null? #{ids 1540}#)))
                          (if #{t 1543}#
                            #{t 1543}#
                            (if (#{id? 377}# (car #{ids 1540}#))
                              (#{all-ids? 1539}# (cdr #{ids 1540}#))
                              #f)))))))
                 (begin (#{all-ids? 1539}# #{ids 1534}#)))
             (#{distinct-bound-ids? 439}# #{ids 1534}#)
             #f)))
       (#{distinct-bound-ids? 439}#
         (lambda (#{ids 1548}#)
           (letrec*
             ((#{distinct? 1552}#
                (lambda (#{ids 1553}#)
                  (begin
                    (let ((#{t 1556}# (null? #{ids 1553}#)))
                      (if #{t 1556}#
                        #{t 1556}#
                        (if (not (#{bound-id-member? 441}#
                                   (car #{ids 1553}#)
                                   (cdr #{ids 1553}#)))
                          (#{distinct? 1552}# (cdr #{ids 1553}#))
                          #f)))))))
             (begin (#{distinct? 1552}# #{ids 1548}#)))))
       (#{bound-id-member? 441}#
         (lambda (#{x 1560}# #{list 1561}#)
           (if (not (null? #{list 1561}#))
             (begin
               (let ((#{t 1568}#
                       (#{bound-id=? 435}#
                         #{x 1560}#
                         (car #{list 1561}#))))
                 (if #{t 1568}#
                   #{t 1568}#
                   (#{bound-id-member? 441}#
                     #{x 1560}#
                     (cdr #{list 1561}#)))))
             #f)))
       (#{wrap 443}#
         (lambda (#{x 1570}# #{w 1571}# #{defmod 1572}#)
           (if (if (null? (car #{w 1571}#))
                 (null? (cdr #{w 1571}#))
                 #f)
             #{x 1570}#
             (if (#{syntax-object? 343}# #{x 1570}#)
               (#{make-syntax-object 341}#
                 (#{syntax-object-expression 345}# #{x 1570}#)
                 (#{join-wraps 425}#
                   #{w 1571}#
                   (#{syntax-object-wrap 347}# #{x 1570}#))
                 (#{syntax-object-module 349}# #{x 1570}#))
               (if (null? #{x 1570}#)
                 #{x 1570}#
                 (#{make-syntax-object 341}#
                   #{x 1570}#
                   #{w 1571}#
                   #{defmod 1572}#))))))
       (#{source-wrap 445}#
         (lambda (#{x 1587}#
                  #{w 1588}#
                  #{s 1589}#
                  #{defmod 1590}#)
           (#{wrap 443}#
             (#{decorate-source 297}# #{x 1587}# #{s 1589}#)
             #{w 1588}#
             #{defmod 1590}#)))
       (#{chi-sequence 447}#
         (lambda (#{body 1595}#
                  #{r 1596}#
                  #{w 1597}#
                  #{s 1598}#
                  #{mod 1599}#)
           (#{build-sequence 331}#
             #{s 1598}#
             (letrec*
               ((#{dobody 1610}#
                  (lambda (#{body 1611}#
                           #{r 1612}#
                           #{w 1613}#
                           #{mod 1614}#)
                    (if (null? #{body 1611}#)
                      '()
                      (begin
                        (let ((#{first 1616}#
                                (#{chi 457}#
                                  (car #{body 1611}#)
                                  #{r 1612}#
                                  #{w 1613}#
                                  #{mod 1614}#)))
                          (cons #{first 1616}#
                                (#{dobody 1610}#
                                  (cdr #{body 1611}#)
                                  #{r 1612}#
                                  #{w 1613}#
                                  #{mod 1614}#))))))))
               (begin
                 (#{dobody 1610}#
                   #{body 1595}#
                   #{r 1596}#
                   #{w 1597}#
                   #{mod 1599}#))))))
       (#{chi-top-sequence 449}#
         (lambda (#{body 1617}#
                  #{r 1618}#
                  #{w 1619}#
                  #{s 1620}#
                  #{m 1621}#
                  #{esew 1622}#
                  #{mod 1623}#)
           (letrec*
             ((#{scan 1632}#
                (lambda (#{body 1633}#
                         #{r 1634}#
                         #{w 1635}#
                         #{s 1636}#
                         #{m 1637}#
                         #{esew 1638}#
                         #{mod 1639}#
                         #{exps 1640}#)
                  (if (null? #{body 1633}#)
                    #{exps 1640}#
                    (call-with-values
                      (lambda ()
                        (call-with-values
                          (lambda ()
                            (begin
                              (let ((#{e 1653}# (car #{body 1633}#)))
                                (#{syntax-type 455}#
                                  #{e 1653}#
                                  #{r 1634}#
                                  #{w 1635}#
                                  (begin
                                    (let ((#{t 1656}#
                                            (#{source-annotation 358}#
                                              #{e 1653}#)))
                                      (if #{t 1656}# #{t 1656}# #{s 1636}#)))
                                  #f
                                  #{mod 1639}#
                                  #f))))
                          (lambda (#{type 1658}#
                                   #{value 1659}#
                                   #{e 1660}#
                                   #{w 1661}#
                                   #{s 1662}#
                                   #{mod 1663}#)
                            (if (eqv? #{type 1658}# 'begin-form)
                              (let ((#{tmp 1671}# #{e 1660}#))
                                (let ((#{tmp 1672}#
                                        ($sc-dispatch #{tmp 1671}# '(_))))
                                  (if #{tmp 1672}#
                                    (@apply
                                      (lambda () #{exps 1640}#)
                                      #{tmp 1672}#)
                                    (let ((#{tmp 1673}#
                                            ($sc-dispatch
                                              #{tmp 1671}#
                                              '(_ any . each-any))))
                                      (if #{tmp 1673}#
                                        (@apply
                                          (lambda (#{e1 1676}# #{e2 1677}#)
                                            (#{scan 1632}#
                                              (cons #{e1 1676}# #{e2 1677}#)
                                              #{r 1634}#
                                              #{w 1661}#
                                              #{s 1662}#
                                              #{m 1637}#
                                              #{esew 1638}#
                                              #{mod 1663}#
                                              #{exps 1640}#))
                                          #{tmp 1673}#)
                                        (syntax-violation
                                          #f
                                          "source expression failed to match any pattern"
                                          #{tmp 1671}#))))))
                              (if (eqv? #{type 1658}# 'local-syntax-form)
                                (#{chi-local-syntax 467}#
                                  #{value 1659}#
                                  #{e 1660}#
                                  #{r 1634}#
                                  #{w 1661}#
                                  #{s 1662}#
                                  #{mod 1663}#
                                  (lambda (#{body 1680}#
                                           #{r 1681}#
                                           #{w 1682}#
                                           #{s 1683}#
                                           #{mod 1684}#)
                                    (#{scan 1632}#
                                      #{body 1680}#
                                      #{r 1681}#
                                      #{w 1682}#
                                      #{s 1683}#
                                      #{m 1637}#
                                      #{esew 1638}#
                                      #{mod 1684}#
                                      #{exps 1640}#)))
                                (if (eqv? #{type 1658}# 'eval-when-form)
                                  (let ((#{tmp 1691}# #{e 1660}#))
                                    (let ((#{tmp 1692}#
                                            ($sc-dispatch
                                              #{tmp 1691}#
                                              '(_ each-any any . each-any))))
                                      (if #{tmp 1692}#
                                        (@apply
                                          (lambda (#{x 1696}#
                                                   #{e1 1697}#
                                                   #{e2 1698}#)
                                            (begin
                                              (let ((#{when-list 1701}#
                                                      (#{chi-when-list 453}#
                                                        #{e 1660}#
                                                        #{x 1696}#
                                                        #{w 1661}#))
                                                    (#{body 1702}#
                                                      (cons #{e1 1697}#
                                                            #{e2 1698}#)))
                                                (if (eq? #{m 1637}# 'e)
                                                  (if (memq 'eval
                                                            #{when-list 1701}#)
                                                    (#{scan 1632}#
                                                      #{body 1702}#
                                                      #{r 1634}#
                                                      #{w 1661}#
                                                      #{s 1662}#
                                                      (if (memq 'expand
                                                                #{when-list 1701}#)
                                                        'c&e
                                                        'e)
                                                      '(eval)
                                                      #{mod 1663}#
                                                      #{exps 1640}#)
                                                    (begin
                                                      (if (memq 'expand
                                                                #{when-list 1701}#)
                                                        (#{top-level-eval-hook 288}#
                                                          (#{chi-top-sequence 449}#
                                                            #{body 1702}#
                                                            #{r 1634}#
                                                            #{w 1661}#
                                                            #{s 1662}#
                                                            'e
                                                            '(eval)
                                                            #{mod 1663}#)
                                                          #{mod 1663}#))
                                                      #{exps 1640}#))
                                                  (if (memq 'load
                                                            #{when-list 1701}#)
                                                    (if (begin
                                                          (let ((#{t 1711}#
                                                                  (memq 'compile
                                                                        #{when-list 1701}#)))
                                                            (if #{t 1711}#
                                                              #{t 1711}#
                                                              (begin
                                                                (let ((#{t 1714}#
                                                                        (memq 'expand
                                                                              #{when-list 1701}#)))
                                                                  (if #{t 1714}#
                                                                    #{t 1714}#
                                                                    (if (eq? #{m 1637}#
                                                                             'c&e)
                                                                      (memq 'eval
                                                                            #{when-list 1701}#)
                                                                      #f)))))))
                                                      (#{scan 1632}#
                                                        #{body 1702}#
                                                        #{r 1634}#
                                                        #{w 1661}#
                                                        #{s 1662}#
                                                        'c&e
                                                        '(compile load)
                                                        #{mod 1663}#
                                                        #{exps 1640}#)
                                                      (if (if (eq? #{m 1637}#
                                                                   'c)
                                                            #t
                                                            (eq? #{m 1637}#
                                                                 'c&e))
                                                        (#{scan 1632}#
                                                          #{body 1702}#
                                                          #{r 1634}#
                                                          #{w 1661}#
                                                          #{s 1662}#
                                                          'c
                                                          '(load)
                                                          #{mod 1663}#
                                                          #{exps 1640}#)
                                                        #{exps 1640}#))
                                                    (if (begin
                                                          (let ((#{t 1722}#
                                                                  (memq 'compile
                                                                        #{when-list 1701}#)))
                                                            (if #{t 1722}#
                                                              #{t 1722}#
                                                              (begin
                                                                (let ((#{t 1725}#
                                                                        (memq 'expand
                                                                              #{when-list 1701}#)))
                                                                  (if #{t 1725}#
                                                                    #{t 1725}#
                                                                    (if (eq? #{m 1637}#
                                                                             'c&e)
                                                                      (memq 'eval
                                                                            #{when-list 1701}#)
                                                                      #f)))))))
                                                      (begin
                                                        (#{top-level-eval-hook 288}#
                                                          (#{chi-top-sequence 449}#
                                                            #{body 1702}#
                                                            #{r 1634}#
                                                            #{w 1661}#
                                                            #{s 1662}#
                                                            'e
                                                            '(eval)
                                                            #{mod 1663}#)
                                                          #{mod 1663}#)
                                                        #{exps 1640}#)
                                                      #{exps 1640}#))))))
                                          #{tmp 1692}#)
                                        (syntax-violation
                                          #f
                                          "source expression failed to match any pattern"
                                          #{tmp 1691}#))))
                                  (if (eqv? #{type 1658}# 'define-syntax-form)
                                    (begin
                                      (let ((#{n 1733}#
                                              (#{id-var-name 431}#
                                                #{value 1659}#
                                                #{w 1661}#))
                                            (#{r 1734}#
                                              (#{macros-only-env 369}#
                                                #{r 1634}#)))
                                        (if (eqv? #{m 1637}# 'c)
                                          (if (memq 'compile #{esew 1638}#)
                                            (begin
                                              (let ((#{e 1737}#
                                                      (#{chi-install-global 451}#
                                                        #{n 1733}#
                                                        (#{chi 457}#
                                                          #{e 1660}#
                                                          #{r 1734}#
                                                          #{w 1661}#
                                                          #{mod 1663}#))))
                                                (begin
                                                  (#{top-level-eval-hook 288}#
                                                    #{e 1737}#
                                                    #{mod 1663}#)
                                                  (if (memq 'load
                                                            #{esew 1638}#)
                                                    (cons #{e 1737}#
                                                          #{exps 1640}#)
                                                    #{exps 1640}#))))
                                            (if (memq 'load #{esew 1638}#)
                                              (cons (#{chi-install-global 451}#
                                                      #{n 1733}#
                                                      (#{chi 457}#
                                                        #{e 1660}#
                                                        #{r 1734}#
                                                        #{w 1661}#
                                                        #{mod 1663}#))
                                                    #{exps 1640}#)
                                              #{exps 1640}#))
                                          (if (eqv? #{m 1637}# 'c&e)
                                            (begin
                                              (let ((#{e 1740}#
                                                      (#{chi-install-global 451}#
                                                        #{n 1733}#
                                                        (#{chi 457}#
                                                          #{e 1660}#
                                                          #{r 1734}#
                                                          #{w 1661}#
                                                          #{mod 1663}#))))
                                                (begin
                                                  (#{top-level-eval-hook 288}#
                                                    #{e 1740}#
                                                    #{mod 1663}#)
                                                  (cons #{e 1740}#
                                                        #{exps 1640}#))))
                                            (begin
                                              (if (memq 'eval #{esew 1638}#)
                                                (#{top-level-eval-hook 288}#
                                                  (#{chi-install-global 451}#
                                                    #{n 1733}#
                                                    (#{chi 457}#
                                                      #{e 1660}#
                                                      #{r 1734}#
                                                      #{w 1661}#
                                                      #{mod 1663}#))
                                                  #{mod 1663}#))
                                              #{exps 1640}#)))))
                                    (if (eqv? #{type 1658}# 'define-form)
                                      (begin
                                        (let ((#{n 1745}#
                                                (#{id-var-name 431}#
                                                  #{value 1659}#
                                                  #{w 1661}#)))
                                          (begin
                                            (let ((#{type 1747}#
                                                    (car (#{lookup 371}#
                                                           #{n 1745}#
                                                           #{r 1634}#
                                                           #{mod 1663}#))))
                                              (if (if (eqv? #{type 1747}#
                                                            'global)
                                                    #t
                                                    (if (eqv? #{type 1747}#
                                                              'core)
                                                      #t
                                                      (if (eqv? #{type 1747}#
                                                                'macro)
                                                        #t
                                                        (eqv? #{type 1747}#
                                                              'module-ref))))
                                                (begin
                                                  (if (if (if (eq? #{m 1637}#
                                                                   'c)
                                                            #t
                                                            (eq? #{m 1637}#
                                                                 'c&e))
                                                        (if (not (module-local-variable
                                                                   (current-module)
                                                                   #{n 1745}#))
                                                          (current-module)
                                                          #f)
                                                        #f)
                                                    (begin
                                                      (let ((#{old 1754}#
                                                              (module-variable
                                                                (current-module)
                                                                #{n 1745}#)))
                                                        (if (if (variable?
                                                                  #{old 1754}#)
                                                              (variable-bound?
                                                                #{old 1754}#)
                                                              #f)
                                                          (module-define!
                                                            (current-module)
                                                            #{n 1745}#
                                                            (variable-ref
                                                              #{old 1754}#))
                                                          (module-add!
                                                            (current-module)
                                                            #{n 1745}#
                                                            (make-undefined-variable))))))
                                                  (cons (if (eq? #{m 1637}#
                                                                 'c&e)
                                                          (begin
                                                            (let ((#{x 1758}#
                                                                    (#{build-global-definition 319}#
                                                                      #{s 1662}#
                                                                      #{n 1745}#
                                                                      (#{chi 457}#
                                                                        #{e 1660}#
                                                                        #{r 1634}#
                                                                        #{w 1661}#
                                                                        #{mod 1663}#))))
                                                              (begin
                                                                (#{top-level-eval-hook 288}#
                                                                  #{x 1758}#
                                                                  #{mod 1663}#)
                                                                #{x 1758}#)))
                                                          (lambda ()
                                                            (#{build-global-definition 319}#
                                                              #{s 1662}#
                                                              #{n 1745}#
                                                              (#{chi 457}#
                                                                #{e 1660}#
                                                                #{r 1634}#
                                                                #{w 1661}#
                                                                #{mod 1663}#))))
                                                        #{exps 1640}#))
                                                (if (eqv? #{type 1747}#
                                                          'displaced-lexical)
                                                  (syntax-violation
                                                    #f
                                                    "identifier out of context"
                                                    #{e 1660}#
                                                    (#{wrap 443}#
                                                      #{value 1659}#
                                                      #{w 1661}#
                                                      #{mod 1663}#))
                                                  (syntax-violation
                                                    #f
                                                    "cannot define keyword at top level"
                                                    #{e 1660}#
                                                    (#{wrap 443}#
                                                      #{value 1659}#
                                                      #{w 1661}#
                                                      #{mod 1663}#))))))))
                                      (cons (if (eq? #{m 1637}# 'c&e)
                                              (begin
                                                (let ((#{x 1763}#
                                                        (#{chi-expr 459}#
                                                          #{type 1658}#
                                                          #{value 1659}#
                                                          #{e 1660}#
                                                          #{r 1634}#
                                                          #{w 1661}#
                                                          #{s 1662}#
                                                          #{mod 1663}#)))
                                                  (begin
                                                    (#{top-level-eval-hook 288}#
                                                      #{x 1763}#
                                                      #{mod 1663}#)
                                                    #{x 1763}#)))
                                              (lambda ()
                                                (#{chi-expr 459}#
                                                  #{type 1658}#
                                                  #{value 1659}#
                                                  #{e 1660}#
                                                  #{r 1634}#
                                                  #{w 1661}#
                                                  #{s 1662}#
                                                  #{mod 1663}#)))
                                            #{exps 1640}#)))))))))
                      (lambda (#{exps 1764}#)
                        (#{scan 1632}#
                          (cdr #{body 1633}#)
                          #{r 1634}#
                          #{w 1635}#
                          #{s 1636}#
                          #{m 1637}#
                          #{esew 1638}#
                          #{mod 1639}#
                          #{exps 1764}#)))))))
             (begin
               (call-with-values
                 (lambda ()
                   (#{scan 1632}#
                     #{body 1617}#
                     #{r 1618}#
                     #{w 1619}#
                     #{s 1620}#
                     #{m 1621}#
                     #{esew 1622}#
                     #{mod 1623}#
                     '()))
                 (lambda (#{exps 1766}#)
                   (if (null? #{exps 1766}#)
                     (#{build-void 301}# #{s 1620}#)
                     (#{build-sequence 331}#
                       #{s 1620}#
                       (letrec*
                         ((#{lp 1771}#
                            (lambda (#{in 1772}# #{out 1773}#)
                              (if (null? #{in 1772}#)
                                #{out 1773}#
                                (begin
                                  (let ((#{e 1775}# (car #{in 1772}#)))
                                    (#{lp 1771}#
                                      (cdr #{in 1772}#)
                                      (cons (if (procedure? #{e 1775}#)
                                              (#{e 1775}#)
                                              #{e 1775}#)
                                            #{out 1773}#))))))))
                         (begin (#{lp 1771}# #{exps 1766}# '())))))))))))
       (#{chi-install-global 451}#
         (lambda (#{name 1776}# #{e 1777}#)
           (#{build-global-definition 319}#
             #f
             #{name 1776}#
             (#{build-application 303}#
               #f
               (#{build-primref 327}#
                 #f
                 'make-syntax-transformer)
               (list (#{build-data 329}# #f #{name 1776}#)
                     (#{build-data 329}# #f 'macro)
                     #{e 1777}#)))))
       (#{chi-when-list 453}#
         (lambda (#{e 1785}# #{when-list 1786}# #{w 1787}#)
           (letrec*
             ((#{f 1794}#
                (lambda (#{when-list 1795}# #{situations 1796}#)
                  (if (null? #{when-list 1795}#)
                    #{situations 1796}#
                    (#{f 1794}#
                      (cdr #{when-list 1795}#)
                      (cons (begin
                              (let ((#{x 1798}#
                                      (syntax->datum
                                        (car #{when-list 1795}#))))
                                (if (if (eq? #{x 1798}# 'compile)
                                      #t
                                      (if (eq? #{x 1798}# 'load)
                                        #t
                                        (if (eq? #{x 1798}# 'eval)
                                          #t
                                          (eq? #{x 1798}# 'expand))))
                                  #{x 1798}#
                                  (syntax-violation
                                    'eval-when
                                    "invalid situation"
                                    #{e 1785}#
                                    (#{wrap 443}#
                                      (car #{when-list 1795}#)
                                      #{w 1787}#
                                      #f)))))
                            #{situations 1796}#))))))
             (begin (#{f 1794}# #{when-list 1786}# '())))))
       (#{syntax-type 455}#
         (lambda (#{e 1799}#
                  #{r 1800}#
                  #{w 1801}#
                  #{s 1802}#
                  #{rib 1803}#
                  #{mod 1804}#
                  #{for-car? 1805}#)
           (if (symbol? #{e 1799}#)
             (begin
               (let ((#{n 1817}#
                       (#{id-var-name 431}# #{e 1799}# #{w 1801}#)))
                 (begin
                   (let ((#{b 1819}#
                           (#{lookup 371}#
                             #{n 1817}#
                             #{r 1800}#
                             #{mod 1804}#)))
                     (begin
                       (let ((#{type 1821}# (car #{b 1819}#)))
                         (if (eqv? #{type 1821}# 'lexical)
                           (values
                             #{type 1821}#
                             (cdr #{b 1819}#)
                             #{e 1799}#
                             #{w 1801}#
                             #{s 1802}#
                             #{mod 1804}#)
                           (if (eqv? #{type 1821}# 'global)
                             (values
                               #{type 1821}#
                               #{n 1817}#
                               #{e 1799}#
                               #{w 1801}#
                               #{s 1802}#
                               #{mod 1804}#)
                             (if (eqv? #{type 1821}# 'macro)
                               (if #{for-car? 1805}#
                                 (values
                                   #{type 1821}#
                                   (cdr #{b 1819}#)
                                   #{e 1799}#
                                   #{w 1801}#
                                   #{s 1802}#
                                   #{mod 1804}#)
                                 (#{syntax-type 455}#
                                   (#{chi-macro 463}#
                                     (cdr #{b 1819}#)
                                     #{e 1799}#
                                     #{r 1800}#
                                     #{w 1801}#
                                     #{s 1802}#
                                     #{rib 1803}#
                                     #{mod 1804}#)
                                   #{r 1800}#
                                   '(())
                                   #{s 1802}#
                                   #{rib 1803}#
                                   #{mod 1804}#
                                   #f))
                               (values
                                 #{type 1821}#
                                 (cdr #{b 1819}#)
                                 #{e 1799}#
                                 #{w 1801}#
                                 #{s 1802}#
                                 #{mod 1804}#))))))))))
             (if (pair? #{e 1799}#)
               (begin
                 (let ((#{first 1835}# (car #{e 1799}#)))
                   (call-with-values
                     (lambda ()
                       (#{syntax-type 455}#
                         #{first 1835}#
                         #{r 1800}#
                         #{w 1801}#
                         #{s 1802}#
                         #{rib 1803}#
                         #{mod 1804}#
                         #t))
                     (lambda (#{ftype 1836}#
                              #{fval 1837}#
                              #{fe 1838}#
                              #{fw 1839}#
                              #{fs 1840}#
                              #{fmod 1841}#)
                       (if (eqv? #{ftype 1836}# 'lexical)
                         (values
                           'lexical-call
                           #{fval 1837}#
                           #{e 1799}#
                           #{w 1801}#
                           #{s 1802}#
                           #{mod 1804}#)
                         (if (eqv? #{ftype 1836}# 'global)
                           (values
                             'global-call
                             (#{make-syntax-object 341}#
                               #{fval 1837}#
                               #{w 1801}#
                               #{fmod 1841}#)
                             #{e 1799}#
                             #{w 1801}#
                             #{s 1802}#
                             #{mod 1804}#)
                           (if (eqv? #{ftype 1836}# 'macro)
                             (#{syntax-type 455}#
                               (#{chi-macro 463}#
                                 #{fval 1837}#
                                 #{e 1799}#
                                 #{r 1800}#
                                 #{w 1801}#
                                 #{s 1802}#
                                 #{rib 1803}#
                                 #{mod 1804}#)
                               #{r 1800}#
                               '(())
                               #{s 1802}#
                               #{rib 1803}#
                               #{mod 1804}#
                               #{for-car? 1805}#)
                             (if (eqv? #{ftype 1836}# 'module-ref)
                               (call-with-values
                                 (lambda ()
                                   (#{fval 1837}#
                                     #{e 1799}#
                                     #{r 1800}#
                                     #{w 1801}#))
                                 (lambda (#{e 1853}#
                                          #{r 1854}#
                                          #{w 1855}#
                                          #{s 1856}#
                                          #{mod 1857}#)
                                   (#{syntax-type 455}#
                                     #{e 1853}#
                                     #{r 1854}#
                                     #{w 1855}#
                                     #{s 1856}#
                                     #{rib 1803}#
                                     #{mod 1857}#
                                     #{for-car? 1805}#)))
                               (if (eqv? #{ftype 1836}# 'core)
                                 (values
                                   'core-form
                                   #{fval 1837}#
                                   #{e 1799}#
                                   #{w 1801}#
                                   #{s 1802}#
                                   #{mod 1804}#)
                                 (if (eqv? #{ftype 1836}# 'local-syntax)
                                   (values
                                     'local-syntax-form
                                     #{fval 1837}#
                                     #{e 1799}#
                                     #{w 1801}#
                                     #{s 1802}#
                                     #{mod 1804}#)
                                   (if (eqv? #{ftype 1836}# 'begin)
                                     (values
                                       'begin-form
                                       #f
                                       #{e 1799}#
                                       #{w 1801}#
                                       #{s 1802}#
                                       #{mod 1804}#)
                                     (if (eqv? #{ftype 1836}# 'eval-when)
                                       (values
                                         'eval-when-form
                                         #f
                                         #{e 1799}#
                                         #{w 1801}#
                                         #{s 1802}#
                                         #{mod 1804}#)
                                       (if (eqv? #{ftype 1836}# 'define)
                                         (let ((#{tmp 1868}# #{e 1799}#))
                                           (let ((#{tmp 1869}#
                                                   ($sc-dispatch
                                                     #{tmp 1868}#
                                                     '(_ any any))))
                                             (if (if #{tmp 1869}#
                                                   (@apply
                                                     (lambda (#{name 1872}#
                                                              #{val 1873}#)
                                                       (#{id? 377}#
                                                         #{name 1872}#))
                                                     #{tmp 1869}#)
                                                   #f)
                                               (@apply
                                                 (lambda (#{name 1876}#
                                                          #{val 1877}#)
                                                   (values
                                                     'define-form
                                                     #{name 1876}#
                                                     #{val 1877}#
                                                     #{w 1801}#
                                                     #{s 1802}#
                                                     #{mod 1804}#))
                                                 #{tmp 1869}#)
                                               (let ((#{tmp 1878}#
                                                       ($sc-dispatch
                                                         #{tmp 1868}#
                                                         '(_ (any . any)
                                                             any
                                                             .
                                                             each-any))))
                                                 (if (if #{tmp 1878}#
                                                       (@apply
                                                         (lambda (#{name 1883}#
                                                                  #{args 1884}#
                                                                  #{e1 1885}#
                                                                  #{e2 1886}#)
                                                           (if (#{id? 377}#
                                                                 #{name 1883}#)
                                                             (#{valid-bound-ids? 437}#
                                                               (#{lambda-var-list 487}#
                                                                 #{args 1884}#))
                                                             #f))
                                                         #{tmp 1878}#)
                                                       #f)
                                                   (@apply
                                                     (lambda (#{name 1893}#
                                                              #{args 1894}#
                                                              #{e1 1895}#
                                                              #{e2 1896}#)
                                                       (values
                                                         'define-form
                                                         (#{wrap 443}#
                                                           #{name 1893}#
                                                           #{w 1801}#
                                                           #{mod 1804}#)
                                                         (#{decorate-source 297}#
                                                           (cons '#(syntax-object
                                                                    lambda
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(name
                                                                         args
                                                                         e1
                                                                         e2)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("i1889"
                                                                         "i1890"
                                                                         "i1891"
                                                                         "i1892"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(ftype
                                                                         fval
                                                                         fe
                                                                         fw
                                                                         fs
                                                                         fmod)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("i1842"
                                                                         "i1843"
                                                                         "i1844"
                                                                         "i1845"
                                                                         "i1846"
                                                                         "i1847"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(first)
                                                                       #((top))
                                                                       #("i1834"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(e
                                                                         r
                                                                         w
                                                                         s
                                                                         rib
                                                                         mod
                                                                         for-car?)
                                                                       #((top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top)
                                                                         (top))
                                                                       #("i1806"
                                                                         "i1807"
                                                                         "i1808"
                                                                         "i1809"
                                                                         "i1810"
                                                                         "i1811"
                                                                         "i1812"))
                                                                     #(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))
                                                                       ("i486"
                                                                        "i484"
                                                                        "i482"
                                                                        "i480"
                                                                        "i478"
                                                                        "i476"
                                                                        "i474"
                                                                        "i472"
                                                                        "i470"
                                                                        "i468"
                                                                        "i466"
                                                                        "i464"
                                                                        "i462"
                                                                        "i460"
                                                                        "i458"
                                                                        "i456"
                                                                        "i454"
                                                                        "i452"
                                                                        "i450"
                                                                        "i448"
                                                                        "i446"
                                                                        "i444"
                                                                        "i442"
                                                                        "i440"
                                                                        "i438"
                                                                        "i436"
                                                                        "i434"
                                                                        "i432"
                                                                        "i430"
                                                                        "i428"
                                                                        "i426"
                                                                        "i424"
                                                                        "i422"
                                                                        "i420"
                                                                        "i418"
                                                                        "i417"
                                                                        "i416"
                                                                        "i414"
                                                                        "i413"
                                                                        "i412"
                                                                        "i411"
                                                                        "i410"
                                                                        "i408"
                                                                        "i406"
                                                                        "i404"
                                                                        "i402"
                                                                        "i400"
                                                                        "i398"
                                                                        "i396"
                                                                        "i394"
                                                                        "i391"
                                                                        "i389"
                                                                        "i388"
                                                                        "i387"
                                                                        "i386"
                                                                        "i385"
                                                                        "i384"
                                                                        "i383"
                                                                        "i382"
                                                                        "i381"
                                                                        "i379"
                                                                        "i378"
                                                                        "i376"
                                                                        "i374"
                                                                        "i372"
                                                                        "i370"
                                                                        "i368"
                                                                        "i366"
                                                                        "i364"
                                                                        "i363"
                                                                        "i362"
                                                                        "i361"
                                                                        "i360"
                                                                        "i359"
                                                                        "i357"
                                                                        "i356"
                                                                        "i354"
                                                                        "i352"
                                                                        "i350"
                                                                        "i348"
                                                                        "i346"
                                                                        "i344"
                                                                        "i342"
                                                                        "i340"
                                                                        "i338"
                                                                        "i336"
                                                                        "i334"
                                                                        "i332"
                                                                        "i330"
                                                                        "i328"
                                                                        "i326"
                                                                        "i324"
                                                                        "i322"
                                                                        "i320"
                                                                        "i318"
                                                                        "i316"
                                                                        "i314"
                                                                        "i312"
                                                                        "i310"
                                                                        "i308"
                                                                        "i306"
                                                                        "i304"
                                                                        "i302"
                                                                        "i300"
                                                                        "i298"
                                                                        "i296"
                                                                        "i294"
                                                                        "i292"
                                                                        "i291"
                                                                        "i289"
                                                                        "i287"
                                                                        "i286"
                                                                        "i285"
                                                                        "i284"
                                                                        "i283"
                                                                        "i281"
                                                                        "i279"
                                                                        "i277"
                                                                        "i274"
                                                                        "i272"
                                                                        "i270"
                                                                        "i268"
                                                                        "i266"
                                                                        "i264"
                                                                        "i262"
                                                                        "i260"
                                                                        "i258"
                                                                        "i256"
                                                                        "i254"
                                                                        "i252"
                                                                        "i250"
                                                                        "i248"
                                                                        "i246"
                                                                        "i244"
                                                                        "i242"
                                                                        "i240"))
                                                                     #(ribcage
                                                                       (define-structure
                                                                         define-expansion-accessors
                                                                         define-expansion-constructors
                                                                         and-map*)
                                                                       ((top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                       ("i42"
                                                                        "i41"
                                                                        "i40"
                                                                        "i38")))
                                                                    (hygiene
                                                                      guile))
                                                                 (#{wrap 443}#
                                                                   (cons #{args 1894}#
                                                                         (cons #{e1 1895}#
                                                                               #{e2 1896}#))
                                                                   #{w 1801}#
                                                                   #{mod 1804}#))
                                                           #{s 1802}#)
                                                         '(())
                                                         #{s 1802}#
                                                         #{mod 1804}#))
                                                     #{tmp 1878}#)
                                                   (let ((#{tmp 1899}#
                                                           ($sc-dispatch
                                                             #{tmp 1868}#
                                                             '(_ any))))
                                                     (if (if #{tmp 1899}#
                                                           (@apply
                                                             (lambda (#{name 1901}#)
                                                               (#{id? 377}#
                                                                 #{name 1901}#))
                                                             #{tmp 1899}#)
                                                           #f)
                                                       (@apply
                                                         (lambda (#{name 1903}#)
                                                           (values
                                                             'define-form
                                                             (#{wrap 443}#
                                                               #{name 1903}#
                                                               #{w 1801}#
                                                               #{mod 1804}#)
                                                             '(#(syntax-object
                                                                 if
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(name)
                                                                    #((top))
                                                                    #("i1902"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(ftype
                                                                      fval
                                                                      fe
                                                                      fw
                                                                      fs
                                                                      fmod)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1842"
                                                                      "i1843"
                                                                      "i1844"
                                                                      "i1845"
                                                                      "i1846"
                                                                      "i1847"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(first)
                                                                    #((top))
                                                                    #("i1834"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(e
                                                                      r
                                                                      w
                                                                      s
                                                                      rib
                                                                      mod
                                                                      for-car?)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1806"
                                                                      "i1807"
                                                                      "i1808"
                                                                      "i1809"
                                                                      "i1810"
                                                                      "i1811"
                                                                      "i1812"))
                                                                  #(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))
                                                                    ("i486"
                                                                     "i484"
                                                                     "i482"
                                                                     "i480"
                                                                     "i478"
                                                                     "i476"
                                                                     "i474"
                                                                     "i472"
                                                                     "i470"
                                                                     "i468"
                                                                     "i466"
                                                                     "i464"
                                                                     "i462"
                                                                     "i460"
                                                                     "i458"
                                                                     "i456"
                                                                     "i454"
                                                                     "i452"
                                                                     "i450"
                                                                     "i448"
                                                                     "i446"
                                                                     "i444"
                                                                     "i442"
                                                                     "i440"
                                                                     "i438"
                                                                     "i436"
                                                                     "i434"
                                                                     "i432"
                                                                     "i430"
                                                                     "i428"
                                                                     "i426"
                                                                     "i424"
                                                                     "i422"
                                                                     "i420"
                                                                     "i418"
                                                                     "i417"
                                                                     "i416"
                                                                     "i414"
                                                                     "i413"
                                                                     "i412"
                                                                     "i411"
                                                                     "i410"
                                                                     "i408"
                                                                     "i406"
                                                                     "i404"
                                                                     "i402"
                                                                     "i400"
                                                                     "i398"
                                                                     "i396"
                                                                     "i394"
                                                                     "i391"
                                                                     "i389"
                                                                     "i388"
                                                                     "i387"
                                                                     "i386"
                                                                     "i385"
                                                                     "i384"
                                                                     "i383"
                                                                     "i382"
                                                                     "i381"
                                                                     "i379"
                                                                     "i378"
                                                                     "i376"
                                                                     "i374"
                                                                     "i372"
                                                                     "i370"
                                                                     "i368"
                                                                     "i366"
                                                                     "i364"
                                                                     "i363"
                                                                     "i362"
                                                                     "i361"
                                                                     "i360"
                                                                     "i359"
                                                                     "i357"
                                                                     "i356"
                                                                     "i354"
                                                                     "i352"
                                                                     "i350"
                                                                     "i348"
                                                                     "i346"
                                                                     "i344"
                                                                     "i342"
                                                                     "i340"
                                                                     "i338"
                                                                     "i336"
                                                                     "i334"
                                                                     "i332"
                                                                     "i330"
                                                                     "i328"
                                                                     "i326"
                                                                     "i324"
                                                                     "i322"
                                                                     "i320"
                                                                     "i318"
                                                                     "i316"
                                                                     "i314"
                                                                     "i312"
                                                                     "i310"
                                                                     "i308"
                                                                     "i306"
                                                                     "i304"
                                                                     "i302"
                                                                     "i300"
                                                                     "i298"
                                                                     "i296"
                                                                     "i294"
                                                                     "i292"
                                                                     "i291"
                                                                     "i289"
                                                                     "i287"
                                                                     "i286"
                                                                     "i285"
                                                                     "i284"
                                                                     "i283"
                                                                     "i281"
                                                                     "i279"
                                                                     "i277"
                                                                     "i274"
                                                                     "i272"
                                                                     "i270"
                                                                     "i268"
                                                                     "i266"
                                                                     "i264"
                                                                     "i262"
                                                                     "i260"
                                                                     "i258"
                                                                     "i256"
                                                                     "i254"
                                                                     "i252"
                                                                     "i250"
                                                                     "i248"
                                                                     "i246"
                                                                     "i244"
                                                                     "i242"
                                                                     "i240"))
                                                                  #(ribcage
                                                                    (define-structure
                                                                      define-expansion-accessors
                                                                      define-expansion-constructors
                                                                      and-map*)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("i42"
                                                                     "i41"
                                                                     "i40"
                                                                     "i38")))
                                                                 (hygiene
                                                                   guile))
                                                               #(syntax-object
                                                                 #f
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(name)
                                                                    #((top))
                                                                    #("i1902"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(ftype
                                                                      fval
                                                                      fe
                                                                      fw
                                                                      fs
                                                                      fmod)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1842"
                                                                      "i1843"
                                                                      "i1844"
                                                                      "i1845"
                                                                      "i1846"
                                                                      "i1847"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(first)
                                                                    #((top))
                                                                    #("i1834"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(e
                                                                      r
                                                                      w
                                                                      s
                                                                      rib
                                                                      mod
                                                                      for-car?)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1806"
                                                                      "i1807"
                                                                      "i1808"
                                                                      "i1809"
                                                                      "i1810"
                                                                      "i1811"
                                                                      "i1812"))
                                                                  #(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))
                                                                    ("i486"
                                                                     "i484"
                                                                     "i482"
                                                                     "i480"
                                                                     "i478"
                                                                     "i476"
                                                                     "i474"
                                                                     "i472"
                                                                     "i470"
                                                                     "i468"
                                                                     "i466"
                                                                     "i464"
                                                                     "i462"
                                                                     "i460"
                                                                     "i458"
                                                                     "i456"
                                                                     "i454"
                                                                     "i452"
                                                                     "i450"
                                                                     "i448"
                                                                     "i446"
                                                                     "i444"
                                                                     "i442"
                                                                     "i440"
                                                                     "i438"
                                                                     "i436"
                                                                     "i434"
                                                                     "i432"
                                                                     "i430"
                                                                     "i428"
                                                                     "i426"
                                                                     "i424"
                                                                     "i422"
                                                                     "i420"
                                                                     "i418"
                                                                     "i417"
                                                                     "i416"
                                                                     "i414"
                                                                     "i413"
                                                                     "i412"
                                                                     "i411"
                                                                     "i410"
                                                                     "i408"
                                                                     "i406"
                                                                     "i404"
                                                                     "i402"
                                                                     "i400"
                                                                     "i398"
                                                                     "i396"
                                                                     "i394"
                                                                     "i391"
                                                                     "i389"
                                                                     "i388"
                                                                     "i387"
                                                                     "i386"
                                                                     "i385"
                                                                     "i384"
                                                                     "i383"
                                                                     "i382"
                                                                     "i381"
                                                                     "i379"
                                                                     "i378"
                                                                     "i376"
                                                                     "i374"
                                                                     "i372"
                                                                     "i370"
                                                                     "i368"
                                                                     "i366"
                                                                     "i364"
                                                                     "i363"
                                                                     "i362"
                                                                     "i361"
                                                                     "i360"
                                                                     "i359"
                                                                     "i357"
                                                                     "i356"
                                                                     "i354"
                                                                     "i352"
                                                                     "i350"
                                                                     "i348"
                                                                     "i346"
                                                                     "i344"
                                                                     "i342"
                                                                     "i340"
                                                                     "i338"
                                                                     "i336"
                                                                     "i334"
                                                                     "i332"
                                                                     "i330"
                                                                     "i328"
                                                                     "i326"
                                                                     "i324"
                                                                     "i322"
                                                                     "i320"
                                                                     "i318"
                                                                     "i316"
                                                                     "i314"
                                                                     "i312"
                                                                     "i310"
                                                                     "i308"
                                                                     "i306"
                                                                     "i304"
                                                                     "i302"
                                                                     "i300"
                                                                     "i298"
                                                                     "i296"
                                                                     "i294"
                                                                     "i292"
                                                                     "i291"
                                                                     "i289"
                                                                     "i287"
                                                                     "i286"
                                                                     "i285"
                                                                     "i284"
                                                                     "i283"
                                                                     "i281"
                                                                     "i279"
                                                                     "i277"
                                                                     "i274"
                                                                     "i272"
                                                                     "i270"
                                                                     "i268"
                                                                     "i266"
                                                                     "i264"
                                                                     "i262"
                                                                     "i260"
                                                                     "i258"
                                                                     "i256"
                                                                     "i254"
                                                                     "i252"
                                                                     "i250"
                                                                     "i248"
                                                                     "i246"
                                                                     "i244"
                                                                     "i242"
                                                                     "i240"))
                                                                  #(ribcage
                                                                    (define-structure
                                                                      define-expansion-accessors
                                                                      define-expansion-constructors
                                                                      and-map*)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("i42"
                                                                     "i41"
                                                                     "i40"
                                                                     "i38")))
                                                                 (hygiene
                                                                   guile))
                                                               #(syntax-object
                                                                 #f
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(name)
                                                                    #((top))
                                                                    #("i1902"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(ftype
                                                                      fval
                                                                      fe
                                                                      fw
                                                                      fs
                                                                      fmod)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1842"
                                                                      "i1843"
                                                                      "i1844"
                                                                      "i1845"
                                                                      "i1846"
                                                                      "i1847"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(first)
                                                                    #((top))
                                                                    #("i1834"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(e
                                                                      r
                                                                      w
                                                                      s
                                                                      rib
                                                                      mod
                                                                      for-car?)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i1806"
                                                                      "i1807"
                                                                      "i1808"
                                                                      "i1809"
                                                                      "i1810"
                                                                      "i1811"
                                                                      "i1812"))
                                                                  #(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))
                                                                    ("i486"
                                                                     "i484"
                                                                     "i482"
                                                                     "i480"
                                                                     "i478"
                                                                     "i476"
                                                                     "i474"
                                                                     "i472"
                                                                     "i470"
                                                                     "i468"
                                                                     "i466"
                                                                     "i464"
                                                                     "i462"
                                                                     "i460"
                                                                     "i458"
                                                                     "i456"
                                                                     "i454"
                                                                     "i452"
                                                                     "i450"
                                                                     "i448"
                                                                     "i446"
                                                                     "i444"
                                                                     "i442"
                                                                     "i440"
                                                                     "i438"
                                                                     "i436"
                                                                     "i434"
                                                                     "i432"
                                                                     "i430"
                                                                     "i428"
                                                                     "i426"
                                                                     "i424"
                                                                     "i422"
                                                                     "i420"
                                                                     "i418"
                                                                     "i417"
                                                                     "i416"
                                                                     "i414"
                                                                     "i413"
                                                                     "i412"
                                                                     "i411"
                                                                     "i410"
                                                                     "i408"
                                                                     "i406"
                                                                     "i404"
                                                                     "i402"
                                                                     "i400"
                                                                     "i398"
                                                                     "i396"
                                                                     "i394"
                                                                     "i391"
                                                                     "i389"
                                                                     "i388"
                                                                     "i387"
                                                                     "i386"
                                                                     "i385"
                                                                     "i384"
                                                                     "i383"
                                                                     "i382"
                                                                     "i381"
                                                                     "i379"
                                                                     "i378"
                                                                     "i376"
                                                                     "i374"
                                                                     "i372"
                                                                     "i370"
                                                                     "i368"
                                                                     "i366"
                                                                     "i364"
                                                                     "i363"
                                                                     "i362"
                                                                     "i361"
                                                                     "i360"
                                                                     "i359"
                                                                     "i357"
                                                                     "i356"
                                                                     "i354"
                                                                     "i352"
                                                                     "i350"
                                                                     "i348"
                                                                     "i346"
                                                                     "i344"
                                                                     "i342"
                                                                     "i340"
                                                                     "i338"
                                                                     "i336"
                                                                     "i334"
                                                                     "i332"
                                                                     "i330"
                                                                     "i328"
                                                                     "i326"
                                                                     "i324"
                                                                     "i322"
                                                                     "i320"
                                                                     "i318"
                                                                     "i316"
                                                                     "i314"
                                                                     "i312"
                                                                     "i310"
                                                                     "i308"
                                                                     "i306"
                                                                     "i304"
                                                                     "i302"
                                                                     "i300"
                                                                     "i298"
                                                                     "i296"
                                                                     "i294"
                                                                     "i292"
                                                                     "i291"
                                                                     "i289"
                                                                     "i287"
                                                                     "i286"
                                                                     "i285"
                                                                     "i284"
                                                                     "i283"
                                                                     "i281"
                                                                     "i279"
                                                                     "i277"
                                                                     "i274"
                                                                     "i272"
                                                                     "i270"
                                                                     "i268"
                                                                     "i266"
                                                                     "i264"
                                                                     "i262"
                                                                     "i260"
                                                                     "i258"
                                                                     "i256"
                                                                     "i254"
                                                                     "i252"
                                                                     "i250"
                                                                     "i248"
                                                                     "i246"
                                                                     "i244"
                                                                     "i242"
                                                                     "i240"))
                                                                  #(ribcage
                                                                    (define-structure
                                                                      define-expansion-accessors
                                                                      define-expansion-constructors
                                                                      and-map*)
                                                                    ((top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                    ("i42"
                                                                     "i41"
                                                                     "i40"
                                                                     "i38")))
                                                                 (hygiene
                                                                   guile)))
                                                             '(())
                                                             #{s 1802}#
                                                             #{mod 1804}#))
                                                         #{tmp 1899}#)
                                                       (syntax-violation
                                                         #f
                                                         "source expression failed to match any pattern"
                                                         #{tmp 1868}#))))))))
                                         (if (eqv? #{ftype 1836}#
                                                   'define-syntax)
                                           (let ((#{tmp 1906}# #{e 1799}#))
                                             (let ((#{tmp 1907}#
                                                     ($sc-dispatch
                                                       #{tmp 1906}#
                                                       '(_ any any))))
                                               (if (if #{tmp 1907}#
                                                     (@apply
                                                       (lambda (#{name 1910}#
                                                                #{val 1911}#)
                                                         (#{id? 377}#
                                                           #{name 1910}#))
                                                       #{tmp 1907}#)
                                                     #f)
                                                 (@apply
                                                   (lambda (#{name 1914}#
                                                            #{val 1915}#)
                                                     (values
                                                       'define-syntax-form
                                                       #{name 1914}#
                                                       #{val 1915}#
                                                       #{w 1801}#
                                                       #{s 1802}#
                                                       #{mod 1804}#))
                                                   #{tmp 1907}#)
                                                 (syntax-violation
                                                   #f
                                                   "source expression failed to match any pattern"
                                                   #{tmp 1906}#))))
                                           (values
                                             'call
                                             #f
                                             #{e 1799}#
                                             #{w 1801}#
                                             #{s 1802}#
                                             #{mod 1804}#)))))))))))))))
               (if (#{syntax-object? 343}# #{e 1799}#)
                 (#{syntax-type 455}#
                   (#{syntax-object-expression 345}# #{e 1799}#)
                   #{r 1800}#
                   (#{join-wraps 425}#
                     #{w 1801}#
                     (#{syntax-object-wrap 347}# #{e 1799}#))
                   (begin
                     (let ((#{t 1921}#
                             (#{source-annotation 358}# #{e 1799}#)))
                       (if #{t 1921}# #{t 1921}# #{s 1802}#)))
                   #{rib 1803}#
                   (begin
                     (let ((#{t 1925}#
                             (#{syntax-object-module 349}# #{e 1799}#)))
                       (if #{t 1925}# #{t 1925}# #{mod 1804}#)))
                   #{for-car? 1805}#)
                 (if (self-evaluating? #{e 1799}#)
                   (values
                     'constant
                     #f
                     #{e 1799}#
                     #{w 1801}#
                     #{s 1802}#
                     #{mod 1804}#)
                   (values
                     'other
                     #f
                     #{e 1799}#
                     #{w 1801}#
                     #{s 1802}#
                     #{mod 1804}#)))))))
       (#{chi 457}#
         (lambda (#{e 1930}# #{r 1931}# #{w 1932}# #{mod 1933}#)
           (call-with-values
             (lambda ()
               (#{syntax-type 455}#
                 #{e 1930}#
                 #{r 1931}#
                 #{w 1932}#
                 (#{source-annotation 358}# #{e 1930}#)
                 #f
                 #{mod 1933}#
                 #f))
             (lambda (#{type 1938}#
                      #{value 1939}#
                      #{e 1940}#
                      #{w 1941}#
                      #{s 1942}#
                      #{mod 1943}#)
               (#{chi-expr 459}#
                 #{type 1938}#
                 #{value 1939}#
                 #{e 1940}#
                 #{r 1931}#
                 #{w 1941}#
                 #{s 1942}#
                 #{mod 1943}#)))))
       (#{chi-expr 459}#
         (lambda (#{type 1950}#
                  #{value 1951}#
                  #{e 1952}#
                  #{r 1953}#
                  #{w 1954}#
                  #{s 1955}#
                  #{mod 1956}#)
           (if (eqv? #{type 1950}# 'lexical)
             (#{build-lexical-reference 309}#
               'value
               #{s 1955}#
               #{e 1952}#
               #{value 1951}#)
             (if (if (eqv? #{type 1950}# 'core)
                   #t
                   (eqv? #{type 1950}# 'core-form))
               (#{value 1951}#
                 #{e 1952}#
                 #{r 1953}#
                 #{w 1954}#
                 #{s 1955}#
                 #{mod 1956}#)
               (if (eqv? #{type 1950}# 'module-ref)
                 (call-with-values
                   (lambda ()
                     (#{value 1951}# #{e 1952}# #{r 1953}# #{w 1954}#))
                   (lambda (#{e 1967}#
                            #{r 1968}#
                            #{w 1969}#
                            #{s 1970}#
                            #{mod 1971}#)
                     (#{chi 457}#
                       #{e 1967}#
                       #{r 1968}#
                       #{w 1969}#
                       #{mod 1971}#)))
                 (if (eqv? #{type 1950}# 'lexical-call)
                   (#{chi-application 461}#
                     (begin
                       (let ((#{id 1979}# (car #{e 1952}#)))
                         (#{build-lexical-reference 309}#
                           'fun
                           (#{source-annotation 358}# #{id 1979}#)
                           (if (#{syntax-object? 343}# #{id 1979}#)
                             (syntax->datum #{id 1979}#)
                             #{id 1979}#)
                           #{value 1951}#)))
                     #{e 1952}#
                     #{r 1953}#
                     #{w 1954}#
                     #{s 1955}#
                     #{mod 1956}#)
                   (if (eqv? #{type 1950}# 'global-call)
                     (#{chi-application 461}#
                       (#{build-global-reference 315}#
                         (#{source-annotation 358}# (car #{e 1952}#))
                         (if (#{syntax-object? 343}# #{value 1951}#)
                           (#{syntax-object-expression 345}# #{value 1951}#)
                           #{value 1951}#)
                         (if (#{syntax-object? 343}# #{value 1951}#)
                           (#{syntax-object-module 349}# #{value 1951}#)
                           #{mod 1956}#))
                       #{e 1952}#
                       #{r 1953}#
                       #{w 1954}#
                       #{s 1955}#
                       #{mod 1956}#)
                     (if (eqv? #{type 1950}# 'constant)
                       (#{build-data 329}#
                         #{s 1955}#
                         (#{strip 483}#
                           (#{source-wrap 445}#
                             #{e 1952}#
                             #{w 1954}#
                             #{s 1955}#
                             #{mod 1956}#)
                           '(())))
                       (if (eqv? #{type 1950}# 'global)
                         (#{build-global-reference 315}#
                           #{s 1955}#
                           #{value 1951}#
                           #{mod 1956}#)
                         (if (eqv? #{type 1950}# 'call)
                           (#{chi-application 461}#
                             (#{chi 457}#
                               (car #{e 1952}#)
                               #{r 1953}#
                               #{w 1954}#
                               #{mod 1956}#)
                             #{e 1952}#
                             #{r 1953}#
                             #{w 1954}#
                             #{s 1955}#
                             #{mod 1956}#)
                           (if (eqv? #{type 1950}# 'begin-form)
                             (let ((#{tmp 1986}# #{e 1952}#))
                               (let ((#{tmp 1987}#
                                       ($sc-dispatch
                                         #{tmp 1986}#
                                         '(_ any . each-any))))
                                 (if #{tmp 1987}#
                                   (@apply
                                     (lambda (#{e1 1990}# #{e2 1991}#)
                                       (#{chi-sequence 447}#
                                         (cons #{e1 1990}# #{e2 1991}#)
                                         #{r 1953}#
                                         #{w 1954}#
                                         #{s 1955}#
                                         #{mod 1956}#))
                                     #{tmp 1987}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     #{tmp 1986}#))))
                             (if (eqv? #{type 1950}# 'local-syntax-form)
                               (#{chi-local-syntax 467}#
                                 #{value 1951}#
                                 #{e 1952}#
                                 #{r 1953}#
                                 #{w 1954}#
                                 #{s 1955}#
                                 #{mod 1956}#
                                 #{chi-sequence 447}#)
                               (if (eqv? #{type 1950}# 'eval-when-form)
                                 (let ((#{tmp 1995}# #{e 1952}#))
                                   (let ((#{tmp 1996}#
                                           ($sc-dispatch
                                             #{tmp 1995}#
                                             '(_ each-any any . each-any))))
                                     (if #{tmp 1996}#
                                       (@apply
                                         (lambda (#{x 2000}#
                                                  #{e1 2001}#
                                                  #{e2 2002}#)
                                           (begin
                                             (let ((#{when-list 2004}#
                                                     (#{chi-when-list 453}#
                                                       #{e 1952}#
                                                       #{x 2000}#
                                                       #{w 1954}#)))
                                               (if (memq 'eval
                                                         #{when-list 2004}#)
                                                 (#{chi-sequence 447}#
                                                   (cons #{e1 2001}#
                                                         #{e2 2002}#)
                                                   #{r 1953}#
                                                   #{w 1954}#
                                                   #{s 1955}#
                                                   #{mod 1956}#)
                                                 (#{chi-void 471}#)))))
                                         #{tmp 1996}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any pattern"
                                         #{tmp 1995}#))))
                                 (if (if (eqv? #{type 1950}# 'define-form)
                                       #t
                                       (eqv? #{type 1950}#
                                             'define-syntax-form))
                                   (syntax-violation
                                     #f
                                     "definition in expression context"
                                     #{e 1952}#
                                     (#{wrap 443}#
                                       #{value 1951}#
                                       #{w 1954}#
                                       #{mod 1956}#))
                                   (if (eqv? #{type 1950}# 'syntax)
                                     (syntax-violation
                                       #f
                                       "reference to pattern variable outside syntax form"
                                       (#{source-wrap 445}#
                                         #{e 1952}#
                                         #{w 1954}#
                                         #{s 1955}#
                                         #{mod 1956}#))
                                     (if (eqv? #{type 1950}#
                                               'displaced-lexical)
                                       (syntax-violation
                                         #f
                                         "reference to identifier outside its scope"
                                         (#{source-wrap 445}#
                                           #{e 1952}#
                                           #{w 1954}#
                                           #{s 1955}#
                                           #{mod 1956}#))
                                       (syntax-violation
                                         #f
                                         "unexpected syntax"
                                         (#{source-wrap 445}#
                                           #{e 1952}#
                                           #{w 1954}#
                                           #{s 1955}#
                                           #{mod 1956}#))))))))))))))))))
       (#{chi-application 461}#
         (lambda (#{x 2011}#
                  #{e 2012}#
                  #{r 2013}#
                  #{w 2014}#
                  #{s 2015}#
                  #{mod 2016}#)
           (let ((#{tmp 2023}# #{e 2012}#))
             (let ((#{tmp 2024}#
                     ($sc-dispatch #{tmp 2023}# '(any . each-any))))
               (if #{tmp 2024}#
                 (@apply
                   (lambda (#{e0 2027}# #{e1 2028}#)
                     (#{build-application 303}#
                       #{s 2015}#
                       #{x 2011}#
                       (map (lambda (#{e 2029}#)
                              (#{chi 457}#
                                #{e 2029}#
                                #{r 2013}#
                                #{w 2014}#
                                #{mod 2016}#))
                            #{e1 2028}#)))
                   #{tmp 2024}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{tmp 2023}#))))))
       (#{chi-macro 463}#
         (lambda (#{p 2032}#
                  #{e 2033}#
                  #{r 2034}#
                  #{w 2035}#
                  #{s 2036}#
                  #{rib 2037}#
                  #{mod 2038}#)
           (letrec*
             ((#{rebuild-macro-output 2047}#
                (lambda (#{x 2048}# #{m 2049}#)
                  (if (pair? #{x 2048}#)
                    (#{decorate-source 297}#
                      (cons (#{rebuild-macro-output 2047}#
                              (car #{x 2048}#)
                              #{m 2049}#)
                            (#{rebuild-macro-output 2047}#
                              (cdr #{x 2048}#)
                              #{m 2049}#))
                      #{s 2036}#)
                    (if (#{syntax-object? 343}# #{x 2048}#)
                      (begin
                        (let ((#{w 2057}#
                                (#{syntax-object-wrap 347}# #{x 2048}#)))
                          (begin
                            (let ((#{ms 2060}# (car #{w 2057}#))
                                  (#{s 2061}# (cdr #{w 2057}#)))
                              (if (if (pair? #{ms 2060}#)
                                    (eq? (car #{ms 2060}#) #f)
                                    #f)
                                (#{make-syntax-object 341}#
                                  (#{syntax-object-expression 345}# #{x 2048}#)
                                  (cons (cdr #{ms 2060}#)
                                        (if #{rib 2037}#
                                          (cons #{rib 2037}# (cdr #{s 2061}#))
                                          (cdr #{s 2061}#)))
                                  (#{syntax-object-module 349}# #{x 2048}#))
                                (#{make-syntax-object 341}#
                                  (#{decorate-source 297}#
                                    (#{syntax-object-expression 345}#
                                      #{x 2048}#)
                                    #{s 2061}#)
                                  (cons (cons #{m 2049}# #{ms 2060}#)
                                        (if #{rib 2037}#
                                          (cons #{rib 2037}#
                                                (cons 'shift #{s 2061}#))
                                          (cons 'shift #{s 2061}#)))
                                  (#{syntax-object-module 349}#
                                    #{x 2048}#)))))))
                      (if (vector? #{x 2048}#)
                        (begin
                          (let ((#{n 2073}# (vector-length #{x 2048}#)))
                            (begin
                              (let ((#{v 2075}#
                                      (#{decorate-source 297}#
                                        (make-vector #{n 2073}#)
                                        #{x 2048}#)))
                                (letrec*
                                  ((#{loop 2078}#
                                     (lambda (#{i 2079}#)
                                       (if (= #{i 2079}# #{n 2073}#)
                                         (begin (if #f #f) #{v 2075}#)
                                         (begin
                                           (vector-set!
                                             #{v 2075}#
                                             #{i 2079}#
                                             (#{rebuild-macro-output 2047}#
                                               (vector-ref
                                                 #{x 2048}#
                                                 #{i 2079}#)
                                               #{m 2049}#))
                                           (#{loop 2078}#
                                             (#{1+}# #{i 2079}#)))))))
                                  (begin (#{loop 2078}# 0)))))))
                        (if (symbol? #{x 2048}#)
                          (syntax-violation
                            #f
                            "encountered raw symbol in macro output"
                            (#{source-wrap 445}#
                              #{e 2033}#
                              #{w 2035}#
                              (cdr #{w 2035}#)
                              #{mod 2038}#)
                            #{x 2048}#)
                          (#{decorate-source 297}#
                            #{x 2048}#
                            #{s 2036}#))))))))
             (begin
               (#{rebuild-macro-output 2047}#
                 (#{p 2032}#
                   (#{source-wrap 445}#
                     #{e 2033}#
                     (#{anti-mark 415}# #{w 2035}#)
                     #{s 2036}#
                     #{mod 2038}#))
                 (gensym "m"))))))
       (#{chi-body 465}#
         (lambda (#{body 2089}#
                  #{outer-form 2090}#
                  #{r 2091}#
                  #{w 2092}#
                  #{mod 2093}#)
           (begin
             (let ((#{r 2101}#
                     (cons '("placeholder" placeholder) #{r 2091}#)))
               (begin
                 (let ((#{ribcage 2103}#
                         (#{make-ribcage 395}# '() '() '())))
                   (begin
                     (let ((#{w 2106}#
                             (cons (car #{w 2092}#)
                                   (cons #{ribcage 2103}# (cdr #{w 2092}#)))))
                       (letrec*
                         ((#{parse 2118}#
                            (lambda (#{body 2119}#
                                     #{ids 2120}#
                                     #{labels 2121}#
                                     #{var-ids 2122}#
                                     #{vars 2123}#
                                     #{vals 2124}#
                                     #{bindings 2125}#)
                              (if (null? #{body 2119}#)
                                (syntax-violation
                                  #f
                                  "no expressions in body"
                                  #{outer-form 2090}#)
                                (begin
                                  (let ((#{e 2130}# (cdr (car #{body 2119}#)))
                                        (#{er 2131}#
                                          (car (car #{body 2119}#))))
                                    (call-with-values
                                      (lambda ()
                                        (#{syntax-type 455}#
                                          #{e 2130}#
                                          #{er 2131}#
                                          '(())
                                          (#{source-annotation 358}#
                                            #{er 2131}#)
                                          #{ribcage 2103}#
                                          #{mod 2093}#
                                          #f))
                                      (lambda (#{type 2133}#
                                               #{value 2134}#
                                               #{e 2135}#
                                               #{w 2136}#
                                               #{s 2137}#
                                               #{mod 2138}#)
                                        (if (eqv? #{type 2133}# 'define-form)
                                          (begin
                                            (let ((#{id 2148}#
                                                    (#{wrap 443}#
                                                      #{value 2134}#
                                                      #{w 2136}#
                                                      #{mod 2138}#))
                                                  (#{label 2149}#
                                                    (#{gen-label 390}#)))
                                              (begin
                                                (let ((#{var 2151}#
                                                        (#{gen-var 485}#
                                                          #{id 2148}#)))
                                                  (begin
                                                    (#{extend-ribcage! 419}#
                                                      #{ribcage 2103}#
                                                      #{id 2148}#
                                                      #{label 2149}#)
                                                    (#{parse 2118}#
                                                      (cdr #{body 2119}#)
                                                      (cons #{id 2148}#
                                                            #{ids 2120}#)
                                                      (cons #{label 2149}#
                                                            #{labels 2121}#)
                                                      (cons #{id 2148}#
                                                            #{var-ids 2122}#)
                                                      (cons #{var 2151}#
                                                            #{vars 2123}#)
                                                      (cons (cons #{er 2131}#
                                                                  (#{wrap 443}#
                                                                    #{e 2135}#
                                                                    #{w 2136}#
                                                                    #{mod 2138}#))
                                                            #{vals 2124}#)
                                                      (cons (cons 'lexical
                                                                  #{var 2151}#)
                                                            #{bindings 2125}#)))))))
                                          (if (eqv? #{type 2133}#
                                                    'define-syntax-form)
                                            (begin
                                              (let ((#{id 2156}#
                                                      (#{wrap 443}#
                                                        #{value 2134}#
                                                        #{w 2136}#
                                                        #{mod 2138}#))
                                                    (#{label 2157}#
                                                      (#{gen-label 390}#)))
                                                (begin
                                                  (#{extend-ribcage! 419}#
                                                    #{ribcage 2103}#
                                                    #{id 2156}#
                                                    #{label 2157}#)
                                                  (#{parse 2118}#
                                                    (cdr #{body 2119}#)
                                                    (cons #{id 2156}#
                                                          #{ids 2120}#)
                                                    (cons #{label 2157}#
                                                          #{labels 2121}#)
                                                    #{var-ids 2122}#
                                                    #{vars 2123}#
                                                    #{vals 2124}#
                                                    (cons (cons 'macro
                                                                (cons #{er 2131}#
                                                                      (#{wrap 443}#
                                                                        #{e 2135}#
                                                                        #{w 2136}#
                                                                        #{mod 2138}#)))
                                                          #{bindings 2125}#)))))
                                            (if (eqv? #{type 2133}#
                                                      'begin-form)
                                              (let ((#{tmp 2160}# #{e 2135}#))
                                                (let ((#{tmp 2161}#
                                                        ($sc-dispatch
                                                          #{tmp 2160}#
                                                          '(_ . each-any))))
                                                  (if #{tmp 2161}#
                                                    (@apply
                                                      (lambda (#{e1 2163}#)
                                                        (#{parse 2118}#
                                                          (letrec*
                                                            ((#{f 2166}#
                                                               (lambda (#{forms 2167}#)
                                                                 (if (null? #{forms 2167}#)
                                                                   (cdr #{body 2119}#)
                                                                   (cons (cons #{er 2131}#
                                                                               (#{wrap 443}#
                                                                                 (car #{forms 2167}#)
                                                                                 #{w 2136}#
                                                                                 #{mod 2138}#))
                                                                         (#{f 2166}#
                                                                           (cdr #{forms 2167}#)))))))
                                                            (begin
                                                              (#{f 2166}#
                                                                #{e1 2163}#)))
                                                          #{ids 2120}#
                                                          #{labels 2121}#
                                                          #{var-ids 2122}#
                                                          #{vars 2123}#
                                                          #{vals 2124}#
                                                          #{bindings 2125}#))
                                                      #{tmp 2161}#)
                                                    (syntax-violation
                                                      #f
                                                      "source expression failed to match any pattern"
                                                      #{tmp 2160}#))))
                                              (if (eqv? #{type 2133}#
                                                        'local-syntax-form)
                                                (#{chi-local-syntax 467}#
                                                  #{value 2134}#
                                                  #{e 2135}#
                                                  #{er 2131}#
                                                  #{w 2136}#
                                                  #{s 2137}#
                                                  #{mod 2138}#
                                                  (lambda (#{forms 2170}#
                                                           #{er 2171}#
                                                           #{w 2172}#
                                                           #{s 2173}#
                                                           #{mod 2174}#)
                                                    (#{parse 2118}#
                                                      (letrec*
                                                        ((#{f 2182}#
                                                           (lambda (#{forms 2183}#)
                                                             (if (null? #{forms 2183}#)
                                                               (cdr #{body 2119}#)
                                                               (cons (cons #{er 2171}#
                                                                           (#{wrap 443}#
                                                                             (car #{forms 2183}#)
                                                                             #{w 2172}#
                                                                             #{mod 2174}#))
                                                                     (#{f 2182}#
                                                                       (cdr #{forms 2183}#)))))))
                                                        (begin
                                                          (#{f 2182}#
                                                            #{forms 2170}#)))
                                                      #{ids 2120}#
                                                      #{labels 2121}#
                                                      #{var-ids 2122}#
                                                      #{vars 2123}#
                                                      #{vals 2124}#
                                                      #{bindings 2125}#)))
                                                (if (null? #{ids 2120}#)
                                                  (#{build-sequence 331}#
                                                    #f
                                                    (map (lambda (#{x 2186}#)
                                                           (#{chi 457}#
                                                             (cdr #{x 2186}#)
                                                             (car #{x 2186}#)
                                                             '(())
                                                             #{mod 2138}#))
                                                         (cons (cons #{er 2131}#
                                                                     (#{source-wrap 445}#
                                                                       #{e 2135}#
                                                                       #{w 2136}#
                                                                       #{s 2137}#
                                                                       #{mod 2138}#))
                                                               (cdr #{body 2119}#))))
                                                  (begin
                                                    (if (not (#{valid-bound-ids? 437}#
                                                               #{ids 2120}#))
                                                      (syntax-violation
                                                        #f
                                                        "invalid or duplicate identifier in definition"
                                                        #{outer-form 2090}#))
                                                    (letrec*
                                                      ((#{loop 2193}#
                                                         (lambda (#{bs 2194}#
                                                                  #{er-cache 2195}#
                                                                  #{r-cache 2196}#)
                                                           (if (not (null? #{bs 2194}#))
                                                             (begin
                                                               (let ((#{b 2199}#
                                                                       (car #{bs 2194}#)))
                                                                 (if (eq? (car #{b 2199}#)
                                                                          'macro)
                                                                   (begin
                                                                     (let ((#{er 2202}#
                                                                             (car (cdr #{b 2199}#))))
                                                                       (begin
                                                                         (let ((#{r-cache 2204}#
                                                                                 (if (eq? #{er 2202}#
                                                                                          #{er-cache 2195}#)
                                                                                   #{r-cache 2196}#
                                                                                   (#{macros-only-env 369}#
                                                                                     #{er 2202}#))))
                                                                           (begin
                                                                             (set-cdr!
                                                                               #{b 2199}#
                                                                               (#{eval-local-transformer 469}#
                                                                                 (#{chi 457}#
                                                                                   (cdr (cdr #{b 2199}#))
                                                                                   #{r-cache 2204}#
                                                                                   '(())
                                                                                   #{mod 2138}#)
                                                                                 #{mod 2138}#))
                                                                             (#{loop 2193}#
                                                                               (cdr #{bs 2194}#)
                                                                               #{er 2202}#
                                                                               #{r-cache 2204}#))))))
                                                                   (#{loop 2193}#
                                                                     (cdr #{bs 2194}#)
                                                                     #{er-cache 2195}#
                                                                     #{r-cache 2196}#))))))))
                                                      (begin
                                                        (#{loop 2193}#
                                                          #{bindings 2125}#
                                                          #f
                                                          #f)))
                                                    (set-cdr!
                                                      #{r 2101}#
                                                      (#{extend-env 365}#
                                                        #{labels 2121}#
                                                        #{bindings 2125}#
                                                        (cdr #{r 2101}#)))
                                                    (#{build-letrec 337}#
                                                      #f
                                                      #t
                                                      (reverse
                                                        (map syntax->datum
                                                             #{var-ids 2122}#))
                                                      (reverse #{vars 2123}#)
                                                      (map (lambda (#{x 2207}#)
                                                             (#{chi 457}#
                                                               (cdr #{x 2207}#)
                                                               (car #{x 2207}#)
                                                               '(())
                                                               #{mod 2138}#))
                                                           (reverse
                                                             #{vals 2124}#))
                                                      (#{build-sequence 331}#
                                                        #f
                                                        (map (lambda (#{x 2211}#)
                                                               (#{chi 457}#
                                                                 (cdr #{x 2211}#)
                                                                 (car #{x 2211}#)
                                                                 '(())
                                                                 #{mod 2138}#))
                                                             (cons (cons #{er 2131}#
                                                                         (#{source-wrap 445}#
                                                                           #{e 2135}#
                                                                           #{w 2136}#
                                                                           #{s 2137}#
                                                                           #{mod 2138}#))
                                                                   (cdr #{body 2119}#)))))))))))))))))))
                         (begin
                           (#{parse 2118}#
                             (map (lambda (#{x 2126}#)
                                    (cons #{r 2101}#
                                          (#{wrap 443}#
                                            #{x 2126}#
                                            #{w 2106}#
                                            #{mod 2093}#)))
                                  #{body 2089}#)
                             '()
                             '()
                             '()
                             '()
                             '()
                             '())))))))))))
       (#{chi-local-syntax 467}#
         (lambda (#{rec? 2214}#
                  #{e 2215}#
                  #{r 2216}#
                  #{w 2217}#
                  #{s 2218}#
                  #{mod 2219}#
                  #{k 2220}#)
           (let ((#{tmp 2228}# #{e 2215}#))
             (let ((#{tmp 2229}#
                     ($sc-dispatch
                       #{tmp 2228}#
                       '(_ #(each (any any)) any . each-any))))
               (if #{tmp 2229}#
                 (@apply
                   (lambda (#{id 2234}#
                            #{val 2235}#
                            #{e1 2236}#
                            #{e2 2237}#)
                     (begin
                       (let ((#{ids 2239}# #{id 2234}#))
                         (if (not (#{valid-bound-ids? 437}# #{ids 2239}#))
                           (syntax-violation
                             #f
                             "duplicate bound keyword"
                             #{e 2215}#)
                           (begin
                             (let ((#{labels 2242}#
                                     (#{gen-labels 392}# #{ids 2239}#)))
                               (begin
                                 (let ((#{new-w 2244}#
                                         (#{make-binding-wrap 421}#
                                           #{ids 2239}#
                                           #{labels 2242}#
                                           #{w 2217}#)))
                                   (#{k 2220}#
                                     (cons #{e1 2236}# #{e2 2237}#)
                                     (#{extend-env 365}#
                                       #{labels 2242}#
                                       (begin
                                         (let ((#{w 2248}#
                                                 (if #{rec? 2214}#
                                                   #{new-w 2244}#
                                                   #{w 2217}#))
                                               (#{trans-r 2249}#
                                                 (#{macros-only-env 369}#
                                                   #{r 2216}#)))
                                           (map (lambda (#{x 2250}#)
                                                  (cons 'macro
                                                        (#{eval-local-transformer 469}#
                                                          (#{chi 457}#
                                                            #{x 2250}#
                                                            #{trans-r 2249}#
                                                            #{w 2248}#
                                                            #{mod 2219}#)
                                                          #{mod 2219}#)))
                                                #{val 2235}#)))
                                       #{r 2216}#)
                                     #{new-w 2244}#
                                     #{s 2218}#
                                     #{mod 2219}#)))))))))
                   #{tmp 2229}#)
                 (let ((#{_ 2255}# #{tmp 2228}#))
                   (syntax-violation
                     #f
                     "bad local syntax definition"
                     (#{source-wrap 445}#
                       #{e 2215}#
                       #{w 2217}#
                       #{s 2218}#
                       #{mod 2219}#))))))))
       (#{eval-local-transformer 469}#
         (lambda (#{expanded 2256}# #{mod 2257}#)
           (begin
             (let ((#{p 2261}#
                     (#{local-eval-hook 290}#
                       #{expanded 2256}#
                       #{mod 2257}#)))
               (if (procedure? #{p 2261}#)
                 #{p 2261}#
                 (syntax-violation
                   #f
                   "nonprocedure transformer"
                   #{p 2261}#))))))
       (#{chi-void 471}#
         (lambda () (#{build-void 301}# #f)))
       (#{ellipsis? 473}#
         (lambda (#{x 2263}#)
           (if (#{nonsymbol-id? 375}# #{x 2263}#)
             (#{free-id=? 433}#
               #{x 2263}#
               '#(syntax-object
                  ...
                  ((top)
                   #(ribcage () () ())
                   #(ribcage () () ())
                   #(ribcage #(x) #((top)) #("i2264"))
                   #(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))
                     ("i486"
                      "i484"
                      "i482"
                      "i480"
                      "i478"
                      "i476"
                      "i474"
                      "i472"
                      "i470"
                      "i468"
                      "i466"
                      "i464"
                      "i462"
                      "i460"
                      "i458"
                      "i456"
                      "i454"
                      "i452"
                      "i450"
                      "i448"
                      "i446"
                      "i444"
                      "i442"
                      "i440"
                      "i438"
                      "i436"
                      "i434"
                      "i432"
                      "i430"
                      "i428"
                      "i426"
                      "i424"
                      "i422"
                      "i420"
                      "i418"
                      "i417"
                      "i416"
                      "i414"
                      "i413"
                      "i412"
                      "i411"
                      "i410"
                      "i408"
                      "i406"
                      "i404"
                      "i402"
                      "i400"
                      "i398"
                      "i396"
                      "i394"
                      "i391"
                      "i389"
                      "i388"
                      "i387"
                      "i386"
                      "i385"
                      "i384"
                      "i383"
                      "i382"
                      "i381"
                      "i379"
                      "i378"
                      "i376"
                      "i374"
                      "i372"
                      "i370"
                      "i368"
                      "i366"
                      "i364"
                      "i363"
                      "i362"
                      "i361"
                      "i360"
                      "i359"
                      "i357"
                      "i356"
                      "i354"
                      "i352"
                      "i350"
                      "i348"
                      "i346"
                      "i344"
                      "i342"
                      "i340"
                      "i338"
                      "i336"
                      "i334"
                      "i332"
                      "i330"
                      "i328"
                      "i326"
                      "i324"
                      "i322"
                      "i320"
                      "i318"
                      "i316"
                      "i314"
                      "i312"
                      "i310"
                      "i308"
                      "i306"
                      "i304"
                      "i302"
                      "i300"
                      "i298"
                      "i296"
                      "i294"
                      "i292"
                      "i291"
                      "i289"
                      "i287"
                      "i286"
                      "i285"
                      "i284"
                      "i283"
                      "i281"
                      "i279"
                      "i277"
                      "i274"
                      "i272"
                      "i270"
                      "i268"
                      "i266"
                      "i264"
                      "i262"
                      "i260"
                      "i258"
                      "i256"
                      "i254"
                      "i252"
                      "i250"
                      "i248"
                      "i246"
                      "i244"
                      "i242"
                      "i240"))
                   #(ribcage
                     (define-structure
                       define-expansion-accessors
                       define-expansion-constructors
                       and-map*)
                     ((top) (top) (top) (top))
                     ("i42" "i41" "i40" "i38")))
                  (hygiene guile)))
             #f)))
       (#{lambda-formals 475}#
         (lambda (#{orig-args 2267}#)
           (letrec*
             ((#{req 2270}#
                (lambda (#{args 2273}# #{rreq 2274}#)
                  (let ((#{tmp 2277}# #{args 2273}#))
                    (let ((#{tmp 2278}# ($sc-dispatch #{tmp 2277}# '())))
                      (if #{tmp 2278}#
                        (@apply
                          (lambda ()
                            (#{check 2272}# (reverse #{rreq 2274}#) #f))
                          #{tmp 2278}#)
                        (let ((#{tmp 2279}#
                                ($sc-dispatch #{tmp 2277}# '(any . any))))
                          (if (if #{tmp 2279}#
                                (@apply
                                  (lambda (#{a 2282}# #{b 2283}#)
                                    (#{id? 377}# #{a 2282}#))
                                  #{tmp 2279}#)
                                #f)
                            (@apply
                              (lambda (#{a 2286}# #{b 2287}#)
                                (#{req 2270}#
                                  #{b 2287}#
                                  (cons #{a 2286}# #{rreq 2274}#)))
                              #{tmp 2279}#)
                            (let ((#{tmp 2288}# (list #{tmp 2277}#)))
                              (if (if #{tmp 2288}#
                                    (@apply
                                      (lambda (#{r 2290}#)
                                        (#{id? 377}# #{r 2290}#))
                                      #{tmp 2288}#)
                                    #f)
                                (@apply
                                  (lambda (#{r 2292}#)
                                    (#{check 2272}#
                                      (reverse #{rreq 2274}#)
                                      #{r 2292}#))
                                  #{tmp 2288}#)
                                (let ((#{else 2294}# #{tmp 2277}#))
                                  (syntax-violation
                                    'lambda
                                    "invalid argument list"
                                    #{orig-args 2267}#
                                    #{args 2273}#)))))))))))
              (#{check 2272}#
                (lambda (#{req 2295}# #{rest 2296}#)
                  (if (#{distinct-bound-ids? 439}#
                        (if #{rest 2296}#
                          (cons #{rest 2296}# #{req 2295}#)
                          #{req 2295}#))
                    (values #{req 2295}# #f #{rest 2296}# #f)
                    (syntax-violation
                      'lambda
                      "duplicate identifier in argument list"
                      #{orig-args 2267}#)))))
             (begin (#{req 2270}# #{orig-args 2267}# '())))))
       (#{chi-simple-lambda 477}#
         (lambda (#{e 2302}#
                  #{r 2303}#
                  #{w 2304}#
                  #{s 2305}#
                  #{mod 2306}#
                  #{req 2307}#
                  #{rest 2308}#
                  #{meta 2309}#
                  #{body 2310}#)
           (begin
             (let ((#{ids 2322}#
                     (if #{rest 2308}#
                       (append #{req 2307}# (list #{rest 2308}#))
                       #{req 2307}#)))
               (begin
                 (let ((#{vars 2324}#
                         (map #{gen-var 485}# #{ids 2322}#)))
                   (begin
                     (let ((#{labels 2326}#
                             (#{gen-labels 392}# #{ids 2322}#)))
                       (#{build-simple-lambda 321}#
                         #{s 2305}#
                         (map syntax->datum #{req 2307}#)
                         (if #{rest 2308}#
                           (syntax->datum #{rest 2308}#)
                           #f)
                         #{vars 2324}#
                         #{meta 2309}#
                         (#{chi-body 465}#
                           #{body 2310}#
                           (#{source-wrap 445}#
                             #{e 2302}#
                             #{w 2304}#
                             #{s 2305}#
                             #{mod 2306}#)
                           (#{extend-var-env 367}#
                             #{labels 2326}#
                             #{vars 2324}#
                             #{r 2303}#)
                           (#{make-binding-wrap 421}#
                             #{ids 2322}#
                             #{labels 2326}#
                             #{w 2304}#)
                           #{mod 2306}#))))))))))
       (#{lambda*-formals 479}#
         (lambda (#{orig-args 2329}#)
           (letrec*
             ((#{req 2332}#
                (lambda (#{args 2341}# #{rreq 2342}#)
                  (let ((#{tmp 2345}# #{args 2341}#))
                    (let ((#{tmp 2346}# ($sc-dispatch #{tmp 2345}# '())))
                      (if #{tmp 2346}#
                        (@apply
                          (lambda ()
                            (#{check 2340}#
                              (reverse #{rreq 2342}#)
                              '()
                              #f
                              '()))
                          #{tmp 2346}#)
                        (let ((#{tmp 2347}#
                                ($sc-dispatch #{tmp 2345}# '(any . any))))
                          (if (if #{tmp 2347}#
                                (@apply
                                  (lambda (#{a 2350}# #{b 2351}#)
                                    (#{id? 377}# #{a 2350}#))
                                  #{tmp 2347}#)
                                #f)
                            (@apply
                              (lambda (#{a 2354}# #{b 2355}#)
                                (#{req 2332}#
                                  #{b 2355}#
                                  (cons #{a 2354}# #{rreq 2342}#)))
                              #{tmp 2347}#)
                            (let ((#{tmp 2356}#
                                    ($sc-dispatch #{tmp 2345}# '(any . any))))
                              (if (if #{tmp 2356}#
                                    (@apply
                                      (lambda (#{a 2359}# #{b 2360}#)
                                        (eq? (syntax->datum #{a 2359}#)
                                             #:optional))
                                      #{tmp 2356}#)
                                    #f)
                                (@apply
                                  (lambda (#{a 2363}# #{b 2364}#)
                                    (#{opt 2334}#
                                      #{b 2364}#
                                      (reverse #{rreq 2342}#)
                                      '()))
                                  #{tmp 2356}#)
                                (let ((#{tmp 2365}#
                                        ($sc-dispatch
                                          #{tmp 2345}#
                                          '(any . any))))
                                  (if (if #{tmp 2365}#
                                        (@apply
                                          (lambda (#{a 2368}# #{b 2369}#)
                                            (eq? (syntax->datum #{a 2368}#)
                                                 #:key))
                                          #{tmp 2365}#)
                                        #f)
                                    (@apply
                                      (lambda (#{a 2372}# #{b 2373}#)
                                        (#{key 2336}#
                                          #{b 2373}#
                                          (reverse #{rreq 2342}#)
                                          '()
                                          '()))
                                      #{tmp 2365}#)
                                    (let ((#{tmp 2374}#
                                            ($sc-dispatch
                                              #{tmp 2345}#
                                              '(any any))))
                                      (if (if #{tmp 2374}#
                                            (@apply
                                              (lambda (#{a 2377}# #{b 2378}#)
                                                (eq? (syntax->datum #{a 2377}#)
                                                     #:rest))
                                              #{tmp 2374}#)
                                            #f)
                                        (@apply
                                          (lambda (#{a 2381}# #{b 2382}#)
                                            (#{rest 2338}#
                                              #{b 2382}#
                                              (reverse #{rreq 2342}#)
                                              '()
                                              '()))
                                          #{tmp 2374}#)
                                        (let ((#{tmp 2383}#
                                                (list #{tmp 2345}#)))
                                          (if (if #{tmp 2383}#
                                                (@apply
                                                  (lambda (#{r 2385}#)
                                                    (#{id? 377}# #{r 2385}#))
                                                  #{tmp 2383}#)
                                                #f)
                                            (@apply
                                              (lambda (#{r 2387}#)
                                                (#{rest 2338}#
                                                  #{r 2387}#
                                                  (reverse #{rreq 2342}#)
                                                  '()
                                                  '()))
                                              #{tmp 2383}#)
                                            (let ((#{else 2389}# #{tmp 2345}#))
                                              (syntax-violation
                                                'lambda*
                                                "invalid argument list"
                                                #{orig-args 2329}#
                                                #{args 2341}#)))))))))))))))))
              (#{opt 2334}#
                (lambda (#{args 2390}# #{req 2391}# #{ropt 2392}#)
                  (let ((#{tmp 2396}# #{args 2390}#))
                    (let ((#{tmp 2397}# ($sc-dispatch #{tmp 2396}# '())))
                      (if #{tmp 2397}#
                        (@apply
                          (lambda ()
                            (#{check 2340}#
                              #{req 2391}#
                              (reverse #{ropt 2392}#)
                              #f
                              '()))
                          #{tmp 2397}#)
                        (let ((#{tmp 2398}#
                                ($sc-dispatch #{tmp 2396}# '(any . any))))
                          (if (if #{tmp 2398}#
                                (@apply
                                  (lambda (#{a 2401}# #{b 2402}#)
                                    (#{id? 377}# #{a 2401}#))
                                  #{tmp 2398}#)
                                #f)
                            (@apply
                              (lambda (#{a 2405}# #{b 2406}#)
                                (#{opt 2334}#
                                  #{b 2406}#
                                  #{req 2391}#
                                  (cons (cons #{a 2405}#
                                              '(#(syntax-object
                                                  #f
                                                  ((top)
                                                   #(ribcage
                                                     #(a b)
                                                     #((top) (top))
                                                     #("i2403" "i2404"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(args req ropt)
                                                     #((top) (top) (top))
                                                     #("i2393"
                                                       "i2394"
                                                       "i2395"))
                                                   #(ribcage
                                                     (check rest key opt req)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i2339"
                                                      "i2337"
                                                      "i2335"
                                                      "i2333"
                                                      "i2331"))
                                                   #(ribcage
                                                     #(orig-args)
                                                     #((top))
                                                     #("i2330"))
                                                   #(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))
                                                     ("i486"
                                                      "i484"
                                                      "i482"
                                                      "i480"
                                                      "i478"
                                                      "i476"
                                                      "i474"
                                                      "i472"
                                                      "i470"
                                                      "i468"
                                                      "i466"
                                                      "i464"
                                                      "i462"
                                                      "i460"
                                                      "i458"
                                                      "i456"
                                                      "i454"
                                                      "i452"
                                                      "i450"
                                                      "i448"
                                                      "i446"
                                                      "i444"
                                                      "i442"
                                                      "i440"
                                                      "i438"
                                                      "i436"
                                                      "i434"
                                                      "i432"
                                                      "i430"
                                                      "i428"
                                                      "i426"
                                                      "i424"
                                                      "i422"
                                                      "i420"
                                                      "i418"
                                                      "i417"
                                                      "i416"
                                                      "i414"
                                                      "i413"
                                                      "i412"
                                                      "i411"
                                                      "i410"
                                                      "i408"
                                                      "i406"
                                                      "i404"
                                                      "i402"
                                                      "i400"
                                                      "i398"
                                                      "i396"
                                                      "i394"
                                                      "i391"
                                                      "i389"
                                                      "i388"
                                                      "i387"
                                                      "i386"
                                                      "i385"
                                                      "i384"
                                                      "i383"
                                                      "i382"
                                                      "i381"
                                                      "i379"
                                                      "i378"
                                                      "i376"
                                                      "i374"
                                                      "i372"
                                                      "i370"
                                                      "i368"
                                                      "i366"
                                                      "i364"
                                                      "i363"
                                                      "i362"
                                                      "i361"
                                                      "i360"
                                                      "i359"
                                                      "i357"
                                                      "i356"
                                                      "i354"
                                                      "i352"
                                                      "i350"
                                                      "i348"
                                                      "i346"
                                                      "i344"
                                                      "i342"
                                                      "i340"
                                                      "i338"
                                                      "i336"
                                                      "i334"
                                                      "i332"
                                                      "i330"
                                                      "i328"
                                                      "i326"
                                                      "i324"
                                                      "i322"
                                                      "i320"
                                                      "i318"
                                                      "i316"
                                                      "i314"
                                                      "i312"
                                                      "i310"
                                                      "i308"
                                                      "i306"
                                                      "i304"
                                                      "i302"
                                                      "i300"
                                                      "i298"
                                                      "i296"
                                                      "i294"
                                                      "i292"
                                                      "i291"
                                                      "i289"
                                                      "i287"
                                                      "i286"
                                                      "i285"
                                                      "i284"
                                                      "i283"
                                                      "i281"
                                                      "i279"
                                                      "i277"
                                                      "i274"
                                                      "i272"
                                                      "i270"
                                                      "i268"
                                                      "i266"
                                                      "i264"
                                                      "i262"
                                                      "i260"
                                                      "i258"
                                                      "i256"
                                                      "i254"
                                                      "i252"
                                                      "i250"
                                                      "i248"
                                                      "i246"
                                                      "i244"
                                                      "i242"
                                                      "i240"))
                                                   #(ribcage
                                                     (define-structure
                                                       define-expansion-accessors
                                                       define-expansion-constructors
                                                       and-map*)
                                                     ((top) (top) (top) (top))
                                                     ("i42"
                                                      "i41"
                                                      "i40"
                                                      "i38")))
                                                  (hygiene guile))))
                                        #{ropt 2392}#)))
                              #{tmp 2398}#)
                            (let ((#{tmp 2407}#
                                    ($sc-dispatch
                                      #{tmp 2396}#
                                      '((any any) . any))))
                              (if (if #{tmp 2407}#
                                    (@apply
                                      (lambda (#{a 2411}#
                                               #{init 2412}#
                                               #{b 2413}#)
                                        (#{id? 377}# #{a 2411}#))
                                      #{tmp 2407}#)
                                    #f)
                                (@apply
                                  (lambda (#{a 2417}# #{init 2418}# #{b 2419}#)
                                    (#{opt 2334}#
                                      #{b 2419}#
                                      #{req 2391}#
                                      (cons (list #{a 2417}# #{init 2418}#)
                                            #{ropt 2392}#)))
                                  #{tmp 2407}#)
                                (let ((#{tmp 2420}#
                                        ($sc-dispatch
                                          #{tmp 2396}#
                                          '(any . any))))
                                  (if (if #{tmp 2420}#
                                        (@apply
                                          (lambda (#{a 2423}# #{b 2424}#)
                                            (eq? (syntax->datum #{a 2423}#)
                                                 #:key))
                                          #{tmp 2420}#)
                                        #f)
                                    (@apply
                                      (lambda (#{a 2427}# #{b 2428}#)
                                        (#{key 2336}#
                                          #{b 2428}#
                                          #{req 2391}#
                                          (reverse #{ropt 2392}#)
                                          '()))
                                      #{tmp 2420}#)
                                    (let ((#{tmp 2429}#
                                            ($sc-dispatch
                                              #{tmp 2396}#
                                              '(any any))))
                                      (if (if #{tmp 2429}#
                                            (@apply
                                              (lambda (#{a 2432}# #{b 2433}#)
                                                (eq? (syntax->datum #{a 2432}#)
                                                     #:rest))
                                              #{tmp 2429}#)
                                            #f)
                                        (@apply
                                          (lambda (#{a 2436}# #{b 2437}#)
                                            (#{rest 2338}#
                                              #{b 2437}#
                                              #{req 2391}#
                                              (reverse #{ropt 2392}#)
                                              '()))
                                          #{tmp 2429}#)
                                        (let ((#{tmp 2438}#
                                                (list #{tmp 2396}#)))
                                          (if (if #{tmp 2438}#
                                                (@apply
                                                  (lambda (#{r 2440}#)
                                                    (#{id? 377}# #{r 2440}#))
                                                  #{tmp 2438}#)
                                                #f)
                                            (@apply
                                              (lambda (#{r 2442}#)
                                                (#{rest 2338}#
                                                  #{r 2442}#
                                                  #{req 2391}#
                                                  (reverse #{ropt 2392}#)
                                                  '()))
                                              #{tmp 2438}#)
                                            (let ((#{else 2444}# #{tmp 2396}#))
                                              (syntax-violation
                                                'lambda*
                                                "invalid optional argument list"
                                                #{orig-args 2329}#
                                                #{args 2390}#)))))))))))))))))
              (#{key 2336}#
                (lambda (#{args 2445}#
                         #{req 2446}#
                         #{opt 2447}#
                         #{rkey 2448}#)
                  (let ((#{tmp 2453}# #{args 2445}#))
                    (let ((#{tmp 2454}# ($sc-dispatch #{tmp 2453}# '())))
                      (if #{tmp 2454}#
                        (@apply
                          (lambda ()
                            (#{check 2340}#
                              #{req 2446}#
                              #{opt 2447}#
                              #f
                              (cons #f (reverse #{rkey 2448}#))))
                          #{tmp 2454}#)
                        (let ((#{tmp 2455}#
                                ($sc-dispatch #{tmp 2453}# '(any . any))))
                          (if (if #{tmp 2455}#
                                (@apply
                                  (lambda (#{a 2458}# #{b 2459}#)
                                    (#{id? 377}# #{a 2458}#))
                                  #{tmp 2455}#)
                                #f)
                            (@apply
                              (lambda (#{a 2462}# #{b 2463}#)
                                (let ((#{tmp 2465}#
                                        (symbol->keyword
                                          (syntax->datum #{a 2462}#))))
                                  (let ((#{k 2467}# #{tmp 2465}#))
                                    (#{key 2336}#
                                      #{b 2463}#
                                      #{req 2446}#
                                      #{opt 2447}#
                                      (cons (cons #{k 2467}#
                                                  (cons #{a 2462}#
                                                        '(#(syntax-object
                                                            #f
                                                            ((top)
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(k)
                                                               #((top))
                                                               #("i2466"))
                                                             #(ribcage
                                                               #(a b)
                                                               #((top) (top))
                                                               #("i2460"
                                                                 "i2461"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(args
                                                                 req
                                                                 opt
                                                                 rkey)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i2449"
                                                                 "i2450"
                                                                 "i2451"
                                                                 "i2452"))
                                                             #(ribcage
                                                               (check rest
                                                                      key
                                                                      opt
                                                                      req)
                                                               ((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                               ("i2339"
                                                                "i2337"
                                                                "i2335"
                                                                "i2333"
                                                                "i2331"))
                                                             #(ribcage
                                                               #(orig-args)
                                                               #((top))
                                                               #("i2330"))
                                                             #(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))
                                                               ("i486"
                                                                "i484"
                                                                "i482"
                                                                "i480"
                                                                "i478"
                                                                "i476"
                                                                "i474"
                                                                "i472"
                                                                "i470"
                                                                "i468"
                                                                "i466"
                                                                "i464"
                                                                "i462"
                                                                "i460"
                                                                "i458"
                                                                "i456"
                                                                "i454"
                                                                "i452"
                                                                "i450"
                                                                "i448"
                                                                "i446"
                                                                "i444"
                                                                "i442"
                                                                "i440"
                                                                "i438"
                                                                "i436"
                                                                "i434"
                                                                "i432"
                                                                "i430"
                                                                "i428"
                                                                "i426"
                                                                "i424"
                                                                "i422"
                                                                "i420"
                                                                "i418"
                                                                "i417"
                                                                "i416"
                                                                "i414"
                                                                "i413"
                                                                "i412"
                                                                "i411"
                                                                "i410"
                                                                "i408"
                                                                "i406"
                                                                "i404"
                                                                "i402"
                                                                "i400"
                                                                "i398"
                                                                "i396"
                                                                "i394"
                                                                "i391"
                                                                "i389"
                                                                "i388"
                                                                "i387"
                                                                "i386"
                                                                "i385"
                                                                "i384"
                                                                "i383"
                                                                "i382"
                                                                "i381"
                                                                "i379"
                                                                "i378"
                                                                "i376"
                                                                "i374"
                                                                "i372"
                                                                "i370"
                                                                "i368"
                                                                "i366"
                                                                "i364"
                                                                "i363"
                                                                "i362"
                                                                "i361"
                                                                "i360"
                                                                "i359"
                                                                "i357"
                                                                "i356"
                                                                "i354"
                                                                "i352"
                                                                "i350"
                                                                "i348"
                                                                "i346"
                                                                "i344"
                                                                "i342"
                                                                "i340"
                                                                "i338"
                                                                "i336"
                                                                "i334"
                                                                "i332"
                                                                "i330"
                                                                "i328"
                                                                "i326"
                                                                "i324"
                                                                "i322"
                                                                "i320"
                                                                "i318"
                                                                "i316"
                                                                "i314"
                                                                "i312"
                                                                "i310"
                                                                "i308"
                                                                "i306"
                                                                "i304"
                                                                "i302"
                                                                "i300"
                                                                "i298"
                                                                "i296"
                                                                "i294"
                                                                "i292"
                                                                "i291"
                                                                "i289"
                                                                "i287"
                                                                "i286"
                                                                "i285"
                                                                "i284"
                                                                "i283"
                                                                "i281"
                                                                "i279"
                                                                "i277"
                                                                "i274"
                                                                "i272"
                                                                "i270"
                                                                "i268"
                                                                "i266"
                                                                "i264"
                                                                "i262"
                                                                "i260"
                                                                "i258"
                                                                "i256"
                                                                "i254"
                                                                "i252"
                                                                "i250"
                                                                "i248"
                                                                "i246"
                                                                "i244"
                                                                "i242"
                                                                "i240"))
                                                             #(ribcage
                                                               (define-structure
                                                                 define-expansion-accessors
                                                                 define-expansion-constructors
                                                                 and-map*)
                                                               ((top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                               ("i42"
                                                                "i41"
                                                                "i40"
                                                                "i38")))
                                                            (hygiene guile)))))
                                            #{rkey 2448}#)))))
                              #{tmp 2455}#)
                            (let ((#{tmp 2468}#
                                    ($sc-dispatch
                                      #{tmp 2453}#
                                      '((any any) . any))))
                              (if (if #{tmp 2468}#
                                    (@apply
                                      (lambda (#{a 2472}#
                                               #{init 2473}#
                                               #{b 2474}#)
                                        (#{id? 377}# #{a 2472}#))
                                      #{tmp 2468}#)
                                    #f)
                                (@apply
                                  (lambda (#{a 2478}# #{init 2479}# #{b 2480}#)
                                    (let ((#{tmp 2482}#
                                            (symbol->keyword
                                              (syntax->datum #{a 2478}#))))
                                      (let ((#{k 2484}# #{tmp 2482}#))
                                        (#{key 2336}#
                                          #{b 2480}#
                                          #{req 2446}#
                                          #{opt 2447}#
                                          (cons (list #{k 2484}#
                                                      #{a 2478}#
                                                      #{init 2479}#)
                                                #{rkey 2448}#)))))
                                  #{tmp 2468}#)
                                (let ((#{tmp 2485}#
                                        ($sc-dispatch
                                          #{tmp 2453}#
                                          '((any any any) . any))))
                                  (if (if #{tmp 2485}#
                                        (@apply
                                          (lambda (#{a 2490}#
                                                   #{init 2491}#
                                                   #{k 2492}#
                                                   #{b 2493}#)
                                            (if (#{id? 377}# #{a 2490}#)
                                              (keyword?
                                                (syntax->datum #{k 2492}#))
                                              #f))
                                          #{tmp 2485}#)
                                        #f)
                                    (@apply
                                      (lambda (#{a 2500}#
                                               #{init 2501}#
                                               #{k 2502}#
                                               #{b 2503}#)
                                        (#{key 2336}#
                                          #{b 2503}#
                                          #{req 2446}#
                                          #{opt 2447}#
                                          (cons (list #{k 2502}#
                                                      #{a 2500}#
                                                      #{init 2501}#)
                                                #{rkey 2448}#)))
                                      #{tmp 2485}#)
                                    (let ((#{tmp 2504}#
                                            ($sc-dispatch
                                              #{tmp 2453}#
                                              '(any))))
                                      (if (if #{tmp 2504}#
                                            (@apply
                                              (lambda (#{aok 2506}#)
                                                (eq? (syntax->datum
                                                       #{aok 2506}#)
                                                     #:allow-other-keys))
                                              #{tmp 2504}#)
                                            #f)
                                        (@apply
                                          (lambda (#{aok 2508}#)
                                            (#{check 2340}#
                                              #{req 2446}#
                                              #{opt 2447}#
                                              #f
                                              (cons #t
                                                    (reverse #{rkey 2448}#))))
                                          #{tmp 2504}#)
                                        (let ((#{tmp 2509}#
                                                ($sc-dispatch
                                                  #{tmp 2453}#
                                                  '(any any any))))
                                          (if (if #{tmp 2509}#
                                                (@apply
                                                  (lambda (#{aok 2513}#
                                                           #{a 2514}#
                                                           #{b 2515}#)
                                                    (if (eq? (syntax->datum
                                                               #{aok 2513}#)
                                                             #:allow-other-keys)
                                                      (eq? (syntax->datum
                                                             #{a 2514}#)
                                                           #:rest)
                                                      #f))
                                                  #{tmp 2509}#)
                                                #f)
                                            (@apply
                                              (lambda (#{aok 2521}#
                                                       #{a 2522}#
                                                       #{b 2523}#)
                                                (#{rest 2338}#
                                                  #{b 2523}#
                                                  #{req 2446}#
                                                  #{opt 2447}#
                                                  (cons #t
                                                        (reverse
                                                          #{rkey 2448}#))))
                                              #{tmp 2509}#)
                                            (let ((#{tmp 2524}#
                                                    ($sc-dispatch
                                                      #{tmp 2453}#
                                                      '(any . any))))
                                              (if (if #{tmp 2524}#
                                                    (@apply
                                                      (lambda (#{aok 2527}#
                                                               #{r 2528}#)
                                                        (if (eq? (syntax->datum
                                                                   #{aok 2527}#)
                                                                 #:allow-other-keys)
                                                          (#{id? 377}#
                                                            #{r 2528}#)
                                                          #f))
                                                      #{tmp 2524}#)
                                                    #f)
                                                (@apply
                                                  (lambda (#{aok 2533}#
                                                           #{r 2534}#)
                                                    (#{rest 2338}#
                                                      #{r 2534}#
                                                      #{req 2446}#
                                                      #{opt 2447}#
                                                      (cons #t
                                                            (reverse
                                                              #{rkey 2448}#))))
                                                  #{tmp 2524}#)
                                                (let ((#{tmp 2535}#
                                                        ($sc-dispatch
                                                          #{tmp 2453}#
                                                          '(any any))))
                                                  (if (if #{tmp 2535}#
                                                        (@apply
                                                          (lambda (#{a 2538}#
                                                                   #{b 2539}#)
                                                            (eq? (syntax->datum
                                                                   #{a 2538}#)
                                                                 #:rest))
                                                          #{tmp 2535}#)
                                                        #f)
                                                    (@apply
                                                      (lambda (#{a 2542}#
                                                               #{b 2543}#)
                                                        (#{rest 2338}#
                                                          #{b 2543}#
                                                          #{req 2446}#
                                                          #{opt 2447}#
                                                          (cons #f
                                                                (reverse
                                                                  #{rkey 2448}#))))
                                                      #{tmp 2535}#)
                                                    (let ((#{tmp 2544}#
                                                            (list #{tmp 2453}#)))
                                                      (if (if #{tmp 2544}#
                                                            (@apply
                                                              (lambda (#{r 2546}#)
                                                                (#{id? 377}#
                                                                  #{r 2546}#))
                                                              #{tmp 2544}#)
                                                            #f)
                                                        (@apply
                                                          (lambda (#{r 2548}#)
                                                            (#{rest 2338}#
                                                              #{r 2548}#
                                                              #{req 2446}#
                                                              #{opt 2447}#
                                                              (cons #f
                                                                    (reverse
                                                                      #{rkey 2448}#))))
                                                          #{tmp 2544}#)
                                                        (let ((#{else 2550}#
                                                                #{tmp 2453}#))
                                                          (syntax-violation
                                                            'lambda*
                                                            "invalid keyword argument list"
                                                            #{orig-args 2329}#
                                                            #{args 2445}#)))))))))))))))))))))))
              (#{rest 2338}#
                (lambda (#{args 2551}#
                         #{req 2552}#
                         #{opt 2553}#
                         #{kw 2554}#)
                  (let ((#{tmp 2559}# #{args 2551}#))
                    (let ((#{tmp 2560}# (list #{tmp 2559}#)))
                      (if (if #{tmp 2560}#
                            (@apply
                              (lambda (#{r 2562}#) (#{id? 377}# #{r 2562}#))
                              #{tmp 2560}#)
                            #f)
                        (@apply
                          (lambda (#{r 2564}#)
                            (#{check 2340}#
                              #{req 2552}#
                              #{opt 2553}#
                              #{r 2564}#
                              #{kw 2554}#))
                          #{tmp 2560}#)
                        (let ((#{else 2566}# #{tmp 2559}#))
                          (syntax-violation
                            'lambda*
                            "invalid rest argument"
                            #{orig-args 2329}#
                            #{args 2551}#)))))))
              (#{check 2340}#
                (lambda (#{req 2567}#
                         #{opt 2568}#
                         #{rest 2569}#
                         #{kw 2570}#)
                  (if (#{distinct-bound-ids? 439}#
                        (append
                          #{req 2567}#
                          (map car #{opt 2568}#)
                          (if #{rest 2569}# (list #{rest 2569}#) '())
                          (if (pair? #{kw 2570}#)
                            (map cadr (cdr #{kw 2570}#))
                            '())))
                    (values
                      #{req 2567}#
                      #{opt 2568}#
                      #{rest 2569}#
                      #{kw 2570}#)
                    (syntax-violation
                      'lambda*
                      "duplicate identifier in argument list"
                      #{orig-args 2329}#)))))
             (begin (#{req 2332}# #{orig-args 2329}# '())))))
       (#{chi-lambda-case 481}#
         (lambda (#{e 2578}#
                  #{r 2579}#
                  #{w 2580}#
                  #{s 2581}#
                  #{mod 2582}#
                  #{get-formals 2583}#
                  #{clauses 2584}#)
           (letrec*
             ((#{expand-req 2593}#
                (lambda (#{req 2600}#
                         #{opt 2601}#
                         #{rest 2602}#
                         #{kw 2603}#
                         #{body 2604}#)
                  (begin
                    (let ((#{vars 2612}#
                            (map #{gen-var 485}# #{req 2600}#))
                          (#{labels 2613}#
                            (#{gen-labels 392}# #{req 2600}#)))
                      (begin
                        (let ((#{r* 2616}#
                                (#{extend-var-env 367}#
                                  #{labels 2613}#
                                  #{vars 2612}#
                                  #{r 2579}#))
                              (#{w* 2617}#
                                (#{make-binding-wrap 421}#
                                  #{req 2600}#
                                  #{labels 2613}#
                                  #{w 2580}#)))
                          (#{expand-opt 2595}#
                            (map syntax->datum #{req 2600}#)
                            #{opt 2601}#
                            #{rest 2602}#
                            #{kw 2603}#
                            #{body 2604}#
                            (reverse #{vars 2612}#)
                            #{r* 2616}#
                            #{w* 2617}#
                            '()
                            '())))))))
              (#{expand-opt 2595}#
                (lambda (#{req 2618}#
                         #{opt 2619}#
                         #{rest 2620}#
                         #{kw 2621}#
                         #{body 2622}#
                         #{vars 2623}#
                         #{r* 2624}#
                         #{w* 2625}#
                         #{out 2626}#
                         #{inits 2627}#)
                  (if (pair? #{opt 2619}#)
                    (let ((#{tmp 2640}# (car #{opt 2619}#)))
                      (let ((#{tmp 2641}#
                              ($sc-dispatch #{tmp 2640}# '(any any))))
                        (if #{tmp 2641}#
                          (@apply
                            (lambda (#{id 2644}# #{i 2645}#)
                              (begin
                                (let ((#{v 2648}#
                                        (#{gen-var 485}# #{id 2644}#)))
                                  (begin
                                    (let ((#{l 2650}#
                                            (#{gen-labels 392}#
                                              (list #{v 2648}#))))
                                      (begin
                                        (let ((#{r** 2652}#
                                                (#{extend-var-env 367}#
                                                  #{l 2650}#
                                                  (list #{v 2648}#)
                                                  #{r* 2624}#)))
                                          (begin
                                            (let ((#{w** 2654}#
                                                    (#{make-binding-wrap 421}#
                                                      (list #{id 2644}#)
                                                      #{l 2650}#
                                                      #{w* 2625}#)))
                                              (#{expand-opt 2595}#
                                                #{req 2618}#
                                                (cdr #{opt 2619}#)
                                                #{rest 2620}#
                                                #{kw 2621}#
                                                #{body 2622}#
                                                (cons #{v 2648}# #{vars 2623}#)
                                                #{r** 2652}#
                                                #{w** 2654}#
                                                (cons (syntax->datum
                                                        #{id 2644}#)
                                                      #{out 2626}#)
                                                (cons (#{chi 457}#
                                                        #{i 2645}#
                                                        #{r* 2624}#
                                                        #{w* 2625}#
                                                        #{mod 2582}#)
                                                      #{inits 2627}#)))))))))))
                            #{tmp 2641}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
                            #{tmp 2640}#))))
                    (if #{rest 2620}#
                      (begin
                        (let ((#{v 2659}# (#{gen-var 485}# #{rest 2620}#)))
                          (begin
                            (let ((#{l 2661}#
                                    (#{gen-labels 392}# (list #{v 2659}#))))
                              (begin
                                (let ((#{r* 2663}#
                                        (#{extend-var-env 367}#
                                          #{l 2661}#
                                          (list #{v 2659}#)
                                          #{r* 2624}#)))
                                  (begin
                                    (let ((#{w* 2665}#
                                            (#{make-binding-wrap 421}#
                                              (list #{rest 2620}#)
                                              #{l 2661}#
                                              #{w* 2625}#)))
                                      (#{expand-kw 2597}#
                                        #{req 2618}#
                                        (if (pair? #{out 2626}#)
                                          (reverse #{out 2626}#)
                                          #f)
                                        (syntax->datum #{rest 2620}#)
                                        (if (pair? #{kw 2621}#)
                                          (cdr #{kw 2621}#)
                                          #{kw 2621}#)
                                        #{body 2622}#
                                        (cons #{v 2659}# #{vars 2623}#)
                                        #{r* 2663}#
                                        #{w* 2665}#
                                        (if (pair? #{kw 2621}#)
                                          (car #{kw 2621}#)
                                          #f)
                                        '()
                                        #{inits 2627}#)))))))))
                      (#{expand-kw 2597}#
                        #{req 2618}#
                        (if (pair? #{out 2626}#)
                          (reverse #{out 2626}#)
                          #f)
                        #f
                        (if (pair? #{kw 2621}#)
                          (cdr #{kw 2621}#)
                          #{kw 2621}#)
                        #{body 2622}#
                        #{vars 2623}#
                        #{r* 2624}#
                        #{w* 2625}#
                        (if (pair? #{kw 2621}#) (car #{kw 2621}#) #f)
                        '()
                        #{inits 2627}#)))))
              (#{expand-kw 2597}#
                (lambda (#{req 2667}#
                         #{opt 2668}#
                         #{rest 2669}#
                         #{kw 2670}#
                         #{body 2671}#
                         #{vars 2672}#
                         #{r* 2673}#
                         #{w* 2674}#
                         #{aok 2675}#
                         #{out 2676}#
                         #{inits 2677}#)
                  (if (pair? #{kw 2670}#)
                    (let ((#{tmp 2691}# (car #{kw 2670}#)))
                      (let ((#{tmp 2692}#
                              ($sc-dispatch #{tmp 2691}# '(any any any))))
                        (if #{tmp 2692}#
                          (@apply
                            (lambda (#{k 2696}# #{id 2697}# #{i 2698}#)
                              (begin
                                (let ((#{v 2701}#
                                        (#{gen-var 485}# #{id 2697}#)))
                                  (begin
                                    (let ((#{l 2703}#
                                            (#{gen-labels 392}#
                                              (list #{v 2701}#))))
                                      (begin
                                        (let ((#{r** 2705}#
                                                (#{extend-var-env 367}#
                                                  #{l 2703}#
                                                  (list #{v 2701}#)
                                                  #{r* 2673}#)))
                                          (begin
                                            (let ((#{w** 2707}#
                                                    (#{make-binding-wrap 421}#
                                                      (list #{id 2697}#)
                                                      #{l 2703}#
                                                      #{w* 2674}#)))
                                              (#{expand-kw 2597}#
                                                #{req 2667}#
                                                #{opt 2668}#
                                                #{rest 2669}#
                                                (cdr #{kw 2670}#)
                                                #{body 2671}#
                                                (cons #{v 2701}# #{vars 2672}#)
                                                #{r** 2705}#
                                                #{w** 2707}#
                                                #{aok 2675}#
                                                (cons (list (syntax->datum
                                                              #{k 2696}#)
                                                            (syntax->datum
                                                              #{id 2697}#)
                                                            #{v 2701}#)
                                                      #{out 2676}#)
                                                (cons (#{chi 457}#
                                                        #{i 2698}#
                                                        #{r* 2673}#
                                                        #{w* 2674}#
                                                        #{mod 2582}#)
                                                      #{inits 2677}#)))))))))))
                            #{tmp 2692}#)
                          (syntax-violation
                            #f
                            "source expression failed to match any pattern"
                            #{tmp 2691}#))))
                    (#{expand-body 2599}#
                      #{req 2667}#
                      #{opt 2668}#
                      #{rest 2669}#
                      (if (begin
                            (let ((#{t 2711}# #{aok 2675}#))
                              (if #{t 2711}# #{t 2711}# (pair? #{out 2676}#))))
                        (cons #{aok 2675}# (reverse #{out 2676}#))
                        #f)
                      #{body 2671}#
                      (reverse #{vars 2672}#)
                      #{r* 2673}#
                      #{w* 2674}#
                      (reverse #{inits 2677}#)
                      '()))))
              (#{expand-body 2599}#
                (lambda (#{req 2713}#
                         #{opt 2714}#
                         #{rest 2715}#
                         #{kw 2716}#
                         #{body 2717}#
                         #{vars 2718}#
                         #{r* 2719}#
                         #{w* 2720}#
                         #{inits 2721}#
                         #{meta 2722}#)
                  (let ((#{tmp 2733}# #{body 2717}#))
                    (let ((#{tmp 2734}#
                            ($sc-dispatch #{tmp 2733}# '(any any . each-any))))
                      (if (if #{tmp 2734}#
                            (@apply
                              (lambda (#{docstring 2738}#
                                       #{e1 2739}#
                                       #{e2 2740}#)
                                (string? (syntax->datum #{docstring 2738}#)))
                              #{tmp 2734}#)
                            #f)
                        (@apply
                          (lambda (#{docstring 2744}# #{e1 2745}# #{e2 2746}#)
                            (#{expand-body 2599}#
                              #{req 2713}#
                              #{opt 2714}#
                              #{rest 2715}#
                              #{kw 2716}#
                              (cons #{e1 2745}# #{e2 2746}#)
                              #{vars 2718}#
                              #{r* 2719}#
                              #{w* 2720}#
                              #{inits 2721}#
                              (append
                                #{meta 2722}#
                                (list (cons 'documentation
                                            (syntax->datum
                                              #{docstring 2744}#))))))
                          #{tmp 2734}#)
                        (let ((#{tmp 2749}#
                                ($sc-dispatch
                                  #{tmp 2733}#
                                  '(#(vector #(each (any . any)))
                                    any
                                    .
                                    each-any))))
                          (if #{tmp 2749}#
                            (@apply
                              (lambda (#{k 2754}#
                                       #{v 2755}#
                                       #{e1 2756}#
                                       #{e2 2757}#)
                                (#{expand-body 2599}#
                                  #{req 2713}#
                                  #{opt 2714}#
                                  #{rest 2715}#
                                  #{kw 2716}#
                                  (cons #{e1 2756}# #{e2 2757}#)
                                  #{vars 2718}#
                                  #{r* 2719}#
                                  #{w* 2720}#
                                  #{inits 2721}#
                                  (append
                                    #{meta 2722}#
                                    (syntax->datum
                                      (map cons #{k 2754}# #{v 2755}#)))))
                              #{tmp 2749}#)
                            (let ((#{tmp 2761}#
                                    ($sc-dispatch
                                      #{tmp 2733}#
                                      '(any . each-any))))
                              (if #{tmp 2761}#
                                (@apply
                                  (lambda (#{e1 2764}# #{e2 2765}#)
                                    (values
                                      #{meta 2722}#
                                      #{req 2713}#
                                      #{opt 2714}#
                                      #{rest 2715}#
                                      #{kw 2716}#
                                      #{inits 2721}#
                                      #{vars 2718}#
                                      (#{chi-body 465}#
                                        (cons #{e1 2764}# #{e2 2765}#)
                                        (#{source-wrap 445}#
                                          #{e 2578}#
                                          #{w 2580}#
                                          #{s 2581}#
                                          #{mod 2582}#)
                                        #{r* 2719}#
                                        #{w* 2720}#
                                        #{mod 2582}#)))
                                  #{tmp 2761}#)
                                (syntax-violation
                                  #f
                                  "source expression failed to match any pattern"
                                  #{tmp 2733}#)))))))))))
             (begin
               (let ((#{tmp 2767}# #{clauses 2584}#))
                 (let ((#{tmp 2768}# ($sc-dispatch #{tmp 2767}# '())))
                   (if #{tmp 2768}#
                     (@apply (lambda () (values '() #f)) #{tmp 2768}#)
                     (let ((#{tmp 2769}#
                             ($sc-dispatch
                               #{tmp 2767}#
                               '((any any . each-any)
                                 .
                                 #(each (any any . each-any))))))
                       (if #{tmp 2769}#
                         (@apply
                           (lambda (#{args 2776}#
                                    #{e1 2777}#
                                    #{e2 2778}#
                                    #{args* 2779}#
                                    #{e1* 2780}#
                                    #{e2* 2781}#)
                             (call-with-values
                               (lambda () (#{get-formals 2583}# #{args 2776}#))
                               (lambda (#{req 2782}#
                                        #{opt 2783}#
                                        #{rest 2784}#
                                        #{kw 2785}#)
                                 (call-with-values
                                   (lambda ()
                                     (#{expand-req 2593}#
                                       #{req 2782}#
                                       #{opt 2783}#
                                       #{rest 2784}#
                                       #{kw 2785}#
                                       (cons #{e1 2777}# #{e2 2778}#)))
                                   (lambda (#{meta 2791}#
                                            #{req 2792}#
                                            #{opt 2793}#
                                            #{rest 2794}#
                                            #{kw 2795}#
                                            #{inits 2796}#
                                            #{vars 2797}#
                                            #{body 2798}#)
                                     (call-with-values
                                       (lambda ()
                                         (#{chi-lambda-case 481}#
                                           #{e 2578}#
                                           #{r 2579}#
                                           #{w 2580}#
                                           #{s 2581}#
                                           #{mod 2582}#
                                           #{get-formals 2583}#
                                           (map (lambda (#{tmp 2809}#
                                                         #{tmp 2808}#
                                                         #{tmp 2807}#)
                                                  (cons #{tmp 2807}#
                                                        (cons #{tmp 2808}#
                                                              #{tmp 2809}#)))
                                                #{e2* 2781}#
                                                #{e1* 2780}#
                                                #{args* 2779}#)))
                                       (lambda (#{meta* 2811}# #{else* 2812}#)
                                         (values
                                           (append
                                             #{meta 2791}#
                                             #{meta* 2811}#)
                                           (#{build-lambda-case 325}#
                                             #{s 2581}#
                                             #{req 2792}#
                                             #{opt 2793}#
                                             #{rest 2794}#
                                             #{kw 2795}#
                                             #{inits 2796}#
                                             #{vars 2797}#
                                             #{body 2798}#
                                             #{else* 2812}#)))))))))
                           #{tmp 2769}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           #{tmp 2767}#))))))))))
       (#{strip 483}#
         (lambda (#{x 2815}# #{w 2816}#)
           (if (memq 'top (car #{w 2816}#))
             #{x 2815}#
             (letrec*
               ((#{f 2823}#
                  (lambda (#{x 2824}#)
                    (if (#{syntax-object? 343}# #{x 2824}#)
                      (#{strip 483}#
                        (#{syntax-object-expression 345}# #{x 2824}#)
                        (#{syntax-object-wrap 347}# #{x 2824}#))
                      (if (pair? #{x 2824}#)
                        (begin
                          (let ((#{a 2831}# (#{f 2823}# (car #{x 2824}#)))
                                (#{d 2832}# (#{f 2823}# (cdr #{x 2824}#))))
                            (if (if (eq? #{a 2831}# (car #{x 2824}#))
                                  (eq? #{d 2832}# (cdr #{x 2824}#))
                                  #f)
                              #{x 2824}#
                              (cons #{a 2831}# #{d 2832}#))))
                        (if (vector? #{x 2824}#)
                          (begin
                            (let ((#{old 2838}# (vector->list #{x 2824}#)))
                              (begin
                                (let ((#{new 2840}#
                                        (map #{f 2823}# #{old 2838}#)))
                                  (if (#{and-map* 39}#
                                        eq?
                                        #{old 2838}#
                                        #{new 2840}#)
                                    #{x 2824}#
                                    (list->vector #{new 2840}#))))))
                          #{x 2824}#))))))
               (begin (#{f 2823}# #{x 2815}#))))))
       (#{gen-var 485}#
         (lambda (#{id 2842}#)
           (begin
             (let ((#{id 2845}#
                     (if (#{syntax-object? 343}# #{id 2842}#)
                       (#{syntax-object-expression 345}# #{id 2842}#)
                       #{id 2842}#)))
               (gensym
                 (string-append (symbol->string #{id 2845}#) " "))))))
       (#{lambda-var-list 487}#
         (lambda (#{vars 2847}#)
           (letrec*
             ((#{lvl 2853}#
                (lambda (#{vars 2854}# #{ls 2855}# #{w 2856}#)
                  (if (pair? #{vars 2854}#)
                    (#{lvl 2853}#
                      (cdr #{vars 2854}#)
                      (cons (#{wrap 443}# (car #{vars 2854}#) #{w 2856}# #f)
                            #{ls 2855}#)
                      #{w 2856}#)
                    (if (#{id? 377}# #{vars 2854}#)
                      (cons (#{wrap 443}# #{vars 2854}# #{w 2856}# #f)
                            #{ls 2855}#)
                      (if (null? #{vars 2854}#)
                        #{ls 2855}#
                        (if (#{syntax-object? 343}# #{vars 2854}#)
                          (#{lvl 2853}#
                            (#{syntax-object-expression 345}# #{vars 2854}#)
                            #{ls 2855}#
                            (#{join-wraps 425}#
                              #{w 2856}#
                              (#{syntax-object-wrap 347}# #{vars 2854}#)))
                          (cons #{vars 2854}# #{ls 2855}#))))))))
             (begin (#{lvl 2853}# #{vars 2847}# '() '(())))))))
      (begin
        (lambda (#{src 805}# #{name 806}#)
          (make-struct/no-tail
            (vector-ref %expanded-vtables 2)
            #{src 805}#
            #{name 806}#))
        (lambda (#{x 1183}# #{update 1184}#)
          (vector-set! #{x 1183}# 1 #{update 1184}#))
        (lambda (#{x 1187}# #{update 1188}#)
          (vector-set! #{x 1187}# 2 #{update 1188}#))
        (lambda (#{x 1191}# #{update 1192}#)
          (vector-set! #{x 1191}# 3 #{update 1192}#))
        (lambda (#{x 1272}#)
          (if (vector? #{x 1272}#)
            (if (= (vector-length #{x 1272}#) 4)
              (eq? (vector-ref #{x 1272}# 0) 'ribcage)
              #f)
            #f))
        (begin
          (#{global-extend 373}#
            'local-syntax
            'letrec-syntax
            #t)
          (#{global-extend 373}#
            'local-syntax
            'let-syntax
            #f)
          (#{global-extend 373}#
            'core
            'fluid-let-syntax
            (lambda (#{e 2867}#
                     #{r 2868}#
                     #{w 2869}#
                     #{s 2870}#
                     #{mod 2871}#)
              (let ((#{tmp 2877}# #{e 2867}#))
                (let ((#{tmp 2878}#
                        ($sc-dispatch
                          #{tmp 2877}#
                          '(_ #(each (any any)) any . each-any))))
                  (if (if #{tmp 2878}#
                        (@apply
                          (lambda (#{var 2883}#
                                   #{val 2884}#
                                   #{e1 2885}#
                                   #{e2 2886}#)
                            (#{valid-bound-ids? 437}# #{var 2883}#))
                          #{tmp 2878}#)
                        #f)
                    (@apply
                      (lambda (#{var 2892}#
                               #{val 2893}#
                               #{e1 2894}#
                               #{e2 2895}#)
                        (begin
                          (let ((#{names 2897}#
                                  (map (lambda (#{x 2898}#)
                                         (#{id-var-name 431}#
                                           #{x 2898}#
                                           #{w 2869}#))
                                       #{var 2892}#)))
                            (begin
                              (for-each
                                (lambda (#{id 2901}# #{n 2902}#)
                                  (begin
                                    (let ((#{atom-key 2907}#
                                            (car (#{lookup 371}#
                                                   #{n 2902}#
                                                   #{r 2868}#
                                                   #{mod 2871}#))))
                                      (if (eqv? #{atom-key 2907}#
                                                'displaced-lexical)
                                        (syntax-violation
                                          'fluid-let-syntax
                                          "identifier out of context"
                                          #{e 2867}#
                                          (#{source-wrap 445}#
                                            #{id 2901}#
                                            #{w 2869}#
                                            #{s 2870}#
                                            #{mod 2871}#))))))
                                #{var 2892}#
                                #{names 2897}#)
                              (#{chi-body 465}#
                                (cons #{e1 2894}# #{e2 2895}#)
                                (#{source-wrap 445}#
                                  #{e 2867}#
                                  #{w 2869}#
                                  #{s 2870}#
                                  #{mod 2871}#)
                                (#{extend-env 365}#
                                  #{names 2897}#
                                  (begin
                                    (let ((#{trans-r 2913}#
                                            (#{macros-only-env 369}#
                                              #{r 2868}#)))
                                      (map (lambda (#{x 2914}#)
                                             (cons 'macro
                                                   (#{eval-local-transformer 469}#
                                                     (#{chi 457}#
                                                       #{x 2914}#
                                                       #{trans-r 2913}#
                                                       #{w 2869}#
                                                       #{mod 2871}#)
                                                     #{mod 2871}#)))
                                           #{val 2893}#)))
                                  #{r 2868}#)
                                #{w 2869}#
                                #{mod 2871}#)))))
                      #{tmp 2878}#)
                    (let ((#{_ 2919}# #{tmp 2877}#))
                      (syntax-violation
                        'fluid-let-syntax
                        "bad syntax"
                        (#{source-wrap 445}#
                          #{e 2867}#
                          #{w 2869}#
                          #{s 2870}#
                          #{mod 2871}#))))))))
          (#{global-extend 373}#
            'core
            'quote
            (lambda (#{e 2920}#
                     #{r 2921}#
                     #{w 2922}#
                     #{s 2923}#
                     #{mod 2924}#)
              (let ((#{tmp 2930}# #{e 2920}#))
                (let ((#{tmp 2931}#
                        ($sc-dispatch #{tmp 2930}# '(_ any))))
                  (if #{tmp 2931}#
                    (@apply
                      (lambda (#{e 2933}#)
                        (#{build-data 329}#
                          #{s 2923}#
                          (#{strip 483}# #{e 2933}# #{w 2922}#)))
                      #{tmp 2931}#)
                    (let ((#{_ 2935}# #{tmp 2930}#))
                      (syntax-violation
                        'quote
                        "bad syntax"
                        (#{source-wrap 445}#
                          #{e 2920}#
                          #{w 2922}#
                          #{s 2923}#
                          #{mod 2924}#))))))))
          (#{global-extend 373}#
            'core
            'syntax
            (letrec*
              ((#{gen-syntax 2937}#
                 (lambda (#{src 2952}#
                          #{e 2953}#
                          #{r 2954}#
                          #{maps 2955}#
                          #{ellipsis? 2956}#
                          #{mod 2957}#)
                   (if (#{id? 377}# #{e 2953}#)
                     (begin
                       (let ((#{label 2965}#
                               (#{id-var-name 431}# #{e 2953}# '(()))))
                         (begin
                           (let ((#{b 2968}#
                                   (#{lookup 371}#
                                     #{label 2965}#
                                     #{r 2954}#
                                     #{mod 2957}#)))
                             (if (eq? (car #{b 2968}#) 'syntax)
                               (call-with-values
                                 (lambda ()
                                   (begin
                                     (let ((#{var.lev 2971}# (cdr #{b 2968}#)))
                                       (#{gen-ref 2939}#
                                         #{src 2952}#
                                         (car #{var.lev 2971}#)
                                         (cdr #{var.lev 2971}#)
                                         #{maps 2955}#))))
                                 (lambda (#{var 2973}# #{maps 2974}#)
                                   (values
                                     (list 'ref #{var 2973}#)
                                     #{maps 2974}#)))
                               (if (#{ellipsis? 2956}# #{e 2953}#)
                                 (syntax-violation
                                   'syntax
                                   "misplaced ellipsis"
                                   #{src 2952}#)
                                 (values
                                   (list 'quote #{e 2953}#)
                                   #{maps 2955}#)))))))
                     (let ((#{tmp 2979}# #{e 2953}#))
                       (let ((#{tmp 2980}#
                               ($sc-dispatch #{tmp 2979}# '(any any))))
                         (if (if #{tmp 2980}#
                               (@apply
                                 (lambda (#{dots 2983}# #{e 2984}#)
                                   (#{ellipsis? 2956}# #{dots 2983}#))
                                 #{tmp 2980}#)
                               #f)
                           (@apply
                             (lambda (#{dots 2987}# #{e 2988}#)
                               (#{gen-syntax 2937}#
                                 #{src 2952}#
                                 #{e 2988}#
                                 #{r 2954}#
                                 #{maps 2955}#
                                 (lambda (#{x 2989}#) #f)
                                 #{mod 2957}#))
                             #{tmp 2980}#)
                           (let ((#{tmp 2991}#
                                   ($sc-dispatch
                                     #{tmp 2979}#
                                     '(any any . any))))
                             (if (if #{tmp 2991}#
                                   (@apply
                                     (lambda (#{x 2995}#
                                              #{dots 2996}#
                                              #{y 2997}#)
                                       (#{ellipsis? 2956}# #{dots 2996}#))
                                     #{tmp 2991}#)
                                   #f)
                               (@apply
                                 (lambda (#{x 3001}# #{dots 3002}# #{y 3003}#)
                                   (letrec*
                                     ((#{f 3007}#
                                        (lambda (#{y 3008}# #{k 3009}#)
                                          (let ((#{tmp 3016}# #{y 3008}#))
                                            (let ((#{tmp 3017}#
                                                    ($sc-dispatch
                                                      #{tmp 3016}#
                                                      '(any . any))))
                                              (if (if #{tmp 3017}#
                                                    (@apply
                                                      (lambda (#{dots 3020}#
                                                               #{y 3021}#)
                                                        (#{ellipsis? 2956}#
                                                          #{dots 3020}#))
                                                      #{tmp 3017}#)
                                                    #f)
                                                (@apply
                                                  (lambda (#{dots 3024}#
                                                           #{y 3025}#)
                                                    (#{f 3007}#
                                                      #{y 3025}#
                                                      (lambda (#{maps 3026}#)
                                                        (call-with-values
                                                          (lambda ()
                                                            (#{k 3009}#
                                                              (cons '()
                                                                    #{maps 3026}#)))
                                                          (lambda (#{x 3028}#
                                                                   #{maps 3029}#)
                                                            (if (null? (car #{maps 3029}#))
                                                              (syntax-violation
                                                                'syntax
                                                                "extra ellipsis"
                                                                #{src 2952}#)
                                                              (values
                                                                (#{gen-mappend 2941}#
                                                                  #{x 3028}#
                                                                  (car #{maps 3029}#))
                                                                (cdr #{maps 3029}#))))))))
                                                  #{tmp 3017}#)
                                                (let ((#{_ 3033}#
                                                        #{tmp 3016}#))
                                                  (call-with-values
                                                    (lambda ()
                                                      (#{gen-syntax 2937}#
                                                        #{src 2952}#
                                                        #{y 3008}#
                                                        #{r 2954}#
                                                        #{maps 2955}#
                                                        #{ellipsis? 2956}#
                                                        #{mod 2957}#))
                                                    (lambda (#{y 3034}#
                                                             #{maps 3035}#)
                                                      (call-with-values
                                                        (lambda ()
                                                          (#{k 3009}#
                                                            #{maps 3035}#))
                                                        (lambda (#{x 3038}#
                                                                 #{maps 3039}#)
                                                          (values
                                                            (#{gen-append 2947}#
                                                              #{x 3038}#
                                                              #{y 3034}#)
                                                            #{maps 3039}#))))))))))))
                                     (begin
                                       (#{f 3007}#
                                         #{y 3003}#
                                         (lambda (#{maps 3010}#)
                                           (call-with-values
                                             (lambda ()
                                               (#{gen-syntax 2937}#
                                                 #{src 2952}#
                                                 #{x 3001}#
                                                 #{r 2954}#
                                                 (cons '() #{maps 3010}#)
                                                 #{ellipsis? 2956}#
                                                 #{mod 2957}#))
                                             (lambda (#{x 3012}# #{maps 3013}#)
                                               (if (null? (car #{maps 3013}#))
                                                 (syntax-violation
                                                   'syntax
                                                   "extra ellipsis"
                                                   #{src 2952}#)
                                                 (values
                                                   (#{gen-map 2943}#
                                                     #{x 3012}#
                                                     (car #{maps 3013}#))
                                                   (cdr #{maps 3013}#))))))))))
                                 #{tmp 2991}#)
                               (let ((#{tmp 3042}#
                                       ($sc-dispatch
                                         #{tmp 2979}#
                                         '(any . any))))
                                 (if #{tmp 3042}#
                                   (@apply
                                     (lambda (#{x 3045}# #{y 3046}#)
                                       (call-with-values
                                         (lambda ()
                                           (#{gen-syntax 2937}#
                                             #{src 2952}#
                                             #{x 3045}#
                                             #{r 2954}#
                                             #{maps 2955}#
                                             #{ellipsis? 2956}#
                                             #{mod 2957}#))
                                         (lambda (#{x 3047}# #{maps 3048}#)
                                           (call-with-values
                                             (lambda ()
                                               (#{gen-syntax 2937}#
                                                 #{src 2952}#
                                                 #{y 3046}#
                                                 #{r 2954}#
                                                 #{maps 3048}#
                                                 #{ellipsis? 2956}#
                                                 #{mod 2957}#))
                                             (lambda (#{y 3051}# #{maps 3052}#)
                                               (values
                                                 (#{gen-cons 2945}#
                                                   #{x 3047}#
                                                   #{y 3051}#)
                                                 #{maps 3052}#))))))
                                     #{tmp 3042}#)
                                   (let ((#{tmp 3055}#
                                           ($sc-dispatch
                                             #{tmp 2979}#
                                             '#(vector (any . each-any)))))
                                     (if #{tmp 3055}#
                                       (@apply
                                         (lambda (#{e1 3058}# #{e2 3059}#)
                                           (call-with-values
                                             (lambda ()
                                               (#{gen-syntax 2937}#
                                                 #{src 2952}#
                                                 (cons #{e1 3058}# #{e2 3059}#)
                                                 #{r 2954}#
                                                 #{maps 2955}#
                                                 #{ellipsis? 2956}#
                                                 #{mod 2957}#))
                                             (lambda (#{e 3061}# #{maps 3062}#)
                                               (values
                                                 (#{gen-vector 2949}#
                                                   #{e 3061}#)
                                                 #{maps 3062}#))))
                                         #{tmp 3055}#)
                                       (let ((#{_ 3066}# #{tmp 2979}#))
                                         (values
                                           (list 'quote #{e 2953}#)
                                           #{maps 2955}#))))))))))))))
               (#{gen-ref 2939}#
                 (lambda (#{src 3068}#
                          #{var 3069}#
                          #{level 3070}#
                          #{maps 3071}#)
                   (if (= #{level 3070}# 0)
                     (values #{var 3069}# #{maps 3071}#)
                     (if (null? #{maps 3071}#)
                       (syntax-violation
                         'syntax
                         "missing ellipsis"
                         #{src 3068}#)
                       (call-with-values
                         (lambda ()
                           (#{gen-ref 2939}#
                             #{src 3068}#
                             #{var 3069}#
                             (#{1-}# #{level 3070}#)
                             (cdr #{maps 3071}#)))
                         (lambda (#{outer-var 3078}# #{outer-maps 3079}#)
                           (begin
                             (let ((#{b 3083}#
                                     (assq #{outer-var 3078}#
                                           (car #{maps 3071}#))))
                               (if #{b 3083}#
                                 (values (cdr #{b 3083}#) #{maps 3071}#)
                                 (begin
                                   (let ((#{inner-var 3085}#
                                           (#{gen-var 485}# 'tmp)))
                                     (values
                                       #{inner-var 3085}#
                                       (cons (cons (cons #{outer-var 3078}#
                                                         #{inner-var 3085}#)
                                                   (car #{maps 3071}#))
                                             #{outer-maps 3079}#)))))))))))))
               (#{gen-mappend 2941}#
                 (lambda (#{e 3086}# #{map-env 3087}#)
                   (list 'apply
                         '(primitive append)
                         (#{gen-map 2943}# #{e 3086}# #{map-env 3087}#))))
               (#{gen-map 2943}#
                 (lambda (#{e 3091}# #{map-env 3092}#)
                   (begin
                     (let ((#{formals 3097}# (map cdr #{map-env 3092}#))
                           (#{actuals 3098}#
                             (map (lambda (#{x 3099}#)
                                    (list 'ref (car #{x 3099}#)))
                                  #{map-env 3092}#)))
                       (if (eq? (car #{e 3091}#) 'ref)
                         (car #{actuals 3098}#)
                         (if (and-map
                               (lambda (#{x 3106}#)
                                 (if (eq? (car #{x 3106}#) 'ref)
                                   (memq (car (cdr #{x 3106}#))
                                         #{formals 3097}#)
                                   #f))
                               (cdr #{e 3091}#))
                           (cons 'map
                                 (cons (list 'primitive (car #{e 3091}#))
                                       (map (begin
                                              (let ((#{r 3112}#
                                                      (map cons
                                                           #{formals 3097}#
                                                           #{actuals 3098}#)))
                                                (lambda (#{x 3113}#)
                                                  (cdr (assq (car (cdr #{x 3113}#))
                                                             #{r 3112}#)))))
                                            (cdr #{e 3091}#))))
                           (cons 'map
                                 (cons (list 'lambda
                                             #{formals 3097}#
                                             #{e 3091}#)
                                       #{actuals 3098}#))))))))
               (#{gen-cons 2945}#
                 (lambda (#{x 3117}# #{y 3118}#)
                   (begin
                     (let ((#{atom-key 3123}# (car #{y 3118}#)))
                       (if (eqv? #{atom-key 3123}# 'quote)
                         (if (eq? (car #{x 3117}#) 'quote)
                           (list 'quote
                                 (cons (car (cdr #{x 3117}#))
                                       (car (cdr #{y 3118}#))))
                           (if (eq? (car (cdr #{y 3118}#)) '())
                             (list 'list #{x 3117}#)
                             (list 'cons #{x 3117}# #{y 3118}#)))
                         (if (eqv? #{atom-key 3123}# 'list)
                           (cons 'list (cons #{x 3117}# (cdr #{y 3118}#)))
                           (list 'cons #{x 3117}# #{y 3118}#)))))))
               (#{gen-append 2947}#
                 (lambda (#{x 3132}# #{y 3133}#)
                   (if (equal? #{y 3133}# ''())
                     #{x 3132}#
                     (list 'append #{x 3132}# #{y 3133}#))))
               (#{gen-vector 2949}#
                 (lambda (#{x 3137}#)
                   (if (eq? (car #{x 3137}#) 'list)
                     (cons 'vector (cdr #{x 3137}#))
                     (if (eq? (car #{x 3137}#) 'quote)
                       (list 'quote
                             (list->vector (car (cdr #{x 3137}#))))
                       (list 'list->vector #{x 3137}#)))))
               (#{regen 2951}#
                 (lambda (#{x 3147}#)
                   (begin
                     (let ((#{atom-key 3151}# (car #{x 3147}#)))
                       (if (eqv? #{atom-key 3151}# 'ref)
                         (#{build-lexical-reference 309}#
                           'value
                           #f
                           (car (cdr #{x 3147}#))
                           (car (cdr #{x 3147}#)))
                         (if (eqv? #{atom-key 3151}# 'primitive)
                           (#{build-primref 327}# #f (car (cdr #{x 3147}#)))
                           (if (eqv? #{atom-key 3151}# 'quote)
                             (#{build-data 329}# #f (car (cdr #{x 3147}#)))
                             (if (eqv? #{atom-key 3151}# 'lambda)
                               (if (list? (car (cdr #{x 3147}#)))
                                 (#{build-simple-lambda 321}#
                                   #f
                                   (car (cdr #{x 3147}#))
                                   #f
                                   (car (cdr #{x 3147}#))
                                   '()
                                   (#{regen 2951}#
                                     (car (cdr (cdr #{x 3147}#)))))
                                 (error "how did we get here" #{x 3147}#))
                               (#{build-application 303}#
                                 #f
                                 (#{build-primref 327}# #f (car #{x 3147}#))
                                 (map #{regen 2951}#
                                      (cdr #{x 3147}#))))))))))))
              (begin
                (lambda (#{e 3163}#
                         #{r 3164}#
                         #{w 3165}#
                         #{s 3166}#
                         #{mod 3167}#)
                  (begin
                    (let ((#{e 3174}#
                            (#{source-wrap 445}#
                              #{e 3163}#
                              #{w 3165}#
                              #{s 3166}#
                              #{mod 3167}#)))
                      (let ((#{tmp 3175}# #{e 3174}#))
                        (let ((#{tmp 3176}#
                                ($sc-dispatch #{tmp 3175}# '(_ any))))
                          (if #{tmp 3176}#
                            (@apply
                              (lambda (#{x 3178}#)
                                (call-with-values
                                  (lambda ()
                                    (#{gen-syntax 2937}#
                                      #{e 3174}#
                                      #{x 3178}#
                                      #{r 3164}#
                                      '()
                                      #{ellipsis? 473}#
                                      #{mod 3167}#))
                                  (lambda (#{e 3179}# #{maps 3180}#)
                                    (#{regen 2951}# #{e 3179}#))))
                              #{tmp 3176}#)
                            (let ((#{_ 3184}# #{tmp 3175}#))
                              (syntax-violation
                                'syntax
                                "bad `syntax' form"
                                #{e 3174}#)))))))))))
          (#{global-extend 373}#
            'core
            'lambda
            (lambda (#{e 3185}#
                     #{r 3186}#
                     #{w 3187}#
                     #{s 3188}#
                     #{mod 3189}#)
              (let ((#{tmp 3195}# #{e 3185}#))
                (let ((#{tmp 3196}#
                        ($sc-dispatch
                          #{tmp 3195}#
                          '(_ any any . each-any))))
                  (if #{tmp 3196}#
                    (@apply
                      (lambda (#{args 3200}# #{e1 3201}# #{e2 3202}#)
                        (call-with-values
                          (lambda ()
                            (#{lambda-formals 475}# #{args 3200}#))
                          (lambda (#{req 3203}#
                                   #{opt 3204}#
                                   #{rest 3205}#
                                   #{kw 3206}#)
                            (letrec*
                              ((#{lp 3214}#
                                 (lambda (#{body 3215}# #{meta 3216}#)
                                   (let ((#{tmp 3218}# #{body 3215}#))
                                     (let ((#{tmp 3219}#
                                             ($sc-dispatch
                                               #{tmp 3218}#
                                               '(any any . each-any))))
                                       (if (if #{tmp 3219}#
                                             (@apply
                                               (lambda (#{docstring 3223}#
                                                        #{e1 3224}#
                                                        #{e2 3225}#)
                                                 (string?
                                                   (syntax->datum
                                                     #{docstring 3223}#)))
                                               #{tmp 3219}#)
                                             #f)
                                         (@apply
                                           (lambda (#{docstring 3229}#
                                                    #{e1 3230}#
                                                    #{e2 3231}#)
                                             (#{lp 3214}#
                                               (cons #{e1 3230}# #{e2 3231}#)
                                               (append
                                                 #{meta 3216}#
                                                 (list (cons 'documentation
                                                             (syntax->datum
                                                               #{docstring 3229}#))))))
                                           #{tmp 3219}#)
                                         (let ((#{tmp 3234}#
                                                 ($sc-dispatch
                                                   #{tmp 3218}#
                                                   '(#(vector
                                                       #(each (any . any)))
                                                     any
                                                     .
                                                     each-any))))
                                           (if #{tmp 3234}#
                                             (@apply
                                               (lambda (#{k 3239}#
                                                        #{v 3240}#
                                                        #{e1 3241}#
                                                        #{e2 3242}#)
                                                 (#{lp 3214}#
                                                   (cons #{e1 3241}#
                                                         #{e2 3242}#)
                                                   (append
                                                     #{meta 3216}#
                                                     (syntax->datum
                                                       (map cons
                                                            #{k 3239}#
                                                            #{v 3240}#)))))
                                               #{tmp 3234}#)
                                             (let ((#{_ 3247}# #{tmp 3218}#))
                                               (#{chi-simple-lambda 477}#
                                                 #{e 3185}#
                                                 #{r 3186}#
                                                 #{w 3187}#
                                                 #{s 3188}#
                                                 #{mod 3189}#
                                                 #{req 3203}#
                                                 #{rest 3205}#
                                                 #{meta 3216}#
                                                 #{body 3215}#))))))))))
                              (begin
                                (#{lp 3214}#
                                  (cons #{e1 3201}# #{e2 3202}#)
                                  '()))))))
                      #{tmp 3196}#)
                    (let ((#{_ 3249}# #{tmp 3195}#))
                      (syntax-violation
                        'lambda
                        "bad lambda"
                        #{e 3185}#)))))))
          (#{global-extend 373}#
            'core
            'lambda*
            (lambda (#{e 3250}#
                     #{r 3251}#
                     #{w 3252}#
                     #{s 3253}#
                     #{mod 3254}#)
              (let ((#{tmp 3260}# #{e 3250}#))
                (let ((#{tmp 3261}#
                        ($sc-dispatch
                          #{tmp 3260}#
                          '(_ any any . each-any))))
                  (if #{tmp 3261}#
                    (@apply
                      (lambda (#{args 3265}# #{e1 3266}# #{e2 3267}#)
                        (call-with-values
                          (lambda ()
                            (#{chi-lambda-case 481}#
                              #{e 3250}#
                              #{r 3251}#
                              #{w 3252}#
                              #{s 3253}#
                              #{mod 3254}#
                              #{lambda*-formals 479}#
                              (list (cons #{args 3265}#
                                          (cons #{e1 3266}# #{e2 3267}#)))))
                          (lambda (#{meta 3269}# #{lcase 3270}#)
                            (#{build-case-lambda 323}#
                              #{s 3253}#
                              #{meta 3269}#
                              #{lcase 3270}#))))
                      #{tmp 3261}#)
                    (let ((#{_ 3274}# #{tmp 3260}#))
                      (syntax-violation
                        'lambda
                        "bad lambda*"
                        #{e 3250}#)))))))
          (#{global-extend 373}#
            'core
            'case-lambda
            (lambda (#{e 3275}#
                     #{r 3276}#
                     #{w 3277}#
                     #{s 3278}#
                     #{mod 3279}#)
              (let ((#{tmp 3285}# #{e 3275}#))
                (let ((#{tmp 3286}#
                        ($sc-dispatch
                          #{tmp 3285}#
                          '(_ (any any . each-any)
                              .
                              #(each (any any . each-any))))))
                  (if #{tmp 3286}#
                    (@apply
                      (lambda (#{args 3293}#
                               #{e1 3294}#
                               #{e2 3295}#
                               #{args* 3296}#
                               #{e1* 3297}#
                               #{e2* 3298}#)
                        (call-with-values
                          (lambda ()
                            (#{chi-lambda-case 481}#
                              #{e 3275}#
                              #{r 3276}#
                              #{w 3277}#
                              #{s 3278}#
                              #{mod 3279}#
                              #{lambda-formals 475}#
                              (cons (cons #{args 3293}#
                                          (cons #{e1 3294}# #{e2 3295}#))
                                    (map (lambda (#{tmp 3302}#
                                                  #{tmp 3301}#
                                                  #{tmp 3300}#)
                                           (cons #{tmp 3300}#
                                                 (cons #{tmp 3301}#
                                                       #{tmp 3302}#)))
                                         #{e2* 3298}#
                                         #{e1* 3297}#
                                         #{args* 3296}#))))
                          (lambda (#{meta 3304}# #{lcase 3305}#)
                            (#{build-case-lambda 323}#
                              #{s 3278}#
                              #{meta 3304}#
                              #{lcase 3305}#))))
                      #{tmp 3286}#)
                    (let ((#{_ 3309}# #{tmp 3285}#))
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda"
                        #{e 3275}#)))))))
          (#{global-extend 373}#
            'core
            'case-lambda*
            (lambda (#{e 3310}#
                     #{r 3311}#
                     #{w 3312}#
                     #{s 3313}#
                     #{mod 3314}#)
              (let ((#{tmp 3320}# #{e 3310}#))
                (let ((#{tmp 3321}#
                        ($sc-dispatch
                          #{tmp 3320}#
                          '(_ (any any . each-any)
                              .
                              #(each (any any . each-any))))))
                  (if #{tmp 3321}#
                    (@apply
                      (lambda (#{args 3328}#
                               #{e1 3329}#
                               #{e2 3330}#
                               #{args* 3331}#
                               #{e1* 3332}#
                               #{e2* 3333}#)
                        (call-with-values
                          (lambda ()
                            (#{chi-lambda-case 481}#
                              #{e 3310}#
                              #{r 3311}#
                              #{w 3312}#
                              #{s 3313}#
                              #{mod 3314}#
                              #{lambda*-formals 479}#
                              (cons (cons #{args 3328}#
                                          (cons #{e1 3329}# #{e2 3330}#))
                                    (map (lambda (#{tmp 3337}#
                                                  #{tmp 3336}#
                                                  #{tmp 3335}#)
                                           (cons #{tmp 3335}#
                                                 (cons #{tmp 3336}#
                                                       #{tmp 3337}#)))
                                         #{e2* 3333}#
                                         #{e1* 3332}#
                                         #{args* 3331}#))))
                          (lambda (#{meta 3339}# #{lcase 3340}#)
                            (#{build-case-lambda 323}#
                              #{s 3313}#
                              #{meta 3339}#
                              #{lcase 3340}#))))
                      #{tmp 3321}#)
                    (let ((#{_ 3344}# #{tmp 3320}#))
                      (syntax-violation
                        'case-lambda
                        "bad case-lambda*"
                        #{e 3310}#)))))))
          (#{global-extend 373}#
            'core
            'let
            (letrec*
              ((#{chi-let 3346}#
                 (lambda (#{e 3347}#
                          #{r 3348}#
                          #{w 3349}#
                          #{s 3350}#
                          #{mod 3351}#
                          #{constructor 3352}#
                          #{ids 3353}#
                          #{vals 3354}#
                          #{exps 3355}#)
                   (if (not (#{valid-bound-ids? 437}# #{ids 3353}#))
                     (syntax-violation
                       'let
                       "duplicate bound variable"
                       #{e 3347}#)
                     (begin
                       (let ((#{labels 3367}#
                               (#{gen-labels 392}# #{ids 3353}#))
                             (#{new-vars 3368}#
                               (map #{gen-var 485}# #{ids 3353}#)))
                         (begin
                           (let ((#{nw 3371}#
                                   (#{make-binding-wrap 421}#
                                     #{ids 3353}#
                                     #{labels 3367}#
                                     #{w 3349}#))
                                 (#{nr 3372}#
                                   (#{extend-var-env 367}#
                                     #{labels 3367}#
                                     #{new-vars 3368}#
                                     #{r 3348}#)))
                             (#{constructor 3352}#
                               #{s 3350}#
                               (map syntax->datum #{ids 3353}#)
                               #{new-vars 3368}#
                               (map (lambda (#{x 3373}#)
                                      (#{chi 457}#
                                        #{x 3373}#
                                        #{r 3348}#
                                        #{w 3349}#
                                        #{mod 3351}#))
                                    #{vals 3354}#)
                               (#{chi-body 465}#
                                 #{exps 3355}#
                                 (#{source-wrap 445}#
                                   #{e 3347}#
                                   #{nw 3371}#
                                   #{s 3350}#
                                   #{mod 3351}#)
                                 #{nr 3372}#
                                 #{nw 3371}#
                                 #{mod 3351}#))))))))))
              (begin
                (lambda (#{e 3375}#
                         #{r 3376}#
                         #{w 3377}#
                         #{s 3378}#
                         #{mod 3379}#)
                  (let ((#{tmp 3385}# #{e 3375}#))
                    (let ((#{tmp 3386}#
                            ($sc-dispatch
                              #{tmp 3385}#
                              '(_ #(each (any any)) any . each-any))))
                      (if (if #{tmp 3386}#
                            (@apply
                              (lambda (#{id 3391}#
                                       #{val 3392}#
                                       #{e1 3393}#
                                       #{e2 3394}#)
                                (and-map #{id? 377}# #{id 3391}#))
                              #{tmp 3386}#)
                            #f)
                        (@apply
                          (lambda (#{id 3400}#
                                   #{val 3401}#
                                   #{e1 3402}#
                                   #{e2 3403}#)
                            (#{chi-let 3346}#
                              #{e 3375}#
                              #{r 3376}#
                              #{w 3377}#
                              #{s 3378}#
                              #{mod 3379}#
                              #{build-let 333}#
                              #{id 3400}#
                              #{val 3401}#
                              (cons #{e1 3402}# #{e2 3403}#)))
                          #{tmp 3386}#)
                        (let ((#{tmp 3407}#
                                ($sc-dispatch
                                  #{tmp 3385}#
                                  '(_ any #(each (any any)) any . each-any))))
                          (if (if #{tmp 3407}#
                                (@apply
                                  (lambda (#{f 3413}#
                                           #{id 3414}#
                                           #{val 3415}#
                                           #{e1 3416}#
                                           #{e2 3417}#)
                                    (if (#{id? 377}# #{f 3413}#)
                                      (and-map #{id? 377}# #{id 3414}#)
                                      #f))
                                  #{tmp 3407}#)
                                #f)
                            (@apply
                              (lambda (#{f 3426}#
                                       #{id 3427}#
                                       #{val 3428}#
                                       #{e1 3429}#
                                       #{e2 3430}#)
                                (#{chi-let 3346}#
                                  #{e 3375}#
                                  #{r 3376}#
                                  #{w 3377}#
                                  #{s 3378}#
                                  #{mod 3379}#
                                  #{build-named-let 335}#
                                  (cons #{f 3426}# #{id 3427}#)
                                  #{val 3428}#
                                  (cons #{e1 3429}# #{e2 3430}#)))
                              #{tmp 3407}#)
                            (let ((#{_ 3435}# #{tmp 3385}#))
                              (syntax-violation
                                'let
                                "bad let"
                                (#{source-wrap 445}#
                                  #{e 3375}#
                                  #{w 3377}#
                                  #{s 3378}#
                                  #{mod 3379}#))))))))))))
          (#{global-extend 373}#
            'core
            'letrec
            (lambda (#{e 3436}#
                     #{r 3437}#
                     #{w 3438}#
                     #{s 3439}#
                     #{mod 3440}#)
              (let ((#{tmp 3446}# #{e 3436}#))
                (let ((#{tmp 3447}#
                        ($sc-dispatch
                          #{tmp 3446}#
                          '(_ #(each (any any)) any . each-any))))
                  (if (if #{tmp 3447}#
                        (@apply
                          (lambda (#{id 3452}#
                                   #{val 3453}#
                                   #{e1 3454}#
                                   #{e2 3455}#)
                            (and-map #{id? 377}# #{id 3452}#))
                          #{tmp 3447}#)
                        #f)
                    (@apply
                      (lambda (#{id 3461}#
                               #{val 3462}#
                               #{e1 3463}#
                               #{e2 3464}#)
                        (begin
                          (let ((#{ids 3466}# #{id 3461}#))
                            (if (not (#{valid-bound-ids? 437}# #{ids 3466}#))
                              (syntax-violation
                                'letrec
                                "duplicate bound variable"
                                #{e 3436}#)
                              (begin
                                (let ((#{labels 3470}#
                                        (#{gen-labels 392}# #{ids 3466}#))
                                      (#{new-vars 3471}#
                                        (map #{gen-var 485}# #{ids 3466}#)))
                                  (begin
                                    (let ((#{w 3474}#
                                            (#{make-binding-wrap 421}#
                                              #{ids 3466}#
                                              #{labels 3470}#
                                              #{w 3438}#))
                                          (#{r 3475}#
                                            (#{extend-var-env 367}#
                                              #{labels 3470}#
                                              #{new-vars 3471}#
                                              #{r 3437}#)))
                                      (#{build-letrec 337}#
                                        #{s 3439}#
                                        #f
                                        (map syntax->datum #{ids 3466}#)
                                        #{new-vars 3471}#
                                        (map (lambda (#{x 3476}#)
                                               (#{chi 457}#
                                                 #{x 3476}#
                                                 #{r 3475}#
                                                 #{w 3474}#
                                                 #{mod 3440}#))
                                             #{val 3462}#)
                                        (#{chi-body 465}#
                                          (cons #{e1 3463}# #{e2 3464}#)
                                          (#{source-wrap 445}#
                                            #{e 3436}#
                                            #{w 3474}#
                                            #{s 3439}#
                                            #{mod 3440}#)
                                          #{r 3475}#
                                          #{w 3474}#
                                          #{mod 3440}#))))))))))
                      #{tmp 3447}#)
                    (let ((#{_ 3481}# #{tmp 3446}#))
                      (syntax-violation
                        'letrec
                        "bad letrec"
                        (#{source-wrap 445}#
                          #{e 3436}#
                          #{w 3438}#
                          #{s 3439}#
                          #{mod 3440}#))))))))
          (#{global-extend 373}#
            'core
            'letrec*
            (lambda (#{e 3482}#
                     #{r 3483}#
                     #{w 3484}#
                     #{s 3485}#
                     #{mod 3486}#)
              (let ((#{tmp 3492}# #{e 3482}#))
                (let ((#{tmp 3493}#
                        ($sc-dispatch
                          #{tmp 3492}#
                          '(_ #(each (any any)) any . each-any))))
                  (if (if #{tmp 3493}#
                        (@apply
                          (lambda (#{id 3498}#
                                   #{val 3499}#
                                   #{e1 3500}#
                                   #{e2 3501}#)
                            (and-map #{id? 377}# #{id 3498}#))
                          #{tmp 3493}#)
                        #f)
                    (@apply
                      (lambda (#{id 3507}#
                               #{val 3508}#
                               #{e1 3509}#
                               #{e2 3510}#)
                        (begin
                          (let ((#{ids 3512}# #{id 3507}#))
                            (if (not (#{valid-bound-ids? 437}# #{ids 3512}#))
                              (syntax-violation
                                'letrec*
                                "duplicate bound variable"
                                #{e 3482}#)
                              (begin
                                (let ((#{labels 3516}#
                                        (#{gen-labels 392}# #{ids 3512}#))
                                      (#{new-vars 3517}#
                                        (map #{gen-var 485}# #{ids 3512}#)))
                                  (begin
                                    (let ((#{w 3520}#
                                            (#{make-binding-wrap 421}#
                                              #{ids 3512}#
                                              #{labels 3516}#
                                              #{w 3484}#))
                                          (#{r 3521}#
                                            (#{extend-var-env 367}#
                                              #{labels 3516}#
                                              #{new-vars 3517}#
                                              #{r 3483}#)))
                                      (#{build-letrec 337}#
                                        #{s 3485}#
                                        #t
                                        (map syntax->datum #{ids 3512}#)
                                        #{new-vars 3517}#
                                        (map (lambda (#{x 3522}#)
                                               (#{chi 457}#
                                                 #{x 3522}#
                                                 #{r 3521}#
                                                 #{w 3520}#
                                                 #{mod 3486}#))
                                             #{val 3508}#)
                                        (#{chi-body 465}#
                                          (cons #{e1 3509}# #{e2 3510}#)
                                          (#{source-wrap 445}#
                                            #{e 3482}#
                                            #{w 3520}#
                                            #{s 3485}#
                                            #{mod 3486}#)
                                          #{r 3521}#
                                          #{w 3520}#
                                          #{mod 3486}#))))))))))
                      #{tmp 3493}#)
                    (let ((#{_ 3527}# #{tmp 3492}#))
                      (syntax-violation
                        'letrec*
                        "bad letrec*"
                        (#{source-wrap 445}#
                          #{e 3482}#
                          #{w 3484}#
                          #{s 3485}#
                          #{mod 3486}#))))))))
          (#{global-extend 373}#
            'core
            'set!
            (lambda (#{e 3528}#
                     #{r 3529}#
                     #{w 3530}#
                     #{s 3531}#
                     #{mod 3532}#)
              (let ((#{tmp 3538}# #{e 3528}#))
                (let ((#{tmp 3539}#
                        ($sc-dispatch #{tmp 3538}# '(_ any any))))
                  (if (if #{tmp 3539}#
                        (@apply
                          (lambda (#{id 3542}# #{val 3543}#)
                            (#{id? 377}# #{id 3542}#))
                          #{tmp 3539}#)
                        #f)
                    (@apply
                      (lambda (#{id 3546}# #{val 3547}#)
                        (begin
                          (let ((#{n 3550}#
                                  (#{id-var-name 431}# #{id 3546}# #{w 3530}#))
                                (#{id-mod 3551}#
                                  (if (#{syntax-object? 343}# #{id 3546}#)
                                    (#{syntax-object-module 349}# #{id 3546}#)
                                    #{mod 3532}#)))
                            (begin
                              (let ((#{b 3553}#
                                      (#{lookup 371}#
                                        #{n 3550}#
                                        #{r 3529}#
                                        #{id-mod 3551}#)))
                                (begin
                                  (let ((#{atom-key 3556}# (car #{b 3553}#)))
                                    (if (eqv? #{atom-key 3556}# 'lexical)
                                      (#{build-lexical-assignment 311}#
                                        #{s 3531}#
                                        (syntax->datum #{id 3546}#)
                                        (cdr #{b 3553}#)
                                        (#{chi 457}#
                                          #{val 3547}#
                                          #{r 3529}#
                                          #{w 3530}#
                                          #{mod 3532}#))
                                      (if (eqv? #{atom-key 3556}# 'global)
                                        (#{build-global-assignment 317}#
                                          #{s 3531}#
                                          #{n 3550}#
                                          (#{chi 457}#
                                            #{val 3547}#
                                            #{r 3529}#
                                            #{w 3530}#
                                            #{mod 3532}#)
                                          #{id-mod 3551}#)
                                        (if (eqv? #{atom-key 3556}# 'macro)
                                          (begin
                                            (let ((#{p 3563}#
                                                    (cdr #{b 3553}#)))
                                              (if (procedure-property
                                                    #{p 3563}#
                                                    'variable-transformer)
                                                (#{chi 457}#
                                                  (#{chi-macro 463}#
                                                    #{p 3563}#
                                                    #{e 3528}#
                                                    #{r 3529}#
                                                    #{w 3530}#
                                                    #{s 3531}#
                                                    #f
                                                    #{mod 3532}#)
                                                  #{r 3529}#
                                                  '(())
                                                  #{mod 3532}#)
                                                (syntax-violation
                                                  'set!
                                                  "not a variable transformer"
                                                  (#{wrap 443}#
                                                    #{e 3528}#
                                                    #{w 3530}#
                                                    #{mod 3532}#)
                                                  (#{wrap 443}#
                                                    #{id 3546}#
                                                    #{w 3530}#
                                                    #{id-mod 3551}#)))))
                                          (if (eqv? #{atom-key 3556}#
                                                    'displaced-lexical)
                                            (syntax-violation
                                              'set!
                                              "identifier out of context"
                                              (#{wrap 443}#
                                                #{id 3546}#
                                                #{w 3530}#
                                                #{mod 3532}#))
                                            (syntax-violation
                                              'set!
                                              "bad set!"
                                              (#{source-wrap 445}#
                                                #{e 3528}#
                                                #{w 3530}#
                                                #{s 3531}#
                                                #{mod 3532}#)))))))))))))
                      #{tmp 3539}#)
                    (let ((#{tmp 3568}#
                            ($sc-dispatch
                              #{tmp 3538}#
                              '(_ (any . each-any) any))))
                      (if #{tmp 3568}#
                        (@apply
                          (lambda (#{head 3572}# #{tail 3573}# #{val 3574}#)
                            (call-with-values
                              (lambda ()
                                (#{syntax-type 455}#
                                  #{head 3572}#
                                  #{r 3529}#
                                  '(())
                                  #f
                                  #f
                                  #{mod 3532}#
                                  #t))
                              (lambda (#{type 3577}#
                                       #{value 3578}#
                                       #{ee 3579}#
                                       #{ww 3580}#
                                       #{ss 3581}#
                                       #{modmod 3582}#)
                                (if (eqv? #{type 3577}# 'module-ref)
                                  (begin
                                    (let ((#{val 3591}#
                                            (#{chi 457}#
                                              #{val 3574}#
                                              #{r 3529}#
                                              #{w 3530}#
                                              #{mod 3532}#)))
                                      (call-with-values
                                        (lambda ()
                                          (#{value 3578}#
                                            (cons #{head 3572}# #{tail 3573}#)
                                            #{r 3529}#
                                            #{w 3530}#))
                                        (lambda (#{e 3593}#
                                                 #{r 3594}#
                                                 #{w 3595}#
                                                 #{s* 3596}#
                                                 #{mod 3597}#)
                                          (let ((#{tmp 3603}# #{e 3593}#))
                                            (let ((#{tmp 3604}#
                                                    (list #{tmp 3603}#)))
                                              (if (if #{tmp 3604}#
                                                    (@apply
                                                      (lambda (#{e 3606}#)
                                                        (#{id? 377}#
                                                          #{e 3606}#))
                                                      #{tmp 3604}#)
                                                    #f)
                                                (@apply
                                                  (lambda (#{e 3608}#)
                                                    (#{build-global-assignment 317}#
                                                      #{s 3531}#
                                                      (syntax->datum
                                                        #{e 3608}#)
                                                      #{val 3591}#
                                                      #{mod 3597}#))
                                                  #{tmp 3604}#)
                                                (syntax-violation
                                                  #f
                                                  "source expression failed to match any pattern"
                                                  #{tmp 3603}#))))))))
                                  (#{build-application 303}#
                                    #{s 3531}#
                                    (#{chi 457}#
                                      (list '#(syntax-object
                                               setter
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(type value ee ww ss modmod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("i3583"
                                                    "i3584"
                                                    "i3585"
                                                    "i3586"
                                                    "i3587"
                                                    "i3588"))
                                                #(ribcage
                                                  #(head tail val)
                                                  #((top) (top) (top))
                                                  #("i3569" "i3570" "i3571"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(e r w s mod)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("i3533"
                                                    "i3534"
                                                    "i3535"
                                                    "i3536"
                                                    "i3537"))
                                                #(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))
                                                  ("i486"
                                                   "i484"
                                                   "i482"
                                                   "i480"
                                                   "i478"
                                                   "i476"
                                                   "i474"
                                                   "i472"
                                                   "i470"
                                                   "i468"
                                                   "i466"
                                                   "i464"
                                                   "i462"
                                                   "i460"
                                                   "i458"
                                                   "i456"
                                                   "i454"
                                                   "i452"
                                                   "i450"
                                                   "i448"
                                                   "i446"
                                                   "i444"
                                                   "i442"
                                                   "i440"
                                                   "i438"
                                                   "i436"
                                                   "i434"
                                                   "i432"
                                                   "i430"
                                                   "i428"
                                                   "i426"
                                                   "i424"
                                                   "i422"
                                                   "i420"
                                                   "i418"
                                                   "i417"
                                                   "i416"
                                                   "i414"
                                                   "i413"
                                                   "i412"
                                                   "i411"
                                                   "i410"
                                                   "i408"
                                                   "i406"
                                                   "i404"
                                                   "i402"
                                                   "i400"
                                                   "i398"
                                                   "i396"
                                                   "i394"
                                                   "i391"
                                                   "i389"
                                                   "i388"
                                                   "i387"
                                                   "i386"
                                                   "i385"
                                                   "i384"
                                                   "i383"
                                                   "i382"
                                                   "i381"
                                                   "i379"
                                                   "i378"
                                                   "i376"
                                                   "i374"
                                                   "i372"
                                                   "i370"
                                                   "i368"
                                                   "i366"
                                                   "i364"
                                                   "i363"
                                                   "i362"
                                                   "i361"
                                                   "i360"
                                                   "i359"
                                                   "i357"
                                                   "i356"
                                                   "i354"
                                                   "i352"
                                                   "i350"
                                                   "i348"
                                                   "i346"
                                                   "i344"
                                                   "i342"
                                                   "i340"
                                                   "i338"
                                                   "i336"
                                                   "i334"
                                                   "i332"
                                                   "i330"
                                                   "i328"
                                                   "i326"
                                                   "i324"
                                                   "i322"
                                                   "i320"
                                                   "i318"
                                                   "i316"
                                                   "i314"
                                                   "i312"
                                                   "i310"
                                                   "i308"
                                                   "i306"
                                                   "i304"
                                                   "i302"
                                                   "i300"
                                                   "i298"
                                                   "i296"
                                                   "i294"
                                                   "i292"
                                                   "i291"
                                                   "i289"
                                                   "i287"
                                                   "i286"
                                                   "i285"
                                                   "i284"
                                                   "i283"
                                                   "i281"
                                                   "i279"
                                                   "i277"
                                                   "i274"
                                                   "i272"
                                                   "i270"
                                                   "i268"
                                                   "i266"
                                                   "i264"
                                                   "i262"
                                                   "i260"
                                                   "i258"
                                                   "i256"
                                                   "i254"
                                                   "i252"
                                                   "i250"
                                                   "i248"
                                                   "i246"
                                                   "i244"
                                                   "i242"
                                                   "i240"))
                                                #(ribcage
                                                  (define-structure
                                                    define-expansion-accessors
                                                    define-expansion-constructors
                                                    and-map*)
                                                  ((top) (top) (top) (top))
                                                  ("i42" "i41" "i40" "i38")))
                                               (hygiene guile))
                                            #{head 3572}#)
                                      #{r 3529}#
                                      #{w 3530}#
                                      #{mod 3532}#)
                                    (map (lambda (#{e 3610}#)
                                           (#{chi 457}#
                                             #{e 3610}#
                                             #{r 3529}#
                                             #{w 3530}#
                                             #{mod 3532}#))
                                         (append
                                           #{tail 3573}#
                                           (list #{val 3574}#))))))))
                          #{tmp 3568}#)
                        (let ((#{_ 3614}# #{tmp 3538}#))
                          (syntax-violation
                            'set!
                            "bad set!"
                            (#{source-wrap 445}#
                              #{e 3528}#
                              #{w 3530}#
                              #{s 3531}#
                              #{mod 3532}#))))))))))
          (#{global-extend 373}#
            'module-ref
            '@
            (lambda (#{e 3615}# #{r 3616}# #{w 3617}#)
              (let ((#{tmp 3621}# #{e 3615}#))
                (let ((#{tmp 3622}#
                        ($sc-dispatch #{tmp 3621}# '(_ each-any any))))
                  (if (if #{tmp 3622}#
                        (@apply
                          (lambda (#{mod 3625}# #{id 3626}#)
                            (if (and-map #{id? 377}# #{mod 3625}#)
                              (#{id? 377}# #{id 3626}#)
                              #f))
                          #{tmp 3622}#)
                        #f)
                    (@apply
                      (lambda (#{mod 3632}# #{id 3633}#)
                        (values
                          (syntax->datum #{id 3633}#)
                          #{r 3616}#
                          #{w 3617}#
                          #f
                          (syntax->datum
                            (cons '#(syntax-object
                                     public
                                     ((top)
                                      #(ribcage
                                        #(mod id)
                                        #((top) (top))
                                        #("i3630" "i3631"))
                                      #(ribcage () () ())
                                      #(ribcage
                                        #(e r w)
                                        #((top) (top) (top))
                                        #("i3618" "i3619" "i3620"))
                                      #(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))
                                        ("i486"
                                         "i484"
                                         "i482"
                                         "i480"
                                         "i478"
                                         "i476"
                                         "i474"
                                         "i472"
                                         "i470"
                                         "i468"
                                         "i466"
                                         "i464"
                                         "i462"
                                         "i460"
                                         "i458"
                                         "i456"
                                         "i454"
                                         "i452"
                                         "i450"
                                         "i448"
                                         "i446"
                                         "i444"
                                         "i442"
                                         "i440"
                                         "i438"
                                         "i436"
                                         "i434"
                                         "i432"
                                         "i430"
                                         "i428"
                                         "i426"
                                         "i424"
                                         "i422"
                                         "i420"
                                         "i418"
                                         "i417"
                                         "i416"
                                         "i414"
                                         "i413"
                                         "i412"
                                         "i411"
                                         "i410"
                                         "i408"
                                         "i406"
                                         "i404"
                                         "i402"
                                         "i400"
                                         "i398"
                                         "i396"
                                         "i394"
                                         "i391"
                                         "i389"
                                         "i388"
                                         "i387"
                                         "i386"
                                         "i385"
                                         "i384"
                                         "i383"
                                         "i382"
                                         "i381"
                                         "i379"
                                         "i378"
                                         "i376"
                                         "i374"
                                         "i372"
                                         "i370"
                                         "i368"
                                         "i366"
                                         "i364"
                                         "i363"
                                         "i362"
                                         "i361"
                                         "i360"
                                         "i359"
                                         "i357"
                                         "i356"
                                         "i354"
                                         "i352"
                                         "i350"
                                         "i348"
                                         "i346"
                                         "i344"
                                         "i342"
                                         "i340"
                                         "i338"
                                         "i336"
                                         "i334"
                                         "i332"
                                         "i330"
                                         "i328"
                                         "i326"
                                         "i324"
                                         "i322"
                                         "i320"
                                         "i318"
                                         "i316"
                                         "i314"
                                         "i312"
                                         "i310"
                                         "i308"
                                         "i306"
                                         "i304"
                                         "i302"
                                         "i300"
                                         "i298"
                                         "i296"
                                         "i294"
                                         "i292"
                                         "i291"
                                         "i289"
                                         "i287"
                                         "i286"
                                         "i285"
                                         "i284"
                                         "i283"
                                         "i281"
                                         "i279"
                                         "i277"
                                         "i274"
                                         "i272"
                                         "i270"
                                         "i268"
                                         "i266"
                                         "i264"
                                         "i262"
                                         "i260"
                                         "i258"
                                         "i256"
                                         "i254"
                                         "i252"
                                         "i250"
                                         "i248"
                                         "i246"
                                         "i244"
                                         "i242"
                                         "i240"))
                                      #(ribcage
                                        (define-structure
                                          define-expansion-accessors
                                          define-expansion-constructors
                                          and-map*)
                                        ((top) (top) (top) (top))
                                        ("i42" "i41" "i40" "i38")))
                                     (hygiene guile))
                                  #{mod 3632}#))))
                      #{tmp 3622}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp 3621}#))))))
          (#{global-extend 373}#
            'module-ref
            '@@
            (lambda (#{e 3635}# #{r 3636}# #{w 3637}#)
              (letrec*
                ((#{remodulate 3642}#
                   (lambda (#{x 3643}# #{mod 3644}#)
                     (if (pair? #{x 3643}#)
                       (cons (#{remodulate 3642}#
                               (car #{x 3643}#)
                               #{mod 3644}#)
                             (#{remodulate 3642}#
                               (cdr #{x 3643}#)
                               #{mod 3644}#))
                       (if (#{syntax-object? 343}# #{x 3643}#)
                         (#{make-syntax-object 341}#
                           (#{remodulate 3642}#
                             (#{syntax-object-expression 345}# #{x 3643}#)
                             #{mod 3644}#)
                           (#{syntax-object-wrap 347}# #{x 3643}#)
                           #{mod 3644}#)
                         (if (vector? #{x 3643}#)
                           (begin
                             (let ((#{n 3655}# (vector-length #{x 3643}#)))
                               (begin
                                 (let ((#{v 3657}# (make-vector #{n 3655}#)))
                                   (letrec*
                                     ((#{loop 3660}#
                                        (lambda (#{i 3661}#)
                                          (if (= #{i 3661}# #{n 3655}#)
                                            (begin (if #f #f) #{v 3657}#)
                                            (begin
                                              (vector-set!
                                                #{v 3657}#
                                                #{i 3661}#
                                                (#{remodulate 3642}#
                                                  (vector-ref
                                                    #{x 3643}#
                                                    #{i 3661}#)
                                                  #{mod 3644}#))
                                              (#{loop 3660}#
                                                (#{1+}# #{i 3661}#)))))))
                                     (begin (#{loop 3660}# 0)))))))
                           #{x 3643}#))))))
                (begin
                  (let ((#{tmp 3667}# #{e 3635}#))
                    (let ((#{tmp 3668}#
                            ($sc-dispatch #{tmp 3667}# '(_ each-any any))))
                      (if (if #{tmp 3668}#
                            (@apply
                              (lambda (#{mod 3671}# #{exp 3672}#)
                                (and-map #{id? 377}# #{mod 3671}#))
                              #{tmp 3668}#)
                            #f)
                        (@apply
                          (lambda (#{mod 3676}# #{exp 3677}#)
                            (begin
                              (let ((#{mod 3679}#
                                      (syntax->datum
                                        (cons '#(syntax-object
                                                 private
                                                 ((top)
                                                  #(ribcage
                                                    #(mod exp)
                                                    #((top) (top))
                                                    #("i3674" "i3675"))
                                                  #(ribcage
                                                    (remodulate)
                                                    ((top))
                                                    ("i3641"))
                                                  #(ribcage
                                                    #(e r w)
                                                    #((top) (top) (top))
                                                    #("i3638" "i3639" "i3640"))
                                                  #(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))
                                                    ("i486"
                                                     "i484"
                                                     "i482"
                                                     "i480"
                                                     "i478"
                                                     "i476"
                                                     "i474"
                                                     "i472"
                                                     "i470"
                                                     "i468"
                                                     "i466"
                                                     "i464"
                                                     "i462"
                                                     "i460"
                                                     "i458"
                                                     "i456"
                                                     "i454"
                                                     "i452"
                                                     "i450"
                                                     "i448"
                                                     "i446"
                                                     "i444"
                                                     "i442"
                                                     "i440"
                                                     "i438"
                                                     "i436"
                                                     "i434"
                                                     "i432"
                                                     "i430"
                                                     "i428"
                                                     "i426"
                                                     "i424"
                                                     "i422"
                                                     "i420"
                                                     "i418"
                                                     "i417"
                                                     "i416"
                                                     "i414"
                                                     "i413"
                                                     "i412"
                                                     "i411"
                                                     "i410"
                                                     "i408"
                                                     "i406"
                                                     "i404"
                                                     "i402"
                                                     "i400"
                                                     "i398"
                                                     "i396"
                                                     "i394"
                                                     "i391"
                                                     "i389"
                                                     "i388"
                                                     "i387"
                                                     "i386"
                                                     "i385"
                                                     "i384"
                                                     "i383"
                                                     "i382"
                                                     "i381"
                                                     "i379"
                                                     "i378"
                                                     "i376"
                                                     "i374"
                                                     "i372"
                                                     "i370"
                                                     "i368"
                                                     "i366"
                                                     "i364"
                                                     "i363"
                                                     "i362"
                                                     "i361"
                                                     "i360"
                                                     "i359"
                                                     "i357"
                                                     "i356"
                                                     "i354"
                                                     "i352"
                                                     "i350"
                                                     "i348"
                                                     "i346"
                                                     "i344"
                                                     "i342"
                                                     "i340"
                                                     "i338"
                                                     "i336"
                                                     "i334"
                                                     "i332"
                                                     "i330"
                                                     "i328"
                                                     "i326"
                                                     "i324"
                                                     "i322"
                                                     "i320"
                                                     "i318"
                                                     "i316"
                                                     "i314"
                                                     "i312"
                                                     "i310"
                                                     "i308"
                                                     "i306"
                                                     "i304"
                                                     "i302"
                                                     "i300"
                                                     "i298"
                                                     "i296"
                                                     "i294"
                                                     "i292"
                                                     "i291"
                                                     "i289"
                                                     "i287"
                                                     "i286"
                                                     "i285"
                                                     "i284"
                                                     "i283"
                                                     "i281"
                                                     "i279"
                                                     "i277"
                                                     "i274"
                                                     "i272"
                                                     "i270"
                                                     "i268"
                                                     "i266"
                                                     "i264"
                                                     "i262"
                                                     "i260"
                                                     "i258"
                                                     "i256"
                                                     "i254"
                                                     "i252"
                                                     "i250"
                                                     "i248"
                                                     "i246"
                                                     "i244"
                                                     "i242"
                                                     "i240"))
                                                  #(ribcage
                                                    (define-structure
                                                      define-expansion-accessors
                                                      define-expansion-constructors
                                                      and-map*)
                                                    ((top) (top) (top) (top))
                                                    ("i42" "i41" "i40" "i38")))
                                                 (hygiene guile))
                                              #{mod 3676}#))))
                                (values
                                  (#{remodulate 3642}#
                                    #{exp 3677}#
                                    #{mod 3679}#)
                                  #{r 3636}#
                                  #{w 3637}#
                                  (#{source-annotation 358}# #{exp 3677}#)
                                  #{mod 3679}#))))
                          #{tmp 3668}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp 3667}#))))))))
          (#{global-extend 373}#
            'core
            'if
            (lambda (#{e 3681}#
                     #{r 3682}#
                     #{w 3683}#
                     #{s 3684}#
                     #{mod 3685}#)
              (let ((#{tmp 3691}# #{e 3681}#))
                (let ((#{tmp 3692}#
                        ($sc-dispatch #{tmp 3691}# '(_ any any))))
                  (if #{tmp 3692}#
                    (@apply
                      (lambda (#{test 3695}# #{then 3696}#)
                        (#{build-conditional 305}#
                          #{s 3684}#
                          (#{chi 457}#
                            #{test 3695}#
                            #{r 3682}#
                            #{w 3683}#
                            #{mod 3685}#)
                          (#{chi 457}#
                            #{then 3696}#
                            #{r 3682}#
                            #{w 3683}#
                            #{mod 3685}#)
                          (#{build-void 301}# #f)))
                      #{tmp 3692}#)
                    (let ((#{tmp 3698}#
                            ($sc-dispatch #{tmp 3691}# '(_ any any any))))
                      (if #{tmp 3698}#
                        (@apply
                          (lambda (#{test 3702}# #{then 3703}# #{else 3704}#)
                            (#{build-conditional 305}#
                              #{s 3684}#
                              (#{chi 457}#
                                #{test 3702}#
                                #{r 3682}#
                                #{w 3683}#
                                #{mod 3685}#)
                              (#{chi 457}#
                                #{then 3703}#
                                #{r 3682}#
                                #{w 3683}#
                                #{mod 3685}#)
                              (#{chi 457}#
                                #{else 3704}#
                                #{r 3682}#
                                #{w 3683}#
                                #{mod 3685}#)))
                          #{tmp 3698}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp 3691}#))))))))
          (#{global-extend 373}#
            'core
            'with-fluids
            (lambda (#{e 3705}#
                     #{r 3706}#
                     #{w 3707}#
                     #{s 3708}#
                     #{mod 3709}#)
              (let ((#{tmp 3715}# #{e 3705}#))
                (let ((#{tmp 3716}#
                        ($sc-dispatch
                          #{tmp 3715}#
                          '(_ #(each (any any)) any . each-any))))
                  (if #{tmp 3716}#
                    (@apply
                      (lambda (#{fluid 3721}#
                               #{val 3722}#
                               #{b 3723}#
                               #{b* 3724}#)
                        (#{build-dynlet 307}#
                          #{s 3708}#
                          (map (lambda (#{x 3725}#)
                                 (#{chi 457}#
                                   #{x 3725}#
                                   #{r 3706}#
                                   #{w 3707}#
                                   #{mod 3709}#))
                               #{fluid 3721}#)
                          (map (lambda (#{x 3728}#)
                                 (#{chi 457}#
                                   #{x 3728}#
                                   #{r 3706}#
                                   #{w 3707}#
                                   #{mod 3709}#))
                               #{val 3722}#)
                          (#{chi-body 465}#
                            (cons #{b 3723}# #{b* 3724}#)
                            (#{source-wrap 445}#
                              #{e 3705}#
                              #{w 3707}#
                              #{s 3708}#
                              #{mod 3709}#)
                            #{r 3706}#
                            #{w 3707}#
                            #{mod 3709}#)))
                      #{tmp 3716}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp 3715}#))))))
          (#{global-extend 373}# 'begin 'begin '())
          (#{global-extend 373}# 'define 'define '())
          (#{global-extend 373}#
            'define-syntax
            'define-syntax
            '())
          (#{global-extend 373}# 'eval-when 'eval-when '())
          (#{global-extend 373}#
            'core
            'syntax-case
            (letrec*
              ((#{convert-pattern 3733}#
                 (lambda (#{pattern 3740}# #{keys 3741}#)
                   (letrec*
                     ((#{cvt* 3745}#
                        (lambda (#{p* 3748}# #{n 3749}# #{ids 3750}#)
                          (if (null? #{p* 3748}#)
                            (values '() #{ids 3750}#)
                            (call-with-values
                              (lambda ()
                                (#{cvt* 3745}#
                                  (cdr #{p* 3748}#)
                                  #{n 3749}#
                                  #{ids 3750}#))
                              (lambda (#{y 3754}# #{ids 3755}#)
                                (call-with-values
                                  (lambda ()
                                    (#{cvt 3747}#
                                      (car #{p* 3748}#)
                                      #{n 3749}#
                                      #{ids 3755}#))
                                  (lambda (#{x 3758}# #{ids 3759}#)
                                    (values
                                      (cons #{x 3758}# #{y 3754}#)
                                      #{ids 3759}#))))))))
                      (#{cvt 3747}#
                        (lambda (#{p 3762}# #{n 3763}# #{ids 3764}#)
                          (if (#{id? 377}# #{p 3762}#)
                            (if (#{bound-id-member? 441}#
                                  #{p 3762}#
                                  #{keys 3741}#)
                              (values
                                (vector 'free-id #{p 3762}#)
                                #{ids 3764}#)
                              (if (#{free-id=? 433}#
                                    #{p 3762}#
                                    '#(syntax-object
                                       _
                                       ((top)
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(p n ids)
                                          #((top) (top) (top))
                                          #("i3765" "i3766" "i3767"))
                                        #(ribcage
                                          (cvt cvt*)
                                          ((top) (top))
                                          ("i3746" "i3744"))
                                        #(ribcage
                                          #(pattern keys)
                                          #((top) (top))
                                          #("i3742" "i3743"))
                                        #(ribcage
                                          (gen-syntax-case
                                            gen-clause
                                            build-dispatch-call
                                            convert-pattern)
                                          ((top) (top) (top) (top))
                                          ("i3738" "i3736" "i3734" "i3732"))
                                        #(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))
                                          ("i486"
                                           "i484"
                                           "i482"
                                           "i480"
                                           "i478"
                                           "i476"
                                           "i474"
                                           "i472"
                                           "i470"
                                           "i468"
                                           "i466"
                                           "i464"
                                           "i462"
                                           "i460"
                                           "i458"
                                           "i456"
                                           "i454"
                                           "i452"
                                           "i450"
                                           "i448"
                                           "i446"
                                           "i444"
                                           "i442"
                                           "i440"
                                           "i438"
                                           "i436"
                                           "i434"
                                           "i432"
                                           "i430"
                                           "i428"
                                           "i426"
                                           "i424"
                                           "i422"
                                           "i420"
                                           "i418"
                                           "i417"
                                           "i416"
                                           "i414"
                                           "i413"
                                           "i412"
                                           "i411"
                                           "i410"
                                           "i408"
                                           "i406"
                                           "i404"
                                           "i402"
                                           "i400"
                                           "i398"
                                           "i396"
                                           "i394"
                                           "i391"
                                           "i389"
                                           "i388"
                                           "i387"
                                           "i386"
                                           "i385"
                                           "i384"
                                           "i383"
                                           "i382"
                                           "i381"
                                           "i379"
                                           "i378"
                                           "i376"
                                           "i374"
                                           "i372"
                                           "i370"
                                           "i368"
                                           "i366"
                                           "i364"
                                           "i363"
                                           "i362"
                                           "i361"
                                           "i360"
                                           "i359"
                                           "i357"
                                           "i356"
                                           "i354"
                                           "i352"
                                           "i350"
                                           "i348"
                                           "i346"
                                           "i344"
                                           "i342"
                                           "i340"
                                           "i338"
                                           "i336"
                                           "i334"
                                           "i332"
                                           "i330"
                                           "i328"
                                           "i326"
                                           "i324"
                                           "i322"
                                           "i320"
                                           "i318"
                                           "i316"
                                           "i314"
                                           "i312"
                                           "i310"
                                           "i308"
                                           "i306"
                                           "i304"
                                           "i302"
                                           "i300"
                                           "i298"
                                           "i296"
                                           "i294"
                                           "i292"
                                           "i291"
                                           "i289"
                                           "i287"
                                           "i286"
                                           "i285"
                                           "i284"
                                           "i283"
                                           "i281"
                                           "i279"
                                           "i277"
                                           "i274"
                                           "i272"
                                           "i270"
                                           "i268"
                                           "i266"
                                           "i264"
                                           "i262"
                                           "i260"
                                           "i258"
                                           "i256"
                                           "i254"
                                           "i252"
                                           "i250"
                                           "i248"
                                           "i246"
                                           "i244"
                                           "i242"
                                           "i240"))
                                        #(ribcage
                                          (define-structure
                                            define-expansion-accessors
                                            define-expansion-constructors
                                            and-map*)
                                          ((top) (top) (top) (top))
                                          ("i42" "i41" "i40" "i38")))
                                       (hygiene guile)))
                                (values '_ #{ids 3764}#)
                                (values
                                  'any
                                  (cons (cons #{p 3762}# #{n 3763}#)
                                        #{ids 3764}#))))
                            (let ((#{tmp 3773}# #{p 3762}#))
                              (let ((#{tmp 3774}#
                                      ($sc-dispatch #{tmp 3773}# '(any any))))
                                (if (if #{tmp 3774}#
                                      (@apply
                                        (lambda (#{x 3777}# #{dots 3778}#)
                                          (#{ellipsis? 473}# #{dots 3778}#))
                                        #{tmp 3774}#)
                                      #f)
                                  (@apply
                                    (lambda (#{x 3781}# #{dots 3782}#)
                                      (call-with-values
                                        (lambda ()
                                          (#{cvt 3747}#
                                            #{x 3781}#
                                            (#{1+}# #{n 3763}#)
                                            #{ids 3764}#))
                                        (lambda (#{p 3784}# #{ids 3785}#)
                                          (values
                                            (if (eq? #{p 3784}# 'any)
                                              'each-any
                                              (vector 'each #{p 3784}#))
                                            #{ids 3785}#))))
                                    #{tmp 3774}#)
                                  (let ((#{tmp 3788}#
                                          ($sc-dispatch
                                            #{tmp 3773}#
                                            '(any any . each-any))))
                                    (if (if #{tmp 3788}#
                                          (@apply
                                            (lambda (#{x 3792}#
                                                     #{dots 3793}#
                                                     #{ys 3794}#)
                                              (#{ellipsis? 473}#
                                                #{dots 3793}#))
                                            #{tmp 3788}#)
                                          #f)
                                      (@apply
                                        (lambda (#{x 3798}#
                                                 #{dots 3799}#
                                                 #{ys 3800}#)
                                          (call-with-values
                                            (lambda ()
                                              (#{cvt* 3745}#
                                                #{ys 3800}#
                                                #{n 3763}#
                                                #{ids 3764}#))
                                            (lambda (#{ys 3802}# #{ids 3803}#)
                                              (call-with-values
                                                (lambda ()
                                                  (#{cvt 3747}#
                                                    #{x 3798}#
                                                    (#{1+}# #{n 3763}#)
                                                    #{ids 3803}#))
                                                (lambda (#{x 3806}#
                                                         #{ids 3807}#)
                                                  (values
                                                    (vector
                                                      'each+
                                                      #{x 3806}#
                                                      (reverse #{ys 3802}#)
                                                      '())
                                                    #{ids 3807}#))))))
                                        #{tmp 3788}#)
                                      (let ((#{tmp 3811}#
                                              ($sc-dispatch
                                                #{tmp 3773}#
                                                '(any . any))))
                                        (if #{tmp 3811}#
                                          (@apply
                                            (lambda (#{x 3814}# #{y 3815}#)
                                              (call-with-values
                                                (lambda ()
                                                  (#{cvt 3747}#
                                                    #{y 3815}#
                                                    #{n 3763}#
                                                    #{ids 3764}#))
                                                (lambda (#{y 3816}#
                                                         #{ids 3817}#)
                                                  (call-with-values
                                                    (lambda ()
                                                      (#{cvt 3747}#
                                                        #{x 3814}#
                                                        #{n 3763}#
                                                        #{ids 3817}#))
                                                    (lambda (#{x 3820}#
                                                             #{ids 3821}#)
                                                      (values
                                                        (cons #{x 3820}#
                                                              #{y 3816}#)
                                                        #{ids 3821}#))))))
                                            #{tmp 3811}#)
                                          (let ((#{tmp 3824}#
                                                  ($sc-dispatch
                                                    #{tmp 3773}#
                                                    '())))
                                            (if #{tmp 3824}#
                                              (@apply
                                                (lambda ()
                                                  (values '() #{ids 3764}#))
                                                #{tmp 3824}#)
                                              (let ((#{tmp 3825}#
                                                      ($sc-dispatch
                                                        #{tmp 3773}#
                                                        '#(vector each-any))))
                                                (if #{tmp 3825}#
                                                  (@apply
                                                    (lambda (#{x 3827}#)
                                                      (call-with-values
                                                        (lambda ()
                                                          (#{cvt 3747}#
                                                            #{x 3827}#
                                                            #{n 3763}#
                                                            #{ids 3764}#))
                                                        (lambda (#{p 3829}#
                                                                 #{ids 3830}#)
                                                          (values
                                                            (vector
                                                              'vector
                                                              #{p 3829}#)
                                                            #{ids 3830}#))))
                                                    #{tmp 3825}#)
                                                  (let ((#{x 3834}#
                                                          #{tmp 3773}#))
                                                    (values
                                                      (vector
                                                        'atom
                                                        (#{strip 483}#
                                                          #{p 3762}#
                                                          '(())))
                                                      #{ids 3764}#)))))))))))))))))
                     (begin (#{cvt 3747}# #{pattern 3740}# 0 '())))))
               (#{build-dispatch-call 3735}#
                 (lambda (#{pvars 3836}#
                          #{exp 3837}#
                          #{y 3838}#
                          #{r 3839}#
                          #{mod 3840}#)
                   (begin
                     (map cdr #{pvars 3836}#)
                     (let ((#{ids 3848}# (map car #{pvars 3836}#)))
                       (begin
                         (let ((#{labels 3852}#
                                 (#{gen-labels 392}# #{ids 3848}#))
                               (#{new-vars 3853}#
                                 (map #{gen-var 485}# #{ids 3848}#)))
                           (#{build-application 303}#
                             #f
                             (#{build-primref 327}# #f 'apply)
                             (list (#{build-simple-lambda 321}#
                                     #f
                                     (map syntax->datum #{ids 3848}#)
                                     #f
                                     #{new-vars 3853}#
                                     '()
                                     (#{chi 457}#
                                       #{exp 3837}#
                                       (#{extend-env 365}#
                                         #{labels 3852}#
                                         (map (lambda (#{var 3857}#
                                                       #{level 3858}#)
                                                (cons 'syntax
                                                      (cons #{var 3857}#
                                                            #{level 3858}#)))
                                              #{new-vars 3853}#
                                              (map cdr #{pvars 3836}#))
                                         #{r 3839}#)
                                       (#{make-binding-wrap 421}#
                                         #{ids 3848}#
                                         #{labels 3852}#
                                         '(()))
                                       #{mod 3840}#))
                                   #{y 3838}#))))))))
               (#{gen-clause 3737}#
                 (lambda (#{x 3864}#
                          #{keys 3865}#
                          #{clauses 3866}#
                          #{r 3867}#
                          #{pat 3868}#
                          #{fender 3869}#
                          #{exp 3870}#
                          #{mod 3871}#)
                   (call-with-values
                     (lambda ()
                       (#{convert-pattern 3733}#
                         #{pat 3868}#
                         #{keys 3865}#))
                     (lambda (#{p 3880}# #{pvars 3881}#)
                       (if (not (#{distinct-bound-ids? 439}#
                                  (map car #{pvars 3881}#)))
                         (syntax-violation
                           'syntax-case
                           "duplicate pattern variable"
                           #{pat 3868}#)
                         (if (not (and-map
                                    (lambda (#{x 3888}#)
                                      (not (#{ellipsis? 473}#
                                             (car #{x 3888}#))))
                                    #{pvars 3881}#))
                           (syntax-violation
                             'syntax-case
                             "misplaced ellipsis"
                             #{pat 3868}#)
                           (begin
                             (let ((#{y 3892}# (#{gen-var 485}# 'tmp)))
                               (#{build-application 303}#
                                 #f
                                 (#{build-simple-lambda 321}#
                                   #f
                                   (list 'tmp)
                                   #f
                                   (list #{y 3892}#)
                                   '()
                                   (begin
                                     (let ((#{y 3896}#
                                             (#{build-lexical-reference 309}#
                                               'value
                                               #f
                                               'tmp
                                               #{y 3892}#)))
                                       (#{build-conditional 305}#
                                         #f
                                         (let ((#{tmp 3899}# #{fender 3869}#))
                                           (let ((#{tmp 3900}#
                                                   ($sc-dispatch
                                                     #{tmp 3899}#
                                                     '#(atom #t))))
                                             (if #{tmp 3900}#
                                               (@apply
                                                 (lambda () #{y 3896}#)
                                                 #{tmp 3900}#)
                                               (let ((#{_ 3902}# #{tmp 3899}#))
                                                 (#{build-conditional 305}#
                                                   #f
                                                   #{y 3896}#
                                                   (#{build-dispatch-call 3735}#
                                                     #{pvars 3881}#
                                                     #{fender 3869}#
                                                     #{y 3896}#
                                                     #{r 3867}#
                                                     #{mod 3871}#)
                                                   (#{build-data 329}#
                                                     #f
                                                     #f))))))
                                         (#{build-dispatch-call 3735}#
                                           #{pvars 3881}#
                                           #{exp 3870}#
                                           #{y 3896}#
                                           #{r 3867}#
                                           #{mod 3871}#)
                                         (#{gen-syntax-case 3739}#
                                           #{x 3864}#
                                           #{keys 3865}#
                                           #{clauses 3866}#
                                           #{r 3867}#
                                           #{mod 3871}#)))))
                                 (list (if (eq? #{p 3880}# 'any)
                                         (#{build-application 303}#
                                           #f
                                           (#{build-primref 327}# #f 'list)
                                           (list #{x 3864}#))
                                         (#{build-application 303}#
                                           #f
                                           (#{build-primref 327}#
                                             #f
                                             '$sc-dispatch)
                                           (list #{x 3864}#
                                                 (#{build-data 329}#
                                                   #f
                                                   #{p 3880}#))))))))))))))
               (#{gen-syntax-case 3739}#
                 (lambda (#{x 3910}#
                          #{keys 3911}#
                          #{clauses 3912}#
                          #{r 3913}#
                          #{mod 3914}#)
                   (if (null? #{clauses 3912}#)
                     (#{build-application 303}#
                       #f
                       (#{build-primref 327}# #f 'syntax-violation)
                       (list (#{build-data 329}# #f #f)
                             (#{build-data 329}#
                               #f
                               "source expression failed to match any pattern")
                             #{x 3910}#))
                     (let ((#{tmp 3924}# (car #{clauses 3912}#)))
                       (let ((#{tmp 3925}#
                               ($sc-dispatch #{tmp 3924}# '(any any))))
                         (if #{tmp 3925}#
                           (@apply
                             (lambda (#{pat 3928}# #{exp 3929}#)
                               (if (if (#{id? 377}# #{pat 3928}#)
                                     (and-map
                                       (lambda (#{x 3932}#)
                                         (not (#{free-id=? 433}#
                                                #{pat 3928}#
                                                #{x 3932}#)))
                                       (cons '#(syntax-object
                                                ...
                                                ((top)
                                                 #(ribcage
                                                   #(pat exp)
                                                   #((top) (top))
                                                   #("i3926" "i3927"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x keys clauses r mod)
                                                   #((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                   #("i3915"
                                                     "i3916"
                                                     "i3917"
                                                     "i3918"
                                                     "i3919"))
                                                 #(ribcage
                                                   (gen-syntax-case
                                                     gen-clause
                                                     build-dispatch-call
                                                     convert-pattern)
                                                   ((top) (top) (top) (top))
                                                   ("i3738"
                                                    "i3736"
                                                    "i3734"
                                                    "i3732"))
                                                 #(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))
                                                   ("i486"
                                                    "i484"
                                                    "i482"
                                                    "i480"
                                                    "i478"
                                                    "i476"
                                                    "i474"
                                                    "i472"
                                                    "i470"
                                                    "i468"
                                                    "i466"
                                                    "i464"
                                                    "i462"
                                                    "i460"
                                                    "i458"
                                                    "i456"
                                                    "i454"
                                                    "i452"
                                                    "i450"
                                                    "i448"
                                                    "i446"
                                                    "i444"
                                                    "i442"
                                                    "i440"
                                                    "i438"
                                                    "i436"
                                                    "i434"
                                                    "i432"
                                                    "i430"
                                                    "i428"
                                                    "i426"
                                                    "i424"
                                                    "i422"
                                                    "i420"
                                                    "i418"
                                                    "i417"
                                                    "i416"
                                                    "i414"
                                                    "i413"
                                                    "i412"
                                                    "i411"
                                                    "i410"
                                                    "i408"
                                                    "i406"
                                                    "i404"
                                                    "i402"
                                                    "i400"
                                                    "i398"
                                                    "i396"
                                                    "i394"
                                                    "i391"
                                                    "i389"
                                                    "i388"
                                                    "i387"
                                                    "i386"
                                                    "i385"
                                                    "i384"
                                                    "i383"
                                                    "i382"
                                                    "i381"
                                                    "i379"
                                                    "i378"
                                                    "i376"
                                                    "i374"
                                                    "i372"
                                                    "i370"
                                                    "i368"
                                                    "i366"
                                                    "i364"
                                                    "i363"
                                                    "i362"
                                                    "i361"
                                                    "i360"
                                                    "i359"
                                                    "i357"
                                                    "i356"
                                                    "i354"
                                                    "i352"
                                                    "i350"
                                                    "i348"
                                                    "i346"
                                                    "i344"
                                                    "i342"
                                                    "i340"
                                                    "i338"
                                                    "i336"
                                                    "i334"
                                                    "i332"
                                                    "i330"
                                                    "i328"
                                                    "i326"
                                                    "i324"
                                                    "i322"
                                                    "i320"
                                                    "i318"
                                                    "i316"
                                                    "i314"
                                                    "i312"
                                                    "i310"
                                                    "i308"
                                                    "i306"
                                                    "i304"
                                                    "i302"
                                                    "i300"
                                                    "i298"
                                                    "i296"
                                                    "i294"
                                                    "i292"
                                                    "i291"
                                                    "i289"
                                                    "i287"
                                                    "i286"
                                                    "i285"
                                                    "i284"
                                                    "i283"
                                                    "i281"
                                                    "i279"
                                                    "i277"
                                                    "i274"
                                                    "i272"
                                                    "i270"
                                                    "i268"
                                                    "i266"
                                                    "i264"
                                                    "i262"
                                                    "i260"
                                                    "i258"
                                                    "i256"
                                                    "i254"
                                                    "i252"
                                                    "i250"
                                                    "i248"
                                                    "i246"
                                                    "i244"
                                                    "i242"
                                                    "i240"))
                                                 #(ribcage
                                                   (define-structure
                                                     define-expansion-accessors
                                                     define-expansion-constructors
                                                     and-map*)
                                                   ((top) (top) (top) (top))
                                                   ("i42" "i41" "i40" "i38")))
                                                (hygiene guile))
                                             #{keys 3911}#))
                                     #f)
                                 (if (#{free-id=? 433}#
                                       '#(syntax-object
                                          pad
                                          ((top)
                                           #(ribcage
                                             #(pat exp)
                                             #((top) (top))
                                             #("i3926" "i3927"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x keys clauses r mod)
                                             #((top) (top) (top) (top) (top))
                                             #("i3915"
                                               "i3916"
                                               "i3917"
                                               "i3918"
                                               "i3919"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
                                             ("i3738" "i3736" "i3734" "i3732"))
                                           #(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))
                                             ("i486"
                                              "i484"
                                              "i482"
                                              "i480"
                                              "i478"
                                              "i476"
                                              "i474"
                                              "i472"
                                              "i470"
                                              "i468"
                                              "i466"
                                              "i464"
                                              "i462"
                                              "i460"
                                              "i458"
                                              "i456"
                                              "i454"
                                              "i452"
                                              "i450"
                                              "i448"
                                              "i446"
                                              "i444"
                                              "i442"
                                              "i440"
                                              "i438"
                                              "i436"
                                              "i434"
                                              "i432"
                                              "i430"
                                              "i428"
                                              "i426"
                                              "i424"
                                              "i422"
                                              "i420"
                                              "i418"
                                              "i417"
                                              "i416"
                                              "i414"
                                              "i413"
                                              "i412"
                                              "i411"
                                              "i410"
                                              "i408"
                                              "i406"
                                              "i404"
                                              "i402"
                                              "i400"
                                              "i398"
                                              "i396"
                                              "i394"
                                              "i391"
                                              "i389"
                                              "i388"
                                              "i387"
                                              "i386"
                                              "i385"
                                              "i384"
                                              "i383"
                                              "i382"
                                              "i381"
                                              "i379"
                                              "i378"
                                              "i376"
                                              "i374"
                                              "i372"
                                              "i370"
                                              "i368"
                                              "i366"
                                              "i364"
                                              "i363"
                                              "i362"
                                              "i361"
                                              "i360"
                                              "i359"
                                              "i357"
                                              "i356"
                                              "i354"
                                              "i352"
                                              "i350"
                                              "i348"
                                              "i346"
                                              "i344"
                                              "i342"
                                              "i340"
                                              "i338"
                                              "i336"
                                              "i334"
                                              "i332"
                                              "i330"
                                              "i328"
                                              "i326"
                                              "i324"
                                              "i322"
                                              "i320"
                                              "i318"
                                              "i316"
                                              "i314"
                                              "i312"
                                              "i310"
                                              "i308"
                                              "i306"
                                              "i304"
                                              "i302"
                                              "i300"
                                              "i298"
                                              "i296"
                                              "i294"
                                              "i292"
                                              "i291"
                                              "i289"
                                              "i287"
                                              "i286"
                                              "i285"
                                              "i284"
                                              "i283"
                                              "i281"
                                              "i279"
                                              "i277"
                                              "i274"
                                              "i272"
                                              "i270"
                                              "i268"
                                              "i266"
                                              "i264"
                                              "i262"
                                              "i260"
                                              "i258"
                                              "i256"
                                              "i254"
                                              "i252"
                                              "i250"
                                              "i248"
                                              "i246"
                                              "i244"
                                              "i242"
                                              "i240"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors
                                               and-map*)
                                             ((top) (top) (top) (top))
                                             ("i42" "i41" "i40" "i38")))
                                          (hygiene guile))
                                       '#(syntax-object
                                          _
                                          ((top)
                                           #(ribcage
                                             #(pat exp)
                                             #((top) (top))
                                             #("i3926" "i3927"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(x keys clauses r mod)
                                             #((top) (top) (top) (top) (top))
                                             #("i3915"
                                               "i3916"
                                               "i3917"
                                               "i3918"
                                               "i3919"))
                                           #(ribcage
                                             (gen-syntax-case
                                               gen-clause
                                               build-dispatch-call
                                               convert-pattern)
                                             ((top) (top) (top) (top))
                                             ("i3738" "i3736" "i3734" "i3732"))
                                           #(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))
                                             ("i486"
                                              "i484"
                                              "i482"
                                              "i480"
                                              "i478"
                                              "i476"
                                              "i474"
                                              "i472"
                                              "i470"
                                              "i468"
                                              "i466"
                                              "i464"
                                              "i462"
                                              "i460"
                                              "i458"
                                              "i456"
                                              "i454"
                                              "i452"
                                              "i450"
                                              "i448"
                                              "i446"
                                              "i444"
                                              "i442"
                                              "i440"
                                              "i438"
                                              "i436"
                                              "i434"
                                              "i432"
                                              "i430"
                                              "i428"
                                              "i426"
                                              "i424"
                                              "i422"
                                              "i420"
                                              "i418"
                                              "i417"
                                              "i416"
                                              "i414"
                                              "i413"
                                              "i412"
                                              "i411"
                                              "i410"
                                              "i408"
                                              "i406"
                                              "i404"
                                              "i402"
                                              "i400"
                                              "i398"
                                              "i396"
                                              "i394"
                                              "i391"
                                              "i389"
                                              "i388"
                                              "i387"
                                              "i386"
                                              "i385"
                                              "i384"
                                              "i383"
                                              "i382"
                                              "i381"
                                              "i379"
                                              "i378"
                                              "i376"
                                              "i374"
                                              "i372"
                                              "i370"
                                              "i368"
                                              "i366"
                                              "i364"
                                              "i363"
                                              "i362"
                                              "i361"
                                              "i360"
                                              "i359"
                                              "i357"
                                              "i356"
                                              "i354"
                                              "i352"
                                              "i350"
                                              "i348"
                                              "i346"
                                              "i344"
                                              "i342"
                                              "i340"
                                              "i338"
                                              "i336"
                                              "i334"
                                              "i332"
                                              "i330"
                                              "i328"
                                              "i326"
                                              "i324"
                                              "i322"
                                              "i320"
                                              "i318"
                                              "i316"
                                              "i314"
                                              "i312"
                                              "i310"
                                              "i308"
                                              "i306"
                                              "i304"
                                              "i302"
                                              "i300"
                                              "i298"
                                              "i296"
                                              "i294"
                                              "i292"
                                              "i291"
                                              "i289"
                                              "i287"
                                              "i286"
                                              "i285"
                                              "i284"
                                              "i283"
                                              "i281"
                                              "i279"
                                              "i277"
                                              "i274"
                                              "i272"
                                              "i270"
                                              "i268"
                                              "i266"
                                              "i264"
                                              "i262"
                                              "i260"
                                              "i258"
                                              "i256"
                                              "i254"
                                              "i252"
                                              "i250"
                                              "i248"
                                              "i246"
                                              "i244"
                                              "i242"
                                              "i240"))
                                           #(ribcage
                                             (define-structure
                                               define-expansion-accessors
                                               define-expansion-constructors
                                               and-map*)
                                             ((top) (top) (top) (top))
                                             ("i42" "i41" "i40" "i38")))
                                          (hygiene guile)))
                                   (#{chi 457}#
                                     #{exp 3929}#
                                     #{r 3913}#
                                     '(())
                                     #{mod 3914}#)
                                   (begin
                                     (let ((#{labels 3937}#
                                             (list (#{gen-label 390}#)))
                                           (#{var 3938}#
                                             (#{gen-var 485}# #{pat 3928}#)))
                                       (#{build-application 303}#
                                         #f
                                         (#{build-simple-lambda 321}#
                                           #f
                                           (list (syntax->datum #{pat 3928}#))
                                           #f
                                           (list #{var 3938}#)
                                           '()
                                           (#{chi 457}#
                                             #{exp 3929}#
                                             (#{extend-env 365}#
                                               #{labels 3937}#
                                               (list (cons 'syntax
                                                           (cons #{var 3938}#
                                                                 0)))
                                               #{r 3913}#)
                                             (#{make-binding-wrap 421}#
                                               (list #{pat 3928}#)
                                               #{labels 3937}#
                                               '(()))
                                             #{mod 3914}#))
                                         (list #{x 3910}#)))))
                                 (#{gen-clause 3737}#
                                   #{x 3910}#
                                   #{keys 3911}#
                                   (cdr #{clauses 3912}#)
                                   #{r 3913}#
                                   #{pat 3928}#
                                   #t
                                   #{exp 3929}#
                                   #{mod 3914}#)))
                             #{tmp 3925}#)
                           (let ((#{tmp 3944}#
                                   ($sc-dispatch #{tmp 3924}# '(any any any))))
                             (if #{tmp 3944}#
                               (@apply
                                 (lambda (#{pat 3948}#
                                          #{fender 3949}#
                                          #{exp 3950}#)
                                   (#{gen-clause 3737}#
                                     #{x 3910}#
                                     #{keys 3911}#
                                     (cdr #{clauses 3912}#)
                                     #{r 3913}#
                                     #{pat 3948}#
                                     #{fender 3949}#
                                     #{exp 3950}#
                                     #{mod 3914}#))
                                 #{tmp 3944}#)
                               (let ((#{_ 3952}# #{tmp 3924}#))
                                 (syntax-violation
                                   'syntax-case
                                   "invalid clause"
                                   (car #{clauses 3912}#))))))))))))
              (begin
                (lambda (#{e 3953}#
                         #{r 3954}#
                         #{w 3955}#
                         #{s 3956}#
                         #{mod 3957}#)
                  (begin
                    (let ((#{e 3964}#
                            (#{source-wrap 445}#
                              #{e 3953}#
                              #{w 3955}#
                              #{s 3956}#
                              #{mod 3957}#)))
                      (let ((#{tmp 3965}# #{e 3964}#))
                        (let ((#{tmp 3966}#
                                ($sc-dispatch
                                  #{tmp 3965}#
                                  '(_ any each-any . each-any))))
                          (if #{tmp 3966}#
                            (@apply
                              (lambda (#{val 3970}# #{key 3971}# #{m 3972}#)
                                (if (and-map
                                      (lambda (#{x 3973}#)
                                        (if (#{id? 377}# #{x 3973}#)
                                          (not (#{ellipsis? 473}# #{x 3973}#))
                                          #f))
                                      #{key 3971}#)
                                  (begin
                                    (let ((#{x 3979}# (#{gen-var 485}# 'tmp)))
                                      (#{build-application 303}#
                                        #{s 3956}#
                                        (#{build-simple-lambda 321}#
                                          #f
                                          (list 'tmp)
                                          #f
                                          (list #{x 3979}#)
                                          '()
                                          (#{gen-syntax-case 3739}#
                                            (#{build-lexical-reference 309}#
                                              'value
                                              #f
                                              'tmp
                                              #{x 3979}#)
                                            #{key 3971}#
                                            #{m 3972}#
                                            #{r 3954}#
                                            #{mod 3957}#))
                                        (list (#{chi 457}#
                                                #{val 3970}#
                                                #{r 3954}#
                                                '(())
                                                #{mod 3957}#)))))
                                  (syntax-violation
                                    'syntax-case
                                    "invalid literals list"
                                    #{e 3964}#)))
                              #{tmp 3966}#)
                            (syntax-violation
                              #f
                              "source expression failed to match any pattern"
                              #{tmp 3965}#))))))))))
          (set! macroexpand
            (lambda*
              (#{x 3985}#
                #:optional
                (#{m 3987}# 'e)
                (#{esew 3989}# '(eval)))
              (#{chi-top-sequence 449}#
                (list #{x 3985}#)
                '()
                '((top))
                #f
                #{m 3987}#
                #{esew 3989}#
                (cons 'hygiene (module-name (current-module))))))
          (set! identifier?
            (lambda (#{x 3993}#)
              (#{nonsymbol-id? 375}# #{x 3993}#)))
          (set! datum->syntax
            (lambda (#{id 3995}# #{datum 3996}#)
              (#{make-syntax-object 341}#
                #{datum 3996}#
                (#{syntax-object-wrap 347}# #{id 3995}#)
                (#{syntax-object-module 349}# #{id 3995}#))))
          (set! syntax->datum
            (lambda (#{x 3999}#)
              (#{strip 483}# #{x 3999}# '(()))))
          (set! syntax-source
            (lambda (#{x 4002}#)
              (#{source-annotation 358}# #{x 4002}#)))
          (set! generate-temporaries
            (lambda (#{ls 4004}#)
              (begin
                (begin
                  (let ((#{x 4008}# #{ls 4004}#))
                    (if (not (list? #{x 4008}#))
                      (syntax-violation
                        'generate-temporaries
                        "invalid argument"
                        #{x 4008}#))))
                (map (lambda (#{x 4009}#)
                       (#{wrap 443}# (gensym) '((top)) #f))
                     #{ls 4004}#))))
          (set! free-identifier=?
            (lambda (#{x 4013}# #{y 4014}#)
              (begin
                (begin
                  (let ((#{x 4019}# #{x 4013}#))
                    (if (not (#{nonsymbol-id? 375}# #{x 4019}#))
                      (syntax-violation
                        'free-identifier=?
                        "invalid argument"
                        #{x 4019}#))))
                (begin
                  (let ((#{x 4022}# #{y 4014}#))
                    (if (not (#{nonsymbol-id? 375}# #{x 4022}#))
                      (syntax-violation
                        'free-identifier=?
                        "invalid argument"
                        #{x 4022}#))))
                (#{free-id=? 433}# #{x 4013}# #{y 4014}#))))
          (set! bound-identifier=?
            (lambda (#{x 4023}# #{y 4024}#)
              (begin
                (begin
                  (let ((#{x 4029}# #{x 4023}#))
                    (if (not (#{nonsymbol-id? 375}# #{x 4029}#))
                      (syntax-violation
                        'bound-identifier=?
                        "invalid argument"
                        #{x 4029}#))))
                (begin
                  (let ((#{x 4032}# #{y 4024}#))
                    (if (not (#{nonsymbol-id? 375}# #{x 4032}#))
                      (syntax-violation
                        'bound-identifier=?
                        "invalid argument"
                        #{x 4032}#))))
                (#{bound-id=? 435}# #{x 4023}# #{y 4024}#))))
          (set! syntax-violation
            (lambda*
              (#{who 4033}#
                #{message 4034}#
                #{form 4035}#
                #:optional
                (#{subform 4039}# #f))
              (begin
                (begin
                  (let ((#{x 4043}# #{who 4033}#))
                    (if (not (let ((#{x 4044}# #{x 4043}#))
                               (begin
                                 (let ((#{t 4048}# (not #{x 4044}#)))
                                   (if #{t 4048}#
                                     #{t 4048}#
                                     (begin
                                       (let ((#{t 4051}# (string? #{x 4044}#)))
                                         (if #{t 4051}#
                                           #{t 4051}#
                                           (symbol? #{x 4044}#)))))))))
                      (syntax-violation
                        'syntax-violation
                        "invalid argument"
                        #{x 4043}#))))
                (begin
                  (let ((#{x 4055}# #{message 4034}#))
                    (if (not (string? #{x 4055}#))
                      (syntax-violation
                        'syntax-violation
                        "invalid argument"
                        #{x 4055}#))))
                (throw 'syntax-error
                       #{who 4033}#
                       #{message 4034}#
                       (#{source-annotation 358}#
                         (begin
                           (let ((#{t 4058}# #{form 4035}#))
                             (if #{t 4058}# #{t 4058}# #{subform 4039}#))))
                       (#{strip 483}# #{form 4035}# '(()))
                       (if #{subform 4039}#
                         (#{strip 483}# #{subform 4039}# '(()))
                         #f)))))
          (letrec*
            ((#{match-each 4065}#
               (lambda (#{e 4078}# #{p 4079}# #{w 4080}# #{mod 4081}#)
                 (if (pair? #{e 4078}#)
                   (begin
                     (let ((#{first 4089}#
                             (#{match 4077}#
                               (car #{e 4078}#)
                               #{p 4079}#
                               #{w 4080}#
                               '()
                               #{mod 4081}#)))
                       (if #{first 4089}#
                         (begin
                           (let ((#{rest 4093}#
                                   (#{match-each 4065}#
                                     (cdr #{e 4078}#)
                                     #{p 4079}#
                                     #{w 4080}#
                                     #{mod 4081}#)))
                             (if #{rest 4093}#
                               (cons #{first 4089}# #{rest 4093}#)
                               #f)))
                         #f)))
                   (if (null? #{e 4078}#)
                     '()
                     (if (#{syntax-object? 343}# #{e 4078}#)
                       (#{match-each 4065}#
                         (#{syntax-object-expression 345}# #{e 4078}#)
                         #{p 4079}#
                         (#{join-wraps 425}#
                           #{w 4080}#
                           (#{syntax-object-wrap 347}# #{e 4078}#))
                         (#{syntax-object-module 349}# #{e 4078}#))
                       #f)))))
             (#{match-each+ 4067}#
               (lambda (#{e 4101}#
                        #{x-pat 4102}#
                        #{y-pat 4103}#
                        #{z-pat 4104}#
                        #{w 4105}#
                        #{r 4106}#
                        #{mod 4107}#)
                 (letrec*
                   ((#{f 4118}#
                      (lambda (#{e 4119}# #{w 4120}#)
                        (if (pair? #{e 4119}#)
                          (call-with-values
                            (lambda ()
                              (#{f 4118}# (cdr #{e 4119}#) #{w 4120}#))
                            (lambda (#{xr* 4123}# #{y-pat 4124}# #{r 4125}#)
                              (if #{r 4125}#
                                (if (null? #{y-pat 4124}#)
                                  (begin
                                    (let ((#{xr 4130}#
                                            (#{match 4077}#
                                              (car #{e 4119}#)
                                              #{x-pat 4102}#
                                              #{w 4120}#
                                              '()
                                              #{mod 4107}#)))
                                      (if #{xr 4130}#
                                        (values
                                          (cons #{xr 4130}# #{xr* 4123}#)
                                          #{y-pat 4124}#
                                          #{r 4125}#)
                                        (values #f #f #f))))
                                  (values
                                    '()
                                    (cdr #{y-pat 4124}#)
                                    (#{match 4077}#
                                      (car #{e 4119}#)
                                      (car #{y-pat 4124}#)
                                      #{w 4120}#
                                      #{r 4125}#
                                      #{mod 4107}#)))
                                (values #f #f #f))))
                          (if (#{syntax-object? 343}# #{e 4119}#)
                            (#{f 4118}#
                              (#{syntax-object-expression 345}# #{e 4119}#)
                              (#{join-wraps 425}# #{w 4120}# #{e 4119}#))
                            (values
                              '()
                              #{y-pat 4103}#
                              (#{match 4077}#
                                #{e 4119}#
                                #{z-pat 4104}#
                                #{w 4120}#
                                #{r 4106}#
                                #{mod 4107}#)))))))
                   (begin (#{f 4118}# #{e 4101}# #{w 4105}#)))))
             (#{match-each-any 4069}#
               (lambda (#{e 4134}# #{w 4135}# #{mod 4136}#)
                 (if (pair? #{e 4134}#)
                   (begin
                     (let ((#{l 4143}#
                             (#{match-each-any 4069}#
                               (cdr #{e 4134}#)
                               #{w 4135}#
                               #{mod 4136}#)))
                       (if #{l 4143}#
                         (cons (#{wrap 443}#
                                 (car #{e 4134}#)
                                 #{w 4135}#
                                 #{mod 4136}#)
                               #{l 4143}#)
                         #f)))
                   (if (null? #{e 4134}#)
                     '()
                     (if (#{syntax-object? 343}# #{e 4134}#)
                       (#{match-each-any 4069}#
                         (#{syntax-object-expression 345}# #{e 4134}#)
                         (#{join-wraps 425}#
                           #{w 4135}#
                           (#{syntax-object-wrap 347}# #{e 4134}#))
                         #{mod 4136}#)
                       #f)))))
             (#{match-empty 4071}#
               (lambda (#{p 4151}# #{r 4152}#)
                 (if (null? #{p 4151}#)
                   #{r 4152}#
                   (if (eq? #{p 4151}# '_)
                     #{r 4152}#
                     (if (eq? #{p 4151}# 'any)
                       (cons '() #{r 4152}#)
                       (if (pair? #{p 4151}#)
                         (#{match-empty 4071}#
                           (car #{p 4151}#)
                           (#{match-empty 4071}#
                             (cdr #{p 4151}#)
                             #{r 4152}#))
                         (if (eq? #{p 4151}# 'each-any)
                           (cons '() #{r 4152}#)
                           (begin
                             (let ((#{atom-key 4168}#
                                     (vector-ref #{p 4151}# 0)))
                               (if (eqv? #{atom-key 4168}# 'each)
                                 (#{match-empty 4071}#
                                   (vector-ref #{p 4151}# 1)
                                   #{r 4152}#)
                                 (if (eqv? #{atom-key 4168}# 'each+)
                                   (#{match-empty 4071}#
                                     (vector-ref #{p 4151}# 1)
                                     (#{match-empty 4071}#
                                       (reverse (vector-ref #{p 4151}# 2))
                                       (#{match-empty 4071}#
                                         (vector-ref #{p 4151}# 3)
                                         #{r 4152}#)))
                                   (if (if (eqv? #{atom-key 4168}# 'free-id)
                                         #t
                                         (eqv? #{atom-key 4168}# 'atom))
                                     #{r 4152}#
                                     (if (eqv? #{atom-key 4168}# 'vector)
                                       (#{match-empty 4071}#
                                         (vector-ref #{p 4151}# 1)
                                         #{r 4152}#))))))))))))))
             (#{combine 4073}#
               (lambda (#{r* 4173}# #{r 4174}#)
                 (if (null? (car #{r* 4173}#))
                   #{r 4174}#
                   (cons (map car #{r* 4173}#)
                         (#{combine 4073}#
                           (map cdr #{r* 4173}#)
                           #{r 4174}#)))))
             (#{match* 4075}#
               (lambda (#{e 4177}#
                        #{p 4178}#
                        #{w 4179}#
                        #{r 4180}#
                        #{mod 4181}#)
                 (if (null? #{p 4178}#)
                   (if (null? #{e 4177}#) #{r 4180}# #f)
                   (if (pair? #{p 4178}#)
                     (if (pair? #{e 4177}#)
                       (#{match 4077}#
                         (car #{e 4177}#)
                         (car #{p 4178}#)
                         #{w 4179}#
                         (#{match 4077}#
                           (cdr #{e 4177}#)
                           (cdr #{p 4178}#)
                           #{w 4179}#
                           #{r 4180}#
                           #{mod 4181}#)
                         #{mod 4181}#)
                       #f)
                     (if (eq? #{p 4178}# 'each-any)
                       (begin
                         (let ((#{l 4198}#
                                 (#{match-each-any 4069}#
                                   #{e 4177}#
                                   #{w 4179}#
                                   #{mod 4181}#)))
                           (if #{l 4198}# (cons #{l 4198}# #{r 4180}#) #f)))
                       (begin
                         (let ((#{atom-key 4204}# (vector-ref #{p 4178}# 0)))
                           (if (eqv? #{atom-key 4204}# 'each)
                             (if (null? #{e 4177}#)
                               (#{match-empty 4071}#
                                 (vector-ref #{p 4178}# 1)
                                 #{r 4180}#)
                               (begin
                                 (let ((#{l 4207}#
                                         (#{match-each 4065}#
                                           #{e 4177}#
                                           (vector-ref #{p 4178}# 1)
                                           #{w 4179}#
                                           #{mod 4181}#)))
                                   (if #{l 4207}#
                                     (letrec*
                                       ((#{collect 4212}#
                                          (lambda (#{l 4213}#)
                                            (if (null? (car #{l 4213}#))
                                              #{r 4180}#
                                              (cons (map car #{l 4213}#)
                                                    (#{collect 4212}#
                                                      (map cdr
                                                           #{l 4213}#)))))))
                                       (begin (#{collect 4212}# #{l 4207}#)))
                                     #f))))
                             (if (eqv? #{atom-key 4204}# 'each+)
                               (call-with-values
                                 (lambda ()
                                   (#{match-each+ 4067}#
                                     #{e 4177}#
                                     (vector-ref #{p 4178}# 1)
                                     (vector-ref #{p 4178}# 2)
                                     (vector-ref #{p 4178}# 3)
                                     #{w 4179}#
                                     #{r 4180}#
                                     #{mod 4181}#))
                                 (lambda (#{xr* 4215}#
                                          #{y-pat 4216}#
                                          #{r 4217}#)
                                   (if #{r 4217}#
                                     (if (null? #{y-pat 4216}#)
                                       (if (null? #{xr* 4215}#)
                                         (#{match-empty 4071}#
                                           (vector-ref #{p 4178}# 1)
                                           #{r 4217}#)
                                         (#{combine 4073}#
                                           #{xr* 4215}#
                                           #{r 4217}#))
                                       #f)
                                     #f)))
                               (if (eqv? #{atom-key 4204}# 'free-id)
                                 (if (#{id? 377}# #{e 4177}#)
                                   (if (#{free-id=? 433}#
                                         (#{wrap 443}#
                                           #{e 4177}#
                                           #{w 4179}#
                                           #{mod 4181}#)
                                         (vector-ref #{p 4178}# 1))
                                     #{r 4180}#
                                     #f)
                                   #f)
                                 (if (eqv? #{atom-key 4204}# 'atom)
                                   (if (equal?
                                         (vector-ref #{p 4178}# 1)
                                         (#{strip 483}# #{e 4177}# #{w 4179}#))
                                     #{r 4180}#
                                     #f)
                                   (if (eqv? #{atom-key 4204}# 'vector)
                                     (if (vector? #{e 4177}#)
                                       (#{match 4077}#
                                         (vector->list #{e 4177}#)
                                         (vector-ref #{p 4178}# 1)
                                         #{w 4179}#
                                         #{r 4180}#
                                         #{mod 4181}#)
                                       #f)))))))))))))
             (#{match 4077}#
               (lambda (#{e 4234}#
                        #{p 4235}#
                        #{w 4236}#
                        #{r 4237}#
                        #{mod 4238}#)
                 (if (not #{r 4237}#)
                   #f
                   (if (eq? #{p 4235}# '_)
                     #{r 4237}#
                     (if (eq? #{p 4235}# 'any)
                       (cons (#{wrap 443}# #{e 4234}# #{w 4236}# #{mod 4238}#)
                             #{r 4237}#)
                       (if (#{syntax-object? 343}# #{e 4234}#)
                         (#{match* 4075}#
                           (#{syntax-object-expression 345}# #{e 4234}#)
                           #{p 4235}#
                           (#{join-wraps 425}#
                             #{w 4236}#
                             (#{syntax-object-wrap 347}# #{e 4234}#))
                           #{r 4237}#
                           (#{syntax-object-module 349}# #{e 4234}#))
                         (#{match* 4075}#
                           #{e 4234}#
                           #{p 4235}#
                           #{w 4236}#
                           #{r 4237}#
                           #{mod 4238}#))))))))
            (begin
              (set! $sc-dispatch
                (lambda (#{e 4253}# #{p 4254}#)
                  (if (eq? #{p 4254}# 'any)
                    (list #{e 4253}#)
                    (if (eq? #{p 4254}# '_)
                      '()
                      (if (#{syntax-object? 343}# #{e 4253}#)
                        (#{match* 4075}#
                          (#{syntax-object-expression 345}# #{e 4253}#)
                          #{p 4254}#
                          (#{syntax-object-wrap 347}# #{e 4253}#)
                          '()
                          (#{syntax-object-module 349}# #{e 4253}#))
                        (#{match* 4075}#
                          #{e 4253}#
                          #{p 4254}#
                          '(())
                          '()
                          #f)))))))))))))

(define with-syntax
  (make-syntax-transformer
    'with-syntax
    'macro
    (lambda (#{x 4265}#)
      (let ((#{tmp 4267}# #{x 4265}#))
        (let ((#{tmp 4268}#
                ($sc-dispatch
                  #{tmp 4267}#
                  '(_ () any . each-any))))
          (if #{tmp 4268}#
            (@apply
              (lambda (#{e1 4271}# #{e2 4272}#)
                (cons '#(syntax-object
                         let
                         ((top)
                          #(ribcage
                            #(e1 e2)
                            #((top) (top))
                            #("i4269" "i4270"))
                          #(ribcage () () ())
                          #(ribcage #(x) #((top)) #("i4266")))
                         (hygiene guile))
                      (cons '() (cons #{e1 4271}# #{e2 4272}#))))
              #{tmp 4268}#)
            (let ((#{tmp 4274}#
                    ($sc-dispatch
                      #{tmp 4267}#
                      '(_ ((any any)) any . each-any))))
              (if #{tmp 4274}#
                (@apply
                  (lambda (#{out 4279}#
                           #{in 4280}#
                           #{e1 4281}#
                           #{e2 4282}#)
                    (list '#(syntax-object
                             syntax-case
                             ((top)
                              #(ribcage
                                #(out in e1 e2)
                                #((top) (top) (top) (top))
                                #("i4275" "i4276" "i4277" "i4278"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4266")))
                             (hygiene guile))
                          #{in 4280}#
                          '()
                          (list #{out 4279}#
                                (cons '#(syntax-object
                                         let
                                         ((top)
                                          #(ribcage
                                            #(out in e1 e2)
                                            #((top) (top) (top) (top))
                                            #("i4275" "i4276" "i4277" "i4278"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i4266")))
                                         (hygiene guile))
                                      (cons '()
                                            (cons #{e1 4281}# #{e2 4282}#))))))
                  #{tmp 4274}#)
                (let ((#{tmp 4284}#
                        ($sc-dispatch
                          #{tmp 4267}#
                          '(_ #(each (any any)) any . each-any))))
                  (if #{tmp 4284}#
                    (@apply
                      (lambda (#{out 4289}#
                               #{in 4290}#
                               #{e1 4291}#
                               #{e2 4292}#)
                        (list '#(syntax-object
                                 syntax-case
                                 ((top)
                                  #(ribcage
                                    #(out in e1 e2)
                                    #((top) (top) (top) (top))
                                    #("i4285" "i4286" "i4287" "i4288"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i4266")))
                                 (hygiene guile))
                              (cons '#(syntax-object
                                       list
                                       ((top)
                                        #(ribcage
                                          #(out in e1 e2)
                                          #((top) (top) (top) (top))
                                          #("i4285" "i4286" "i4287" "i4288"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i4266")))
                                       (hygiene guile))
                                    #{in 4290}#)
                              '()
                              (list #{out 4289}#
                                    (cons '#(syntax-object
                                             let
                                             ((top)
                                              #(ribcage
                                                #(out in e1 e2)
                                                #((top) (top) (top) (top))
                                                #("i4285"
                                                  "i4286"
                                                  "i4287"
                                                  "i4288"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i4266")))
                                             (hygiene guile))
                                          (cons '()
                                                (cons #{e1 4291}#
                                                      #{e2 4292}#))))))
                      #{tmp 4284}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp 4267}#)))))))))))

(define syntax-rules
  (make-syntax-transformer
    'syntax-rules
    'macro
    (lambda (#{x 4296}#)
      (let ((#{tmp 4298}# #{x 4296}#))
        (let ((#{tmp 4299}#
                ($sc-dispatch
                  #{tmp 4298}#
                  '(_ each-any . #(each ((any . any) any))))))
          (if #{tmp 4299}#
            (@apply
              (lambda (#{k 4304}#
                       #{keyword 4305}#
                       #{pattern 4306}#
                       #{template 4307}#)
                (list '#(syntax-object
                         lambda
                         ((top)
                          #(ribcage
                            #(k keyword pattern template)
                            #((top) (top) (top) (top))
                            #("i4300" "i4301" "i4302" "i4303"))
                          #(ribcage () () ())
                          #(ribcage #(x) #((top)) #("i4297")))
                         (hygiene guile))
                      '(#(syntax-object
                          x
                          ((top)
                           #(ribcage
                             #(k keyword pattern template)
                             #((top) (top) (top) (top))
                             #("i4300" "i4301" "i4302" "i4303"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i4297")))
                          (hygiene guile)))
                      (vector
                        '(#(syntax-object
                            macro-type
                            ((top)
                             #(ribcage
                               #(k keyword pattern template)
                               #((top) (top) (top) (top))
                               #("i4300" "i4301" "i4302" "i4303"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i4297")))
                            (hygiene guile))
                          .
                          #(syntax-object
                            syntax-rules
                            ((top)
                             #(ribcage
                               #(k keyword pattern template)
                               #((top) (top) (top) (top))
                               #("i4300" "i4301" "i4302" "i4303"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i4297")))
                            (hygiene guile)))
                        (cons '#(syntax-object
                                 patterns
                                 ((top)
                                  #(ribcage
                                    #(k keyword pattern template)
                                    #((top) (top) (top) (top))
                                    #("i4300" "i4301" "i4302" "i4303"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i4297")))
                                 (hygiene guile))
                              #{pattern 4306}#))
                      (cons '#(syntax-object
                               syntax-case
                               ((top)
                                #(ribcage
                                  #(k keyword pattern template)
                                  #((top) (top) (top) (top))
                                  #("i4300" "i4301" "i4302" "i4303"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i4297")))
                               (hygiene guile))
                            (cons '#(syntax-object
                                     x
                                     ((top)
                                      #(ribcage
                                        #(k keyword pattern template)
                                        #((top) (top) (top) (top))
                                        #("i4300" "i4301" "i4302" "i4303"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4297")))
                                     (hygiene guile))
                                  (cons #{k 4304}#
                                        (map (lambda (#{tmp 4311}#
                                                      #{tmp 4310}#)
                                               (list (cons '#(syntax-object
                                                              dummy
                                                              ((top)
                                                               #(ribcage
                                                                 #(k
                                                                   keyword
                                                                   pattern
                                                                   template)
                                                                 #((top)
                                                                   (top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4300"
                                                                   "i4301"
                                                                   "i4302"
                                                                   "i4303"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4297")))
                                                              (hygiene guile))
                                                           #{tmp 4310}#)
                                                     (list '#(syntax-object
                                                              syntax
                                                              ((top)
                                                               #(ribcage
                                                                 #(k
                                                                   keyword
                                                                   pattern
                                                                   template)
                                                                 #((top)
                                                                   (top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4300"
                                                                   "i4301"
                                                                   "i4302"
                                                                   "i4303"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4297")))
                                                              (hygiene guile))
                                                           #{tmp 4311}#)))
                                             #{template 4307}#
                                             #{pattern 4306}#))))))
              #{tmp 4299}#)
            (let ((#{tmp 4312}#
                    ($sc-dispatch
                      #{tmp 4298}#
                      '(_ each-any any . #(each ((any . any) any))))))
              (if (if #{tmp 4312}#
                    (@apply
                      (lambda (#{k 4318}#
                               #{docstring 4319}#
                               #{keyword 4320}#
                               #{pattern 4321}#
                               #{template 4322}#)
                        (string? (syntax->datum #{docstring 4319}#)))
                      #{tmp 4312}#)
                    #f)
                (@apply
                  (lambda (#{k 4328}#
                           #{docstring 4329}#
                           #{keyword 4330}#
                           #{pattern 4331}#
                           #{template 4332}#)
                    (list '#(syntax-object
                             lambda
                             ((top)
                              #(ribcage
                                #(k docstring keyword pattern template)
                                #((top) (top) (top) (top) (top))
                                #("i4323" "i4324" "i4325" "i4326" "i4327"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4297")))
                             (hygiene guile))
                          '(#(syntax-object
                              x
                              ((top)
                               #(ribcage
                                 #(k docstring keyword pattern template)
                                 #((top) (top) (top) (top) (top))
                                 #("i4323" "i4324" "i4325" "i4326" "i4327"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i4297")))
                              (hygiene guile)))
                          #{docstring 4329}#
                          (vector
                            '(#(syntax-object
                                macro-type
                                ((top)
                                 #(ribcage
                                   #(k docstring keyword pattern template)
                                   #((top) (top) (top) (top) (top))
                                   #("i4323" "i4324" "i4325" "i4326" "i4327"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4297")))
                                (hygiene guile))
                              .
                              #(syntax-object
                                syntax-rules
                                ((top)
                                 #(ribcage
                                   #(k docstring keyword pattern template)
                                   #((top) (top) (top) (top) (top))
                                   #("i4323" "i4324" "i4325" "i4326" "i4327"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4297")))
                                (hygiene guile)))
                            (cons '#(syntax-object
                                     patterns
                                     ((top)
                                      #(ribcage
                                        #(k docstring keyword pattern template)
                                        #((top) (top) (top) (top) (top))
                                        #("i4323"
                                          "i4324"
                                          "i4325"
                                          "i4326"
                                          "i4327"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4297")))
                                     (hygiene guile))
                                  #{pattern 4331}#))
                          (cons '#(syntax-object
                                   syntax-case
                                   ((top)
                                    #(ribcage
                                      #(k docstring keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("i4323"
                                        "i4324"
                                        "i4325"
                                        "i4326"
                                        "i4327"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4297")))
                                   (hygiene guile))
                                (cons '#(syntax-object
                                         x
                                         ((top)
                                          #(ribcage
                                            #(k
                                              docstring
                                              keyword
                                              pattern
                                              template)
                                            #((top) (top) (top) (top) (top))
                                            #("i4323"
                                              "i4324"
                                              "i4325"
                                              "i4326"
                                              "i4327"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i4297")))
                                         (hygiene guile))
                                      (cons #{k 4328}#
                                            (map (lambda (#{tmp 4336}#
                                                          #{tmp 4335}#)
                                                   (list (cons '#(syntax-object
                                                                  dummy
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(k
                                                                       docstring
                                                                       keyword
                                                                       pattern
                                                                       template)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i4323"
                                                                       "i4324"
                                                                       "i4325"
                                                                       "i4326"
                                                                       "i4327"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(x)
                                                                     #((top))
                                                                     #("i4297")))
                                                                  (hygiene
                                                                    guile))
                                                               #{tmp 4335}#)
                                                         (list '#(syntax-object
                                                                  syntax
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(k
                                                                       docstring
                                                                       keyword
                                                                       pattern
                                                                       template)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i4323"
                                                                       "i4324"
                                                                       "i4325"
                                                                       "i4326"
                                                                       "i4327"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(x)
                                                                     #((top))
                                                                     #("i4297")))
                                                                  (hygiene
                                                                    guile))
                                                               #{tmp 4336}#)))
                                                 #{template 4332}#
                                                 #{pattern 4331}#))))))
                  #{tmp 4312}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp 4298}#)))))))))

(define let*
  (make-syntax-transformer
    'let*
    'macro
    (lambda (#{x 4337}#)
      (let ((#{tmp 4339}# #{x 4337}#))
        (let ((#{tmp 4340}#
                ($sc-dispatch
                  #{tmp 4339}#
                  '(any #(each (any any)) any . each-any))))
          (if (if #{tmp 4340}#
                (@apply
                  (lambda (#{let* 4346}#
                           #{x 4347}#
                           #{v 4348}#
                           #{e1 4349}#
                           #{e2 4350}#)
                    (and-map identifier? #{x 4347}#))
                  #{tmp 4340}#)
                #f)
            (@apply
              (lambda (#{let* 4357}#
                       #{x 4358}#
                       #{v 4359}#
                       #{e1 4360}#
                       #{e2 4361}#)
                (letrec*
                  ((#{f 4364}#
                     (lambda (#{bindings 4365}#)
                       (if (null? #{bindings 4365}#)
                         (cons '#(syntax-object
                                  let
                                  ((top)
                                   #(ribcage () () ())
                                   #(ribcage
                                     #(f bindings)
                                     #((top) (top))
                                     #("i4362" "i4363"))
                                   #(ribcage
                                     #(let* x v e1 e2)
                                     #((top) (top) (top) (top) (top))
                                     #("i4352"
                                       "i4353"
                                       "i4354"
                                       "i4355"
                                       "i4356"))
                                   #(ribcage () () ())
                                   #(ribcage #(x) #((top)) #("i4338")))
                                  (hygiene guile))
                               (cons '() (cons #{e1 4360}# #{e2 4361}#)))
                         (let ((#{tmp 4370}#
                                 (list (#{f 4364}# (cdr #{bindings 4365}#))
                                       (car #{bindings 4365}#))))
                           (let ((#{tmp 4371}#
                                   ($sc-dispatch #{tmp 4370}# '(any any))))
                             (if #{tmp 4371}#
                               (@apply
                                 (lambda (#{body 4374}# #{binding 4375}#)
                                   (list '#(syntax-object
                                            let
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(body binding)
                                               #((top) (top))
                                               #("i4372" "i4373"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(f bindings)
                                               #((top) (top))
                                               #("i4362" "i4363"))
                                             #(ribcage
                                               #(let* x v e1 e2)
                                               #((top) (top) (top) (top) (top))
                                               #("i4352"
                                                 "i4353"
                                                 "i4354"
                                                 "i4355"
                                                 "i4356"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i4338")))
                                            (hygiene guile))
                                         (list #{binding 4375}#)
                                         #{body 4374}#))
                                 #{tmp 4371}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 #{tmp 4370}#))))))))
                  (begin
                    (#{f 4364}# (map list #{x 4358}# #{v 4359}#)))))
              #{tmp 4340}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{tmp 4339}#)))))))

(define do
  (make-syntax-transformer
    'do
    'macro
    (lambda (#{orig-x 4376}#)
      (let ((#{tmp 4378}# #{orig-x 4376}#))
        (let ((#{tmp 4379}#
                ($sc-dispatch
                  #{tmp 4378}#
                  '(_ #(each (any any . any))
                      (any . each-any)
                      .
                      each-any))))
          (if #{tmp 4379}#
            (@apply
              (lambda (#{var 4386}#
                       #{init 4387}#
                       #{step 4388}#
                       #{e0 4389}#
                       #{e1 4390}#
                       #{c 4391}#)
                (let ((#{tmp 4393}#
                        (map (lambda (#{v 4414}# #{s 4415}#)
                               (let ((#{tmp 4418}# #{s 4415}#))
                                 (let ((#{tmp 4419}#
                                         ($sc-dispatch #{tmp 4418}# '())))
                                   (if #{tmp 4419}#
                                     (@apply
                                       (lambda () #{v 4414}#)
                                       #{tmp 4419}#)
                                     (let ((#{tmp 4420}#
                                             ($sc-dispatch
                                               #{tmp 4418}#
                                               '(any))))
                                       (if #{tmp 4420}#
                                         (@apply
                                           (lambda (#{e 4422}#) #{e 4422}#)
                                           #{tmp 4420}#)
                                         (let ((#{_ 4424}# #{tmp 4418}#))
                                           (syntax-violation
                                             'do
                                             "bad step expression"
                                             #{orig-x 4376}#
                                             #{s 4415}#))))))))
                             #{var 4386}#
                             #{step 4388}#)))
                  (let ((#{tmp 4394}#
                          ($sc-dispatch #{tmp 4393}# 'each-any)))
                    (if #{tmp 4394}#
                      (@apply
                        (lambda (#{step 4396}#)
                          (let ((#{tmp 4397}# #{e1 4390}#))
                            (let ((#{tmp 4398}#
                                    ($sc-dispatch #{tmp 4397}# '())))
                              (if #{tmp 4398}#
                                (@apply
                                  (lambda ()
                                    (list '#(syntax-object
                                             let
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i4395"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i4380"
                                                  "i4381"
                                                  "i4382"
                                                  "i4383"
                                                  "i4384"
                                                  "i4385"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i4377")))
                                             (hygiene guile))
                                          '#(syntax-object
                                             doloop
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(step)
                                                #((top))
                                                #("i4395"))
                                              #(ribcage
                                                #(var init step e0 e1 c)
                                                #((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                #("i4380"
                                                  "i4381"
                                                  "i4382"
                                                  "i4383"
                                                  "i4384"
                                                  "i4385"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(orig-x)
                                                #((top))
                                                #("i4377")))
                                             (hygiene guile))
                                          (map list #{var 4386}# #{init 4387}#)
                                          (list '#(syntax-object
                                                   if
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(step)
                                                      #((top))
                                                      #("i4395"))
                                                    #(ribcage
                                                      #(var init step e0 e1 c)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i4380"
                                                        "i4381"
                                                        "i4382"
                                                        "i4383"
                                                        "i4384"
                                                        "i4385"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(orig-x)
                                                      #((top))
                                                      #("i4377")))
                                                   (hygiene guile))
                                                (list '#(syntax-object
                                                         not
                                                         ((top)
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i4395"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i4380"
                                                              "i4381"
                                                              "i4382"
                                                              "i4383"
                                                              "i4384"
                                                              "i4385"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i4377")))
                                                         (hygiene guile))
                                                      #{e0 4389}#)
                                                (cons '#(syntax-object
                                                         begin
                                                         ((top)
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(step)
                                                            #((top))
                                                            #("i4395"))
                                                          #(ribcage
                                                            #(var
                                                              init
                                                              step
                                                              e0
                                                              e1
                                                              c)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i4380"
                                                              "i4381"
                                                              "i4382"
                                                              "i4383"
                                                              "i4384"
                                                              "i4385"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(orig-x)
                                                            #((top))
                                                            #("i4377")))
                                                         (hygiene guile))
                                                      (append
                                                        #{c 4391}#
                                                        (list (cons '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i4395"))
                                                                        #(ribcage
                                                                          #(var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4380"
                                                                            "i4381"
                                                                            "i4382"
                                                                            "i4383"
                                                                            "i4384"
                                                                            "i4385"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i4377")))
                                                                       (hygiene
                                                                         guile))
                                                                    #{step 4396}#)))))))
                                  #{tmp 4398}#)
                                (let ((#{tmp 4403}#
                                        ($sc-dispatch
                                          #{tmp 4397}#
                                          '(any . each-any))))
                                  (if #{tmp 4403}#
                                    (@apply
                                      (lambda (#{e1 4406}# #{e2 4407}#)
                                        (list '#(syntax-object
                                                 let
                                                 ((top)
                                                  #(ribcage
                                                    #(e1 e2)
                                                    #((top) (top))
                                                    #("i4404" "i4405"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(step)
                                                    #((top))
                                                    #("i4395"))
                                                  #(ribcage
                                                    #(var init step e0 e1 c)
                                                    #((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                    #("i4380"
                                                      "i4381"
                                                      "i4382"
                                                      "i4383"
                                                      "i4384"
                                                      "i4385"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(orig-x)
                                                    #((top))
                                                    #("i4377")))
                                                 (hygiene guile))
                                              '#(syntax-object
                                                 doloop
                                                 ((top)
                                                  #(ribcage
                                                    #(e1 e2)
                                                    #((top) (top))
                                                    #("i4404" "i4405"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(step)
                                                    #((top))
                                                    #("i4395"))
                                                  #(ribcage
                                                    #(var init step e0 e1 c)
                                                    #((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                    #("i4380"
                                                      "i4381"
                                                      "i4382"
                                                      "i4383"
                                                      "i4384"
                                                      "i4385"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(orig-x)
                                                    #((top))
                                                    #("i4377")))
                                                 (hygiene guile))
                                              (map list
                                                   #{var 4386}#
                                                   #{init 4387}#)
                                              (list '#(syntax-object
                                                       if
                                                       ((top)
                                                        #(ribcage
                                                          #(e1 e2)
                                                          #((top) (top))
                                                          #("i4404" "i4405"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(step)
                                                          #((top))
                                                          #("i4395"))
                                                        #(ribcage
                                                          #(var
                                                            init
                                                            step
                                                            e0
                                                            e1
                                                            c)
                                                          #((top)
                                                            (top)
                                                            (top)
                                                            (top)
                                                            (top)
                                                            (top))
                                                          #("i4380"
                                                            "i4381"
                                                            "i4382"
                                                            "i4383"
                                                            "i4384"
                                                            "i4385"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(orig-x)
                                                          #((top))
                                                          #("i4377")))
                                                       (hygiene guile))
                                                    #{e0 4389}#
                                                    (cons '#(syntax-object
                                                             begin
                                                             ((top)
                                                              #(ribcage
                                                                #(e1 e2)
                                                                #((top) (top))
                                                                #("i4404"
                                                                  "i4405"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(step)
                                                                #((top))
                                                                #("i4395"))
                                                              #(ribcage
                                                                #(var
                                                                  init
                                                                  step
                                                                  e0
                                                                  e1
                                                                  c)
                                                                #((top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top))
                                                                #("i4380"
                                                                  "i4381"
                                                                  "i4382"
                                                                  "i4383"
                                                                  "i4384"
                                                                  "i4385"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(orig-x)
                                                                #((top))
                                                                #("i4377")))
                                                             (hygiene guile))
                                                          (cons #{e1 4406}#
                                                                #{e2 4407}#))
                                                    (cons '#(syntax-object
                                                             begin
                                                             ((top)
                                                              #(ribcage
                                                                #(e1 e2)
                                                                #((top) (top))
                                                                #("i4404"
                                                                  "i4405"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(step)
                                                                #((top))
                                                                #("i4395"))
                                                              #(ribcage
                                                                #(var
                                                                  init
                                                                  step
                                                                  e0
                                                                  e1
                                                                  c)
                                                                #((top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top)
                                                                  (top))
                                                                #("i4380"
                                                                  "i4381"
                                                                  "i4382"
                                                                  "i4383"
                                                                  "i4384"
                                                                  "i4385"))
                                                              #(ribcage
                                                                ()
                                                                ()
                                                                ())
                                                              #(ribcage
                                                                #(orig-x)
                                                                #((top))
                                                                #("i4377")))
                                                             (hygiene guile))
                                                          (append
                                                            #{c 4391}#
                                                            (list (cons '#(syntax-object
                                                                           doloop
                                                                           ((top)
                                                                            #(ribcage
                                                                              #(e1
                                                                                e2)
                                                                              #((top)
                                                                                (top))
                                                                              #("i4404"
                                                                                "i4405"))
                                                                            #(ribcage
                                                                              ()
                                                                              ()
                                                                              ())
                                                                            #(ribcage
                                                                              #(step)
                                                                              #((top))
                                                                              #("i4395"))
                                                                            #(ribcage
                                                                              #(var
                                                                                init
                                                                                step
                                                                                e0
                                                                                e1
                                                                                c)
                                                                              #((top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                              #("i4380"
                                                                                "i4381"
                                                                                "i4382"
                                                                                "i4383"
                                                                                "i4384"
                                                                                "i4385"))
                                                                            #(ribcage
                                                                              ()
                                                                              ()
                                                                              ())
                                                                            #(ribcage
                                                                              #(orig-x)
                                                                              #((top))
                                                                              #("i4377")))
                                                                           (hygiene
                                                                             guile))
                                                                        #{step 4396}#)))))))
                                      #{tmp 4403}#)
                                    (syntax-violation
                                      #f
                                      "source expression failed to match any pattern"
                                      #{tmp 4397}#)))))))
                        #{tmp 4394}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp 4393}#)))))
              #{tmp 4379}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{tmp 4378}#)))))))

(define quasiquote
  (make-syntax-transformer
    'quasiquote
    'macro
    (letrec*
      ((#{quasi 4428}#
         (lambda (#{p 4441}# #{lev 4442}#)
           (let ((#{tmp 4445}# #{p 4441}#))
             (let ((#{tmp 4446}#
                     ($sc-dispatch
                       #{tmp 4445}#
                       '(#(free-id
                           #(syntax-object
                             unquote
                             ((top)
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i4443" "i4444"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i4439"
                                 "i4437"
                                 "i4435"
                                 "i4433"
                                 "i4431"
                                 "i4429"
                                 "i4427")))
                             (hygiene guile)))
                         any))))
               (if #{tmp 4446}#
                 (@apply
                   (lambda (#{p 4448}#)
                     (if (= #{lev 4442}# 0)
                       (list '#(syntax-object
                                "value"
                                ((top)
                                 #(ribcage #(p) #((top)) #("i4447"))
                                 #(ribcage () () ())
                                 #(ribcage
                                   #(p lev)
                                   #((top) (top))
                                   #("i4443" "i4444"))
                                 #(ribcage
                                   (emit quasivector
                                         quasilist*
                                         quasiappend
                                         quasicons
                                         vquasi
                                         quasi)
                                   ((top) (top) (top) (top) (top) (top) (top))
                                   ("i4439"
                                    "i4437"
                                    "i4435"
                                    "i4433"
                                    "i4431"
                                    "i4429"
                                    "i4427")))
                                (hygiene guile))
                             #{p 4448}#)
                       (#{quasicons 4432}#
                         '(#(syntax-object
                             "quote"
                             ((top)
                              #(ribcage #(p) #((top)) #("i4447"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i4443" "i4444"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i4439"
                                 "i4437"
                                 "i4435"
                                 "i4433"
                                 "i4431"
                                 "i4429"
                                 "i4427")))
                             (hygiene guile))
                           #(syntax-object
                             unquote
                             ((top)
                              #(ribcage #(p) #((top)) #("i4447"))
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i4443" "i4444"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i4439"
                                 "i4437"
                                 "i4435"
                                 "i4433"
                                 "i4431"
                                 "i4429"
                                 "i4427")))
                             (hygiene guile)))
                         (#{quasi 4428}#
                           (list #{p 4448}#)
                           (#{1-}# #{lev 4442}#)))))
                   #{tmp 4446}#)
                 (let ((#{tmp 4449}#
                         ($sc-dispatch
                           #{tmp 4445}#
                           '(#(free-id
                               #(syntax-object
                                 quasiquote
                                 ((top)
                                  #(ribcage () () ())
                                  #(ribcage
                                    #(p lev)
                                    #((top) (top))
                                    #("i4443" "i4444"))
                                  #(ribcage
                                    (emit quasivector
                                          quasilist*
                                          quasiappend
                                          quasicons
                                          vquasi
                                          quasi)
                                    ((top) (top) (top) (top) (top) (top) (top))
                                    ("i4439"
                                     "i4437"
                                     "i4435"
                                     "i4433"
                                     "i4431"
                                     "i4429"
                                     "i4427")))
                                 (hygiene guile)))
                             any))))
                   (if #{tmp 4449}#
                     (@apply
                       (lambda (#{p 4451}#)
                         (#{quasicons 4432}#
                           '(#(syntax-object
                               "quote"
                               ((top)
                                #(ribcage #(p) #((top)) #("i4450"))
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
                                  #("i4443" "i4444"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
                                        quasiappend
                                        quasicons
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
                                  ("i4439"
                                   "i4437"
                                   "i4435"
                                   "i4433"
                                   "i4431"
                                   "i4429"
                                   "i4427")))
                               (hygiene guile))
                             #(syntax-object
                               quasiquote
                               ((top)
                                #(ribcage #(p) #((top)) #("i4450"))
                                #(ribcage () () ())
                                #(ribcage
                                  #(p lev)
                                  #((top) (top))
                                  #("i4443" "i4444"))
                                #(ribcage
                                  (emit quasivector
                                        quasilist*
                                        quasiappend
                                        quasicons
                                        vquasi
                                        quasi)
                                  ((top) (top) (top) (top) (top) (top) (top))
                                  ("i4439"
                                   "i4437"
                                   "i4435"
                                   "i4433"
                                   "i4431"
                                   "i4429"
                                   "i4427")))
                               (hygiene guile)))
                           (#{quasi 4428}#
                             (list #{p 4451}#)
                             (#{1+}# #{lev 4442}#))))
                       #{tmp 4449}#)
                     (let ((#{tmp 4452}#
                             ($sc-dispatch #{tmp 4445}# '(any . any))))
                       (if #{tmp 4452}#
                         (@apply
                           (lambda (#{p 4455}# #{q 4456}#)
                             (let ((#{tmp 4457}# #{p 4455}#))
                               (let ((#{tmp 4458}#
                                       ($sc-dispatch
                                         #{tmp 4457}#
                                         '(#(free-id
                                             #(syntax-object
                                               unquote
                                               ((top)
                                                #(ribcage
                                                  #(p q)
                                                  #((top) (top))
                                                  #("i4453" "i4454"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(p lev)
                                                  #((top) (top))
                                                  #("i4443" "i4444"))
                                                #(ribcage
                                                  (emit quasivector
                                                        quasilist*
                                                        quasiappend
                                                        quasicons
                                                        vquasi
                                                        quasi)
                                                  ((top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top)
                                                   (top))
                                                  ("i4439"
                                                   "i4437"
                                                   "i4435"
                                                   "i4433"
                                                   "i4431"
                                                   "i4429"
                                                   "i4427")))
                                               (hygiene guile)))
                                           .
                                           each-any))))
                                 (if #{tmp 4458}#
                                   (@apply
                                     (lambda (#{p 4460}#)
                                       (if (= #{lev 4442}# 0)
                                         (#{quasilist* 4436}#
                                           (map (lambda (#{tmp 4461}#)
                                                  (list '#(syntax-object
                                                           "value"
                                                           ((top)
                                                            #(ribcage
                                                              #(p)
                                                              #((top))
                                                              #("i4459"))
                                                            #(ribcage
                                                              #(p q)
                                                              #((top) (top))
                                                              #("i4453"
                                                                "i4454"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(p lev)
                                                              #((top) (top))
                                                              #("i4443"
                                                                "i4444"))
                                                            #(ribcage
                                                              (emit quasivector
                                                                    quasilist*
                                                                    quasiappend
                                                                    quasicons
                                                                    vquasi
                                                                    quasi)
                                                              ((top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top)
                                                               (top))
                                                              ("i4439"
                                                               "i4437"
                                                               "i4435"
                                                               "i4433"
                                                               "i4431"
                                                               "i4429"
                                                               "i4427")))
                                                           (hygiene guile))
                                                        #{tmp 4461}#))
                                                #{p 4460}#)
                                           (#{quasi 4428}#
                                             #{q 4456}#
                                             #{lev 4442}#))
                                         (#{quasicons 4432}#
                                           (#{quasicons 4432}#
                                             '(#(syntax-object
                                                 "quote"
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i4459"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i4453" "i4454"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i4443" "i4444"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i4439"
                                                     "i4437"
                                                     "i4435"
                                                     "i4433"
                                                     "i4431"
                                                     "i4429"
                                                     "i4427")))
                                                 (hygiene guile))
                                               #(syntax-object
                                                 unquote
                                                 ((top)
                                                  #(ribcage
                                                    #(p)
                                                    #((top))
                                                    #("i4459"))
                                                  #(ribcage
                                                    #(p q)
                                                    #((top) (top))
                                                    #("i4453" "i4454"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i4443" "i4444"))
                                                  #(ribcage
                                                    (emit quasivector
                                                          quasilist*
                                                          quasiappend
                                                          quasicons
                                                          vquasi
                                                          quasi)
                                                    ((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                    ("i4439"
                                                     "i4437"
                                                     "i4435"
                                                     "i4433"
                                                     "i4431"
                                                     "i4429"
                                                     "i4427")))
                                                 (hygiene guile)))
                                             (#{quasi 4428}#
                                               #{p 4460}#
                                               (#{1-}# #{lev 4442}#)))
                                           (#{quasi 4428}#
                                             #{q 4456}#
                                             #{lev 4442}#))))
                                     #{tmp 4458}#)
                                   (let ((#{tmp 4463}#
                                           ($sc-dispatch
                                             #{tmp 4457}#
                                             '(#(free-id
                                                 #(syntax-object
                                                   unquote-splicing
                                                   ((top)
                                                    #(ribcage
                                                      #(p q)
                                                      #((top) (top))
                                                      #("i4453" "i4454"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(p lev)
                                                      #((top) (top))
                                                      #("i4443" "i4444"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
                                                            quasiappend
                                                            quasicons
                                                            vquasi
                                                            quasi)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("i4439"
                                                       "i4437"
                                                       "i4435"
                                                       "i4433"
                                                       "i4431"
                                                       "i4429"
                                                       "i4427")))
                                                   (hygiene guile)))
                                               .
                                               each-any))))
                                     (if #{tmp 4463}#
                                       (@apply
                                         (lambda (#{p 4465}#)
                                           (if (= #{lev 4442}# 0)
                                             (#{quasiappend 4434}#
                                               (map (lambda (#{tmp 4466}#)
                                                      (list '#(syntax-object
                                                               "value"
                                                               ((top)
                                                                #(ribcage
                                                                  #(p)
                                                                  #((top))
                                                                  #("i4464"))
                                                                #(ribcage
                                                                  #(p q)
                                                                  #((top)
                                                                    (top))
                                                                  #("i4453"
                                                                    "i4454"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  #(p lev)
                                                                  #((top)
                                                                    (top))
                                                                  #("i4443"
                                                                    "i4444"))
                                                                #(ribcage
                                                                  (emit quasivector
                                                                        quasilist*
                                                                        quasiappend
                                                                        quasicons
                                                                        vquasi
                                                                        quasi)
                                                                  ((top)
                                                                   (top)
                                                                   (top)
                                                                   (top)
                                                                   (top)
                                                                   (top)
                                                                   (top))
                                                                  ("i4439"
                                                                   "i4437"
                                                                   "i4435"
                                                                   "i4433"
                                                                   "i4431"
                                                                   "i4429"
                                                                   "i4427")))
                                                               (hygiene guile))
                                                            #{tmp 4466}#))
                                                    #{p 4465}#)
                                               (#{quasi 4428}#
                                                 #{q 4456}#
                                                 #{lev 4442}#))
                                             (#{quasicons 4432}#
                                               (#{quasicons 4432}#
                                                 '(#(syntax-object
                                                     "quote"
                                                     ((top)
                                                      #(ribcage
                                                        #(p)
                                                        #((top))
                                                        #("i4464"))
                                                      #(ribcage
                                                        #(p q)
                                                        #((top) (top))
                                                        #("i4453" "i4454"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(p lev)
                                                        #((top) (top))
                                                        #("i4443" "i4444"))
                                                      #(ribcage
                                                        (emit quasivector
                                                              quasilist*
                                                              quasiappend
                                                              quasicons
                                                              vquasi
                                                              quasi)
                                                        ((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                        ("i4439"
                                                         "i4437"
                                                         "i4435"
                                                         "i4433"
                                                         "i4431"
                                                         "i4429"
                                                         "i4427")))
                                                     (hygiene guile))
                                                   #(syntax-object
                                                     unquote-splicing
                                                     ((top)
                                                      #(ribcage
                                                        #(p)
                                                        #((top))
                                                        #("i4464"))
                                                      #(ribcage
                                                        #(p q)
                                                        #((top) (top))
                                                        #("i4453" "i4454"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(p lev)
                                                        #((top) (top))
                                                        #("i4443" "i4444"))
                                                      #(ribcage
                                                        (emit quasivector
                                                              quasilist*
                                                              quasiappend
                                                              quasicons
                                                              vquasi
                                                              quasi)
                                                        ((top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                        ("i4439"
                                                         "i4437"
                                                         "i4435"
                                                         "i4433"
                                                         "i4431"
                                                         "i4429"
                                                         "i4427")))
                                                     (hygiene guile)))
                                                 (#{quasi 4428}#
                                                   #{p 4465}#
                                                   (#{1-}# #{lev 4442}#)))
                                               (#{quasi 4428}#
                                                 #{q 4456}#
                                                 #{lev 4442}#))))
                                         #{tmp 4463}#)
                                       (let ((#{_ 4469}# #{tmp 4457}#))
                                         (#{quasicons 4432}#
                                           (#{quasi 4428}#
                                             #{p 4455}#
                                             #{lev 4442}#)
                                           (#{quasi 4428}#
                                             #{q 4456}#
                                             #{lev 4442}#)))))))))
                           #{tmp 4452}#)
                         (let ((#{tmp 4470}#
                                 ($sc-dispatch
                                   #{tmp 4445}#
                                   '#(vector each-any))))
                           (if #{tmp 4470}#
                             (@apply
                               (lambda (#{x 4472}#)
                                 (#{quasivector 4438}#
                                   (#{vquasi 4430}# #{x 4472}# #{lev 4442}#)))
                               #{tmp 4470}#)
                             (let ((#{p 4475}# #{tmp 4445}#))
                               (list '#(syntax-object
                                        "quote"
                                        ((top)
                                         #(ribcage #(p) #((top)) #("i4474"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p lev)
                                           #((top) (top))
                                           #("i4443" "i4444"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
                                                 quasiappend
                                                 quasicons
                                                 vquasi
                                                 quasi)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i4439"
                                            "i4437"
                                            "i4435"
                                            "i4433"
                                            "i4431"
                                            "i4429"
                                            "i4427")))
                                        (hygiene guile))
                                     #{p 4475}#)))))))))))))
       (#{vquasi 4430}#
         (lambda (#{p 4476}# #{lev 4477}#)
           (let ((#{tmp 4480}# #{p 4476}#))
             (let ((#{tmp 4481}#
                     ($sc-dispatch #{tmp 4480}# '(any . any))))
               (if #{tmp 4481}#
                 (@apply
                   (lambda (#{p 4484}# #{q 4485}#)
                     (let ((#{tmp 4486}# #{p 4484}#))
                       (let ((#{tmp 4487}#
                               ($sc-dispatch
                                 #{tmp 4486}#
                                 '(#(free-id
                                     #(syntax-object
                                       unquote
                                       ((top)
                                        #(ribcage
                                          #(p q)
                                          #((top) (top))
                                          #("i4482" "i4483"))
                                        #(ribcage () () ())
                                        #(ribcage
                                          #(p lev)
                                          #((top) (top))
                                          #("i4478" "i4479"))
                                        #(ribcage
                                          (emit quasivector
                                                quasilist*
                                                quasiappend
                                                quasicons
                                                vquasi
                                                quasi)
                                          ((top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top)
                                           (top))
                                          ("i4439"
                                           "i4437"
                                           "i4435"
                                           "i4433"
                                           "i4431"
                                           "i4429"
                                           "i4427")))
                                       (hygiene guile)))
                                   .
                                   each-any))))
                         (if #{tmp 4487}#
                           (@apply
                             (lambda (#{p 4489}#)
                               (if (= #{lev 4477}# 0)
                                 (#{quasilist* 4436}#
                                   (map (lambda (#{tmp 4490}#)
                                          (list '#(syntax-object
                                                   "value"
                                                   ((top)
                                                    #(ribcage
                                                      #(p)
                                                      #((top))
                                                      #("i4488"))
                                                    #(ribcage
                                                      #(p q)
                                                      #((top) (top))
                                                      #("i4482" "i4483"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(p lev)
                                                      #((top) (top))
                                                      #("i4478" "i4479"))
                                                    #(ribcage
                                                      (emit quasivector
                                                            quasilist*
                                                            quasiappend
                                                            quasicons
                                                            vquasi
                                                            quasi)
                                                      ((top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top)
                                                       (top))
                                                      ("i4439"
                                                       "i4437"
                                                       "i4435"
                                                       "i4433"
                                                       "i4431"
                                                       "i4429"
                                                       "i4427")))
                                                   (hygiene guile))
                                                #{tmp 4490}#))
                                        #{p 4489}#)
                                   (#{vquasi 4430}# #{q 4485}# #{lev 4477}#))
                                 (#{quasicons 4432}#
                                   (#{quasicons 4432}#
                                     '(#(syntax-object
                                         "quote"
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i4488"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i4482" "i4483"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i4478" "i4479"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i4439"
                                             "i4437"
                                             "i4435"
                                             "i4433"
                                             "i4431"
                                             "i4429"
                                             "i4427")))
                                         (hygiene guile))
                                       #(syntax-object
                                         unquote
                                         ((top)
                                          #(ribcage #(p) #((top)) #("i4488"))
                                          #(ribcage
                                            #(p q)
                                            #((top) (top))
                                            #("i4482" "i4483"))
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(p lev)
                                            #((top) (top))
                                            #("i4478" "i4479"))
                                          #(ribcage
                                            (emit quasivector
                                                  quasilist*
                                                  quasiappend
                                                  quasicons
                                                  vquasi
                                                  quasi)
                                            ((top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top)
                                             (top))
                                            ("i4439"
                                             "i4437"
                                             "i4435"
                                             "i4433"
                                             "i4431"
                                             "i4429"
                                             "i4427")))
                                         (hygiene guile)))
                                     (#{quasi 4428}#
                                       #{p 4489}#
                                       (#{1-}# #{lev 4477}#)))
                                   (#{vquasi 4430}# #{q 4485}# #{lev 4477}#))))
                             #{tmp 4487}#)
                           (let ((#{tmp 4492}#
                                   ($sc-dispatch
                                     #{tmp 4486}#
                                     '(#(free-id
                                         #(syntax-object
                                           unquote-splicing
                                           ((top)
                                            #(ribcage
                                              #(p q)
                                              #((top) (top))
                                              #("i4482" "i4483"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(p lev)
                                              #((top) (top))
                                              #("i4478" "i4479"))
                                            #(ribcage
                                              (emit quasivector
                                                    quasilist*
                                                    quasiappend
                                                    quasicons
                                                    vquasi
                                                    quasi)
                                              ((top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top)
                                               (top))
                                              ("i4439"
                                               "i4437"
                                               "i4435"
                                               "i4433"
                                               "i4431"
                                               "i4429"
                                               "i4427")))
                                           (hygiene guile)))
                                       .
                                       each-any))))
                             (if #{tmp 4492}#
                               (@apply
                                 (lambda (#{p 4494}#)
                                   (if (= #{lev 4477}# 0)
                                     (#{quasiappend 4434}#
                                       (map (lambda (#{tmp 4495}#)
                                              (list '#(syntax-object
                                                       "value"
                                                       ((top)
                                                        #(ribcage
                                                          #(p)
                                                          #((top))
                                                          #("i4493"))
                                                        #(ribcage
                                                          #(p q)
                                                          #((top) (top))
                                                          #("i4482" "i4483"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(p lev)
                                                          #((top) (top))
                                                          #("i4478" "i4479"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i4439"
                                                           "i4437"
                                                           "i4435"
                                                           "i4433"
                                                           "i4431"
                                                           "i4429"
                                                           "i4427")))
                                                       (hygiene guile))
                                                    #{tmp 4495}#))
                                            #{p 4494}#)
                                       (#{vquasi 4430}#
                                         #{q 4485}#
                                         #{lev 4477}#))
                                     (#{quasicons 4432}#
                                       (#{quasicons 4432}#
                                         '(#(syntax-object
                                             "quote"
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i4493"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i4482" "i4483"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i4478" "i4479"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i4439"
                                                 "i4437"
                                                 "i4435"
                                                 "i4433"
                                                 "i4431"
                                                 "i4429"
                                                 "i4427")))
                                             (hygiene guile))
                                           #(syntax-object
                                             unquote-splicing
                                             ((top)
                                              #(ribcage
                                                #(p)
                                                #((top))
                                                #("i4493"))
                                              #(ribcage
                                                #(p q)
                                                #((top) (top))
                                                #("i4482" "i4483"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i4478" "i4479"))
                                              #(ribcage
                                                (emit quasivector
                                                      quasilist*
                                                      quasiappend
                                                      quasicons
                                                      vquasi
                                                      quasi)
                                                ((top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top)
                                                 (top))
                                                ("i4439"
                                                 "i4437"
                                                 "i4435"
                                                 "i4433"
                                                 "i4431"
                                                 "i4429"
                                                 "i4427")))
                                             (hygiene guile)))
                                         (#{quasi 4428}#
                                           #{p 4494}#
                                           (#{1-}# #{lev 4477}#)))
                                       (#{vquasi 4430}#
                                         #{q 4485}#
                                         #{lev 4477}#))))
                                 #{tmp 4492}#)
                               (let ((#{_ 4498}# #{tmp 4486}#))
                                 (#{quasicons 4432}#
                                   (#{quasi 4428}# #{p 4484}# #{lev 4477}#)
                                   (#{vquasi 4430}#
                                     #{q 4485}#
                                     #{lev 4477}#)))))))))
                   #{tmp 4481}#)
                 (let ((#{tmp 4499}# ($sc-dispatch #{tmp 4480}# '())))
                   (if #{tmp 4499}#
                     (@apply
                       (lambda ()
                         '(#(syntax-object
                             "quote"
                             ((top)
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i4478" "i4479"))
                              #(ribcage
                                (emit quasivector
                                      quasilist*
                                      quasiappend
                                      quasicons
                                      vquasi
                                      quasi)
                                ((top) (top) (top) (top) (top) (top) (top))
                                ("i4439"
                                 "i4437"
                                 "i4435"
                                 "i4433"
                                 "i4431"
                                 "i4429"
                                 "i4427")))
                             (hygiene guile))
                           ()))
                       #{tmp 4499}#)
                     (syntax-violation
                       #f
                       "source expression failed to match any pattern"
                       #{tmp 4480}#))))))))
       (#{quasicons 4432}#
         (lambda (#{x 4500}# #{y 4501}#)
           (let ((#{tmp 4505}# (list #{x 4500}# #{y 4501}#)))
             (let ((#{tmp 4506}#
                     ($sc-dispatch #{tmp 4505}# '(any any))))
               (if #{tmp 4506}#
                 (@apply
                   (lambda (#{x 4509}# #{y 4510}#)
                     (let ((#{tmp 4511}# #{y 4510}#))
                       (let ((#{tmp 4512}#
                               ($sc-dispatch
                                 #{tmp 4511}#
                                 '(#(atom "quote") any))))
                         (if #{tmp 4512}#
                           (@apply
                             (lambda (#{dy 4514}#)
                               (let ((#{tmp 4515}# #{x 4509}#))
                                 (let ((#{tmp 4516}#
                                         ($sc-dispatch
                                           #{tmp 4515}#
                                           '(#(atom "quote") any))))
                                   (if #{tmp 4516}#
                                     (@apply
                                       (lambda (#{dx 4518}#)
                                         (list '#(syntax-object
                                                  "quote"
                                                  ((top)
                                                   #(ribcage
                                                     #(dx)
                                                     #((top))
                                                     #("i4517"))
                                                   #(ribcage
                                                     #(dy)
                                                     #((top))
                                                     #("i4513"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4507" "i4508"))
                                                   #(ribcage () () ())
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4502" "i4503"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i4439"
                                                      "i4437"
                                                      "i4435"
                                                      "i4433"
                                                      "i4431"
                                                      "i4429"
                                                      "i4427")))
                                                  (hygiene guile))
                                               (cons #{dx 4518}# #{dy 4514}#)))
                                       #{tmp 4516}#)
                                     (let ((#{_ 4520}# #{tmp 4515}#))
                                       (if (null? #{dy 4514}#)
                                         (list '#(syntax-object
                                                  "list"
                                                  ((top)
                                                   #(ribcage
                                                     #(_)
                                                     #((top))
                                                     #("i4519"))
                                                   #(ribcage
                                                     #(dy)
                                                     #((top))
                                                     #("i4513"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4507" "i4508"))
                                                   #(ribcage () () ())
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4502" "i4503"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i4439"
                                                      "i4437"
                                                      "i4435"
                                                      "i4433"
                                                      "i4431"
                                                      "i4429"
                                                      "i4427")))
                                                  (hygiene guile))
                                               #{x 4509}#)
                                         (list '#(syntax-object
                                                  "list*"
                                                  ((top)
                                                   #(ribcage
                                                     #(_)
                                                     #((top))
                                                     #("i4519"))
                                                   #(ribcage
                                                     #(dy)
                                                     #((top))
                                                     #("i4513"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4507" "i4508"))
                                                   #(ribcage () () ())
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x y)
                                                     #((top) (top))
                                                     #("i4502" "i4503"))
                                                   #(ribcage
                                                     (emit quasivector
                                                           quasilist*
                                                           quasiappend
                                                           quasicons
                                                           vquasi
                                                           quasi)
                                                     ((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                     ("i4439"
                                                      "i4437"
                                                      "i4435"
                                                      "i4433"
                                                      "i4431"
                                                      "i4429"
                                                      "i4427")))
                                                  (hygiene guile))
                                               #{x 4509}#
                                               #{y 4510}#)))))))
                             #{tmp 4512}#)
                           (let ((#{tmp 4521}#
                                   ($sc-dispatch
                                     #{tmp 4511}#
                                     '(#(atom "list") . any))))
                             (if #{tmp 4521}#
                               (@apply
                                 (lambda (#{stuff 4523}#)
                                   (cons '#(syntax-object
                                            "list"
                                            ((top)
                                             #(ribcage
                                               #(stuff)
                                               #((top))
                                               #("i4522"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i4507" "i4508"))
                                             #(ribcage () () ())
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i4502" "i4503"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i4439"
                                                "i4437"
                                                "i4435"
                                                "i4433"
                                                "i4431"
                                                "i4429"
                                                "i4427")))
                                            (hygiene guile))
                                         (cons #{x 4509}# #{stuff 4523}#)))
                                 #{tmp 4521}#)
                               (let ((#{tmp 4524}#
                                       ($sc-dispatch
                                         #{tmp 4511}#
                                         '(#(atom "list*") . any))))
                                 (if #{tmp 4524}#
                                   (@apply
                                     (lambda (#{stuff 4526}#)
                                       (cons '#(syntax-object
                                                "list*"
                                                ((top)
                                                 #(ribcage
                                                   #(stuff)
                                                   #((top))
                                                   #("i4525"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x y)
                                                   #((top) (top))
                                                   #("i4507" "i4508"))
                                                 #(ribcage () () ())
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x y)
                                                   #((top) (top))
                                                   #("i4502" "i4503"))
                                                 #(ribcage
                                                   (emit quasivector
                                                         quasilist*
                                                         quasiappend
                                                         quasicons
                                                         vquasi
                                                         quasi)
                                                   ((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                   ("i4439"
                                                    "i4437"
                                                    "i4435"
                                                    "i4433"
                                                    "i4431"
                                                    "i4429"
                                                    "i4427")))
                                                (hygiene guile))
                                             (cons #{x 4509}# #{stuff 4526}#)))
                                     #{tmp 4524}#)
                                   (let ((#{_ 4528}# #{tmp 4511}#))
                                     (list '#(syntax-object
                                              "list*"
                                              ((top)
                                               #(ribcage
                                                 #(_)
                                                 #((top))
                                                 #("i4527"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4507" "i4508"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4502" "i4503"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i4439"
                                                  "i4437"
                                                  "i4435"
                                                  "i4433"
                                                  "i4431"
                                                  "i4429"
                                                  "i4427")))
                                              (hygiene guile))
                                           #{x 4509}#
                                           #{y 4510}#))))))))))
                   #{tmp 4506}#)
                 (syntax-violation
                   #f
                   "source expression failed to match any pattern"
                   #{tmp 4505}#))))))
       (#{quasiappend 4434}#
         (lambda (#{x 4529}# #{y 4530}#)
           (let ((#{tmp 4533}# #{y 4530}#))
             (let ((#{tmp 4534}#
                     ($sc-dispatch #{tmp 4533}# '(#(atom "quote") ()))))
               (if #{tmp 4534}#
                 (@apply
                   (lambda ()
                     (if (null? #{x 4529}#)
                       '(#(syntax-object
                           "quote"
                           ((top)
                            #(ribcage () () ())
                            #(ribcage
                              #(x y)
                              #((top) (top))
                              #("i4531" "i4532"))
                            #(ribcage
                              (emit quasivector
                                    quasilist*
                                    quasiappend
                                    quasicons
                                    vquasi
                                    quasi)
                              ((top) (top) (top) (top) (top) (top) (top))
                              ("i4439"
                               "i4437"
                               "i4435"
                               "i4433"
                               "i4431"
                               "i4429"
                               "i4427")))
                           (hygiene guile))
                         ())
                       (if (null? (cdr #{x 4529}#))
                         (car #{x 4529}#)
                         (let ((#{tmp 4541}# #{x 4529}#))
                           (let ((#{tmp 4542}#
                                   ($sc-dispatch #{tmp 4541}# 'each-any)))
                             (if #{tmp 4542}#
                               (@apply
                                 (lambda (#{p 4544}#)
                                   (cons '#(syntax-object
                                            "append"
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(p)
                                               #((top))
                                               #("i4543"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x y)
                                               #((top) (top))
                                               #("i4531" "i4532"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i4439"
                                                "i4437"
                                                "i4435"
                                                "i4433"
                                                "i4431"
                                                "i4429"
                                                "i4427")))
                                            (hygiene guile))
                                         #{p 4544}#))
                                 #{tmp 4542}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 #{tmp 4541}#)))))))
                   #{tmp 4534}#)
                 (let ((#{_ 4547}# #{tmp 4533}#))
                   (if (null? #{x 4529}#)
                     #{y 4530}#
                     (let ((#{tmp 4552}# (list #{x 4529}# #{y 4530}#)))
                       (let ((#{tmp 4553}#
                               ($sc-dispatch #{tmp 4552}# '(each-any any))))
                         (if #{tmp 4553}#
                           (@apply
                             (lambda (#{p 4556}# #{y 4557}#)
                               (cons '#(syntax-object
                                        "append"
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p y)
                                           #((top) (top))
                                           #("i4554" "i4555"))
                                         #(ribcage #(_) #((top)) #("i4546"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(x y)
                                           #((top) (top))
                                           #("i4531" "i4532"))
                                         #(ribcage
                                           (emit quasivector
                                                 quasilist*
                                                 quasiappend
                                                 quasicons
                                                 vquasi
                                                 quasi)
                                           ((top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top)
                                            (top))
                                           ("i4439"
                                            "i4437"
                                            "i4435"
                                            "i4433"
                                            "i4431"
                                            "i4429"
                                            "i4427")))
                                        (hygiene guile))
                                     (append #{p 4556}# (list #{y 4557}#))))
                             #{tmp 4553}#)
                           (syntax-violation
                             #f
                             "source expression failed to match any pattern"
                             #{tmp 4552}#)))))))))))
       (#{quasilist* 4436}#
         (lambda (#{x 4559}# #{y 4560}#)
           (letrec*
             ((#{f 4565}#
                (lambda (#{x 4566}#)
                  (if (null? #{x 4566}#)
                    #{y 4560}#
                    (#{quasicons 4432}#
                      (car #{x 4566}#)
                      (#{f 4565}# (cdr #{x 4566}#)))))))
             (begin (#{f 4565}# #{x 4559}#)))))
       (#{quasivector 4438}#
         (lambda (#{x 4567}#)
           (let ((#{tmp 4569}# #{x 4567}#))
             (let ((#{tmp 4570}#
                     ($sc-dispatch
                       #{tmp 4569}#
                       '(#(atom "quote") each-any))))
               (if #{tmp 4570}#
                 (@apply
                   (lambda (#{x 4572}#)
                     (list '#(syntax-object
                              "quote"
                              ((top)
                               #(ribcage #(x) #((top)) #("i4571"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i4568"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
                                       quasiappend
                                       quasicons
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
                                 ("i4439"
                                  "i4437"
                                  "i4435"
                                  "i4433"
                                  "i4431"
                                  "i4429"
                                  "i4427")))
                              (hygiene guile))
                           (list->vector #{x 4572}#)))
                   #{tmp 4570}#)
                 (let ((#{_ 4575}# #{tmp 4569}#))
                   (letrec*
                     ((#{f 4579}#
                        (lambda (#{y 4580}# #{k 4581}#)
                          (let ((#{tmp 4592}# #{y 4580}#))
                            (let ((#{tmp 4593}#
                                    ($sc-dispatch
                                      #{tmp 4592}#
                                      '(#(atom "quote") each-any))))
                              (if #{tmp 4593}#
                                (@apply
                                  (lambda (#{y 4595}#)
                                    (#{k 4581}#
                                      (map (lambda (#{tmp 4596}#)
                                             (list '#(syntax-object
                                                      "quote"
                                                      ((top)
                                                       #(ribcage
                                                         #(y)
                                                         #((top))
                                                         #("i4594"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(f y k)
                                                         #((top) (top) (top))
                                                         #("i4576"
                                                           "i4577"
                                                           "i4578"))
                                                       #(ribcage
                                                         #(_)
                                                         #((top))
                                                         #("i4574"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4568"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
                                                               quasiappend
                                                               quasicons
                                                               vquasi
                                                               quasi)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("i4439"
                                                          "i4437"
                                                          "i4435"
                                                          "i4433"
                                                          "i4431"
                                                          "i4429"
                                                          "i4427")))
                                                      (hygiene guile))
                                                   #{tmp 4596}#))
                                           #{y 4595}#)))
                                  #{tmp 4593}#)
                                (let ((#{tmp 4597}#
                                        ($sc-dispatch
                                          #{tmp 4592}#
                                          '(#(atom "list") . each-any))))
                                  (if #{tmp 4597}#
                                    (@apply
                                      (lambda (#{y 4599}#)
                                        (#{k 4581}# #{y 4599}#))
                                      #{tmp 4597}#)
                                    (let ((#{tmp 4601}#
                                            ($sc-dispatch
                                              #{tmp 4592}#
                                              '(#(atom "list*")
                                                .
                                                #(each+ any (any) ())))))
                                      (if #{tmp 4601}#
                                        (@apply
                                          (lambda (#{y 4604}# #{z 4605}#)
                                            (#{f 4579}#
                                              #{z 4605}#
                                              (lambda (#{ls 4606}#)
                                                (#{k 4581}#
                                                  (append
                                                    #{y 4604}#
                                                    #{ls 4606}#)))))
                                          #{tmp 4601}#)
                                        (let ((#{else 4610}# #{tmp 4592}#))
                                          (let ((#{tmp 4614}# #{x 4567}#))
                                            (let ((#{ g4611 4616}#
                                                    #{tmp 4614}#))
                                              (list '#(syntax-object
                                                       "list->vector"
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(#{ g4611}#)
                                                          #((m4612 top))
                                                          #("i4615"))
                                                        #(ribcage
                                                          #(else)
                                                          #((top))
                                                          #("i4609"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f y k)
                                                          #((top) (top) (top))
                                                          #("i4576"
                                                            "i4577"
                                                            "i4578"))
                                                        #(ribcage
                                                          #(_)
                                                          #((top))
                                                          #("i4574"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("i4568"))
                                                        #(ribcage
                                                          (emit quasivector
                                                                quasilist*
                                                                quasiappend
                                                                quasicons
                                                                vquasi
                                                                quasi)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i4439"
                                                           "i4437"
                                                           "i4435"
                                                           "i4433"
                                                           "i4431"
                                                           "i4429"
                                                           "i4427")))
                                                       (hygiene guile))
                                                    #{ g4611 4616}#))))))))))))))
                     (begin
                       (#{f 4579}#
                         #{x 4567}#
                         (lambda (#{ls 4582}#)
                           (let ((#{tmp 4587}# #{ls 4582}#))
                             (let ((#{tmp 4588}#
                                     ($sc-dispatch #{tmp 4587}# 'each-any)))
                               (if #{tmp 4588}#
                                 (@apply
                                   (lambda (#{ g4584 4590}#)
                                     (cons '#(syntax-object
                                              "vector"
                                              ((top)
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(#{ g4584}#)
                                                 #((m4585 top))
                                                 #("i4589"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(ls)
                                                 #((top))
                                                 #("i4583"))
                                               #(ribcage
                                                 #(_)
                                                 #((top))
                                                 #("i4574"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
                                                 #("i4568"))
                                               #(ribcage
                                                 (emit quasivector
                                                       quasilist*
                                                       quasiappend
                                                       quasicons
                                                       vquasi
                                                       quasi)
                                                 ((top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top)
                                                  (top))
                                                 ("i4439"
                                                  "i4437"
                                                  "i4435"
                                                  "i4433"
                                                  "i4431"
                                                  "i4429"
                                                  "i4427")))
                                              (hygiene guile))
                                           #{ g4584 4590}#))
                                   #{tmp 4588}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   #{tmp 4587}#))))))))))))))
       (#{emit 4440}#
         (lambda (#{x 4617}#)
           (let ((#{tmp 4619}# #{x 4617}#))
             (let ((#{tmp 4620}#
                     ($sc-dispatch
                       #{tmp 4619}#
                       '(#(atom "quote") any))))
               (if #{tmp 4620}#
                 (@apply
                   (lambda (#{x 4622}#)
                     (list '#(syntax-object
                              quote
                              ((top)
                               #(ribcage #(x) #((top)) #("i4621"))
                               #(ribcage () () ())
                               #(ribcage #(x) #((top)) #("i4618"))
                               #(ribcage
                                 (emit quasivector
                                       quasilist*
                                       quasiappend
                                       quasicons
                                       vquasi
                                       quasi)
                                 ((top) (top) (top) (top) (top) (top) (top))
                                 ("i4439"
                                  "i4437"
                                  "i4435"
                                  "i4433"
                                  "i4431"
                                  "i4429"
                                  "i4427")))
                              (hygiene guile))
                           #{x 4622}#))
                   #{tmp 4620}#)
                 (let ((#{tmp 4623}#
                         ($sc-dispatch
                           #{tmp 4619}#
                           '(#(atom "list") . each-any))))
                   (if #{tmp 4623}#
                     (@apply
                       (lambda (#{x 4625}#)
                         (let ((#{tmp 4629}# (map #{emit 4440}# #{x 4625}#)))
                           (let ((#{tmp 4630}#
                                   ($sc-dispatch #{tmp 4629}# 'each-any)))
                             (if #{tmp 4630}#
                               (@apply
                                 (lambda (#{ g4626 4632}#)
                                   (cons '#(syntax-object
                                            list
                                            ((top)
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(#{ g4626}#)
                                               #((m4627 top))
                                               #("i4631"))
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i4624"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i4618"))
                                             #(ribcage
                                               (emit quasivector
                                                     quasilist*
                                                     quasiappend
                                                     quasicons
                                                     vquasi
                                                     quasi)
                                               ((top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top)
                                                (top))
                                               ("i4439"
                                                "i4437"
                                                "i4435"
                                                "i4433"
                                                "i4431"
                                                "i4429"
                                                "i4427")))
                                            (hygiene guile))
                                         #{ g4626 4632}#))
                                 #{tmp 4630}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 #{tmp 4629}#)))))
                       #{tmp 4623}#)
                     (let ((#{tmp 4635}#
                             ($sc-dispatch
                               #{tmp 4619}#
                               '(#(atom "list*") . #(each+ any (any) ())))))
                       (if #{tmp 4635}#
                         (@apply
                           (lambda (#{x 4638}# #{y 4639}#)
                             (letrec*
                               ((#{f 4642}#
                                  (lambda (#{x* 4643}#)
                                    (if (null? #{x* 4643}#)
                                      (#{emit 4440}# #{y 4639}#)
                                      (let ((#{tmp 4649}#
                                              (list (#{emit 4440}#
                                                      (car #{x* 4643}#))
                                                    (#{f 4642}#
                                                      (cdr #{x* 4643}#)))))
                                        (let ((#{tmp 4650}#
                                                ($sc-dispatch
                                                  #{tmp 4649}#
                                                  '(any any))))
                                          (if #{tmp 4650}#
                                            (@apply
                                              (lambda (#{ g4646 4653}#
                                                       #{ g4645 4654}#)
                                                (list '#(syntax-object
                                                         cons
                                                         ((top)
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(#{ g4646}#
                                                              #{ g4645}#)
                                                            #((m4647 top)
                                                              (m4647 top))
                                                            #("i4651" "i4652"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(f x*)
                                                            #((top) (top))
                                                            #("i4640" "i4641"))
                                                          #(ribcage
                                                            #(x y)
                                                            #((top) (top))
                                                            #("i4636" "i4637"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i4618"))
                                                          #(ribcage
                                                            (emit quasivector
                                                                  quasilist*
                                                                  quasiappend
                                                                  quasicons
                                                                  vquasi
                                                                  quasi)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i4439"
                                                             "i4437"
                                                             "i4435"
                                                             "i4433"
                                                             "i4431"
                                                             "i4429"
                                                             "i4427")))
                                                         (hygiene guile))
                                                      #{ g4646 4653}#
                                                      #{ g4645 4654}#))
                                              #{tmp 4650}#)
                                            (syntax-violation
                                              #f
                                              "source expression failed to match any pattern"
                                              #{tmp 4649}#))))))))
                               (begin (#{f 4642}# #{x 4638}#))))
                           #{tmp 4635}#)
                         (let ((#{tmp 4655}#
                                 ($sc-dispatch
                                   #{tmp 4619}#
                                   '(#(atom "append") . each-any))))
                           (if #{tmp 4655}#
                             (@apply
                               (lambda (#{x 4657}#)
                                 (let ((#{tmp 4661}#
                                         (map #{emit 4440}# #{x 4657}#)))
                                   (let ((#{tmp 4662}#
                                           ($sc-dispatch
                                             #{tmp 4661}#
                                             'each-any)))
                                     (if #{tmp 4662}#
                                       (@apply
                                         (lambda (#{ g4658 4664}#)
                                           (cons '#(syntax-object
                                                    append
                                                    ((top)
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(#{ g4658}#)
                                                       #((m4659 top))
                                                       #("i4663"))
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i4656"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i4618"))
                                                     #(ribcage
                                                       (emit quasivector
                                                             quasilist*
                                                             quasiappend
                                                             quasicons
                                                             vquasi
                                                             quasi)
                                                       ((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                       ("i4439"
                                                        "i4437"
                                                        "i4435"
                                                        "i4433"
                                                        "i4431"
                                                        "i4429"
                                                        "i4427")))
                                                    (hygiene guile))
                                                 #{ g4658 4664}#))
                                         #{tmp 4662}#)
                                       (syntax-violation
                                         #f
                                         "source expression failed to match any pattern"
                                         #{tmp 4661}#)))))
                               #{tmp 4655}#)
                             (let ((#{tmp 4667}#
                                     ($sc-dispatch
                                       #{tmp 4619}#
                                       '(#(atom "vector") . each-any))))
                               (if #{tmp 4667}#
                                 (@apply
                                   (lambda (#{x 4669}#)
                                     (let ((#{tmp 4673}#
                                             (map #{emit 4440}# #{x 4669}#)))
                                       (let ((#{tmp 4674}#
                                               ($sc-dispatch
                                                 #{tmp 4673}#
                                                 'each-any)))
                                         (if #{tmp 4674}#
                                           (@apply
                                             (lambda (#{ g4670 4676}#)
                                               (cons '#(syntax-object
                                                        vector
                                                        ((top)
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(#{ g4670}#)
                                                           #((m4671 top))
                                                           #("i4675"))
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i4668"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i4618"))
                                                         #(ribcage
                                                           (emit quasivector
                                                                 quasilist*
                                                                 quasiappend
                                                                 quasicons
                                                                 vquasi
                                                                 quasi)
                                                           ((top)
                                                            (top)
                                                            (top)
                                                            (top)
                                                            (top)
                                                            (top)
                                                            (top))
                                                           ("i4439"
                                                            "i4437"
                                                            "i4435"
                                                            "i4433"
                                                            "i4431"
                                                            "i4429"
                                                            "i4427")))
                                                        (hygiene guile))
                                                     #{ g4670 4676}#))
                                             #{tmp 4674}#)
                                           (syntax-violation
                                             #f
                                             "source expression failed to match any pattern"
                                             #{tmp 4673}#)))))
                                   #{tmp 4667}#)
                                 (let ((#{tmp 4679}#
                                         ($sc-dispatch
                                           #{tmp 4619}#
                                           '(#(atom "list->vector") any))))
                                   (if #{tmp 4679}#
                                     (@apply
                                       (lambda (#{x 4681}#)
                                         (let ((#{tmp 4685}#
                                                 (#{emit 4440}# #{x 4681}#)))
                                           (let ((#{ g4682 4687}#
                                                   #{tmp 4685}#))
                                             (list '#(syntax-object
                                                      list->vector
                                                      ((top)
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(#{ g4682}#)
                                                         #((m4683 top))
                                                         #("i4686"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4680"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4618"))
                                                       #(ribcage
                                                         (emit quasivector
                                                               quasilist*
                                                               quasiappend
                                                               quasicons
                                                               vquasi
                                                               quasi)
                                                         ((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                         ("i4439"
                                                          "i4437"
                                                          "i4435"
                                                          "i4433"
                                                          "i4431"
                                                          "i4429"
                                                          "i4427")))
                                                      (hygiene guile))
                                                   #{ g4682 4687}#))))
                                       #{tmp 4679}#)
                                     (let ((#{tmp 4688}#
                                             ($sc-dispatch
                                               #{tmp 4619}#
                                               '(#(atom "value") any))))
                                       (if #{tmp 4688}#
                                         (@apply
                                           (lambda (#{x 4690}#) #{x 4690}#)
                                           #{tmp 4688}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{tmp 4619}#)))))))))))))))))))
      (begin
        (lambda (#{x 4691}#)
          (let ((#{tmp 4693}# #{x 4691}#))
            (let ((#{tmp 4694}#
                    ($sc-dispatch #{tmp 4693}# '(_ any))))
              (if #{tmp 4694}#
                (@apply
                  (lambda (#{e 4696}#)
                    (#{emit 4440}# (#{quasi 4428}# #{e 4696}# 0)))
                  #{tmp 4694}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp 4693}#)))))))))

(define include
  (make-syntax-transformer
    'include
    'macro
    (lambda (#{x 4697}#)
      (letrec*
        ((#{read-file 4700}#
           (lambda (#{fn 4701}# #{k 4702}#)
             (begin
               (let ((#{p 4706}# (open-input-file #{fn 4701}#)))
                 (letrec*
                   ((#{f 4710}#
                      (lambda (#{x 4711}# #{result 4712}#)
                        (if (eof-object? #{x 4711}#)
                          (begin
                            (close-input-port #{p 4706}#)
                            (reverse #{result 4712}#))
                          (#{f 4710}#
                            (read #{p 4706}#)
                            (cons (datum->syntax #{k 4702}# #{x 4711}#)
                                  #{result 4712}#))))))
                   (begin (#{f 4710}# (read #{p 4706}#) '()))))))))
        (begin
          (let ((#{tmp 4713}# #{x 4697}#))
            (let ((#{tmp 4714}#
                    ($sc-dispatch #{tmp 4713}# '(any any))))
              (if #{tmp 4714}#
                (@apply
                  (lambda (#{k 4717}# #{filename 4718}#)
                    (begin
                      (let ((#{fn 4720}# (syntax->datum #{filename 4718}#)))
                        (let ((#{tmp 4722}#
                                (#{read-file 4700}#
                                  #{fn 4720}#
                                  #{filename 4718}#)))
                          (let ((#{tmp 4723}#
                                  ($sc-dispatch #{tmp 4722}# 'each-any)))
                            (if #{tmp 4723}#
                              (@apply
                                (lambda (#{exp 4725}#)
                                  (cons '#(syntax-object
                                           begin
                                           ((top)
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(exp)
                                              #((top))
                                              #("i4724"))
                                            #(ribcage () () ())
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(fn)
                                              #((top))
                                              #("i4719"))
                                            #(ribcage
                                              #(k filename)
                                              #((top) (top))
                                              #("i4715" "i4716"))
                                            #(ribcage
                                              (read-file)
                                              ((top))
                                              ("i4699"))
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("i4698")))
                                           (hygiene guile))
                                        #{exp 4725}#))
                                #{tmp 4723}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
                                #{tmp 4722}#)))))))
                  #{tmp 4714}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp 4713}#)))))))))

(define include-from-path
  (make-syntax-transformer
    'include-from-path
    'macro
    (lambda (#{x 4727}#)
      (let ((#{tmp 4729}# #{x 4727}#))
        (let ((#{tmp 4730}#
                ($sc-dispatch #{tmp 4729}# '(any any))))
          (if #{tmp 4730}#
            (@apply
              (lambda (#{k 4733}# #{filename 4734}#)
                (begin
                  (let ((#{fn 4736}# (syntax->datum #{filename 4734}#)))
                    (let ((#{tmp 4738}#
                            (datum->syntax
                              #{filename 4734}#
                              (begin
                                (let ((#{t 4743}#
                                        (%search-load-path #{fn 4736}#)))
                                  (if #{t 4743}#
                                    #{t 4743}#
                                    (syntax-violation
                                      'include-from-path
                                      "file not found in path"
                                      #{x 4727}#
                                      #{filename 4734}#)))))))
                      (let ((#{fn 4740}# #{tmp 4738}#))
                        (list '#(syntax-object
                                 include
                                 ((top)
                                  #(ribcage () () ())
                                  #(ribcage #(fn) #((top)) #("i4739"))
                                  #(ribcage () () ())
                                  #(ribcage () () ())
                                  #(ribcage #(fn) #((top)) #("i4735"))
                                  #(ribcage
                                    #(k filename)
                                    #((top) (top))
                                    #("i4731" "i4732"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i4728")))
                                 (hygiene guile))
                              #{fn 4740}#))))))
              #{tmp 4730}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{tmp 4729}#)))))))

(define unquote
  (make-syntax-transformer
    'unquote
    'macro
    (lambda (#{x 4745}#)
      (syntax-violation
        'unquote
        "expression not valid outside of quasiquote"
        #{x 4745}#))))

(define unquote-splicing
  (make-syntax-transformer
    'unquote-splicing
    'macro
    (lambda (#{x 4747}#)
      (syntax-violation
        'unquote-splicing
        "expression not valid outside of quasiquote"
        #{x 4747}#))))

(define case
  (make-syntax-transformer
    'case
    'macro
    (lambda (#{x 4749}#)
      (let ((#{tmp 4751}# #{x 4749}#))
        (let ((#{tmp 4752}#
                ($sc-dispatch
                  #{tmp 4751}#
                  '(_ any any . each-any))))
          (if #{tmp 4752}#
            (@apply
              (lambda (#{e 4756}# #{m1 4757}# #{m2 4758}#)
                (let ((#{tmp 4760}#
                        (letrec*
                          ((#{f 4766}#
                             (lambda (#{clause 4767}# #{clauses 4768}#)
                               (if (null? #{clauses 4768}#)
                                 (let ((#{tmp 4770}# #{clause 4767}#))
                                   (let ((#{tmp 4771}#
                                           ($sc-dispatch
                                             #{tmp 4770}#
                                             '(#(free-id
                                                 #(syntax-object
                                                   else
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(f clause clauses)
                                                      #((top) (top) (top))
                                                      #("i4763"
                                                        "i4764"
                                                        "i4765"))
                                                    #(ribcage
                                                      #(e m1 m2)
                                                      #((top) (top) (top))
                                                      #("i4753"
                                                        "i4754"
                                                        "i4755"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i4750")))
                                                   (hygiene guile)))
                                               any
                                               .
                                               each-any))))
                                     (if #{tmp 4771}#
                                       (@apply
                                         (lambda (#{e1 4774}# #{e2 4775}#)
                                           (cons '#(syntax-object
                                                    begin
                                                    ((top)
                                                     #(ribcage
                                                       #(e1 e2)
                                                       #((top) (top))
                                                       #("i4772" "i4773"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(f clause clauses)
                                                       #((top) (top) (top))
                                                       #("i4763"
                                                         "i4764"
                                                         "i4765"))
                                                     #(ribcage
                                                       #(e m1 m2)
                                                       #((top) (top) (top))
                                                       #("i4753"
                                                         "i4754"
                                                         "i4755"))
                                                     #(ribcage () () ())
                                                     #(ribcage
                                                       #(x)
                                                       #((top))
                                                       #("i4750")))
                                                    (hygiene guile))
                                                 (cons #{e1 4774}#
                                                       #{e2 4775}#)))
                                         #{tmp 4771}#)
                                       (let ((#{tmp 4777}#
                                               ($sc-dispatch
                                                 #{tmp 4770}#
                                                 '(each-any any . each-any))))
                                         (if #{tmp 4777}#
                                           (@apply
                                             (lambda (#{k 4781}#
                                                      #{e1 4782}#
                                                      #{e2 4783}#)
                                               (list '#(syntax-object
                                                        if
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i4778"
                                                             "i4779"
                                                             "i4780"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i4763"
                                                             "i4764"
                                                             "i4765"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i4753"
                                                             "i4754"
                                                             "i4755"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i4750")))
                                                        (hygiene guile))
                                                     (list '#(syntax-object
                                                              memv
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4778"
                                                                   "i4779"
                                                                   "i4780"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           '#(syntax-object
                                                              t
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4778"
                                                                   "i4779"
                                                                   "i4780"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           (list '#(syntax-object
                                                                    quote
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(k
                                                                         e1
                                                                         e2)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4778"
                                                                         "i4779"
                                                                         "i4780"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(f
                                                                         clause
                                                                         clauses)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4763"
                                                                         "i4764"
                                                                         "i4765"))
                                                                     #(ribcage
                                                                       #(e
                                                                         m1
                                                                         m2)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4753"
                                                                         "i4754"
                                                                         "i4755"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(x)
                                                                       #((top))
                                                                       #("i4750")))
                                                                    (hygiene
                                                                      guile))
                                                                 #{k 4781}#))
                                                     (cons '#(syntax-object
                                                              begin
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4778"
                                                                   "i4779"
                                                                   "i4780"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           (cons #{e1 4782}#
                                                                 #{e2 4783}#))))
                                             #{tmp 4777}#)
                                           (let ((#{_ 4787}# #{tmp 4770}#))
                                             (syntax-violation
                                               'case
                                               "bad clause"
                                               #{x 4749}#
                                               #{clause 4767}#)))))))
                                 (let ((#{tmp 4789}#
                                         (#{f 4766}#
                                           (car #{clauses 4768}#)
                                           (cdr #{clauses 4768}#))))
                                   (let ((#{rest 4791}# #{tmp 4789}#))
                                     (let ((#{tmp 4792}# #{clause 4767}#))
                                       (let ((#{tmp 4793}#
                                               ($sc-dispatch
                                                 #{tmp 4792}#
                                                 '(each-any any . each-any))))
                                         (if #{tmp 4793}#
                                           (@apply
                                             (lambda (#{k 4797}#
                                                      #{e1 4798}#
                                                      #{e2 4799}#)
                                               (list '#(syntax-object
                                                        if
                                                        ((top)
                                                         #(ribcage
                                                           #(k e1 e2)
                                                           #((top) (top) (top))
                                                           #("i4794"
                                                             "i4795"
                                                             "i4796"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(rest)
                                                           #((top))
                                                           #("i4790"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(f clause clauses)
                                                           #((top) (top) (top))
                                                           #("i4763"
                                                             "i4764"
                                                             "i4765"))
                                                         #(ribcage
                                                           #(e m1 m2)
                                                           #((top) (top) (top))
                                                           #("i4753"
                                                             "i4754"
                                                             "i4755"))
                                                         #(ribcage () () ())
                                                         #(ribcage
                                                           #(x)
                                                           #((top))
                                                           #("i4750")))
                                                        (hygiene guile))
                                                     (list '#(syntax-object
                                                              memv
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4794"
                                                                   "i4795"
                                                                   "i4796"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("i4790"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           '#(syntax-object
                                                              t
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4794"
                                                                   "i4795"
                                                                   "i4796"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("i4790"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           (list '#(syntax-object
                                                                    quote
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(k
                                                                         e1
                                                                         e2)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4794"
                                                                         "i4795"
                                                                         "i4796"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(rest)
                                                                       #((top))
                                                                       #("i4790"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(f
                                                                         clause
                                                                         clauses)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4763"
                                                                         "i4764"
                                                                         "i4765"))
                                                                     #(ribcage
                                                                       #(e
                                                                         m1
                                                                         m2)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i4753"
                                                                         "i4754"
                                                                         "i4755"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(x)
                                                                       #((top))
                                                                       #("i4750")))
                                                                    (hygiene
                                                                      guile))
                                                                 #{k 4797}#))
                                                     (cons '#(syntax-object
                                                              begin
                                                              ((top)
                                                               #(ribcage
                                                                 #(k e1 e2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4794"
                                                                   "i4795"
                                                                   "i4796"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(rest)
                                                                 #((top))
                                                                 #("i4790"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(f
                                                                   clause
                                                                   clauses)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4763"
                                                                   "i4764"
                                                                   "i4765"))
                                                               #(ribcage
                                                                 #(e m1 m2)
                                                                 #((top)
                                                                   (top)
                                                                   (top))
                                                                 #("i4753"
                                                                   "i4754"
                                                                   "i4755"))
                                                               #(ribcage
                                                                 ()
                                                                 ()
                                                                 ())
                                                               #(ribcage
                                                                 #(x)
                                                                 #((top))
                                                                 #("i4750")))
                                                              (hygiene guile))
                                                           (cons #{e1 4798}#
                                                                 #{e2 4799}#))
                                                     #{rest 4791}#))
                                             #{tmp 4793}#)
                                           (let ((#{_ 4803}# #{tmp 4792}#))
                                             (syntax-violation
                                               'case
                                               "bad clause"
                                               #{x 4749}#
                                               #{clause 4767}#)))))))))))
                          (begin (#{f 4766}# #{m1 4757}# #{m2 4758}#)))))
                  (let ((#{body 4762}# #{tmp 4760}#))
                    (list '#(syntax-object
                             let
                             ((top)
                              #(ribcage () () ())
                              #(ribcage #(body) #((top)) #("i4761"))
                              #(ribcage
                                #(e m1 m2)
                                #((top) (top) (top))
                                #("i4753" "i4754" "i4755"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4750")))
                             (hygiene guile))
                          (list (list '#(syntax-object
                                         t
                                         ((top)
                                          #(ribcage () () ())
                                          #(ribcage
                                            #(body)
                                            #((top))
                                            #("i4761"))
                                          #(ribcage
                                            #(e m1 m2)
                                            #((top) (top) (top))
                                            #("i4753" "i4754" "i4755"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i4750")))
                                         (hygiene guile))
                                      #{e 4756}#))
                          #{body 4762}#))))
              #{tmp 4752}#)
            (syntax-violation
              #f
              "source expression failed to match any pattern"
              #{tmp 4751}#)))))))

(define make-variable-transformer
  (lambda (#{proc 4804}#)
    (if (procedure? #{proc 4804}#)
      (begin
        (letrec*
          ((#{trans 4807}#
             (lambda (#{x 4808}#) (#{proc 4804}# #{x 4808}#))))
          (begin
            (set-procedure-property!
              #{trans 4807}#
              'variable-transformer
              #t)
            #{trans 4807}#)))
      (error "variable transformer not a procedure"
             #{proc 4804}#))))

(define identifier-syntax
  (make-syntax-transformer
    'identifier-syntax
    'macro
    (lambda (#{x 4810}#)
      (let ((#{tmp 4812}# #{x 4810}#))
        (let ((#{tmp 4813}#
                ($sc-dispatch #{tmp 4812}# '(_ any))))
          (if #{tmp 4813}#
            (@apply
              (lambda (#{e 4815}#)
                (list '#(syntax-object
                         lambda
                         ((top)
                          #(ribcage #(e) #((top)) #("i4814"))
                          #(ribcage () () ())
                          #(ribcage #(x) #((top)) #("i4811")))
                         (hygiene guile))
                      '(#(syntax-object
                          x
                          ((top)
                           #(ribcage #(e) #((top)) #("i4814"))
                           #(ribcage () () ())
                           #(ribcage #(x) #((top)) #("i4811")))
                          (hygiene guile)))
                      '#((#(syntax-object
                            macro-type
                            ((top)
                             #(ribcage #(e) #((top)) #("i4814"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i4811")))
                            (hygiene guile))
                          .
                          #(syntax-object
                            identifier-syntax
                            ((top)
                             #(ribcage #(e) #((top)) #("i4814"))
                             #(ribcage () () ())
                             #(ribcage #(x) #((top)) #("i4811")))
                            (hygiene guile))))
                      (list '#(syntax-object
                               syntax-case
                               ((top)
                                #(ribcage #(e) #((top)) #("i4814"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i4811")))
                               (hygiene guile))
                            '#(syntax-object
                               x
                               ((top)
                                #(ribcage #(e) #((top)) #("i4814"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i4811")))
                               (hygiene guile))
                            '()
                            (list '#(syntax-object
                                     id
                                     ((top)
                                      #(ribcage #(e) #((top)) #("i4814"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4811")))
                                     (hygiene guile))
                                  '(#(syntax-object
                                      identifier?
                                      ((top)
                                       #(ribcage #(e) #((top)) #("i4814"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile))
                                    (#(syntax-object
                                       syntax
                                       ((top)
                                        #(ribcage #(e) #((top)) #("i4814"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i4811")))
                                       (hygiene guile))
                                     #(syntax-object
                                       id
                                       ((top)
                                        #(ribcage #(e) #((top)) #("i4814"))
                                        #(ribcage () () ())
                                        #(ribcage #(x) #((top)) #("i4811")))
                                       (hygiene guile))))
                                  (list '#(syntax-object
                                           syntax
                                           ((top)
                                            #(ribcage #(e) #((top)) #("i4814"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("i4811")))
                                           (hygiene guile))
                                        #{e 4815}#))
                            (list '(#(syntax-object
                                      _
                                      ((top)
                                       #(ribcage #(e) #((top)) #("i4814"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile))
                                    #(syntax-object
                                      x
                                      ((top)
                                       #(ribcage #(e) #((top)) #("i4814"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile))
                                    #(syntax-object
                                      ...
                                      ((top)
                                       #(ribcage #(e) #((top)) #("i4814"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile)))
                                  (list '#(syntax-object
                                           syntax
                                           ((top)
                                            #(ribcage #(e) #((top)) #("i4814"))
                                            #(ribcage () () ())
                                            #(ribcage
                                              #(x)
                                              #((top))
                                              #("i4811")))
                                           (hygiene guile))
                                        (cons #{e 4815}#
                                              '(#(syntax-object
                                                  x
                                                  ((top)
                                                   #(ribcage
                                                     #(e)
                                                     #((top))
                                                     #("i4814"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i4811")))
                                                  (hygiene guile))
                                                #(syntax-object
                                                  ...
                                                  ((top)
                                                   #(ribcage
                                                     #(e)
                                                     #((top))
                                                     #("i4814"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i4811")))
                                                  (hygiene guile)))))))))
              #{tmp 4813}#)
            (let ((#{tmp 4816}#
                    ($sc-dispatch
                      #{tmp 4812}#
                      '(_ (any any)
                          ((#(free-id
                              #(syntax-object
                                set!
                                ((top)
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4811")))
                                (hygiene guile)))
                            any
                            any)
                           any)))))
              (if (if #{tmp 4816}#
                    (@apply
                      (lambda (#{id 4822}#
                               #{exp1 4823}#
                               #{var 4824}#
                               #{val 4825}#
                               #{exp2 4826}#)
                        (if (identifier? #{id 4822}#)
                          (identifier? #{var 4824}#)
                          #f))
                      #{tmp 4816}#)
                    #f)
                (@apply
                  (lambda (#{id 4834}#
                           #{exp1 4835}#
                           #{var 4836}#
                           #{val 4837}#
                           #{exp2 4838}#)
                    (list '#(syntax-object
                             make-variable-transformer
                             ((top)
                              #(ribcage
                                #(id exp1 var val exp2)
                                #((top) (top) (top) (top) (top))
                                #("i4829" "i4830" "i4831" "i4832" "i4833"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4811")))
                             (hygiene guile))
                          (list '#(syntax-object
                                   lambda
                                   ((top)
                                    #(ribcage
                                      #(id exp1 var val exp2)
                                      #((top) (top) (top) (top) (top))
                                      #("i4829"
                                        "i4830"
                                        "i4831"
                                        "i4832"
                                        "i4833"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4811")))
                                   (hygiene guile))
                                '(#(syntax-object
                                    x
                                    ((top)
                                     #(ribcage
                                       #(id exp1 var val exp2)
                                       #((top) (top) (top) (top) (top))
                                       #("i4829"
                                         "i4830"
                                         "i4831"
                                         "i4832"
                                         "i4833"))
                                     #(ribcage () () ())
                                     #(ribcage #(x) #((top)) #("i4811")))
                                    (hygiene guile)))
                                '#((#(syntax-object
                                      macro-type
                                      ((top)
                                       #(ribcage
                                         #(id exp1 var val exp2)
                                         #((top) (top) (top) (top) (top))
                                         #("i4829"
                                           "i4830"
                                           "i4831"
                                           "i4832"
                                           "i4833"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile))
                                    .
                                    #(syntax-object
                                      variable-transformer
                                      ((top)
                                       #(ribcage
                                         #(id exp1 var val exp2)
                                         #((top) (top) (top) (top) (top))
                                         #("i4829"
                                           "i4830"
                                           "i4831"
                                           "i4832"
                                           "i4833"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4811")))
                                      (hygiene guile))))
                                (list '#(syntax-object
                                         syntax-case
                                         ((top)
                                          #(ribcage
                                            #(id exp1 var val exp2)
                                            #((top) (top) (top) (top) (top))
                                            #("i4829"
                                              "i4830"
                                              "i4831"
                                              "i4832"
                                              "i4833"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i4811")))
                                         (hygiene guile))
                                      '#(syntax-object
                                         x
                                         ((top)
                                          #(ribcage
                                            #(id exp1 var val exp2)
                                            #((top) (top) (top) (top) (top))
                                            #("i4829"
                                              "i4830"
                                              "i4831"
                                              "i4832"
                                              "i4833"))
                                          #(ribcage () () ())
                                          #(ribcage #(x) #((top)) #("i4811")))
                                         (hygiene guile))
                                      '(#(syntax-object
                                          set!
                                          ((top)
                                           #(ribcage
                                             #(id exp1 var val exp2)
                                             #((top) (top) (top) (top) (top))
                                             #("i4829"
                                               "i4830"
                                               "i4831"
                                               "i4832"
                                               "i4833"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i4811")))
                                          (hygiene guile)))
                                      (list (list '#(syntax-object
                                                     set!
                                                     ((top)
                                                      #(ribcage
                                                        #(id exp1 var val exp2)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i4829"
                                                          "i4830"
                                                          "i4831"
                                                          "i4832"
                                                          "i4833"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4811")))
                                                     (hygiene guile))
                                                  #{var 4836}#
                                                  #{val 4837}#)
                                            (list '#(syntax-object
                                                     syntax
                                                     ((top)
                                                      #(ribcage
                                                        #(id exp1 var val exp2)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i4829"
                                                          "i4830"
                                                          "i4831"
                                                          "i4832"
                                                          "i4833"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4811")))
                                                     (hygiene guile))
                                                  #{exp2 4838}#))
                                      (list (cons #{id 4834}#
                                                  '(#(syntax-object
                                                      x
                                                      ((top)
                                                       #(ribcage
                                                         #(id
                                                           exp1
                                                           var
                                                           val
                                                           exp2)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4829"
                                                           "i4830"
                                                           "i4831"
                                                           "i4832"
                                                           "i4833"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4811")))
                                                      (hygiene guile))
                                                    #(syntax-object
                                                      ...
                                                      ((top)
                                                       #(ribcage
                                                         #(id
                                                           exp1
                                                           var
                                                           val
                                                           exp2)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4829"
                                                           "i4830"
                                                           "i4831"
                                                           "i4832"
                                                           "i4833"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4811")))
                                                      (hygiene guile))))
                                            (list '#(syntax-object
                                                     syntax
                                                     ((top)
                                                      #(ribcage
                                                        #(id exp1 var val exp2)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i4829"
                                                          "i4830"
                                                          "i4831"
                                                          "i4832"
                                                          "i4833"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4811")))
                                                     (hygiene guile))
                                                  (cons #{exp1 4835}#
                                                        '(#(syntax-object
                                                            x
                                                            ((top)
                                                             #(ribcage
                                                               #(id
                                                                 exp1
                                                                 var
                                                                 val
                                                                 exp2)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i4829"
                                                                 "i4830"
                                                                 "i4831"
                                                                 "i4832"
                                                                 "i4833"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i4811")))
                                                            (hygiene guile))
                                                          #(syntax-object
                                                            ...
                                                            ((top)
                                                             #(ribcage
                                                               #(id
                                                                 exp1
                                                                 var
                                                                 val
                                                                 exp2)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i4829"
                                                                 "i4830"
                                                                 "i4831"
                                                                 "i4832"
                                                                 "i4833"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(x)
                                                               #((top))
                                                               #("i4811")))
                                                            (hygiene
                                                              guile))))))
                                      (list #{id 4834}#
                                            (list '#(syntax-object
                                                     identifier?
                                                     ((top)
                                                      #(ribcage
                                                        #(id exp1 var val exp2)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i4829"
                                                          "i4830"
                                                          "i4831"
                                                          "i4832"
                                                          "i4833"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4811")))
                                                     (hygiene guile))
                                                  (list '#(syntax-object
                                                           syntax
                                                           ((top)
                                                            #(ribcage
                                                              #(id
                                                                exp1
                                                                var
                                                                val
                                                                exp2)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("i4829"
                                                                "i4830"
                                                                "i4831"
                                                                "i4832"
                                                                "i4833"))
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x)
                                                              #((top))
                                                              #("i4811")))
                                                           (hygiene guile))
                                                        #{id 4834}#))
                                            (list '#(syntax-object
                                                     syntax
                                                     ((top)
                                                      #(ribcage
                                                        #(id exp1 var val exp2)
                                                        #((top)
                                                          (top)
                                                          (top)
                                                          (top)
                                                          (top))
                                                        #("i4829"
                                                          "i4830"
                                                          "i4831"
                                                          "i4832"
                                                          "i4833"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4811")))
                                                     (hygiene guile))
                                                  #{exp1 4835}#))))))
                  #{tmp 4816}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp 4812}#)))))))))

(define define*
  (make-syntax-transformer
    'define*
    'macro
    (lambda (#{x 4839}#)
      (let ((#{tmp 4841}# #{x 4839}#))
        (let ((#{tmp 4842}#
                ($sc-dispatch
                  #{tmp 4841}#
                  '(_ (any . any) any . each-any))))
          (if #{tmp 4842}#
            (@apply
              (lambda (#{id 4847}#
                       #{args 4848}#
                       #{b0 4849}#
                       #{b1 4850}#)
                (list '#(syntax-object
                         define
                         ((top)
                          #(ribcage
                            #(id args b0 b1)
                            #((top) (top) (top) (top))
                            #("i4843" "i4844" "i4845" "i4846"))
                          #(ribcage () () ())
                          #(ribcage #(x) #((top)) #("i4840")))
                         (hygiene guile))
                      #{id 4847}#
                      (cons '#(syntax-object
                               lambda*
                               ((top)
                                #(ribcage
                                  #(id args b0 b1)
                                  #((top) (top) (top) (top))
                                  #("i4843" "i4844" "i4845" "i4846"))
                                #(ribcage () () ())
                                #(ribcage #(x) #((top)) #("i4840")))
                               (hygiene guile))
                            (cons #{args 4848}#
                                  (cons #{b0 4849}# #{b1 4850}#)))))
              #{tmp 4842}#)
            (let ((#{tmp 4852}#
                    ($sc-dispatch #{tmp 4841}# '(_ any any))))
              (if (if #{tmp 4852}#
                    (@apply
                      (lambda (#{id 4855}# #{val 4856}#)
                        (identifier?
                          '#(syntax-object
                             x
                             ((top)
                              #(ribcage
                                #(id val)
                                #((top) (top))
                                #("i4853" "i4854"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4840")))
                             (hygiene guile))))
                      #{tmp 4852}#)
                    #f)
                (@apply
                  (lambda (#{id 4859}# #{val 4860}#)
                    (list '#(syntax-object
                             define
                             ((top)
                              #(ribcage
                                #(id val)
                                #((top) (top))
                                #("i4857" "i4858"))
                              #(ribcage () () ())
                              #(ribcage #(x) #((top)) #("i4840")))
                             (hygiene guile))
                          #{id 4859}#
                          #{val 4860}#))
                  #{tmp 4852}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp 4841}#)))))))))