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

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

(letrec ((#{and-map*\ 20}#
           (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#)
             (let ((#{t\ 200}# (null? #{first\ 193}#)))
               (if #{t\ 200}#
                 #{t\ 200}#
                 (if (null? #{rest\ 194}#)
                   (letrec ((#{andmap\ 204}#
                              (lambda (#{first\ 205}#)
                                (let ((#{x\ 208}# (car #{first\ 205}#))
                                      (#{first\ 209}# (cdr #{first\ 205}#)))
                                  (if (null? #{first\ 209}#)
                                    (#{f\ 192}# #{x\ 208}#)
                                    (if (#{f\ 192}# #{x\ 208}#)
                                      (#{andmap\ 204}# #{first\ 209}#)
                                      #f))))))
                     (#{andmap\ 204}# #{first\ 193}#))
                   (letrec ((#{andmap\ 215}#
                              (lambda (#{first\ 216}# #{rest\ 217}#)
                                (let ((#{x\ 222}# (car #{first\ 216}#))
                                      (#{xr\ 223}# (map car #{rest\ 217}#))
                                      (#{first\ 224}# (cdr #{first\ 216}#))
                                      (#{rest\ 225}# (map cdr #{rest\ 217}#)))
                                  (if (null? #{first\ 224}#)
                                    (apply #{f\ 192}#
                                           (cons #{x\ 222}# #{xr\ 223}#))
                                    (if (apply #{f\ 192}#
                                               (cons #{x\ 222}# #{xr\ 223}#))
                                      (#{andmap\ 215}#
                                        #{first\ 224}#
                                        #{rest\ 225}#)
                                      #f))))))
                     (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#))))))))
  (letrec ((#{lambda-var-list\ 487}#
             (lambda (#{vars\ 702}#)
               (letrec ((#{lvl\ 708}#
                          (lambda (#{vars\ 709}# #{ls\ 710}# #{w\ 711}#)
                            (if (pair? #{vars\ 709}#)
                              (#{lvl\ 708}#
                                (cdr #{vars\ 709}#)
                                (cons (#{wrap\ 441}#
                                        (car #{vars\ 709}#)
                                        #{w\ 711}#
                                        #f)
                                      #{ls\ 710}#)
                                #{w\ 711}#)
                              (if (#{id?\ 372}# #{vars\ 709}#)
                                (cons (#{wrap\ 441}#
                                        #{vars\ 709}#
                                        #{w\ 711}#
                                        #f)
                                      #{ls\ 710}#)
                                (if (null? #{vars\ 709}#)
                                  #{ls\ 710}#
                                  (if (#{syntax-object?\ 336}# #{vars\ 709}#)
                                    (#{lvl\ 708}#
                                      (#{syntax-object-expression\ 338}#
                                        #{vars\ 709}#)
                                      #{ls\ 710}#
                                      (#{join-wraps\ 423}#
                                        #{w\ 711}#
                                        (#{syntax-object-wrap\ 340}#
                                          #{vars\ 709}#)))
                                    (cons #{vars\ 709}# #{ls\ 710}#))))))))
                 (#{lvl\ 708}#
                   #{vars\ 702}#
                   '()
                   '(())))))
           (#{gen-var\ 485}#
             (lambda (#{id\ 722}#)
               (let ((#{id\ 725}#
                       (if (#{syntax-object?\ 336}# #{id\ 722}#)
                         (#{syntax-object-expression\ 338}# #{id\ 722}#)
                         #{id\ 722}#)))
                 (gensym
                   (string-append (symbol->string #{id\ 725}#) " ")))))
           (#{strip\ 483}#
             (lambda (#{x\ 727}# #{w\ 728}#)
               (if (memq 'top
                         (#{wrap-marks\ 379}# #{w\ 728}#))
                 #{x\ 727}#
                 (letrec ((#{f\ 734}# (lambda (#{x\ 735}#)
                                        (if (#{syntax-object?\ 336}#
                                              #{x\ 735}#)
                                          (#{strip\ 483}#
                                            (#{syntax-object-expression\ 338}#
                                              #{x\ 735}#)
                                            (#{syntax-object-wrap\ 340}#
                                              #{x\ 735}#))
                                          (if (pair? #{x\ 735}#)
                                            (let ((#{a\ 742}# (#{f\ 734}# (car #{x\ 735}#)))
                                                  (#{d\ 743}# (#{f\ 734}# (cdr #{x\ 735}#))))
                                              (if (if (eq? #{a\ 742}#
                                                           (car #{x\ 735}#))
                                                    (eq? #{d\ 743}#
                                                         (cdr #{x\ 735}#))
                                                    #f)
                                                #{x\ 735}#
                                                (cons #{a\ 742}# #{d\ 743}#)))
                                            (if (vector? #{x\ 735}#)
                                              (let ((#{old\ 749}#
                                                      (vector->list
                                                        #{x\ 735}#)))
                                                (let ((#{new\ 751}#
                                                        (map #{f\ 734}#
                                                             #{old\ 749}#)))
                                                  (if (#{and-map*\ 20}#
                                                        eq?
                                                        #{old\ 749}#
                                                        #{new\ 751}#)
                                                    #{x\ 735}#
                                                    (list->vector
                                                      #{new\ 751}#))))
                                              #{x\ 735}#))))))
                   (#{f\ 734}# #{x\ 727}#)))))
           (#{chi-lambda-case\ 481}#
             (lambda (#{e\ 753}#
                      #{r\ 754}#
                      #{w\ 755}#
                      #{s\ 756}#
                      #{mod\ 757}#
                      #{get-formals\ 758}#
                      #{clauses\ 759}#)
               (letrec ((#{expand-body\ 774}#
                          (lambda (#{req\ 775}#
                                   #{opt\ 776}#
                                   #{rest\ 777}#
                                   #{kw\ 778}#
                                   #{body\ 779}#
                                   #{vars\ 780}#
                                   #{r*\ 781}#
                                   #{w*\ 782}#
                                   #{inits\ 783}#
                                   #{meta\ 784}#)
                            ((lambda (#{tmp\ 795}#)
                               ((lambda (#{tmp\ 796}#)
                                  (if (if #{tmp\ 796}#
                                        (apply (lambda (#{docstring\ 800}#
                                                        #{e1\ 801}#
                                                        #{e2\ 802}#)
                                                 (string?
                                                   (syntax->datum
                                                     #{docstring\ 800}#)))
                                               #{tmp\ 796}#)
                                        #f)
                                    (apply (lambda (#{docstring\ 806}#
                                                    #{e1\ 807}#
                                                    #{e2\ 808}#)
                                             (#{expand-body\ 774}#
                                               #{req\ 775}#
                                               #{opt\ 776}#
                                               #{rest\ 777}#
                                               #{kw\ 778}#
                                               (cons #{e1\ 807}# #{e2\ 808}#)
                                               #{vars\ 780}#
                                               #{r*\ 781}#
                                               #{w*\ 782}#
                                               #{inits\ 783}#
                                               (append
                                                 #{meta\ 784}#
                                                 (list (cons 'documentation
                                                             (syntax->datum
                                                               #{docstring\ 806}#))))))
                                           #{tmp\ 796}#)
                                    ((lambda (#{tmp\ 811}#)
                                       (if #{tmp\ 811}#
                                         (apply (lambda (#{k\ 816}#
                                                         #{v\ 817}#
                                                         #{e1\ 818}#
                                                         #{e2\ 819}#)
                                                  (#{expand-body\ 774}#
                                                    #{req\ 775}#
                                                    #{opt\ 776}#
                                                    #{rest\ 777}#
                                                    #{kw\ 778}#
                                                    (cons #{e1\ 818}#
                                                          #{e2\ 819}#)
                                                    #{vars\ 780}#
                                                    #{r*\ 781}#
                                                    #{w*\ 782}#
                                                    #{inits\ 783}#
                                                    (append
                                                      #{meta\ 784}#
                                                      (syntax->datum
                                                        (map cons
                                                             #{k\ 816}#
                                                             #{v\ 817}#)))))
                                                #{tmp\ 811}#)
                                         ((lambda (#{tmp\ 823}#)
                                            (if #{tmp\ 823}#
                                              (apply (lambda (#{e1\ 826}#
                                                              #{e2\ 827}#)
                                                       (values
                                                         #{meta\ 784}#
                                                         #{req\ 775}#
                                                         #{opt\ 776}#
                                                         #{rest\ 777}#
                                                         #{kw\ 778}#
                                                         #{inits\ 783}#
                                                         #{vars\ 780}#
                                                         (#{chi-body\ 465}#
                                                           (cons #{e1\ 826}#
                                                                 #{e2\ 827}#)
                                                           (#{source-wrap\ 443}#
                                                             #{e\ 753}#
                                                             #{w\ 755}#
                                                             #{s\ 756}#
                                                             #{mod\ 757}#)
                                                           #{r*\ 781}#
                                                           #{w*\ 782}#
                                                           #{mod\ 757}#)))
                                                     #{tmp\ 823}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to match any pattern"
                                                #{tmp\ 795}#)))
                                          ($sc-dispatch
                                            #{tmp\ 795}#
                                            '(any . each-any)))))
                                     ($sc-dispatch
                                       #{tmp\ 795}#
                                       '(#(vector #(each (any . any)))
                                         any
                                         .
                                         each-any)))))
                                ($sc-dispatch
                                  #{tmp\ 795}#
                                  '(any any . each-any))))
                             #{body\ 779}#)))
                        (#{expand-kw\ 772}#
                          (lambda (#{req\ 829}#
                                   #{opt\ 830}#
                                   #{rest\ 831}#
                                   #{kw\ 832}#
                                   #{body\ 833}#
                                   #{vars\ 834}#
                                   #{r*\ 835}#
                                   #{w*\ 836}#
                                   #{aok\ 837}#
                                   #{out\ 838}#
                                   #{inits\ 839}#)
                            (if (pair? #{kw\ 832}#)
                              ((lambda (#{tmp\ 853}#)
                                 ((lambda (#{tmp\ 854}#)
                                    (if #{tmp\ 854}#
                                      (apply (lambda (#{k\ 858}#
                                                      #{id\ 859}#
                                                      #{i\ 860}#)
                                               (let ((#{v\ 863}# (#{gen-var\ 485}#
                                                                   #{id\ 859}#)))
                                                 (let ((#{l\ 865}# (#{gen-labels\ 390}#
                                                                     (list #{v\ 863}#))))
                                                   (let ((#{r**\ 867}#
                                                           (#{extend-var-env\ 362}#
                                                             #{l\ 865}#
                                                             (list #{v\ 863}#)
                                                             #{r*\ 835}#)))
                                                     (let ((#{w**\ 869}#
                                                             (#{make-binding-wrap\ 419}#
                                                               (list #{id\ 859}#)
                                                               #{l\ 865}#
                                                               #{w*\ 836}#)))
                                                       (#{expand-kw\ 772}#
                                                         #{req\ 829}#
                                                         #{opt\ 830}#
                                                         #{rest\ 831}#
                                                         (cdr #{kw\ 832}#)
                                                         #{body\ 833}#
                                                         (cons #{v\ 863}#
                                                               #{vars\ 834}#)
                                                         #{r**\ 867}#
                                                         #{w**\ 869}#
                                                         #{aok\ 837}#
                                                         (cons (list (syntax->datum
                                                                       #{k\ 858}#)
                                                                     (syntax->datum
                                                                       #{id\ 859}#)
                                                                     #{v\ 863}#)
                                                               #{out\ 838}#)
                                                         (cons (#{chi\ 457}#
                                                                 #{i\ 860}#
                                                                 #{r*\ 835}#
                                                                 #{w*\ 836}#
                                                                 #{mod\ 757}#)
                                                               #{inits\ 839}#)))))))
                                             #{tmp\ 854}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        #{tmp\ 853}#)))
                                  ($sc-dispatch
                                    #{tmp\ 853}#
                                    '(any any any))))
                               (car #{kw\ 832}#))
                              (#{expand-body\ 774}#
                                #{req\ 829}#
                                #{opt\ 830}#
                                #{rest\ 831}#
                                (if (let ((#{t\ 873}# #{aok\ 837}#))
                                      (if #{t\ 873}#
                                        #{t\ 873}#
                                        (pair? #{out\ 838}#)))
                                  (cons #{aok\ 837}# (reverse #{out\ 838}#))
                                  #f)
                                #{body\ 833}#
                                (reverse #{vars\ 834}#)
                                #{r*\ 835}#
                                #{w*\ 836}#
                                (reverse #{inits\ 839}#)
                                '()))))
                        (#{expand-opt\ 770}#
                          (lambda (#{req\ 875}#
                                   #{opt\ 876}#
                                   #{rest\ 877}#
                                   #{kw\ 878}#
                                   #{body\ 879}#
                                   #{vars\ 880}#
                                   #{r*\ 881}#
                                   #{w*\ 882}#
                                   #{out\ 883}#
                                   #{inits\ 884}#)
                            (if (pair? #{opt\ 876}#)
                              ((lambda (#{tmp\ 897}#)
                                 ((lambda (#{tmp\ 898}#)
                                    (if #{tmp\ 898}#
                                      (apply (lambda (#{id\ 901}# #{i\ 902}#)
                                               (let ((#{v\ 905}# (#{gen-var\ 485}#
                                                                   #{id\ 901}#)))
                                                 (let ((#{l\ 907}# (#{gen-labels\ 390}#
                                                                     (list #{v\ 905}#))))
                                                   (let ((#{r**\ 909}#
                                                           (#{extend-var-env\ 362}#
                                                             #{l\ 907}#
                                                             (list #{v\ 905}#)
                                                             #{r*\ 881}#)))
                                                     (let ((#{w**\ 911}#
                                                             (#{make-binding-wrap\ 419}#
                                                               (list #{id\ 901}#)
                                                               #{l\ 907}#
                                                               #{w*\ 882}#)))
                                                       (#{expand-opt\ 770}#
                                                         #{req\ 875}#
                                                         (cdr #{opt\ 876}#)
                                                         #{rest\ 877}#
                                                         #{kw\ 878}#
                                                         #{body\ 879}#
                                                         (cons #{v\ 905}#
                                                               #{vars\ 880}#)
                                                         #{r**\ 909}#
                                                         #{w**\ 911}#
                                                         (cons (syntax->datum
                                                                 #{id\ 901}#)
                                                               #{out\ 883}#)
                                                         (cons (#{chi\ 457}#
                                                                 #{i\ 902}#
                                                                 #{r*\ 881}#
                                                                 #{w*\ 882}#
                                                                 #{mod\ 757}#)
                                                               #{inits\ 884}#)))))))
                                             #{tmp\ 898}#)
                                      (syntax-violation
                                        #f
                                        "source expression failed to match any pattern"
                                        #{tmp\ 897}#)))
                                  ($sc-dispatch
                                    #{tmp\ 897}#
                                    '(any any))))
                               (car #{opt\ 876}#))
                              (if #{rest\ 877}#
                                (let ((#{v\ 916}# (#{gen-var\ 485}#
                                                    #{rest\ 877}#)))
                                  (let ((#{l\ 918}# (#{gen-labels\ 390}#
                                                      (list #{v\ 916}#))))
                                    (let ((#{r*\ 920}#
                                            (#{extend-var-env\ 362}#
                                              #{l\ 918}#
                                              (list #{v\ 916}#)
                                              #{r*\ 881}#)))
                                      (let ((#{w*\ 922}#
                                              (#{make-binding-wrap\ 419}#
                                                (list #{rest\ 877}#)
                                                #{l\ 918}#
                                                #{w*\ 882}#)))
                                        (#{expand-kw\ 772}#
                                          #{req\ 875}#
                                          (if (pair? #{out\ 883}#)
                                            (reverse #{out\ 883}#)
                                            #f)
                                          (syntax->datum #{rest\ 877}#)
                                          (if (pair? #{kw\ 878}#)
                                            (cdr #{kw\ 878}#)
                                            #{kw\ 878}#)
                                          #{body\ 879}#
                                          (cons #{v\ 916}# #{vars\ 880}#)
                                          #{r*\ 920}#
                                          #{w*\ 922}#
                                          (if (pair? #{kw\ 878}#)
                                            (car #{kw\ 878}#)
                                            #f)
                                          '()
                                          #{inits\ 884}#)))))
                                (#{expand-kw\ 772}#
                                  #{req\ 875}#
                                  (if (pair? #{out\ 883}#)
                                    (reverse #{out\ 883}#)
                                    #f)
                                  #f
                                  (if (pair? #{kw\ 878}#)
                                    (cdr #{kw\ 878}#)
                                    #{kw\ 878}#)
                                  #{body\ 879}#
                                  #{vars\ 880}#
                                  #{r*\ 881}#
                                  #{w*\ 882}#
                                  (if (pair? #{kw\ 878}#) (car #{kw\ 878}#) #f)
                                  '()
                                  #{inits\ 884}#)))))
                        (#{expand-req\ 768}#
                          (lambda (#{req\ 924}#
                                   #{opt\ 925}#
                                   #{rest\ 926}#
                                   #{kw\ 927}#
                                   #{body\ 928}#)
                            (let ((#{vars\ 936}#
                                    (map #{gen-var\ 485}# #{req\ 924}#))
                                  (#{labels\ 937}#
                                    (#{gen-labels\ 390}# #{req\ 924}#)))
                              (let ((#{r*\ 940}#
                                      (#{extend-var-env\ 362}#
                                        #{labels\ 937}#
                                        #{vars\ 936}#
                                        #{r\ 754}#))
                                    (#{w*\ 941}#
                                      (#{make-binding-wrap\ 419}#
                                        #{req\ 924}#
                                        #{labels\ 937}#
                                        #{w\ 755}#)))
                                (#{expand-opt\ 770}#
                                  (map syntax->datum #{req\ 924}#)
                                  #{opt\ 925}#
                                  #{rest\ 926}#
                                  #{kw\ 927}#
                                  #{body\ 928}#
                                  (reverse #{vars\ 936}#)
                                  #{r*\ 940}#
                                  #{w*\ 941}#
                                  '()
                                  '()))))))
                 ((lambda (#{tmp\ 942}#)
                    ((lambda (#{tmp\ 943}#)
                       (if #{tmp\ 943}#
                         (apply (lambda () (values (quote ()) #f))
                                #{tmp\ 943}#)
                         ((lambda (#{tmp\ 944}#)
                            (if #{tmp\ 944}#
                              (apply (lambda (#{args\ 951}#
                                              #{e1\ 952}#
                                              #{e2\ 953}#
                                              #{args*\ 954}#
                                              #{e1*\ 955}#
                                              #{e2*\ 956}#)
                                       (call-with-values
                                         (lambda ()
                                           (#{get-formals\ 758}#
                                             #{args\ 951}#))
                                         (lambda (#{req\ 957}#
                                                  #{opt\ 958}#
                                                  #{rest\ 959}#
                                                  #{kw\ 960}#)
                                           (call-with-values
                                             (lambda ()
                                               (#{expand-req\ 768}#
                                                 #{req\ 957}#
                                                 #{opt\ 958}#
                                                 #{rest\ 959}#
                                                 #{kw\ 960}#
                                                 (cons #{e1\ 952}#
                                                       #{e2\ 953}#)))
                                             (lambda (#{meta\ 966}#
                                                      #{req\ 967}#
                                                      #{opt\ 968}#
                                                      #{rest\ 969}#
                                                      #{kw\ 970}#
                                                      #{inits\ 971}#
                                                      #{vars\ 972}#
                                                      #{body\ 973}#)
                                               (call-with-values
                                                 (lambda ()
                                                   (#{chi-lambda-case\ 481}#
                                                     #{e\ 753}#
                                                     #{r\ 754}#
                                                     #{w\ 755}#
                                                     #{s\ 756}#
                                                     #{mod\ 757}#
                                                     #{get-formals\ 758}#
                                                     (map (lambda (#{tmp\ 984}#
                                                                   #{tmp\ 983}#
                                                                   #{tmp\ 982}#)
                                                            (cons #{tmp\ 982}#
                                                                  (cons #{tmp\ 983}#
                                                                        #{tmp\ 984}#)))
                                                          #{e2*\ 956}#
                                                          #{e1*\ 955}#
                                                          #{args*\ 954}#)))
                                                 (lambda (#{meta*\ 986}#
                                                          #{else*\ 987}#)
                                                   (values
                                                     (append
                                                       #{meta\ 966}#
                                                       #{meta*\ 986}#)
                                                     (#{build-lambda-case\ 318}#
                                                       #{s\ 756}#
                                                       #{req\ 967}#
                                                       #{opt\ 968}#
                                                       #{rest\ 969}#
                                                       #{kw\ 970}#
                                                       #{inits\ 971}#
                                                       #{vars\ 972}#
                                                       #{body\ 973}#
                                                       #{else*\ 987}#)))))))))
                                     #{tmp\ 944}#)
                              (syntax-violation
                                #f
                                "source expression failed to match any pattern"
                                #{tmp\ 942}#)))
                          ($sc-dispatch
                            #{tmp\ 942}#
                            '((any any . each-any)
                              .
                              #(each (any any . each-any)))))))
                     ($sc-dispatch #{tmp\ 942}# (quote ()))))
                  #{clauses\ 759}#))))
           (#{lambda*-formals\ 479}#
             (lambda (#{orig-args\ 990}#)
               (letrec ((#{check\ 1001}#
                          (lambda (#{req\ 1002}#
                                   #{opt\ 1003}#
                                   #{rest\ 1004}#
                                   #{kw\ 1005}#)
                            (if (#{distinct-bound-ids?\ 437}#
                                  (append
                                    #{req\ 1002}#
                                    (map car #{opt\ 1003}#)
                                    (if #{rest\ 1004}#
                                      (list #{rest\ 1004}#)
                                      '())
                                    (if (pair? #{kw\ 1005}#)
                                      (map cadr (cdr #{kw\ 1005}#))
                                      '())))
                              (values
                                #{req\ 1002}#
                                #{opt\ 1003}#
                                #{rest\ 1004}#
                                #{kw\ 1005}#)
                              (syntax-violation
                                'lambda*
                                "duplicate identifier in argument list"
                                #{orig-args\ 990}#))))
                        (#{rest\ 999}#
                          (lambda (#{args\ 1013}#
                                   #{req\ 1014}#
                                   #{opt\ 1015}#
                                   #{kw\ 1016}#)
                            ((lambda (#{tmp\ 1021}#)
                               ((lambda (#{tmp\ 1022}#)
                                  (if (if #{tmp\ 1022}#
                                        (apply (lambda (#{r\ 1024}#)
                                                 (#{id?\ 372}# #{r\ 1024}#))
                                               #{tmp\ 1022}#)
                                        #f)
                                    (apply (lambda (#{r\ 1026}#)
                                             (#{check\ 1001}#
                                               #{req\ 1014}#
                                               #{opt\ 1015}#
                                               #{r\ 1026}#
                                               #{kw\ 1016}#))
                                           #{tmp\ 1022}#)
                                    ((lambda (#{else\ 1028}#)
                                       (syntax-violation
                                         'lambda*
                                         "invalid rest argument"
                                         #{orig-args\ 990}#
                                         #{args\ 1013}#))
                                     #{tmp\ 1021}#)))
                                (list #{tmp\ 1021}#)))
                             #{args\ 1013}#)))
                        (#{key\ 997}#
                          (lambda (#{args\ 1029}#
                                   #{req\ 1030}#
                                   #{opt\ 1031}#
                                   #{rkey\ 1032}#)
                            ((lambda (#{tmp\ 1037}#)
                               ((lambda (#{tmp\ 1038}#)
                                  (if #{tmp\ 1038}#
                                    (apply (lambda ()
                                             (#{check\ 1001}#
                                               #{req\ 1030}#
                                               #{opt\ 1031}#
                                               #f
                                               (cons #f
                                                     (reverse
                                                       #{rkey\ 1032}#))))
                                           #{tmp\ 1038}#)
                                    ((lambda (#{tmp\ 1039}#)
                                       (if (if #{tmp\ 1039}#
                                             (apply (lambda (#{a\ 1042}#
                                                             #{b\ 1043}#)
                                                      (#{id?\ 372}#
                                                        #{a\ 1042}#))
                                                    #{tmp\ 1039}#)
                                             #f)
                                         (apply (lambda (#{a\ 1046}#
                                                         #{b\ 1047}#)
                                                  ((lambda (#{tmp\ 1049}#)
                                                     ((lambda (#{k\ 1051}#)
                                                        (#{key\ 997}#
                                                          #{b\ 1047}#
                                                          #{req\ 1030}#
                                                          #{opt\ 1031}#
                                                          (cons (cons #{k\ 1051}#
                                                                      (cons #{a\ 1046}#
                                                                            '(#(syntax-object
                                                                                #f
                                                                                ((top)
                                                                                 #(ribcage
                                                                                   #(k)
                                                                                   #((top))
                                                                                   #("i1050"))
                                                                                 #(ribcage
                                                                                   #(a
                                                                                     b)
                                                                                   #((top)
                                                                                     (top))
                                                                                   #("i1044"
                                                                                     "i1045"))
                                                                                 #(ribcage
                                                                                   ()
                                                                                   ()
                                                                                   ())
                                                                                 #(ribcage
                                                                                   #(args
                                                                                     req
                                                                                     opt
                                                                                     rkey)
                                                                                   #((top)
                                                                                     (top)
                                                                                     (top)
                                                                                     (top))
                                                                                   #("i1033"
                                                                                     "i1034"
                                                                                     "i1035"
                                                                                     "i1036"))
                                                                                 #(ribcage
                                                                                   (check rest
                                                                                          key
                                                                                          opt
                                                                                          req)
                                                                                   ((top)
                                                                                    (top)
                                                                                    (top)
                                                                                    (top)
                                                                                    (top))
                                                                                   ("i1000"
                                                                                    "i998"
                                                                                    "i996"
                                                                                    "i994"
                                                                                    "i992"))
                                                                                 #(ribcage
                                                                                   #(orig-args)
                                                                                   #((top))
                                                                                   #("i991"))
                                                                                 #(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
                                                                                     chi-top
                                                                                     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
                                                                                     maybe-name-value!
                                                                                     build-global-assignment
                                                                                     build-global-reference
                                                                                     analyze-variable
                                                                                     build-lexical-assignment
                                                                                     build-lexical-reference
                                                                                     build-dynlet
                                                                                     build-conditional
                                                                                     build-application
                                                                                     build-void
                                                                                     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)
                                                                                    (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"
                                                                                    "i416"
                                                                                    "i415"
                                                                                    "i414"
                                                                                    "i412"
                                                                                    "i411"
                                                                                    "i410"
                                                                                    "i409"
                                                                                    "i408"
                                                                                    "i406"
                                                                                    "i404"
                                                                                    "i402"
                                                                                    "i400"
                                                                                    "i398"
                                                                                    "i396"
                                                                                    "i394"
                                                                                    "i392"
                                                                                    "i389"
                                                                                    "i387"
                                                                                    "i386"
                                                                                    "i385"
                                                                                    "i384"
                                                                                    "i383"
                                                                                    "i382"
                                                                                    "i380"
                                                                                    "i378"
                                                                                    "i376"
                                                                                    "i374"
                                                                                    "i373"
                                                                                    "i371"
                                                                                    "i369"
                                                                                    "i367"
                                                                                    "i365"
                                                                                    "i363"
                                                                                    "i361"
                                                                                    "i359"
                                                                                    "i358"
                                                                                    "i356"
                                                                                    "i354"
                                                                                    "i353"
                                                                                    "i352"
                                                                                    "i350"
                                                                                    "i349"
                                                                                    "i347"
                                                                                    "i345"
                                                                                    "i343"
                                                                                    "i341"
                                                                                    "i339"
                                                                                    "i337"
                                                                                    "i335"
                                                                                    "i333"
                                                                                    "i331"
                                                                                    "i329"
                                                                                    "i327"
                                                                                    "i325"
                                                                                    "i323"
                                                                                    "i321"
                                                                                    "i319"
                                                                                    "i317"
                                                                                    "i315"
                                                                                    "i313"
                                                                                    "i311"
                                                                                    "i309"
                                                                                    "i307"
                                                                                    "i305"
                                                                                    "i303"
                                                                                    "i301"
                                                                                    "i299"
                                                                                    "i297"
                                                                                    "i295"
                                                                                    "i293"
                                                                                    "i291"
                                                                                    "i289"
                                                                                    "i287"
                                                                                    "i285"
                                                                                    "i284"
                                                                                    "i282"
                                                                                    "i280"
                                                                                    "i278"
                                                                                    "i276"
                                                                                    "i274"
                                                                                    "i272"
                                                                                    "i270"
                                                                                    "i268"
                                                                                    "i266"
                                                                                    "i263"
                                                                                    "i261"
                                                                                    "i259"
                                                                                    "i257"
                                                                                    "i255"
                                                                                    "i253"
                                                                                    "i251"
                                                                                    "i249"
                                                                                    "i247"
                                                                                    "i245"
                                                                                    "i243"
                                                                                    "i241"
                                                                                    "i239"
                                                                                    "i237"
                                                                                    "i235"
                                                                                    "i233"
                                                                                    "i231"
                                                                                    "i229"))
                                                                                 #(ribcage
                                                                                   (define-structure
                                                                                     define-expansion-accessors
                                                                                     define-expansion-constructors
                                                                                     and-map*)
                                                                                   ((top)
                                                                                    (top)
                                                                                    (top)
                                                                                    (top))
                                                                                   ("i23"
                                                                                    "i22"
                                                                                    "i21"
                                                                                    "i19")))
                                                                                (hygiene
                                                                                  guile)))))
                                                                #{rkey\ 1032}#)))
                                                      #{tmp\ 1049}#))
                                                   (symbol->keyword
                                                     (syntax->datum
                                                       #{a\ 1046}#))))
                                                #{tmp\ 1039}#)
                                         ((lambda (#{tmp\ 1052}#)
                                            (if (if #{tmp\ 1052}#
                                                  (apply (lambda (#{a\ 1056}#
                                                                  #{init\ 1057}#
                                                                  #{b\ 1058}#)
                                                           (#{id?\ 372}#
                                                             #{a\ 1056}#))
                                                         #{tmp\ 1052}#)
                                                  #f)
                                              (apply (lambda (#{a\ 1062}#
                                                              #{init\ 1063}#
                                                              #{b\ 1064}#)
                                                       ((lambda (#{tmp\ 1066}#)
                                                          ((lambda (#{k\ 1068}#)
                                                             (#{key\ 997}#
                                                               #{b\ 1064}#
                                                               #{req\ 1030}#
                                                               #{opt\ 1031}#
                                                               (cons (list #{k\ 1068}#
                                                                           #{a\ 1062}#
                                                                           #{init\ 1063}#)
                                                                     #{rkey\ 1032}#)))
                                                           #{tmp\ 1066}#))
                                                        (symbol->keyword
                                                          (syntax->datum
                                                            #{a\ 1062}#))))
                                                     #{tmp\ 1052}#)
                                              ((lambda (#{tmp\ 1069}#)
                                                 (if (if #{tmp\ 1069}#
                                                       (apply (lambda (#{a\ 1074}#
                                                                       #{init\ 1075}#
                                                                       #{k\ 1076}#
                                                                       #{b\ 1077}#)
                                                                (if (#{id?\ 372}#
                                                                      #{a\ 1074}#)
                                                                  (keyword?
                                                                    (syntax->datum
                                                                      #{k\ 1076}#))
                                                                  #f))
                                                              #{tmp\ 1069}#)
                                                       #f)
                                                   (apply (lambda (#{a\ 1084}#
                                                                   #{init\ 1085}#
                                                                   #{k\ 1086}#
                                                                   #{b\ 1087}#)
                                                            (#{key\ 997}#
                                                              #{b\ 1087}#
                                                              #{req\ 1030}#
                                                              #{opt\ 1031}#
                                                              (cons (list #{k\ 1086}#
                                                                          #{a\ 1084}#
                                                                          #{init\ 1085}#)
                                                                    #{rkey\ 1032}#)))
                                                          #{tmp\ 1069}#)
                                                   ((lambda (#{tmp\ 1088}#)
                                                      (if (if #{tmp\ 1088}#
                                                            (apply (lambda (#{aok\ 1090}#)
                                                                     (eq? (syntax->datum
                                                                            #{aok\ 1090}#)
                                                                          #:allow-other-keys))
                                                                   #{tmp\ 1088}#)
                                                            #f)
                                                        (apply (lambda (#{aok\ 1092}#)
                                                                 (#{check\ 1001}#
                                                                   #{req\ 1030}#
                                                                   #{opt\ 1031}#
                                                                   #f
                                                                   (cons #t
                                                                         (reverse
                                                                           #{rkey\ 1032}#))))
                                                               #{tmp\ 1088}#)
                                                        ((lambda (#{tmp\ 1093}#)
                                                           (if (if #{tmp\ 1093}#
                                                                 (apply (lambda (#{aok\ 1097}#
                                                                                 #{a\ 1098}#
                                                                                 #{b\ 1099}#)
                                                                          (if (eq? (syntax->datum
                                                                                     #{aok\ 1097}#)
                                                                                   #:allow-other-keys)
                                                                            (eq? (syntax->datum
                                                                                   #{a\ 1098}#)
                                                                                 #:rest)
                                                                            #f))
                                                                        #{tmp\ 1093}#)
                                                                 #f)
                                                             (apply (lambda (#{aok\ 1105}#
                                                                             #{a\ 1106}#
                                                                             #{b\ 1107}#)
                                                                      (#{rest\ 999}#
                                                                        #{b\ 1107}#
                                                                        #{req\ 1030}#
                                                                        #{opt\ 1031}#
                                                                        (cons #t
                                                                              (reverse
                                                                                #{rkey\ 1032}#))))
                                                                    #{tmp\ 1093}#)
                                                             ((lambda (#{tmp\ 1108}#)
                                                                (if (if #{tmp\ 1108}#
                                                                      (apply (lambda (#{aok\ 1111}#
                                                                                      #{r\ 1112}#)
                                                                               (if (eq? (syntax->datum
                                                                                          #{aok\ 1111}#)
                                                                                        #:allow-other-keys)
                                                                                 (#{id?\ 372}#
                                                                                   #{r\ 1112}#)
                                                                                 #f))
                                                                             #{tmp\ 1108}#)
                                                                      #f)
                                                                  (apply (lambda (#{aok\ 1117}#
                                                                                  #{r\ 1118}#)
                                                                           (#{rest\ 999}#
                                                                             #{r\ 1118}#
                                                                             #{req\ 1030}#
                                                                             #{opt\ 1031}#
                                                                             (cons #t
                                                                                   (reverse
                                                                                     #{rkey\ 1032}#))))
                                                                         #{tmp\ 1108}#)
                                                                  ((lambda (#{tmp\ 1119}#)
                                                                     (if (if #{tmp\ 1119}#
                                                                           (apply (lambda (#{a\ 1122}#
                                                                                           #{b\ 1123}#)
                                                                                    (eq? (syntax->datum
                                                                                           #{a\ 1122}#)
                                                                                         #:rest))
                                                                                  #{tmp\ 1119}#)
                                                                           #f)
                                                                       (apply (lambda (#{a\ 1126}#
                                                                                       #{b\ 1127}#)
                                                                                (#{rest\ 999}#
                                                                                  #{b\ 1127}#
                                                                                  #{req\ 1030}#
                                                                                  #{opt\ 1031}#
                                                                                  (cons #f
                                                                                        (reverse
                                                                                          #{rkey\ 1032}#))))
                                                                              #{tmp\ 1119}#)
                                                                       ((lambda (#{tmp\ 1128}#)
                                                                          (if (if #{tmp\ 1128}#
                                                                                (apply (lambda (#{r\ 1130}#)
                                                                                         (#{id?\ 372}#
                                                                                           #{r\ 1130}#))
                                                                                       #{tmp\ 1128}#)
                                                                                #f)
                                                                            (apply (lambda (#{r\ 1132}#)
                                                                                     (#{rest\ 999}#
                                                                                       #{r\ 1132}#
                                                                                       #{req\ 1030}#
                                                                                       #{opt\ 1031}#
                                                                                       (cons #f
                                                                                             (reverse
                                                                                               #{rkey\ 1032}#))))
                                                                                   #{tmp\ 1128}#)
                                                                            ((lambda (#{else\ 1134}#)
                                                                               (syntax-violation
                                                                                 'lambda*
                                                                                 "invalid keyword argument list"
                                                                                 #{orig-args\ 990}#
                                                                                 #{args\ 1029}#))
                                                                             #{tmp\ 1037}#)))
                                                                        (list #{tmp\ 1037}#))))
                                                                   ($sc-dispatch
                                                                     #{tmp\ 1037}#
                                                                     '(any any)))))
                                                              ($sc-dispatch
                                                                #{tmp\ 1037}#
                                                                '(any .
                                                                      any)))))
                                                         ($sc-dispatch
                                                           #{tmp\ 1037}#
                                                           '(any any any)))))
                                                    ($sc-dispatch
                                                      #{tmp\ 1037}#
                                                      '(any)))))
                                               ($sc-dispatch
                                                 #{tmp\ 1037}#
                                                 '((any any any) . any)))))
                                          ($sc-dispatch
                                            #{tmp\ 1037}#
                                            '((any any) . any)))))
                                     ($sc-dispatch
                                       #{tmp\ 1037}#
                                       '(any . any)))))
                                ($sc-dispatch #{tmp\ 1037}# (quote ()))))
                             #{args\ 1029}#)))
                        (#{opt\ 995}#
                          (lambda (#{args\ 1135}# #{req\ 1136}# #{ropt\ 1137}#)
                            ((lambda (#{tmp\ 1141}#)
                               ((lambda (#{tmp\ 1142}#)
                                  (if #{tmp\ 1142}#
                                    (apply (lambda ()
                                             (#{check\ 1001}#
                                               #{req\ 1136}#
                                               (reverse #{ropt\ 1137}#)
                                               #f
                                               '()))
                                           #{tmp\ 1142}#)
                                    ((lambda (#{tmp\ 1143}#)
                                       (if (if #{tmp\ 1143}#
                                             (apply (lambda (#{a\ 1146}#
                                                             #{b\ 1147}#)
                                                      (#{id?\ 372}#
                                                        #{a\ 1146}#))
                                                    #{tmp\ 1143}#)
                                             #f)
                                         (apply (lambda (#{a\ 1150}#
                                                         #{b\ 1151}#)
                                                  (#{opt\ 995}#
                                                    #{b\ 1151}#
                                                    #{req\ 1136}#
                                                    (cons (cons #{a\ 1150}#
                                                                '(#(syntax-object
                                                                    #f
                                                                    ((top)
                                                                     #(ribcage
                                                                       #(a b)
                                                                       #((top)
                                                                         (top))
                                                                       #("i1148"
                                                                         "i1149"))
                                                                     #(ribcage
                                                                       ()
                                                                       ()
                                                                       ())
                                                                     #(ribcage
                                                                       #(args
                                                                         req
                                                                         ropt)
                                                                       #((top)
                                                                         (top)
                                                                         (top))
                                                                       #("i1138"
                                                                         "i1139"
                                                                         "i1140"))
                                                                     #(ribcage
                                                                       (check rest
                                                                              key
                                                                              opt
                                                                              req)
                                                                       ((top)
                                                                        (top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                       ("i1000"
                                                                        "i998"
                                                                        "i996"
                                                                        "i994"
                                                                        "i992"))
                                                                     #(ribcage
                                                                       #(orig-args)
                                                                       #((top))
                                                                       #("i991"))
                                                                     #(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
                                                                         chi-top
                                                                         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
                                                                         maybe-name-value!
                                                                         build-global-assignment
                                                                         build-global-reference
                                                                         analyze-variable
                                                                         build-lexical-assignment
                                                                         build-lexical-reference
                                                                         build-dynlet
                                                                         build-conditional
                                                                         build-application
                                                                         build-void
                                                                         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)
                                                                        (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"
                                                                        "i416"
                                                                        "i415"
                                                                        "i414"
                                                                        "i412"
                                                                        "i411"
                                                                        "i410"
                                                                        "i409"
                                                                        "i408"
                                                                        "i406"
                                                                        "i404"
                                                                        "i402"
                                                                        "i400"
                                                                        "i398"
                                                                        "i396"
                                                                        "i394"
                                                                        "i392"
                                                                        "i389"
                                                                        "i387"
                                                                        "i386"
                                                                        "i385"
                                                                        "i384"
                                                                        "i383"
                                                                        "i382"
                                                                        "i380"
                                                                        "i378"
                                                                        "i376"
                                                                        "i374"
                                                                        "i373"
                                                                        "i371"
                                                                        "i369"
                                                                        "i367"
                                                                        "i365"
                                                                        "i363"
                                                                        "i361"
                                                                        "i359"
                                                                        "i358"
                                                                        "i356"
                                                                        "i354"
                                                                        "i353"
                                                                        "i352"
                                                                        "i350"
                                                                        "i349"
                                                                        "i347"
                                                                        "i345"
                                                                        "i343"
                                                                        "i341"
                                                                        "i339"
                                                                        "i337"
                                                                        "i335"
                                                                        "i333"
                                                                        "i331"
                                                                        "i329"
                                                                        "i327"
                                                                        "i325"
                                                                        "i323"
                                                                        "i321"
                                                                        "i319"
                                                                        "i317"
                                                                        "i315"
                                                                        "i313"
                                                                        "i311"
                                                                        "i309"
                                                                        "i307"
                                                                        "i305"
                                                                        "i303"
                                                                        "i301"
                                                                        "i299"
                                                                        "i297"
                                                                        "i295"
                                                                        "i293"
                                                                        "i291"
                                                                        "i289"
                                                                        "i287"
                                                                        "i285"
                                                                        "i284"
                                                                        "i282"
                                                                        "i280"
                                                                        "i278"
                                                                        "i276"
                                                                        "i274"
                                                                        "i272"
                                                                        "i270"
                                                                        "i268"
                                                                        "i266"
                                                                        "i263"
                                                                        "i261"
                                                                        "i259"
                                                                        "i257"
                                                                        "i255"
                                                                        "i253"
                                                                        "i251"
                                                                        "i249"
                                                                        "i247"
                                                                        "i245"
                                                                        "i243"
                                                                        "i241"
                                                                        "i239"
                                                                        "i237"
                                                                        "i235"
                                                                        "i233"
                                                                        "i231"
                                                                        "i229"))
                                                                     #(ribcage
                                                                       (define-structure
                                                                         define-expansion-accessors
                                                                         define-expansion-constructors
                                                                         and-map*)
                                                                       ((top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                       ("i23"
                                                                        "i22"
                                                                        "i21"
                                                                        "i19")))
                                                                    (hygiene
                                                                      guile))))
                                                          #{ropt\ 1137}#)))
                                                #{tmp\ 1143}#)
                                         ((lambda (#{tmp\ 1152}#)
                                            (if (if #{tmp\ 1152}#
                                                  (apply (lambda (#{a\ 1156}#
                                                                  #{init\ 1157}#
                                                                  #{b\ 1158}#)
                                                           (#{id?\ 372}#
                                                             #{a\ 1156}#))
                                                         #{tmp\ 1152}#)
                                                  #f)
                                              (apply (lambda (#{a\ 1162}#
                                                              #{init\ 1163}#
                                                              #{b\ 1164}#)
                                                       (#{opt\ 995}#
                                                         #{b\ 1164}#
                                                         #{req\ 1136}#
                                                         (cons (list #{a\ 1162}#
                                                                     #{init\ 1163}#)
                                                               #{ropt\ 1137}#)))
                                                     #{tmp\ 1152}#)
                                              ((lambda (#{tmp\ 1165}#)
                                                 (if (if #{tmp\ 1165}#
                                                       (apply (lambda (#{a\ 1168}#
                                                                       #{b\ 1169}#)
                                                                (eq? (syntax->datum
                                                                       #{a\ 1168}#)
                                                                     #:key))
                                                              #{tmp\ 1165}#)
                                                       #f)
                                                   (apply (lambda (#{a\ 1172}#
                                                                   #{b\ 1173}#)
                                                            (#{key\ 997}#
                                                              #{b\ 1173}#
                                                              #{req\ 1136}#
                                                              (reverse
                                                                #{ropt\ 1137}#)
                                                              '()))
                                                          #{tmp\ 1165}#)
                                                   ((lambda (#{tmp\ 1174}#)
                                                      (if (if #{tmp\ 1174}#
                                                            (apply (lambda (#{a\ 1177}#
                                                                            #{b\ 1178}#)
                                                                     (eq? (syntax->datum
                                                                            #{a\ 1177}#)
                                                                          #:rest))
                                                                   #{tmp\ 1174}#)
                                                            #f)
                                                        (apply (lambda (#{a\ 1181}#
                                                                        #{b\ 1182}#)
                                                                 (#{rest\ 999}#
                                                                   #{b\ 1182}#
                                                                   #{req\ 1136}#
                                                                   (reverse
                                                                     #{ropt\ 1137}#)
                                                                   '()))
                                                               #{tmp\ 1174}#)
                                                        ((lambda (#{tmp\ 1183}#)
                                                           (if (if #{tmp\ 1183}#
                                                                 (apply (lambda (#{r\ 1185}#)
                                                                          (#{id?\ 372}#
                                                                            #{r\ 1185}#))
                                                                        #{tmp\ 1183}#)
                                                                 #f)
                                                             (apply (lambda (#{r\ 1187}#)
                                                                      (#{rest\ 999}#
                                                                        #{r\ 1187}#
                                                                        #{req\ 1136}#
                                                                        (reverse
                                                                          #{ropt\ 1137}#)
                                                                        '()))
                                                                    #{tmp\ 1183}#)
                                                             ((lambda (#{else\ 1189}#)
                                                                (syntax-violation
                                                                  'lambda*
                                                                  "invalid optional argument list"
                                                                  #{orig-args\ 990}#
                                                                  #{args\ 1135}#))
                                                              #{tmp\ 1141}#)))
                                                         (list #{tmp\ 1141}#))))
                                                    ($sc-dispatch
                                                      #{tmp\ 1141}#
                                                      '(any any)))))
                                               ($sc-dispatch
                                                 #{tmp\ 1141}#
                                                 '(any . any)))))
                                          ($sc-dispatch
                                            #{tmp\ 1141}#
                                            '((any any) . any)))))
                                     ($sc-dispatch
                                       #{tmp\ 1141}#
                                       '(any . any)))))
                                ($sc-dispatch #{tmp\ 1141}# (quote ()))))
                             #{args\ 1135}#)))
                        (#{req\ 993}#
                          (lambda (#{args\ 1190}# #{rreq\ 1191}#)
                            ((lambda (#{tmp\ 1194}#)
                               ((lambda (#{tmp\ 1195}#)
                                  (if #{tmp\ 1195}#
                                    (apply (lambda ()
                                             (#{check\ 1001}#
                                               (reverse #{rreq\ 1191}#)
                                               '()
                                               #f
                                               '()))
                                           #{tmp\ 1195}#)
                                    ((lambda (#{tmp\ 1196}#)
                                       (if (if #{tmp\ 1196}#
                                             (apply (lambda (#{a\ 1199}#
                                                             #{b\ 1200}#)
                                                      (#{id?\ 372}#
                                                        #{a\ 1199}#))
                                                    #{tmp\ 1196}#)
                                             #f)
                                         (apply (lambda (#{a\ 1203}#
                                                         #{b\ 1204}#)
                                                  (#{req\ 993}#
                                                    #{b\ 1204}#
                                                    (cons #{a\ 1203}#
                                                          #{rreq\ 1191}#)))
                                                #{tmp\ 1196}#)
                                         ((lambda (#{tmp\ 1205}#)
                                            (if (if #{tmp\ 1205}#
                                                  (apply (lambda (#{a\ 1208}#
                                                                  #{b\ 1209}#)
                                                           (eq? (syntax->datum
                                                                  #{a\ 1208}#)
                                                                #:optional))
                                                         #{tmp\ 1205}#)
                                                  #f)
                                              (apply (lambda (#{a\ 1212}#
                                                              #{b\ 1213}#)
                                                       (#{opt\ 995}#
                                                         #{b\ 1213}#
                                                         (reverse
                                                           #{rreq\ 1191}#)
                                                         '()))
                                                     #{tmp\ 1205}#)
                                              ((lambda (#{tmp\ 1214}#)
                                                 (if (if #{tmp\ 1214}#
                                                       (apply (lambda (#{a\ 1217}#
                                                                       #{b\ 1218}#)
                                                                (eq? (syntax->datum
                                                                       #{a\ 1217}#)
                                                                     #:key))
                                                              #{tmp\ 1214}#)
                                                       #f)
                                                   (apply (lambda (#{a\ 1221}#
                                                                   #{b\ 1222}#)
                                                            (#{key\ 997}#
                                                              #{b\ 1222}#
                                                              (reverse
                                                                #{rreq\ 1191}#)
                                                              '()
                                                              '()))
                                                          #{tmp\ 1214}#)
                                                   ((lambda (#{tmp\ 1223}#)
                                                      (if (if #{tmp\ 1223}#
                                                            (apply (lambda (#{a\ 1226}#
                                                                            #{b\ 1227}#)
                                                                     (eq? (syntax->datum
                                                                            #{a\ 1226}#)
                                                                          #:rest))
                                                                   #{tmp\ 1223}#)
                                                            #f)
                                                        (apply (lambda (#{a\ 1230}#
                                                                        #{b\ 1231}#)
                                                                 (#{rest\ 999}#
                                                                   #{b\ 1231}#
                                                                   (reverse
                                                                     #{rreq\ 1191}#)
                                                                   '()
                                                                   '()))
                                                               #{tmp\ 1223}#)
                                                        ((lambda (#{tmp\ 1232}#)
                                                           (if (if #{tmp\ 1232}#
                                                                 (apply (lambda (#{r\ 1234}#)
                                                                          (#{id?\ 372}#
                                                                            #{r\ 1234}#))
                                                                        #{tmp\ 1232}#)
                                                                 #f)
                                                             (apply (lambda (#{r\ 1236}#)
                                                                      (#{rest\ 999}#
                                                                        #{r\ 1236}#
                                                                        (reverse
                                                                          #{rreq\ 1191}#)
                                                                        '()
                                                                        '()))
                                                                    #{tmp\ 1232}#)
                                                             ((lambda (#{else\ 1238}#)
                                                                (syntax-violation
                                                                  'lambda*
                                                                  "invalid argument list"
                                                                  #{orig-args\ 990}#
                                                                  #{args\ 1190}#))
                                                              #{tmp\ 1194}#)))
                                                         (list #{tmp\ 1194}#))))
                                                    ($sc-dispatch
                                                      #{tmp\ 1194}#
                                                      '(any any)))))
                                               ($sc-dispatch
                                                 #{tmp\ 1194}#
                                                 '(any . any)))))
                                          ($sc-dispatch
                                            #{tmp\ 1194}#
                                            '(any . any)))))
                                     ($sc-dispatch
                                       #{tmp\ 1194}#
                                       '(any . any)))))
                                ($sc-dispatch #{tmp\ 1194}# (quote ()))))
                             #{args\ 1190}#))))
                 (#{req\ 993}# #{orig-args\ 990}# (quote ())))))
           (#{chi-simple-lambda\ 477}#
             (lambda (#{e\ 1239}#
                      #{r\ 1240}#
                      #{w\ 1241}#
                      #{s\ 1242}#
                      #{mod\ 1243}#
                      #{req\ 1244}#
                      #{rest\ 1245}#
                      #{meta\ 1246}#
                      #{body\ 1247}#)
               (let ((#{ids\ 1259}#
                       (if #{rest\ 1245}#
                         (append #{req\ 1244}# (list #{rest\ 1245}#))
                         #{req\ 1244}#)))
                 (let ((#{vars\ 1261}#
                         (map #{gen-var\ 485}# #{ids\ 1259}#)))
                   (let ((#{labels\ 1263}#
                           (#{gen-labels\ 390}# #{ids\ 1259}#)))
                     (#{build-simple-lambda\ 314}#
                       #{s\ 1242}#
                       (map syntax->datum #{req\ 1244}#)
                       (if #{rest\ 1245}#
                         (syntax->datum #{rest\ 1245}#)
                         #f)
                       #{vars\ 1261}#
                       #{meta\ 1246}#
                       (#{chi-body\ 465}#
                         #{body\ 1247}#
                         (#{source-wrap\ 443}#
                           #{e\ 1239}#
                           #{w\ 1241}#
                           #{s\ 1242}#
                           #{mod\ 1243}#)
                         (#{extend-var-env\ 362}#
                           #{labels\ 1263}#
                           #{vars\ 1261}#
                           #{r\ 1240}#)
                         (#{make-binding-wrap\ 419}#
                           #{ids\ 1259}#
                           #{labels\ 1263}#
                           #{w\ 1241}#)
                         #{mod\ 1243}#)))))))
           (#{lambda-formals\ 475}#
             (lambda (#{orig-args\ 1266}#)
               (letrec ((#{check\ 1271}#
                          (lambda (#{req\ 1272}# #{rest\ 1273}#)
                            (if (#{distinct-bound-ids?\ 437}#
                                  (if #{rest\ 1273}#
                                    (cons #{rest\ 1273}# #{req\ 1272}#)
                                    #{req\ 1272}#))
                              (values #{req\ 1272}# #f #{rest\ 1273}# #f)
                              (syntax-violation
                                'lambda
                                "duplicate identifier in argument list"
                                #{orig-args\ 1266}#))))
                        (#{req\ 1269}#
                          (lambda (#{args\ 1279}# #{rreq\ 1280}#)
                            ((lambda (#{tmp\ 1283}#)
                               ((lambda (#{tmp\ 1284}#)
                                  (if #{tmp\ 1284}#
                                    (apply (lambda ()
                                             (#{check\ 1271}#
                                               (reverse #{rreq\ 1280}#)
                                               #f))
                                           #{tmp\ 1284}#)
                                    ((lambda (#{tmp\ 1285}#)
                                       (if (if #{tmp\ 1285}#
                                             (apply (lambda (#{a\ 1288}#
                                                             #{b\ 1289}#)
                                                      (#{id?\ 372}#
                                                        #{a\ 1288}#))
                                                    #{tmp\ 1285}#)
                                             #f)
                                         (apply (lambda (#{a\ 1292}#
                                                         #{b\ 1293}#)
                                                  (#{req\ 1269}#
                                                    #{b\ 1293}#
                                                    (cons #{a\ 1292}#
                                                          #{rreq\ 1280}#)))
                                                #{tmp\ 1285}#)
                                         ((lambda (#{tmp\ 1294}#)
                                            (if (if #{tmp\ 1294}#
                                                  (apply (lambda (#{r\ 1296}#)
                                                           (#{id?\ 372}#
                                                             #{r\ 1296}#))
                                                         #{tmp\ 1294}#)
                                                  #f)
                                              (apply (lambda (#{r\ 1298}#)
                                                       (#{check\ 1271}#
                                                         (reverse
                                                           #{rreq\ 1280}#)
                                                         #{r\ 1298}#))
                                                     #{tmp\ 1294}#)
                                              ((lambda (#{else\ 1300}#)
                                                 (syntax-violation
                                                   'lambda
                                                   "invalid argument list"
                                                   #{orig-args\ 1266}#
                                                   #{args\ 1279}#))
                                               #{tmp\ 1283}#)))
                                          (list #{tmp\ 1283}#))))
                                     ($sc-dispatch
                                       #{tmp\ 1283}#
                                       '(any . any)))))
                                ($sc-dispatch #{tmp\ 1283}# (quote ()))))
                             #{args\ 1279}#))))
                 (#{req\ 1269}# #{orig-args\ 1266}# (quote ())))))
           (#{ellipsis?\ 473}#
             (lambda (#{x\ 1301}#)
               (if (#{nonsymbol-id?\ 370}# #{x\ 1301}#)
                 (#{free-id=?\ 431}#
                   #{x\ 1301}#
                   '#(syntax-object
                      ...
                      ((top)
                       #(ribcage () () ())
                       #(ribcage () () ())
                       #(ribcage #(x) #((top)) #("i1302"))
                       #(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
                           chi-top
                           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
                           maybe-name-value!
                           build-global-assignment
                           build-global-reference
                           analyze-variable
                           build-lexical-assignment
                           build-lexical-reference
                           build-dynlet
                           build-conditional
                           build-application
                           build-void
                           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)
                          (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"
                          "i416"
                          "i415"
                          "i414"
                          "i412"
                          "i411"
                          "i410"
                          "i409"
                          "i408"
                          "i406"
                          "i404"
                          "i402"
                          "i400"
                          "i398"
                          "i396"
                          "i394"
                          "i392"
                          "i389"
                          "i387"
                          "i386"
                          "i385"
                          "i384"
                          "i383"
                          "i382"
                          "i380"
                          "i378"
                          "i376"
                          "i374"
                          "i373"
                          "i371"
                          "i369"
                          "i367"
                          "i365"
                          "i363"
                          "i361"
                          "i359"
                          "i358"
                          "i356"
                          "i354"
                          "i353"
                          "i352"
                          "i350"
                          "i349"
                          "i347"
                          "i345"
                          "i343"
                          "i341"
                          "i339"
                          "i337"
                          "i335"
                          "i333"
                          "i331"
                          "i329"
                          "i327"
                          "i325"
                          "i323"
                          "i321"
                          "i319"
                          "i317"
                          "i315"
                          "i313"
                          "i311"
                          "i309"
                          "i307"
                          "i305"
                          "i303"
                          "i301"
                          "i299"
                          "i297"
                          "i295"
                          "i293"
                          "i291"
                          "i289"
                          "i287"
                          "i285"
                          "i284"
                          "i282"
                          "i280"
                          "i278"
                          "i276"
                          "i274"
                          "i272"
                          "i270"
                          "i268"
                          "i266"
                          "i263"
                          "i261"
                          "i259"
                          "i257"
                          "i255"
                          "i253"
                          "i251"
                          "i249"
                          "i247"
                          "i245"
                          "i243"
                          "i241"
                          "i239"
                          "i237"
                          "i235"
                          "i233"
                          "i231"
                          "i229"))
                       #(ribcage
                         (define-structure
                           define-expansion-accessors
                           define-expansion-constructors
                           and-map*)
                         ((top) (top) (top) (top))
                         ("i23" "i22" "i21" "i19")))
                      (hygiene guile)))
                 #f)))
           (#{chi-void\ 471}#
             (lambda () (#{build-void\ 292}# #f)))
           (#{eval-local-transformer\ 469}#
             (lambda (#{expanded\ 1306}# #{mod\ 1307}#)
               (let ((#{p\ 1311}#
                       (#{local-eval-hook\ 283}#
                         #{expanded\ 1306}#
                         #{mod\ 1307}#)))
                 (if (procedure? #{p\ 1311}#)
                   #{p\ 1311}#
                   (syntax-violation
                     #f
                     "nonprocedure transformer"
                     #{p\ 1311}#)))))
           (#{chi-local-syntax\ 467}#
             (lambda (#{rec?\ 1312}#
                      #{e\ 1313}#
                      #{r\ 1314}#
                      #{w\ 1315}#
                      #{s\ 1316}#
                      #{mod\ 1317}#
                      #{k\ 1318}#)
               ((lambda (#{tmp\ 1326}#)
                  ((lambda (#{tmp\ 1327}#)
                     (if #{tmp\ 1327}#
                       (apply (lambda (#{_\ 1333}#
                                       #{id\ 1334}#
                                       #{val\ 1335}#
                                       #{e1\ 1336}#
                                       #{e2\ 1337}#)
                                (let ((#{ids\ 1339}# #{id\ 1334}#))
                                  (if (not (#{valid-bound-ids?\ 435}#
                                             #{ids\ 1339}#))
                                    (syntax-violation
                                      #f
                                      "duplicate bound keyword"
                                      #{e\ 1313}#)
                                    (let ((#{labels\ 1342}#
                                            (#{gen-labels\ 390}#
                                              #{ids\ 1339}#)))
                                      (let ((#{new-w\ 1344}#
                                              (#{make-binding-wrap\ 419}#
                                                #{ids\ 1339}#
                                                #{labels\ 1342}#
                                                #{w\ 1315}#)))
                                        (#{k\ 1318}#
                                          (cons #{e1\ 1336}# #{e2\ 1337}#)
                                          (#{extend-env\ 360}#
                                            #{labels\ 1342}#
                                            (let ((#{w\ 1348}#
                                                    (if #{rec?\ 1312}#
                                                      #{new-w\ 1344}#
                                                      #{w\ 1315}#))
                                                  (#{trans-r\ 1349}#
                                                    (#{macros-only-env\ 364}#
                                                      #{r\ 1314}#)))
                                              (map (lambda (#{x\ 1350}#)
                                                     (cons 'macro
                                                           (#{eval-local-transformer\ 469}#
                                                             (#{chi\ 457}#
                                                               #{x\ 1350}#
                                                               #{trans-r\ 1349}#
                                                               #{w\ 1348}#
                                                               #{mod\ 1317}#)
                                                             #{mod\ 1317}#)))
                                                   #{val\ 1335}#))
                                            #{r\ 1314}#)
                                          #{new-w\ 1344}#
                                          #{s\ 1316}#
                                          #{mod\ 1317}#))))))
                              #{tmp\ 1327}#)
                       ((lambda (#{_\ 1355}#)
                          (syntax-violation
                            #f
                            "bad local syntax definition"
                            (#{source-wrap\ 443}#
                              #{e\ 1313}#
                              #{w\ 1315}#
                              #{s\ 1316}#
                              #{mod\ 1317}#)))
                        #{tmp\ 1326}#)))
                   ($sc-dispatch
                     #{tmp\ 1326}#
                     '(any #(each (any any)) any . each-any))))
                #{e\ 1313}#)))
           (#{chi-body\ 465}#
             (lambda (#{body\ 1356}#
                      #{outer-form\ 1357}#
                      #{r\ 1358}#
                      #{w\ 1359}#
                      #{mod\ 1360}#)
               (let ((#{r\ 1368}#
                       (cons '("placeholder" placeholder)
                             #{r\ 1358}#)))
                 (let ((#{ribcage\ 1370}#
                         (#{make-ribcage\ 393}#
                           '()
                           '()
                           '())))
                   (let ((#{w\ 1373}#
                           (#{make-wrap\ 377}#
                             (#{wrap-marks\ 379}# #{w\ 1359}#)
                             (cons #{ribcage\ 1370}#
                                   (#{wrap-subst\ 381}# #{w\ 1359}#)))))
                     (letrec ((#{parse\ 1382}#
                                (lambda (#{body\ 1383}#
                                         #{ids\ 1384}#
                                         #{labels\ 1385}#
                                         #{var-ids\ 1386}#
                                         #{vars\ 1387}#
                                         #{vals\ 1388}#
                                         #{bindings\ 1389}#)
                                  (if (null? #{body\ 1383}#)
                                    (syntax-violation
                                      #f
                                      "no expressions in body"
                                      #{outer-form\ 1357}#)
                                    (let ((#{e\ 1394}# (cdar #{body\ 1383}#))
                                          (#{er\ 1395}# (caar #{body\ 1383}#)))
                                      (call-with-values
                                        (lambda ()
                                          (#{syntax-type\ 453}#
                                            #{e\ 1394}#
                                            #{er\ 1395}#
                                            '(())
                                            (#{source-annotation\ 351}#
                                              #{er\ 1395}#)
                                            #{ribcage\ 1370}#
                                            #{mod\ 1360}#
                                            #f))
                                        (lambda (#{type\ 1397}#
                                                 #{value\ 1398}#
                                                 #{e\ 1399}#
                                                 #{w\ 1400}#
                                                 #{s\ 1401}#
                                                 #{mod\ 1402}#)
                                          (if (memv #{type\ 1397}#
                                                    '(define-form))
                                            (let ((#{id\ 1412}#
                                                    (#{wrap\ 441}#
                                                      #{value\ 1398}#
                                                      #{w\ 1400}#
                                                      #{mod\ 1402}#))
                                                  (#{label\ 1413}#
                                                    (#{gen-label\ 388}#)))
                                              (let ((#{var\ 1415}#
                                                      (#{gen-var\ 485}#
                                                        #{id\ 1412}#)))
                                                (begin
                                                  (#{extend-ribcage!\ 417}#
                                                    #{ribcage\ 1370}#
                                                    #{id\ 1412}#
                                                    #{label\ 1413}#)
                                                  (#{parse\ 1382}#
                                                    (cdr #{body\ 1383}#)
                                                    (cons #{id\ 1412}#
                                                          #{ids\ 1384}#)
                                                    (cons #{label\ 1413}#
                                                          #{labels\ 1385}#)
                                                    (cons #{id\ 1412}#
                                                          #{var-ids\ 1386}#)
                                                    (cons #{var\ 1415}#
                                                          #{vars\ 1387}#)
                                                    (cons (cons #{er\ 1395}#
                                                                (#{wrap\ 441}#
                                                                  #{e\ 1399}#
                                                                  #{w\ 1400}#
                                                                  #{mod\ 1402}#))
                                                          #{vals\ 1388}#)
                                                    (cons (cons 'lexical
                                                                #{var\ 1415}#)
                                                          #{bindings\ 1389}#)))))
                                            (if (memv #{type\ 1397}#
                                                      '(define-syntax-form))
                                              (let ((#{id\ 1420}#
                                                      (#{wrap\ 441}#
                                                        #{value\ 1398}#
                                                        #{w\ 1400}#
                                                        #{mod\ 1402}#))
                                                    (#{label\ 1421}#
                                                      (#{gen-label\ 388}#)))
                                                (begin
                                                  (#{extend-ribcage!\ 417}#
                                                    #{ribcage\ 1370}#
                                                    #{id\ 1420}#
                                                    #{label\ 1421}#)
                                                  (#{parse\ 1382}#
                                                    (cdr #{body\ 1383}#)
                                                    (cons #{id\ 1420}#
                                                          #{ids\ 1384}#)
                                                    (cons #{label\ 1421}#
                                                          #{labels\ 1385}#)
                                                    #{var-ids\ 1386}#
                                                    #{vars\ 1387}#
                                                    #{vals\ 1388}#
                                                    (cons (cons 'macro
                                                                (cons #{er\ 1395}#
                                                                      (#{wrap\ 441}#
                                                                        #{e\ 1399}#
                                                                        #{w\ 1400}#
                                                                        #{mod\ 1402}#)))
                                                          #{bindings\ 1389}#))))
                                              (if (memv #{type\ 1397}#
                                                        '(begin-form))
                                                ((lambda (#{tmp\ 1424}#)
                                                   ((lambda (#{tmp\ 1425}#)
                                                      (if #{tmp\ 1425}#
                                                        (apply (lambda (#{_\ 1428}#
                                                                        #{e1\ 1429}#)
                                                                 (#{parse\ 1382}#
                                                                   (letrec ((#{f\ 1432}#
                                                                              (lambda (#{forms\ 1433}#)
                                                                                (if (null? #{forms\ 1433}#)
                                                                                  (cdr #{body\ 1383}#)
                                                                                  (cons (cons #{er\ 1395}#
                                                                                              (#{wrap\ 441}#
                                                                                                (car #{forms\ 1433}#)
                                                                                                #{w\ 1400}#
                                                                                                #{mod\ 1402}#))
                                                                                        (#{f\ 1432}#
                                                                                          (cdr #{forms\ 1433}#)))))))
                                                                     (#{f\ 1432}#
                                                                       #{e1\ 1429}#))
                                                                   #{ids\ 1384}#
                                                                   #{labels\ 1385}#
                                                                   #{var-ids\ 1386}#
                                                                   #{vars\ 1387}#
                                                                   #{vals\ 1388}#
                                                                   #{bindings\ 1389}#))
                                                               #{tmp\ 1425}#)
                                                        (syntax-violation
                                                          #f
                                                          "source expression failed to match any pattern"
                                                          #{tmp\ 1424}#)))
                                                    ($sc-dispatch
                                                      #{tmp\ 1424}#
                                                      '(any . each-any))))
                                                 #{e\ 1399}#)
                                                (if (memv #{type\ 1397}#
                                                          '(local-syntax-form))
                                                  (#{chi-local-syntax\ 467}#
                                                    #{value\ 1398}#
                                                    #{e\ 1399}#
                                                    #{er\ 1395}#
                                                    #{w\ 1400}#
                                                    #{s\ 1401}#
                                                    #{mod\ 1402}#
                                                    (lambda (#{forms\ 1436}#
                                                             #{er\ 1437}#
                                                             #{w\ 1438}#
                                                             #{s\ 1439}#
                                                             #{mod\ 1440}#)
                                                      (#{parse\ 1382}#
                                                        (letrec ((#{f\ 1448}#
                                                                   (lambda (#{forms\ 1449}#)
                                                                     (if (null? #{forms\ 1449}#)
                                                                       (cdr #{body\ 1383}#)
                                                                       (cons (cons #{er\ 1437}#
                                                                                   (#{wrap\ 441}#
                                                                                     (car #{forms\ 1449}#)
                                                                                     #{w\ 1438}#
                                                                                     #{mod\ 1440}#))
                                                                             (#{f\ 1448}#
                                                                               (cdr #{forms\ 1449}#)))))))
                                                          (#{f\ 1448}#
                                                            #{forms\ 1436}#))
                                                        #{ids\ 1384}#
                                                        #{labels\ 1385}#
                                                        #{var-ids\ 1386}#
                                                        #{vars\ 1387}#
                                                        #{vals\ 1388}#
                                                        #{bindings\ 1389}#)))
                                                  (if (null? #{ids\ 1384}#)
                                                    (#{build-sequence\ 324}#
                                                      #f
                                                      (map (lambda (#{x\ 1452}#)
                                                             (#{chi\ 457}#
                                                               (cdr #{x\ 1452}#)
                                                               (car #{x\ 1452}#)
                                                               '(())
                                                               #{mod\ 1402}#))
                                                           (cons (cons #{er\ 1395}#
                                                                       (#{source-wrap\ 443}#
                                                                         #{e\ 1399}#
                                                                         #{w\ 1400}#
                                                                         #{s\ 1401}#
                                                                         #{mod\ 1402}#))
                                                                 (cdr #{body\ 1383}#))))
                                                    (begin
                                                      (if (not (#{valid-bound-ids?\ 435}#
                                                                 #{ids\ 1384}#))
                                                        (syntax-violation
                                                          #f
                                                          "invalid or duplicate identifier in definition"
                                                          #{outer-form\ 1357}#))
                                                      (letrec ((#{loop\ 1459}#
                                                                 (lambda (#{bs\ 1460}#
                                                                          #{er-cache\ 1461}#
                                                                          #{r-cache\ 1462}#)
                                                                   (if (not (null? #{bs\ 1460}#))
                                                                     (let ((#{b\ 1465}#
                                                                             (car #{bs\ 1460}#)))
                                                                       (if (eq? (car #{b\ 1465}#)
                                                                                'macro)
                                                                         (let ((#{er\ 1468}#
                                                                                 (cadr #{b\ 1465}#)))
                                                                           (let ((#{r-cache\ 1470}#
                                                                                   (if (eq? #{er\ 1468}#
                                                                                            #{er-cache\ 1461}#)
                                                                                     #{r-cache\ 1462}#
                                                                                     (#{macros-only-env\ 364}#
                                                                                       #{er\ 1468}#))))
                                                                             (begin
                                                                               (set-cdr!
                                                                                 #{b\ 1465}#
                                                                                 (#{eval-local-transformer\ 469}#
                                                                                   (#{chi\ 457}#
                                                                                     (cddr #{b\ 1465}#)
                                                                                     #{r-cache\ 1470}#
                                                                                     '(())
                                                                                     #{mod\ 1402}#)
                                                                                   #{mod\ 1402}#))
                                                                               (#{loop\ 1459}#
                                                                                 (cdr #{bs\ 1460}#)
                                                                                 #{er\ 1468}#
                                                                                 #{r-cache\ 1470}#))))
                                                                         (#{loop\ 1459}#
                                                                           (cdr #{bs\ 1460}#)
                                                                           #{er-cache\ 1461}#
                                                                           #{r-cache\ 1462}#)))))))
                                                        (#{loop\ 1459}#
                                                          #{bindings\ 1389}#
                                                          #f
                                                          #f))
                                                      (set-cdr!
                                                        #{r\ 1368}#
                                                        (#{extend-env\ 360}#
                                                          #{labels\ 1385}#
                                                          #{bindings\ 1389}#
                                                          (cdr #{r\ 1368}#)))
                                                      (#{build-letrec\ 330}#
                                                        #f
                                                        (map syntax->datum
                                                             #{var-ids\ 1386}#)
                                                        #{vars\ 1387}#
                                                        (map (lambda (#{x\ 1473}#)
                                                               (#{chi\ 457}#
                                                                 (cdr #{x\ 1473}#)
                                                                 (car #{x\ 1473}#)
                                                                 '(())
                                                                 #{mod\ 1402}#))
                                                             #{vals\ 1388}#)
                                                        (#{build-sequence\ 324}#
                                                          #f
                                                          (map (lambda (#{x\ 1477}#)
                                                                 (#{chi\ 457}#
                                                                   (cdr #{x\ 1477}#)
                                                                   (car #{x\ 1477}#)
                                                                   '(())
                                                                   #{mod\ 1402}#))
                                                               (cons (cons #{er\ 1395}#
                                                                           (#{source-wrap\ 443}#
                                                                             #{e\ 1399}#
                                                                             #{w\ 1400}#
                                                                             #{s\ 1401}#
                                                                             #{mod\ 1402}#))
                                                                     (cdr #{body\ 1383}#))))))))))))))))))
                       (#{parse\ 1382}#
                         (map (lambda (#{x\ 1390}#)
                                (cons #{r\ 1368}#
                                      (#{wrap\ 441}#
                                        #{x\ 1390}#
                                        #{w\ 1373}#
                                        #{mod\ 1360}#)))
                              #{body\ 1356}#)
                         '()
                         '()
                         '()
                         '()
                         '()
                         '())))))))
           (#{chi-macro\ 463}#
             (lambda (#{p\ 1480}#
                      #{e\ 1481}#
                      #{r\ 1482}#
                      #{w\ 1483}#
                      #{s\ 1484}#
                      #{rib\ 1485}#
                      #{mod\ 1486}#)
               (letrec ((#{rebuild-macro-output\ 1495}#
                          (lambda (#{x\ 1496}# #{m\ 1497}#)
                            (if (pair? #{x\ 1496}#)
                              (#{decorate-source\ 290}#
                                (cons (#{rebuild-macro-output\ 1495}#
                                        (car #{x\ 1496}#)
                                        #{m\ 1497}#)
                                      (#{rebuild-macro-output\ 1495}#
                                        (cdr #{x\ 1496}#)
                                        #{m\ 1497}#))
                                #{s\ 1484}#)
                              (if (#{syntax-object?\ 336}# #{x\ 1496}#)
                                (let ((#{w\ 1505}#
                                        (#{syntax-object-wrap\ 340}#
                                          #{x\ 1496}#)))
                                  (let ((#{ms\ 1508}#
                                          (#{wrap-marks\ 379}# #{w\ 1505}#))
                                        (#{s\ 1509}#
                                          (#{wrap-subst\ 381}# #{w\ 1505}#)))
                                    (if (if (pair? #{ms\ 1508}#)
                                          (eq? (car #{ms\ 1508}#) #f)
                                          #f)
                                      (#{make-syntax-object\ 334}#
                                        (#{syntax-object-expression\ 338}#
                                          #{x\ 1496}#)
                                        (#{make-wrap\ 377}#
                                          (cdr #{ms\ 1508}#)
                                          (if #{rib\ 1485}#
                                            (cons #{rib\ 1485}#
                                                  (cdr #{s\ 1509}#))
                                            (cdr #{s\ 1509}#)))
                                        (#{syntax-object-module\ 342}#
                                          #{x\ 1496}#))
                                      (#{make-syntax-object\ 334}#
                                        (#{decorate-source\ 290}#
                                          (#{syntax-object-expression\ 338}#
                                            #{x\ 1496}#)
                                          #{s\ 1509}#)
                                        (#{make-wrap\ 377}#
                                          (cons #{m\ 1497}# #{ms\ 1508}#)
                                          (if #{rib\ 1485}#
                                            (cons #{rib\ 1485}#
                                                  (cons 'shift
                                                        #{s\ 1509}#))
                                            (cons (quote shift) #{s\ 1509}#)))
                                        (#{syntax-object-module\ 342}#
                                          #{x\ 1496}#)))))
                                (if (vector? #{x\ 1496}#)
                                  (let ((#{n\ 1517}#
                                          (vector-length #{x\ 1496}#)))
                                    (let ((#{v\ 1519}#
                                            (#{decorate-source\ 290}#
                                              (make-vector #{n\ 1517}#)
                                              #{x\ 1496}#)))
                                      (letrec ((#{loop\ 1522}#
                                                 (lambda (#{i\ 1523}#)
                                                   (if (#{fx=\ 277}#
                                                         #{i\ 1523}#
                                                         #{n\ 1517}#)
                                                     (begin
                                                       (if #f #f)
                                                       #{v\ 1519}#)
                                                     (begin
                                                       (vector-set!
                                                         #{v\ 1519}#
                                                         #{i\ 1523}#
                                                         (#{rebuild-macro-output\ 1495}#
                                                           (vector-ref
                                                             #{x\ 1496}#
                                                             #{i\ 1523}#)
                                                           #{m\ 1497}#))
                                                       (#{loop\ 1522}#
                                                         (#{fx+\ 273}#
                                                           #{i\ 1523}#
                                                           1)))))))
                                        (#{loop\ 1522}# 0))))
                                  (if (symbol? #{x\ 1496}#)
                                    (syntax-violation
                                      #f
                                      "encountered raw symbol in macro output"
                                      (#{source-wrap\ 443}#
                                        #{e\ 1481}#
                                        #{w\ 1483}#
                                        (#{wrap-subst\ 381}# #{w\ 1483}#)
                                        #{mod\ 1486}#)
                                      #{x\ 1496}#)
                                    (#{decorate-source\ 290}#
                                      #{x\ 1496}#
                                      #{s\ 1484}#))))))))
                 (#{rebuild-macro-output\ 1495}#
                   (#{p\ 1480}#
                     (#{source-wrap\ 443}#
                       #{e\ 1481}#
                       (#{anti-mark\ 413}# #{w\ 1483}#)
                       #{s\ 1484}#
                       #{mod\ 1486}#))
                   (gensym "m")))))
           (#{chi-application\ 461}#
             (lambda (#{x\ 1530}#
                      #{e\ 1531}#
                      #{r\ 1532}#
                      #{w\ 1533}#
                      #{s\ 1534}#
                      #{mod\ 1535}#)
               ((lambda (#{tmp\ 1542}#)
                  ((lambda (#{tmp\ 1543}#)
                     (if #{tmp\ 1543}#
                       (apply (lambda (#{e0\ 1546}# #{e1\ 1547}#)
                                (#{build-application\ 294}#
                                  #{s\ 1534}#
                                  #{x\ 1530}#
                                  (map (lambda (#{e\ 1548}#)
                                         (#{chi\ 457}#
                                           #{e\ 1548}#
                                           #{r\ 1532}#
                                           #{w\ 1533}#
                                           #{mod\ 1535}#))
                                       #{e1\ 1547}#)))
                              #{tmp\ 1543}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp\ 1542}#)))
                   ($sc-dispatch
                     #{tmp\ 1542}#
                     '(any . each-any))))
                #{e\ 1531}#)))
           (#{chi-expr\ 459}#
             (lambda (#{type\ 1551}#
                      #{value\ 1552}#
                      #{e\ 1553}#
                      #{r\ 1554}#
                      #{w\ 1555}#
                      #{s\ 1556}#
                      #{mod\ 1557}#)
               (if (memv #{type\ 1551}# (quote (lexical)))
                 (#{build-lexical-reference\ 300}#
                   'value
                   #{s\ 1556}#
                   #{e\ 1553}#
                   #{value\ 1552}#)
                 (if (memv #{type\ 1551}# (quote (core core-form)))
                   (#{value\ 1552}#
                     #{e\ 1553}#
                     #{r\ 1554}#
                     #{w\ 1555}#
                     #{s\ 1556}#
                     #{mod\ 1557}#)
                   (if (memv #{type\ 1551}# (quote (module-ref)))
                     (call-with-values
                       (lambda ()
                         (#{value\ 1552}#
                           #{e\ 1553}#
                           #{r\ 1554}#
                           #{w\ 1555}#))
                       (lambda (#{e\ 1568}#
                                #{r\ 1569}#
                                #{w\ 1570}#
                                #{s\ 1571}#
                                #{mod\ 1572}#)
                         (#{chi\ 457}#
                           #{e\ 1568}#
                           #{r\ 1569}#
                           #{w\ 1570}#
                           #{mod\ 1572}#)))
                     (if (memv #{type\ 1551}# (quote (lexical-call)))
                       (#{chi-application\ 461}#
                         (let ((#{id\ 1580}# (car #{e\ 1553}#)))
                           (#{build-lexical-reference\ 300}#
                             'fun
                             (#{source-annotation\ 351}# #{id\ 1580}#)
                             (if (#{syntax-object?\ 336}# #{id\ 1580}#)
                               (syntax->datum #{id\ 1580}#)
                               #{id\ 1580}#)
                             #{value\ 1552}#))
                         #{e\ 1553}#
                         #{r\ 1554}#
                         #{w\ 1555}#
                         #{s\ 1556}#
                         #{mod\ 1557}#)
                       (if (memv #{type\ 1551}# (quote (global-call)))
                         (#{chi-application\ 461}#
                           (#{build-global-reference\ 306}#
                             (#{source-annotation\ 351}# (car #{e\ 1553}#))
                             (if (#{syntax-object?\ 336}# #{value\ 1552}#)
                               (#{syntax-object-expression\ 338}#
                                 #{value\ 1552}#)
                               #{value\ 1552}#)
                             (if (#{syntax-object?\ 336}# #{value\ 1552}#)
                               (#{syntax-object-module\ 342}# #{value\ 1552}#)
                               #{mod\ 1557}#))
                           #{e\ 1553}#
                           #{r\ 1554}#
                           #{w\ 1555}#
                           #{s\ 1556}#
                           #{mod\ 1557}#)
                         (if (memv #{type\ 1551}# (quote (constant)))
                           (#{build-data\ 322}#
                             #{s\ 1556}#
                             (#{strip\ 483}#
                               (#{source-wrap\ 443}#
                                 #{e\ 1553}#
                                 #{w\ 1555}#
                                 #{s\ 1556}#
                                 #{mod\ 1557}#)
                               '(())))
                           (if (memv #{type\ 1551}# (quote (global)))
                             (#{build-global-reference\ 306}#
                               #{s\ 1556}#
                               #{value\ 1552}#
                               #{mod\ 1557}#)
                             (if (memv #{type\ 1551}# (quote (call)))
                               (#{chi-application\ 461}#
                                 (#{chi\ 457}#
                                   (car #{e\ 1553}#)
                                   #{r\ 1554}#
                                   #{w\ 1555}#
                                   #{mod\ 1557}#)
                                 #{e\ 1553}#
                                 #{r\ 1554}#
                                 #{w\ 1555}#
                                 #{s\ 1556}#
                                 #{mod\ 1557}#)
                               (if (memv #{type\ 1551}# (quote (begin-form)))
                                 ((lambda (#{tmp\ 1587}#)
                                    ((lambda (#{tmp\ 1588}#)
                                       (if #{tmp\ 1588}#
                                         (apply (lambda (#{_\ 1592}#
                                                         #{e1\ 1593}#
                                                         #{e2\ 1594}#)
                                                  (#{chi-sequence\ 445}#
                                                    (cons #{e1\ 1593}#
                                                          #{e2\ 1594}#)
                                                    #{r\ 1554}#
                                                    #{w\ 1555}#
                                                    #{s\ 1556}#
                                                    #{mod\ 1557}#))
                                                #{tmp\ 1588}#)
                                         (syntax-violation
                                           #f
                                           "source expression failed to match any pattern"
                                           #{tmp\ 1587}#)))
                                     ($sc-dispatch
                                       #{tmp\ 1587}#
                                       '(any any . each-any))))
                                  #{e\ 1553}#)
                                 (if (memv #{type\ 1551}#
                                           '(local-syntax-form))
                                   (#{chi-local-syntax\ 467}#
                                     #{value\ 1552}#
                                     #{e\ 1553}#
                                     #{r\ 1554}#
                                     #{w\ 1555}#
                                     #{s\ 1556}#
                                     #{mod\ 1557}#
                                     #{chi-sequence\ 445}#)
                                   (if (memv #{type\ 1551}#
                                             '(eval-when-form))
                                     ((lambda (#{tmp\ 1598}#)
                                        ((lambda (#{tmp\ 1599}#)
                                           (if #{tmp\ 1599}#
                                             (apply (lambda (#{_\ 1604}#
                                                             #{x\ 1605}#
                                                             #{e1\ 1606}#
                                                             #{e2\ 1607}#)
                                                      (let ((#{when-list\ 1609}#
                                                              (#{chi-when-list\ 451}#
                                                                #{e\ 1553}#
                                                                #{x\ 1605}#
                                                                #{w\ 1555}#)))
                                                        (if (memq 'eval
                                                                  #{when-list\ 1609}#)
                                                          (#{chi-sequence\ 445}#
                                                            (cons #{e1\ 1606}#
                                                                  #{e2\ 1607}#)
                                                            #{r\ 1554}#
                                                            #{w\ 1555}#
                                                            #{s\ 1556}#
                                                            #{mod\ 1557}#)
                                                          (#{chi-void\ 471}#))))
                                                    #{tmp\ 1599}#)
                                             (syntax-violation
                                               #f
                                               "source expression failed to match any pattern"
                                               #{tmp\ 1598}#)))
                                         ($sc-dispatch
                                           #{tmp\ 1598}#
                                           '(any each-any any . each-any))))
                                      #{e\ 1553}#)
                                     (if (memv #{type\ 1551}#
                                               '(define-form
                                                  define-syntax-form))
                                       (syntax-violation
                                         #f
                                         "definition in expression context"
                                         #{e\ 1553}#
                                         (#{wrap\ 441}#
                                           #{value\ 1552}#
                                           #{w\ 1555}#
                                           #{mod\ 1557}#))
                                       (if (memv #{type\ 1551}#
                                                 '(syntax))
                                         (syntax-violation
                                           #f
                                           "reference to pattern variable outside syntax form"
                                           (#{source-wrap\ 443}#
                                             #{e\ 1553}#
                                             #{w\ 1555}#
                                             #{s\ 1556}#
                                             #{mod\ 1557}#))
                                         (if (memv #{type\ 1551}#
                                                   '(displaced-lexical))
                                           (syntax-violation
                                             #f
                                             "reference to identifier outside its scope"
                                             (#{source-wrap\ 443}#
                                               #{e\ 1553}#
                                               #{w\ 1555}#
                                               #{s\ 1556}#
                                               #{mod\ 1557}#))
                                           (syntax-violation
                                             #f
                                             "unexpected syntax"
                                             (#{source-wrap\ 443}#
                                               #{e\ 1553}#
                                               #{w\ 1555}#
                                               #{s\ 1556}#
                                               #{mod\ 1557}#))))))))))))))))))
           (#{chi\ 457}#
             (lambda (#{e\ 1616}#
                      #{r\ 1617}#
                      #{w\ 1618}#
                      #{mod\ 1619}#)
               (call-with-values
                 (lambda ()
                   (#{syntax-type\ 453}#
                     #{e\ 1616}#
                     #{r\ 1617}#
                     #{w\ 1618}#
                     (#{source-annotation\ 351}# #{e\ 1616}#)
                     #f
                     #{mod\ 1619}#
                     #f))
                 (lambda (#{type\ 1624}#
                          #{value\ 1625}#
                          #{e\ 1626}#
                          #{w\ 1627}#
                          #{s\ 1628}#
                          #{mod\ 1629}#)
                   (#{chi-expr\ 459}#
                     #{type\ 1624}#
                     #{value\ 1625}#
                     #{e\ 1626}#
                     #{r\ 1617}#
                     #{w\ 1627}#
                     #{s\ 1628}#
                     #{mod\ 1629}#)))))
           (#{chi-top\ 455}#
             (lambda (#{e\ 1636}#
                      #{r\ 1637}#
                      #{w\ 1638}#
                      #{m\ 1639}#
                      #{esew\ 1640}#
                      #{mod\ 1641}#)
               (call-with-values
                 (lambda ()
                   (#{syntax-type\ 453}#
                     #{e\ 1636}#
                     #{r\ 1637}#
                     #{w\ 1638}#
                     (#{source-annotation\ 351}# #{e\ 1636}#)
                     #f
                     #{mod\ 1641}#
                     #f))
                 (lambda (#{type\ 1662}#
                          #{value\ 1663}#
                          #{e\ 1664}#
                          #{w\ 1665}#
                          #{s\ 1666}#
                          #{mod\ 1667}#)
                   (if (memv #{type\ 1662}# (quote (begin-form)))
                     ((lambda (#{tmp\ 1675}#)
                        ((lambda (#{tmp\ 1676}#)
                           (if #{tmp\ 1676}#
                             (apply (lambda (#{_\ 1678}#) (#{chi-void\ 471}#))
                                    #{tmp\ 1676}#)
                             ((lambda (#{tmp\ 1679}#)
                                (if #{tmp\ 1679}#
                                  (apply (lambda (#{_\ 1683}#
                                                  #{e1\ 1684}#
                                                  #{e2\ 1685}#)
                                           (#{chi-top-sequence\ 447}#
                                             (cons #{e1\ 1684}# #{e2\ 1685}#)
                                             #{r\ 1637}#
                                             #{w\ 1665}#
                                             #{s\ 1666}#
                                             #{m\ 1639}#
                                             #{esew\ 1640}#
                                             #{mod\ 1667}#))
                                         #{tmp\ 1679}#)
                                  (syntax-violation
                                    #f
                                    "source expression failed to match any pattern"
                                    #{tmp\ 1675}#)))
                              ($sc-dispatch
                                #{tmp\ 1675}#
                                '(any any . each-any)))))
                         ($sc-dispatch #{tmp\ 1675}# (quote (any)))))
                      #{e\ 1664}#)
                     (if (memv #{type\ 1662}# (quote (local-syntax-form)))
                       (#{chi-local-syntax\ 467}#
                         #{value\ 1663}#
                         #{e\ 1664}#
                         #{r\ 1637}#
                         #{w\ 1665}#
                         #{s\ 1666}#
                         #{mod\ 1667}#
                         (lambda (#{body\ 1688}#
                                  #{r\ 1689}#
                                  #{w\ 1690}#
                                  #{s\ 1691}#
                                  #{mod\ 1692}#)
                           (#{chi-top-sequence\ 447}#
                             #{body\ 1688}#
                             #{r\ 1689}#
                             #{w\ 1690}#
                             #{s\ 1691}#
                             #{m\ 1639}#
                             #{esew\ 1640}#
                             #{mod\ 1692}#)))
                       (if (memv #{type\ 1662}# (quote (eval-when-form)))
                         ((lambda (#{tmp\ 1699}#)
                            ((lambda (#{tmp\ 1700}#)
                               (if #{tmp\ 1700}#
                                 (apply (lambda (#{_\ 1705}#
                                                 #{x\ 1706}#
                                                 #{e1\ 1707}#
                                                 #{e2\ 1708}#)
                                          (let ((#{when-list\ 1711}#
                                                  (#{chi-when-list\ 451}#
                                                    #{e\ 1664}#
                                                    #{x\ 1706}#
                                                    #{w\ 1665}#))
                                                (#{body\ 1712}#
                                                  (cons #{e1\ 1707}#
                                                        #{e2\ 1708}#)))
                                            (if (eq? #{m\ 1639}# (quote e))
                                              (if (memq 'eval
                                                        #{when-list\ 1711}#)
                                                (#{chi-top-sequence\ 447}#
                                                  #{body\ 1712}#
                                                  #{r\ 1637}#
                                                  #{w\ 1665}#
                                                  #{s\ 1666}#
                                                  (if (memq 'expand
                                                            #{when-list\ 1711}#)
                                                    'c&e
                                                    'e)
                                                  '(eval)
                                                  #{mod\ 1667}#)
                                                (begin
                                                  (if (memq 'expand
                                                            #{when-list\ 1711}#)
                                                    (#{top-level-eval-hook\ 281}#
                                                      (#{chi-top-sequence\ 447}#
                                                        #{body\ 1712}#
                                                        #{r\ 1637}#
                                                        #{w\ 1665}#
                                                        #{s\ 1666}#
                                                        'e
                                                        '(eval)
                                                        #{mod\ 1667}#)
                                                      #{mod\ 1667}#))
                                                  (#{chi-void\ 471}#)))
                                              (if (memq 'load
                                                        #{when-list\ 1711}#)
                                                (if (let ((#{t\ 1721}#
                                                            (memq 'compile
                                                                  #{when-list\ 1711}#)))
                                                      (if #{t\ 1721}#
                                                        #{t\ 1721}#
                                                        (let ((#{t\ 1724}#
                                                                (memq 'expand
                                                                      #{when-list\ 1711}#)))
                                                          (if #{t\ 1724}#
                                                            #{t\ 1724}#
                                                            (if (eq? #{m\ 1639}#
                                                                     'c&e)
                                                              (memq 'eval
                                                                    #{when-list\ 1711}#)
                                                              #f)))))
                                                  (#{chi-top-sequence\ 447}#
                                                    #{body\ 1712}#
                                                    #{r\ 1637}#
                                                    #{w\ 1665}#
                                                    #{s\ 1666}#
                                                    'c&e
                                                    '(compile load)
                                                    #{mod\ 1667}#)
                                                  (if (memq #{m\ 1639}#
                                                            '(c c&e))
                                                    (#{chi-top-sequence\ 447}#
                                                      #{body\ 1712}#
                                                      #{r\ 1637}#
                                                      #{w\ 1665}#
                                                      #{s\ 1666}#
                                                      'c
                                                      '(load)
                                                      #{mod\ 1667}#)
                                                    (#{chi-void\ 471}#)))
                                                (if (let ((#{t\ 1732}#
                                                            (memq 'compile
                                                                  #{when-list\ 1711}#)))
                                                      (if #{t\ 1732}#
                                                        #{t\ 1732}#
                                                        (let ((#{t\ 1735}#
                                                                (memq 'expand
                                                                      #{when-list\ 1711}#)))
                                                          (if #{t\ 1735}#
                                                            #{t\ 1735}#
                                                            (if (eq? #{m\ 1639}#
                                                                     'c&e)
                                                              (memq 'eval
                                                                    #{when-list\ 1711}#)
                                                              #f)))))
                                                  (begin
                                                    (#{top-level-eval-hook\ 281}#
                                                      (#{chi-top-sequence\ 447}#
                                                        #{body\ 1712}#
                                                        #{r\ 1637}#
                                                        #{w\ 1665}#
                                                        #{s\ 1666}#
                                                        'e
                                                        '(eval)
                                                        #{mod\ 1667}#)
                                                      #{mod\ 1667}#)
                                                    (#{chi-void\ 471}#))
                                                  (#{chi-void\ 471}#))))))
                                        #{tmp\ 1700}#)
                                 (syntax-violation
                                   #f
                                   "source expression failed to match any pattern"
                                   #{tmp\ 1699}#)))
                             ($sc-dispatch
                               #{tmp\ 1699}#
                               '(any each-any any . each-any))))
                          #{e\ 1664}#)
                         (if (memv #{type\ 1662}#
                                   '(define-syntax-form))
                           (let ((#{n\ 1743}#
                                   (#{id-var-name\ 429}#
                                     #{value\ 1663}#
                                     #{w\ 1665}#))
                                 (#{r\ 1744}#
                                   (#{macros-only-env\ 364}# #{r\ 1637}#)))
                             (if (memv #{m\ 1639}# (quote (c)))
                               (if (memq (quote compile) #{esew\ 1640}#)
                                 (let ((#{e\ 1747}#
                                         (#{chi-install-global\ 449}#
                                           #{n\ 1743}#
                                           (#{chi\ 457}#
                                             #{e\ 1664}#
                                             #{r\ 1744}#
                                             #{w\ 1665}#
                                             #{mod\ 1667}#))))
                                   (begin
                                     (#{top-level-eval-hook\ 281}#
                                       #{e\ 1747}#
                                       #{mod\ 1667}#)
                                     (if (memq (quote load) #{esew\ 1640}#)
                                       #{e\ 1747}#
                                       (#{chi-void\ 471}#))))
                                 (if (memq (quote load) #{esew\ 1640}#)
                                   (#{chi-install-global\ 449}#
                                     #{n\ 1743}#
                                     (#{chi\ 457}#
                                       #{e\ 1664}#
                                       #{r\ 1744}#
                                       #{w\ 1665}#
                                       #{mod\ 1667}#))
                                   (#{chi-void\ 471}#)))
                               (if (memv #{m\ 1639}# (quote (c&e)))
                                 (let ((#{e\ 1750}#
                                         (#{chi-install-global\ 449}#
                                           #{n\ 1743}#
                                           (#{chi\ 457}#
                                             #{e\ 1664}#
                                             #{r\ 1744}#
                                             #{w\ 1665}#
                                             #{mod\ 1667}#))))
                                   (begin
                                     (#{top-level-eval-hook\ 281}#
                                       #{e\ 1750}#
                                       #{mod\ 1667}#)
                                     #{e\ 1750}#))
                                 (begin
                                   (if (memq (quote eval) #{esew\ 1640}#)
                                     (#{top-level-eval-hook\ 281}#
                                       (#{chi-install-global\ 449}#
                                         #{n\ 1743}#
                                         (#{chi\ 457}#
                                           #{e\ 1664}#
                                           #{r\ 1744}#
                                           #{w\ 1665}#
                                           #{mod\ 1667}#))
                                       #{mod\ 1667}#))
                                   (#{chi-void\ 471}#)))))
                           (if (memv #{type\ 1662}# (quote (define-form)))
                             (let ((#{n\ 1755}#
                                     (#{id-var-name\ 429}#
                                       #{value\ 1663}#
                                       #{w\ 1665}#)))
                               (let ((#{type\ 1757}#
                                       (#{binding-type\ 355}#
                                         (#{lookup\ 366}#
                                           #{n\ 1755}#
                                           #{r\ 1637}#
                                           #{mod\ 1667}#))))
                                 (if (memv #{type\ 1757}#
                                           '(global core macro module-ref))
                                   (begin
                                     (if (if (memq #{m\ 1639}# (quote (c c&e)))
                                           (if (not (module-local-variable
                                                      (current-module)
                                                      #{n\ 1755}#))
                                             (current-module)
                                             #f)
                                           #f)
                                       (let ((#{old\ 1763}#
                                               (module-variable
                                                 (current-module)
                                                 #{n\ 1755}#)))
                                         (module-define!
                                           (current-module)
                                           #{n\ 1755}#
                                           (if (variable? #{old\ 1763}#)
                                             (variable-ref #{old\ 1763}#)
                                             #f))))
                                     (let ((#{x\ 1766}#
                                             (#{build-global-definition\ 312}#
                                               #{s\ 1666}#
                                               #{n\ 1755}#
                                               (#{chi\ 457}#
                                                 #{e\ 1664}#
                                                 #{r\ 1637}#
                                                 #{w\ 1665}#
                                                 #{mod\ 1667}#))))
                                       (begin
                                         (if (eq? #{m\ 1639}# (quote c&e))
                                           (#{top-level-eval-hook\ 281}#
                                             #{x\ 1766}#
                                             #{mod\ 1667}#))
                                         #{x\ 1766}#)))
                                   (if (memv #{type\ 1757}#
                                             '(displaced-lexical))
                                     (syntax-violation
                                       #f
                                       "identifier out of context"
                                       #{e\ 1664}#
                                       (#{wrap\ 441}#
                                         #{value\ 1663}#
                                         #{w\ 1665}#
                                         #{mod\ 1667}#))
                                     (syntax-violation
                                       #f
                                       "cannot define keyword at top level"
                                       #{e\ 1664}#
                                       (#{wrap\ 441}#
                                         #{value\ 1663}#
                                         #{w\ 1665}#
                                         #{mod\ 1667}#))))))
                             (let ((#{x\ 1772}#
                                     (#{chi-expr\ 459}#
                                       #{type\ 1662}#
                                       #{value\ 1663}#
                                       #{e\ 1664}#
                                       #{r\ 1637}#
                                       #{w\ 1665}#
                                       #{s\ 1666}#
                                       #{mod\ 1667}#)))
                               (begin
                                 (if (eq? #{m\ 1639}# (quote c&e))
                                   (#{top-level-eval-hook\ 281}#
                                     #{x\ 1772}#
                                     #{mod\ 1667}#))
                                 #{x\ 1772}#)))))))))))
           (#{syntax-type\ 453}#
             (lambda (#{e\ 1773}#
                      #{r\ 1774}#
                      #{w\ 1775}#
                      #{s\ 1776}#
                      #{rib\ 1777}#
                      #{mod\ 1778}#
                      #{for-car?\ 1779}#)
               (if (symbol? #{e\ 1773}#)
                 (let ((#{n\ 1791}#
                         (#{id-var-name\ 429}# #{e\ 1773}# #{w\ 1775}#)))
                   (let ((#{b\ 1793}#
                           (#{lookup\ 366}#
                             #{n\ 1791}#
                             #{r\ 1774}#
                             #{mod\ 1778}#)))
                     (let ((#{type\ 1795}#
                             (#{binding-type\ 355}# #{b\ 1793}#)))
                       (if (memv #{type\ 1795}# (quote (lexical)))
                         (values
                           #{type\ 1795}#
                           (#{binding-value\ 357}# #{b\ 1793}#)
                           #{e\ 1773}#
                           #{w\ 1775}#
                           #{s\ 1776}#
                           #{mod\ 1778}#)
                         (if (memv #{type\ 1795}# (quote (global)))
                           (values
                             #{type\ 1795}#
                             #{n\ 1791}#
                             #{e\ 1773}#
                             #{w\ 1775}#
                             #{s\ 1776}#
                             #{mod\ 1778}#)
                           (if (memv #{type\ 1795}# (quote (macro)))
                             (if #{for-car?\ 1779}#
                               (values
                                 #{type\ 1795}#
                                 (#{binding-value\ 357}# #{b\ 1793}#)
                                 #{e\ 1773}#
                                 #{w\ 1775}#
                                 #{s\ 1776}#
                                 #{mod\ 1778}#)
                               (#{syntax-type\ 453}#
                                 (#{chi-macro\ 463}#
                                   (#{binding-value\ 357}# #{b\ 1793}#)
                                   #{e\ 1773}#
                                   #{r\ 1774}#
                                   #{w\ 1775}#
                                   #{s\ 1776}#
                                   #{rib\ 1777}#
                                   #{mod\ 1778}#)
                                 #{r\ 1774}#
                                 '(())
                                 #{s\ 1776}#
                                 #{rib\ 1777}#
                                 #{mod\ 1778}#
                                 #f))
                             (values
                               #{type\ 1795}#
                               (#{binding-value\ 357}# #{b\ 1793}#)
                               #{e\ 1773}#
                               #{w\ 1775}#
                               #{s\ 1776}#
                               #{mod\ 1778}#)))))))
                 (if (pair? #{e\ 1773}#)
                   (let ((#{first\ 1804}# (car #{e\ 1773}#)))
                     (call-with-values
                       (lambda ()
                         (#{syntax-type\ 453}#
                           #{first\ 1804}#
                           #{r\ 1774}#
                           #{w\ 1775}#
                           #{s\ 1776}#
                           #{rib\ 1777}#
                           #{mod\ 1778}#
                           #t))
                       (lambda (#{ftype\ 1805}#
                                #{fval\ 1806}#
                                #{fe\ 1807}#
                                #{fw\ 1808}#
                                #{fs\ 1809}#
                                #{fmod\ 1810}#)
                         (if (memv #{ftype\ 1805}# (quote (lexical)))
                           (values
                             'lexical-call
                             #{fval\ 1806}#
                             #{e\ 1773}#
                             #{w\ 1775}#
                             #{s\ 1776}#
                             #{mod\ 1778}#)
                           (if (memv #{ftype\ 1805}# (quote (global)))
                             (values
                               'global-call
                               (#{make-syntax-object\ 334}#
                                 #{fval\ 1806}#
                                 #{w\ 1775}#
                                 #{fmod\ 1810}#)
                               #{e\ 1773}#
                               #{w\ 1775}#
                               #{s\ 1776}#
                               #{mod\ 1778}#)
                             (if (memv #{ftype\ 1805}# (quote (macro)))
                               (#{syntax-type\ 453}#
                                 (#{chi-macro\ 463}#
                                   #{fval\ 1806}#
                                   #{e\ 1773}#
                                   #{r\ 1774}#
                                   #{w\ 1775}#
                                   #{s\ 1776}#
                                   #{rib\ 1777}#
                                   #{mod\ 1778}#)
                                 #{r\ 1774}#
                                 '(())
                                 #{s\ 1776}#
                                 #{rib\ 1777}#
                                 #{mod\ 1778}#
                                 #{for-car?\ 1779}#)
                               (if (memv #{ftype\ 1805}# (quote (module-ref)))
                                 (call-with-values
                                   (lambda ()
                                     (#{fval\ 1806}#
                                       #{e\ 1773}#
                                       #{r\ 1774}#
                                       #{w\ 1775}#))
                                   (lambda (#{e\ 1822}#
                                            #{r\ 1823}#
                                            #{w\ 1824}#
                                            #{s\ 1825}#
                                            #{mod\ 1826}#)
                                     (#{syntax-type\ 453}#
                                       #{e\ 1822}#
                                       #{r\ 1823}#
                                       #{w\ 1824}#
                                       #{s\ 1825}#
                                       #{rib\ 1777}#
                                       #{mod\ 1826}#
                                       #{for-car?\ 1779}#)))
                                 (if (memv #{ftype\ 1805}# (quote (core)))
                                   (values
                                     'core-form
                                     #{fval\ 1806}#
                                     #{e\ 1773}#
                                     #{w\ 1775}#
                                     #{s\ 1776}#
                                     #{mod\ 1778}#)
                                   (if (memv #{ftype\ 1805}#
                                             '(local-syntax))
                                     (values
                                       'local-syntax-form
                                       #{fval\ 1806}#
                                       #{e\ 1773}#
                                       #{w\ 1775}#
                                       #{s\ 1776}#
                                       #{mod\ 1778}#)
                                     (if (memv #{ftype\ 1805}# (quote (begin)))
                                       (values
                                         'begin-form
                                         #f
                                         #{e\ 1773}#
                                         #{w\ 1775}#
                                         #{s\ 1776}#
                                         #{mod\ 1778}#)
                                       (if (memv #{ftype\ 1805}#
                                                 '(eval-when))
                                         (values
                                           'eval-when-form
                                           #f
                                           #{e\ 1773}#
                                           #{w\ 1775}#
                                           #{s\ 1776}#
                                           #{mod\ 1778}#)
                                         (if (memv #{ftype\ 1805}#
                                                   '(define))
                                           ((lambda (#{tmp\ 1837}#)
                                              ((lambda (#{tmp\ 1838}#)
                                                 (if (if #{tmp\ 1838}#
                                                       (apply (lambda (#{_\ 1842}#
                                                                       #{name\ 1843}#
                                                                       #{val\ 1844}#)
                                                                (#{id?\ 372}#
                                                                  #{name\ 1843}#))
                                                              #{tmp\ 1838}#)
                                                       #f)
                                                   (apply (lambda (#{_\ 1848}#
                                                                   #{name\ 1849}#
                                                                   #{val\ 1850}#)
                                                            (values
                                                              'define-form
                                                              #{name\ 1849}#
                                                              #{val\ 1850}#
                                                              #{w\ 1775}#
                                                              #{s\ 1776}#
                                                              #{mod\ 1778}#))
                                                          #{tmp\ 1838}#)
                                                   ((lambda (#{tmp\ 1851}#)
                                                      (if (if #{tmp\ 1851}#
                                                            (apply (lambda (#{_\ 1857}#
                                                                            #{name\ 1858}#
                                                                            #{args\ 1859}#
                                                                            #{e1\ 1860}#
                                                                            #{e2\ 1861}#)
                                                                     (if (#{id?\ 372}#
                                                                           #{name\ 1858}#)
                                                                       (#{valid-bound-ids?\ 435}#
                                                                         (#{lambda-var-list\ 487}#
                                                                           #{args\ 1859}#))
                                                                       #f))
                                                                   #{tmp\ 1851}#)
                                                            #f)
                                                        (apply (lambda (#{_\ 1869}#
                                                                        #{name\ 1870}#
                                                                        #{args\ 1871}#
                                                                        #{e1\ 1872}#
                                                                        #{e2\ 1873}#)
                                                                 (values
                                                                   'define-form
                                                                   (#{wrap\ 441}#
                                                                     #{name\ 1870}#
                                                                     #{w\ 1775}#
                                                                     #{mod\ 1778}#)
                                                                   (#{decorate-source\ 290}#
                                                                     (cons '#(syntax-object
                                                                              lambda
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(_
                                                                                   name
                                                                                   args
                                                                                   e1
                                                                                   e2)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i1864"
                                                                                   "i1865"
                                                                                   "i1866"
                                                                                   "i1867"
                                                                                   "i1868"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(ftype
                                                                                   fval
                                                                                   fe
                                                                                   fw
                                                                                   fs
                                                                                   fmod)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i1811"
                                                                                   "i1812"
                                                                                   "i1813"
                                                                                   "i1814"
                                                                                   "i1815"
                                                                                   "i1816"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(first)
                                                                                 #((top))
                                                                                 #("i1803"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(e
                                                                                   r
                                                                                   w
                                                                                   s
                                                                                   rib
                                                                                   mod
                                                                                   for-car?)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i1780"
                                                                                   "i1781"
                                                                                   "i1782"
                                                                                   "i1783"
                                                                                   "i1784"
                                                                                   "i1785"
                                                                                   "i1786"))
                                                                               #(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
                                                                                   chi-top
                                                                                   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
                                                                                   maybe-name-value!
                                                                                   build-global-assignment
                                                                                   build-global-reference
                                                                                   analyze-variable
                                                                                   build-lexical-assignment
                                                                                   build-lexical-reference
                                                                                   build-dynlet
                                                                                   build-conditional
                                                                                   build-application
                                                                                   build-void
                                                                                   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)
                                                                                  (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"
                                                                                  "i416"
                                                                                  "i415"
                                                                                  "i414"
                                                                                  "i412"
                                                                                  "i411"
                                                                                  "i410"
                                                                                  "i409"
                                                                                  "i408"
                                                                                  "i406"
                                                                                  "i404"
                                                                                  "i402"
                                                                                  "i400"
                                                                                  "i398"
                                                                                  "i396"
                                                                                  "i394"
                                                                                  "i392"
                                                                                  "i389"
                                                                                  "i387"
                                                                                  "i386"
                                                                                  "i385"
                                                                                  "i384"
                                                                                  "i383"
                                                                                  "i382"
                                                                                  "i380"
                                                                                  "i378"
                                                                                  "i376"
                                                                                  "i374"
                                                                                  "i373"
                                                                                  "i371"
                                                                                  "i369"
                                                                                  "i367"
                                                                                  "i365"
                                                                                  "i363"
                                                                                  "i361"
                                                                                  "i359"
                                                                                  "i358"
                                                                                  "i356"
                                                                                  "i354"
                                                                                  "i353"
                                                                                  "i352"
                                                                                  "i350"
                                                                                  "i349"
                                                                                  "i347"
                                                                                  "i345"
                                                                                  "i343"
                                                                                  "i341"
                                                                                  "i339"
                                                                                  "i337"
                                                                                  "i335"
                                                                                  "i333"
                                                                                  "i331"
                                                                                  "i329"
                                                                                  "i327"
                                                                                  "i325"
                                                                                  "i323"
                                                                                  "i321"
                                                                                  "i319"
                                                                                  "i317"
                                                                                  "i315"
                                                                                  "i313"
                                                                                  "i311"
                                                                                  "i309"
                                                                                  "i307"
                                                                                  "i305"
                                                                                  "i303"
                                                                                  "i301"
                                                                                  "i299"
                                                                                  "i297"
                                                                                  "i295"
                                                                                  "i293"
                                                                                  "i291"
                                                                                  "i289"
                                                                                  "i287"
                                                                                  "i285"
                                                                                  "i284"
                                                                                  "i282"
                                                                                  "i280"
                                                                                  "i278"
                                                                                  "i276"
                                                                                  "i274"
                                                                                  "i272"
                                                                                  "i270"
                                                                                  "i268"
                                                                                  "i266"
                                                                                  "i263"
                                                                                  "i261"
                                                                                  "i259"
                                                                                  "i257"
                                                                                  "i255"
                                                                                  "i253"
                                                                                  "i251"
                                                                                  "i249"
                                                                                  "i247"
                                                                                  "i245"
                                                                                  "i243"
                                                                                  "i241"
                                                                                  "i239"
                                                                                  "i237"
                                                                                  "i235"
                                                                                  "i233"
                                                                                  "i231"
                                                                                  "i229"))
                                                                               #(ribcage
                                                                                 (define-structure
                                                                                   define-expansion-accessors
                                                                                   define-expansion-constructors
                                                                                   and-map*)
                                                                                 ((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                 ("i23"
                                                                                  "i22"
                                                                                  "i21"
                                                                                  "i19")))
                                                                              (hygiene
                                                                                guile))
                                                                           (#{wrap\ 441}#
                                                                             (cons #{args\ 1871}#
                                                                                   (cons #{e1\ 1872}#
                                                                                         #{e2\ 1873}#))
                                                                             #{w\ 1775}#
                                                                             #{mod\ 1778}#))
                                                                     #{s\ 1776}#)
                                                                   '(())
                                                                   #{s\ 1776}#
                                                                   #{mod\ 1778}#))
                                                               #{tmp\ 1851}#)
                                                        ((lambda (#{tmp\ 1876}#)
                                                           (if (if #{tmp\ 1876}#
                                                                 (apply (lambda (#{_\ 1879}#
                                                                                 #{name\ 1880}#)
                                                                          (#{id?\ 372}#
                                                                            #{name\ 1880}#))
                                                                        #{tmp\ 1876}#)
                                                                 #f)
                                                             (apply (lambda (#{_\ 1883}#
                                                                             #{name\ 1884}#)
                                                                      (values
                                                                        'define-form
                                                                        (#{wrap\ 441}#
                                                                          #{name\ 1884}#
                                                                          #{w\ 1775}#
                                                                          #{mod\ 1778}#)
                                                                        '(#(syntax-object
                                                                            if
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i1881"
                                                                                 "i1882"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1811"
                                                                                 "i1812"
                                                                                 "i1813"
                                                                                 "i1814"
                                                                                 "i1815"
                                                                                 "i1816"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i1803"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1780"
                                                                                 "i1781"
                                                                                 "i1782"
                                                                                 "i1783"
                                                                                 "i1784"
                                                                                 "i1785"
                                                                                 "i1786"))
                                                                             #(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
                                                                                 chi-top
                                                                                 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
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-dynlet
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 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)
                                                                                (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"
                                                                                "i416"
                                                                                "i415"
                                                                                "i414"
                                                                                "i412"
                                                                                "i411"
                                                                                "i410"
                                                                                "i409"
                                                                                "i408"
                                                                                "i406"
                                                                                "i404"
                                                                                "i402"
                                                                                "i400"
                                                                                "i398"
                                                                                "i396"
                                                                                "i394"
                                                                                "i392"
                                                                                "i389"
                                                                                "i387"
                                                                                "i386"
                                                                                "i385"
                                                                                "i384"
                                                                                "i383"
                                                                                "i382"
                                                                                "i380"
                                                                                "i378"
                                                                                "i376"
                                                                                "i374"
                                                                                "i373"
                                                                                "i371"
                                                                                "i369"
                                                                                "i367"
                                                                                "i365"
                                                                                "i363"
                                                                                "i361"
                                                                                "i359"
                                                                                "i358"
                                                                                "i356"
                                                                                "i354"
                                                                                "i353"
                                                                                "i352"
                                                                                "i350"
                                                                                "i349"
                                                                                "i347"
                                                                                "i345"
                                                                                "i343"
                                                                                "i341"
                                                                                "i339"
                                                                                "i337"
                                                                                "i335"
                                                                                "i333"
                                                                                "i331"
                                                                                "i329"
                                                                                "i327"
                                                                                "i325"
                                                                                "i323"
                                                                                "i321"
                                                                                "i319"
                                                                                "i317"
                                                                                "i315"
                                                                                "i313"
                                                                                "i311"
                                                                                "i309"
                                                                                "i307"
                                                                                "i305"
                                                                                "i303"
                                                                                "i301"
                                                                                "i299"
                                                                                "i297"
                                                                                "i295"
                                                                                "i293"
                                                                                "i291"
                                                                                "i289"
                                                                                "i287"
                                                                                "i285"
                                                                                "i284"
                                                                                "i282"
                                                                                "i280"
                                                                                "i278"
                                                                                "i276"
                                                                                "i274"
                                                                                "i272"
                                                                                "i270"
                                                                                "i268"
                                                                                "i266"
                                                                                "i263"
                                                                                "i261"
                                                                                "i259"
                                                                                "i257"
                                                                                "i255"
                                                                                "i253"
                                                                                "i251"
                                                                                "i249"
                                                                                "i247"
                                                                                "i245"
                                                                                "i243"
                                                                                "i241"
                                                                                "i239"
                                                                                "i237"
                                                                                "i235"
                                                                                "i233"
                                                                                "i231"
                                                                                "i229"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 define-expansion-accessors
                                                                                 define-expansion-constructors
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i23"
                                                                                "i22"
                                                                                "i21"
                                                                                "i19")))
                                                                            (hygiene
                                                                              guile))
                                                                          #(syntax-object
                                                                            #f
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i1881"
                                                                                 "i1882"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1811"
                                                                                 "i1812"
                                                                                 "i1813"
                                                                                 "i1814"
                                                                                 "i1815"
                                                                                 "i1816"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i1803"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1780"
                                                                                 "i1781"
                                                                                 "i1782"
                                                                                 "i1783"
                                                                                 "i1784"
                                                                                 "i1785"
                                                                                 "i1786"))
                                                                             #(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
                                                                                 chi-top
                                                                                 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
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-dynlet
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 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)
                                                                                (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"
                                                                                "i416"
                                                                                "i415"
                                                                                "i414"
                                                                                "i412"
                                                                                "i411"
                                                                                "i410"
                                                                                "i409"
                                                                                "i408"
                                                                                "i406"
                                                                                "i404"
                                                                                "i402"
                                                                                "i400"
                                                                                "i398"
                                                                                "i396"
                                                                                "i394"
                                                                                "i392"
                                                                                "i389"
                                                                                "i387"
                                                                                "i386"
                                                                                "i385"
                                                                                "i384"
                                                                                "i383"
                                                                                "i382"
                                                                                "i380"
                                                                                "i378"
                                                                                "i376"
                                                                                "i374"
                                                                                "i373"
                                                                                "i371"
                                                                                "i369"
                                                                                "i367"
                                                                                "i365"
                                                                                "i363"
                                                                                "i361"
                                                                                "i359"
                                                                                "i358"
                                                                                "i356"
                                                                                "i354"
                                                                                "i353"
                                                                                "i352"
                                                                                "i350"
                                                                                "i349"
                                                                                "i347"
                                                                                "i345"
                                                                                "i343"
                                                                                "i341"
                                                                                "i339"
                                                                                "i337"
                                                                                "i335"
                                                                                "i333"
                                                                                "i331"
                                                                                "i329"
                                                                                "i327"
                                                                                "i325"
                                                                                "i323"
                                                                                "i321"
                                                                                "i319"
                                                                                "i317"
                                                                                "i315"
                                                                                "i313"
                                                                                "i311"
                                                                                "i309"
                                                                                "i307"
                                                                                "i305"
                                                                                "i303"
                                                                                "i301"
                                                                                "i299"
                                                                                "i297"
                                                                                "i295"
                                                                                "i293"
                                                                                "i291"
                                                                                "i289"
                                                                                "i287"
                                                                                "i285"
                                                                                "i284"
                                                                                "i282"
                                                                                "i280"
                                                                                "i278"
                                                                                "i276"
                                                                                "i274"
                                                                                "i272"
                                                                                "i270"
                                                                                "i268"
                                                                                "i266"
                                                                                "i263"
                                                                                "i261"
                                                                                "i259"
                                                                                "i257"
                                                                                "i255"
                                                                                "i253"
                                                                                "i251"
                                                                                "i249"
                                                                                "i247"
                                                                                "i245"
                                                                                "i243"
                                                                                "i241"
                                                                                "i239"
                                                                                "i237"
                                                                                "i235"
                                                                                "i233"
                                                                                "i231"
                                                                                "i229"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 define-expansion-accessors
                                                                                 define-expansion-constructors
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i23"
                                                                                "i22"
                                                                                "i21"
                                                                                "i19")))
                                                                            (hygiene
                                                                              guile))
                                                                          #(syntax-object
                                                                            #f
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(_
                                                                                 name)
                                                                               #((top)
                                                                                 (top))
                                                                               #("i1881"
                                                                                 "i1882"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(ftype
                                                                                 fval
                                                                                 fe
                                                                                 fw
                                                                                 fs
                                                                                 fmod)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1811"
                                                                                 "i1812"
                                                                                 "i1813"
                                                                                 "i1814"
                                                                                 "i1815"
                                                                                 "i1816"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(first)
                                                                               #((top))
                                                                               #("i1803"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(e
                                                                                 r
                                                                                 w
                                                                                 s
                                                                                 rib
                                                                                 mod
                                                                                 for-car?)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i1780"
                                                                                 "i1781"
                                                                                 "i1782"
                                                                                 "i1783"
                                                                                 "i1784"
                                                                                 "i1785"
                                                                                 "i1786"))
                                                                             #(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
                                                                                 chi-top
                                                                                 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
                                                                                 maybe-name-value!
                                                                                 build-global-assignment
                                                                                 build-global-reference
                                                                                 analyze-variable
                                                                                 build-lexical-assignment
                                                                                 build-lexical-reference
                                                                                 build-dynlet
                                                                                 build-conditional
                                                                                 build-application
                                                                                 build-void
                                                                                 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)
                                                                                (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"
                                                                                "i416"
                                                                                "i415"
                                                                                "i414"
                                                                                "i412"
                                                                                "i411"
                                                                                "i410"
                                                                                "i409"
                                                                                "i408"
                                                                                "i406"
                                                                                "i404"
                                                                                "i402"
                                                                                "i400"
                                                                                "i398"
                                                                                "i396"
                                                                                "i394"
                                                                                "i392"
                                                                                "i389"
                                                                                "i387"
                                                                                "i386"
                                                                                "i385"
                                                                                "i384"
                                                                                "i383"
                                                                                "i382"
                                                                                "i380"
                                                                                "i378"
                                                                                "i376"
                                                                                "i374"
                                                                                "i373"
                                                                                "i371"
                                                                                "i369"
                                                                                "i367"
                                                                                "i365"
                                                                                "i363"
                                                                                "i361"
                                                                                "i359"
                                                                                "i358"
                                                                                "i356"
                                                                                "i354"
                                                                                "i353"
                                                                                "i352"
                                                                                "i350"
                                                                                "i349"
                                                                                "i347"
                                                                                "i345"
                                                                                "i343"
                                                                                "i341"
                                                                                "i339"
                                                                                "i337"
                                                                                "i335"
                                                                                "i333"
                                                                                "i331"
                                                                                "i329"
                                                                                "i327"
                                                                                "i325"
                                                                                "i323"
                                                                                "i321"
                                                                                "i319"
                                                                                "i317"
                                                                                "i315"
                                                                                "i313"
                                                                                "i311"
                                                                                "i309"
                                                                                "i307"
                                                                                "i305"
                                                                                "i303"
                                                                                "i301"
                                                                                "i299"
                                                                                "i297"
                                                                                "i295"
                                                                                "i293"
                                                                                "i291"
                                                                                "i289"
                                                                                "i287"
                                                                                "i285"
                                                                                "i284"
                                                                                "i282"
                                                                                "i280"
                                                                                "i278"
                                                                                "i276"
                                                                                "i274"
                                                                                "i272"
                                                                                "i270"
                                                                                "i268"
                                                                                "i266"
                                                                                "i263"
                                                                                "i261"
                                                                                "i259"
                                                                                "i257"
                                                                                "i255"
                                                                                "i253"
                                                                                "i251"
                                                                                "i249"
                                                                                "i247"
                                                                                "i245"
                                                                                "i243"
                                                                                "i241"
                                                                                "i239"
                                                                                "i237"
                                                                                "i235"
                                                                                "i233"
                                                                                "i231"
                                                                                "i229"))
                                                                             #(ribcage
                                                                               (define-structure
                                                                                 define-expansion-accessors
                                                                                 define-expansion-constructors
                                                                                 and-map*)
                                                                               ((top)
                                                                                (top)
                                                                                (top)
                                                                                (top))
                                                                               ("i23"
                                                                                "i22"
                                                                                "i21"
                                                                                "i19")))
                                                                            (hygiene
                                                                              guile)))
                                                                        '(())
                                                                        #{s\ 1776}#
                                                                        #{mod\ 1778}#))
                                                                    #{tmp\ 1876}#)
                                                             (syntax-violation
                                                               #f
                                                               "source expression failed to match any pattern"
                                                               #{tmp\ 1837}#)))
                                                         ($sc-dispatch
                                                           #{tmp\ 1837}#
                                                           '(any any)))))
                                                    ($sc-dispatch
                                                      #{tmp\ 1837}#
                                                      '(any (any . any)
                                                            any
                                                            .
                                                            each-any)))))
                                               ($sc-dispatch
                                                 #{tmp\ 1837}#
                                                 '(any any any))))
                                            #{e\ 1773}#)
                                           (if (memv #{ftype\ 1805}#
                                                     '(define-syntax))
                                             ((lambda (#{tmp\ 1887}#)
                                                ((lambda (#{tmp\ 1888}#)
                                                   (if (if #{tmp\ 1888}#
                                                         (apply (lambda (#{_\ 1892}#
                                                                         #{name\ 1893}#
                                                                         #{val\ 1894}#)
                                                                  (#{id?\ 372}#
                                                                    #{name\ 1893}#))
                                                                #{tmp\ 1888}#)
                                                         #f)
                                                     (apply (lambda (#{_\ 1898}#
                                                                     #{name\ 1899}#
                                                                     #{val\ 1900}#)
                                                              (values
                                                                'define-syntax-form
                                                                #{name\ 1899}#
                                                                #{val\ 1900}#
                                                                #{w\ 1775}#
                                                                #{s\ 1776}#
                                                                #{mod\ 1778}#))
                                                            #{tmp\ 1888}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       #{tmp\ 1887}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 1887}#
                                                   '(any any any))))
                                              #{e\ 1773}#)
                                             (values
                                               'call
                                               #f
                                               #{e\ 1773}#
                                               #{w\ 1775}#
                                               #{s\ 1776}#
                                               #{mod\ 1778}#))))))))))))))
                   (if (#{syntax-object?\ 336}# #{e\ 1773}#)
                     (#{syntax-type\ 453}#
                       (#{syntax-object-expression\ 338}# #{e\ 1773}#)
                       #{r\ 1774}#
                       (#{join-wraps\ 423}#
                         #{w\ 1775}#
                         (#{syntax-object-wrap\ 340}# #{e\ 1773}#))
                       (let ((#{t\ 1906}#
                               (#{source-annotation\ 351}# #{e\ 1773}#)))
                         (if #{t\ 1906}# #{t\ 1906}# #{s\ 1776}#))
                       #{rib\ 1777}#
                       (let ((#{t\ 1910}#
                               (#{syntax-object-module\ 342}# #{e\ 1773}#)))
                         (if #{t\ 1910}# #{t\ 1910}# #{mod\ 1778}#))
                       #{for-car?\ 1779}#)
                     (if (self-evaluating? #{e\ 1773}#)
                       (values
                         'constant
                         #f
                         #{e\ 1773}#
                         #{w\ 1775}#
                         #{s\ 1776}#
                         #{mod\ 1778}#)
                       (values
                         'other
                         #f
                         #{e\ 1773}#
                         #{w\ 1775}#
                         #{s\ 1776}#
                         #{mod\ 1778}#)))))))
           (#{chi-when-list\ 451}#
             (lambda (#{e\ 1915}# #{when-list\ 1916}# #{w\ 1917}#)
               (letrec ((#{f\ 1924}#
                          (lambda (#{when-list\ 1925}# #{situations\ 1926}#)
                            (if (null? #{when-list\ 1925}#)
                              #{situations\ 1926}#
                              (#{f\ 1924}#
                                (cdr #{when-list\ 1925}#)
                                (cons (let ((#{x\ 1928}#
                                              (car #{when-list\ 1925}#)))
                                        (if (#{free-id=?\ 431}#
                                              #{x\ 1928}#
                                              '#(syntax-object
                                                 compile
                                                 ((top)
                                                  #(ribcage () () ())
                                                  #(ribcage () () ())
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i1927"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(f when-list situations)
                                                    #((top) (top) (top))
                                                    #("i1921" "i1922" "i1923"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(e when-list w)
                                                    #((top) (top) (top))
                                                    #("i1918" "i1919" "i1920"))
                                                  #(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
                                                      chi-top
                                                      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
                                                      maybe-name-value!
                                                      build-global-assignment
                                                      build-global-reference
                                                      analyze-variable
                                                      build-lexical-assignment
                                                      build-lexical-reference
                                                      build-dynlet
                                                      build-conditional
                                                      build-application
                                                      build-void
                                                      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)
                                                     (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"
                                                     "i416"
                                                     "i415"
                                                     "i414"
                                                     "i412"
                                                     "i411"
                                                     "i410"
                                                     "i409"
                                                     "i408"
                                                     "i406"
                                                     "i404"
                                                     "i402"
                                                     "i400"
                                                     "i398"
                                                     "i396"
                                                     "i394"
                                                     "i392"
                                                     "i389"
                                                     "i387"
                                                     "i386"
                                                     "i385"
                                                     "i384"
                                                     "i383"
                                                     "i382"
                                                     "i380"
                                                     "i378"
                                                     "i376"
                                                     "i374"
                                                     "i373"
                                                     "i371"
                                                     "i369"
                                                     "i367"
                                                     "i365"
                                                     "i363"
                                                     "i361"
                                                     "i359"
                                                     "i358"
                                                     "i356"
                                                     "i354"
                                                     "i353"
                                                     "i352"
                                                     "i350"
                                                     "i349"
                                                     "i347"
                                                     "i345"
                                                     "i343"
                                                     "i341"
                                                     "i339"
                                                     "i337"
                                                     "i335"
                                                     "i333"
                                                     "i331"
                                                     "i329"
                                                     "i327"
                                                     "i325"
                                                     "i323"
                                                     "i321"
                                                     "i319"
                                                     "i317"
                                                     "i315"
                                                     "i313"
                                                     "i311"
                                                     "i309"
                                                     "i307"
                                                     "i305"
                                                     "i303"
                                                     "i301"
                                                     "i299"
                                                     "i297"
                                                     "i295"
                                                     "i293"
                                                     "i291"
                                                     "i289"
                                                     "i287"
                                                     "i285"
                                                     "i284"
                                                     "i282"
                                                     "i280"
                                                     "i278"
                                                     "i276"
                                                     "i274"
                                                     "i272"
                                                     "i270"
                                                     "i268"
                                                     "i266"
                                                     "i263"
                                                     "i261"
                                                     "i259"
                                                     "i257"
                                                     "i255"
                                                     "i253"
                                                     "i251"
                                                     "i249"
                                                     "i247"
                                                     "i245"
                                                     "i243"
                                                     "i241"
                                                     "i239"
                                                     "i237"
                                                     "i235"
                                                     "i233"
                                                     "i231"
                                                     "i229"))
                                                  #(ribcage
                                                    (define-structure
                                                      define-expansion-accessors
                                                      define-expansion-constructors
                                                      and-map*)
                                                    ((top) (top) (top) (top))
                                                    ("i23" "i22" "i21" "i19")))
                                                 (hygiene guile)))
                                          'compile
                                          (if (#{free-id=?\ 431}#
                                                #{x\ 1928}#
                                                '#(syntax-object
                                                   load
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i1927"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(f when-list situations)
                                                      #((top) (top) (top))
                                                      #("i1921"
                                                        "i1922"
                                                        "i1923"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(e when-list w)
                                                      #((top) (top) (top))
                                                      #("i1918"
                                                        "i1919"
                                                        "i1920"))
                                                    #(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
                                                        chi-top
                                                        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
                                                        maybe-name-value!
                                                        build-global-assignment
                                                        build-global-reference
                                                        analyze-variable
                                                        build-lexical-assignment
                                                        build-lexical-reference
                                                        build-dynlet
                                                        build-conditional
                                                        build-application
                                                        build-void
                                                        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)
                                                       (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"
                                                       "i416"
                                                       "i415"
                                                       "i414"
                                                       "i412"
                                                       "i411"
                                                       "i410"
                                                       "i409"
                                                       "i408"
                                                       "i406"
                                                       "i404"
                                                       "i402"
                                                       "i400"
                                                       "i398"
                                                       "i396"
                                                       "i394"
                                                       "i392"
                                                       "i389"
                                                       "i387"
                                                       "i386"
                                                       "i385"
                                                       "i384"
                                                       "i383"
                                                       "i382"
                                                       "i380"
                                                       "i378"
                                                       "i376"
                                                       "i374"
                                                       "i373"
                                                       "i371"
                                                       "i369"
                                                       "i367"
                                                       "i365"
                                                       "i363"
                                                       "i361"
                                                       "i359"
                                                       "i358"
                                                       "i356"
                                                       "i354"
                                                       "i353"
                                                       "i352"
                                                       "i350"
                                                       "i349"
                                                       "i347"
                                                       "i345"
                                                       "i343"
                                                       "i341"
                                                       "i339"
                                                       "i337"
                                                       "i335"
                                                       "i333"
                                                       "i331"
                                                       "i329"
                                                       "i327"
                                                       "i325"
                                                       "i323"
                                                       "i321"
                                                       "i319"
                                                       "i317"
                                                       "i315"
                                                       "i313"
                                                       "i311"
                                                       "i309"
                                                       "i307"
                                                       "i305"
                                                       "i303"
                                                       "i301"
                                                       "i299"
                                                       "i297"
                                                       "i295"
                                                       "i293"
                                                       "i291"
                                                       "i289"
                                                       "i287"
                                                       "i285"
                                                       "i284"
                                                       "i282"
                                                       "i280"
                                                       "i278"
                                                       "i276"
                                                       "i274"
                                                       "i272"
                                                       "i270"
                                                       "i268"
                                                       "i266"
                                                       "i263"
                                                       "i261"
                                                       "i259"
                                                       "i257"
                                                       "i255"
                                                       "i253"
                                                       "i251"
                                                       "i249"
                                                       "i247"
                                                       "i245"
                                                       "i243"
                                                       "i241"
                                                       "i239"
                                                       "i237"
                                                       "i235"
                                                       "i233"
                                                       "i231"
                                                       "i229"))
                                                    #(ribcage
                                                      (define-structure
                                                        define-expansion-accessors
                                                        define-expansion-constructors
                                                        and-map*)
                                                      ((top) (top) (top) (top))
                                                      ("i23"
                                                       "i22"
                                                       "i21"
                                                       "i19")))
                                                   (hygiene guile)))
                                            'load
                                            (if (#{free-id=?\ 431}#
                                                  #{x\ 1928}#
                                                  '#(syntax-object
                                                     eval
                                                     ((top)
                                                      #(ribcage () () ())
                                                      #(ribcage () () ())
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i1927"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(f
                                                          when-list
                                                          situations)
                                                        #((top) (top) (top))
                                                        #("i1921"
                                                          "i1922"
                                                          "i1923"))
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(e when-list w)
                                                        #((top) (top) (top))
                                                        #("i1918"
                                                          "i1919"
                                                          "i1920"))
                                                      #(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
                                                          chi-top
                                                          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
                                                          maybe-name-value!
                                                          build-global-assignment
                                                          build-global-reference
                                                          analyze-variable
                                                          build-lexical-assignment
                                                          build-lexical-reference
                                                          build-dynlet
                                                          build-conditional
                                                          build-application
                                                          build-void
                                                          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)
                                                         (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"
                                                         "i416"
                                                         "i415"
                                                         "i414"
                                                         "i412"
                                                         "i411"
                                                         "i410"
                                                         "i409"
                                                         "i408"
                                                         "i406"
                                                         "i404"
                                                         "i402"
                                                         "i400"
                                                         "i398"
                                                         "i396"
                                                         "i394"
                                                         "i392"
                                                         "i389"
                                                         "i387"
                                                         "i386"
                                                         "i385"
                                                         "i384"
                                                         "i383"
                                                         "i382"
                                                         "i380"
                                                         "i378"
                                                         "i376"
                                                         "i374"
                                                         "i373"
                                                         "i371"
                                                         "i369"
                                                         "i367"
                                                         "i365"
                                                         "i363"
                                                         "i361"
                                                         "i359"
                                                         "i358"
                                                         "i356"
                                                         "i354"
                                                         "i353"
                                                         "i352"
                                                         "i350"
                                                         "i349"
                                                         "i347"
                                                         "i345"
                                                         "i343"
                                                         "i341"
                                                         "i339"
                                                         "i337"
                                                         "i335"
                                                         "i333"
                                                         "i331"
                                                         "i329"
                                                         "i327"
                                                         "i325"
                                                         "i323"
                                                         "i321"
                                                         "i319"
                                                         "i317"
                                                         "i315"
                                                         "i313"
                                                         "i311"
                                                         "i309"
                                                         "i307"
                                                         "i305"
                                                         "i303"
                                                         "i301"
                                                         "i299"
                                                         "i297"
                                                         "i295"
                                                         "i293"
                                                         "i291"
                                                         "i289"
                                                         "i287"
                                                         "i285"
                                                         "i284"
                                                         "i282"
                                                         "i280"
                                                         "i278"
                                                         "i276"
                                                         "i274"
                                                         "i272"
                                                         "i270"
                                                         "i268"
                                                         "i266"
                                                         "i263"
                                                         "i261"
                                                         "i259"
                                                         "i257"
                                                         "i255"
                                                         "i253"
                                                         "i251"
                                                         "i249"
                                                         "i247"
                                                         "i245"
                                                         "i243"
                                                         "i241"
                                                         "i239"
                                                         "i237"
                                                         "i235"
                                                         "i233"
                                                         "i231"
                                                         "i229"))
                                                      #(ribcage
                                                        (define-structure
                                                          define-expansion-accessors
                                                          define-expansion-constructors
                                                          and-map*)
                                                        ((top)
                                                         (top)
                                                         (top)
                                                         (top))
                                                        ("i23"
                                                         "i22"
                                                         "i21"
                                                         "i19")))
                                                     (hygiene guile)))
                                              'eval
                                              (if (#{free-id=?\ 431}#
                                                    #{x\ 1928}#
                                                    '#(syntax-object
                                                       expand
                                                       ((top)
                                                        #(ribcage () () ())
                                                        #(ribcage () () ())
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(x)
                                                          #((top))
                                                          #("i1927"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(f
                                                            when-list
                                                            situations)
                                                          #((top) (top) (top))
                                                          #("i1921"
                                                            "i1922"
                                                            "i1923"))
                                                        #(ribcage () () ())
                                                        #(ribcage
                                                          #(e when-list w)
                                                          #((top) (top) (top))
                                                          #("i1918"
                                                            "i1919"
                                                            "i1920"))
                                                        #(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
                                                            chi-top
                                                            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
                                                            maybe-name-value!
                                                            build-global-assignment
                                                            build-global-reference
                                                            analyze-variable
                                                            build-lexical-assignment
                                                            build-lexical-reference
                                                            build-dynlet
                                                            build-conditional
                                                            build-application
                                                            build-void
                                                            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)
                                                           (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"
                                                           "i416"
                                                           "i415"
                                                           "i414"
                                                           "i412"
                                                           "i411"
                                                           "i410"
                                                           "i409"
                                                           "i408"
                                                           "i406"
                                                           "i404"
                                                           "i402"
                                                           "i400"
                                                           "i398"
                                                           "i396"
                                                           "i394"
                                                           "i392"
                                                           "i389"
                                                           "i387"
                                                           "i386"
                                                           "i385"
                                                           "i384"
                                                           "i383"
                                                           "i382"
                                                           "i380"
                                                           "i378"
                                                           "i376"
                                                           "i374"
                                                           "i373"
                                                           "i371"
                                                           "i369"
                                                           "i367"
                                                           "i365"
                                                           "i363"
                                                           "i361"
                                                           "i359"
                                                           "i358"
                                                           "i356"
                                                           "i354"
                                                           "i353"
                                                           "i352"
                                                           "i350"
                                                           "i349"
                                                           "i347"
                                                           "i345"
                                                           "i343"
                                                           "i341"
                                                           "i339"
                                                           "i337"
                                                           "i335"
                                                           "i333"
                                                           "i331"
                                                           "i329"
                                                           "i327"
                                                           "i325"
                                                           "i323"
                                                           "i321"
                                                           "i319"
                                                           "i317"
                                                           "i315"
                                                           "i313"
                                                           "i311"
                                                           "i309"
                                                           "i307"
                                                           "i305"
                                                           "i303"
                                                           "i301"
                                                           "i299"
                                                           "i297"
                                                           "i295"
                                                           "i293"
                                                           "i291"
                                                           "i289"
                                                           "i287"
                                                           "i285"
                                                           "i284"
                                                           "i282"
                                                           "i280"
                                                           "i278"
                                                           "i276"
                                                           "i274"
                                                           "i272"
                                                           "i270"
                                                           "i268"
                                                           "i266"
                                                           "i263"
                                                           "i261"
                                                           "i259"
                                                           "i257"
                                                           "i255"
                                                           "i253"
                                                           "i251"
                                                           "i249"
                                                           "i247"
                                                           "i245"
                                                           "i243"
                                                           "i241"
                                                           "i239"
                                                           "i237"
                                                           "i235"
                                                           "i233"
                                                           "i231"
                                                           "i229"))
                                                        #(ribcage
                                                          (define-structure
                                                            define-expansion-accessors
                                                            define-expansion-constructors
                                                            and-map*)
                                                          ((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                          ("i23"
                                                           "i22"
                                                           "i21"
                                                           "i19")))
                                                       (hygiene guile)))
                                                'expand
                                                (syntax-violation
                                                  'eval-when
                                                  "invalid situation"
                                                  #{e\ 1915}#
                                                  (#{wrap\ 441}#
                                                    #{x\ 1928}#
                                                    #{w\ 1917}#
                                                    #f)))))))
                                      #{situations\ 1926}#))))))
                 (#{f\ 1924}# #{when-list\ 1916}# (quote ())))))
           (#{chi-install-global\ 449}#
             (lambda (#{name\ 1938}# #{e\ 1939}#)
               (#{build-global-definition\ 312}#
                 #f
                 #{name\ 1938}#
                 (#{build-application\ 294}#
                   #f
                   (#{build-primref\ 320}#
                     #f
                     'make-syntax-transformer)
                   (list (#{build-data\ 322}# #f #{name\ 1938}#)
                         (#{build-data\ 322}# #f (quote macro))
                         #{e\ 1939}#)))))
           (#{chi-top-sequence\ 447}#
             (lambda (#{body\ 1947}#
                      #{r\ 1948}#
                      #{w\ 1949}#
                      #{s\ 1950}#
                      #{m\ 1951}#
                      #{esew\ 1952}#
                      #{mod\ 1953}#)
               (#{build-sequence\ 324}#
                 #{s\ 1950}#
                 (letrec ((#{dobody\ 1969}#
                            (lambda (#{body\ 1970}#
                                     #{r\ 1971}#
                                     #{w\ 1972}#
                                     #{m\ 1973}#
                                     #{esew\ 1974}#
                                     #{mod\ 1975}#
                                     #{out\ 1976}#)
                              (if (null? #{body\ 1970}#)
                                (reverse #{out\ 1976}#)
                                (#{dobody\ 1969}#
                                  (cdr #{body\ 1970}#)
                                  #{r\ 1971}#
                                  #{w\ 1972}#
                                  #{m\ 1973}#
                                  #{esew\ 1974}#
                                  #{mod\ 1975}#
                                  (cons (#{chi-top\ 455}#
                                          (car #{body\ 1970}#)
                                          #{r\ 1971}#
                                          #{w\ 1972}#
                                          #{m\ 1973}#
                                          #{esew\ 1974}#
                                          #{mod\ 1975}#)
                                        #{out\ 1976}#))))))
                   (#{dobody\ 1969}#
                     #{body\ 1947}#
                     #{r\ 1948}#
                     #{w\ 1949}#
                     #{m\ 1951}#
                     #{esew\ 1952}#
                     #{mod\ 1953}#
                     '())))))
           (#{chi-sequence\ 445}#
             (lambda (#{body\ 1977}#
                      #{r\ 1978}#
                      #{w\ 1979}#
                      #{s\ 1980}#
                      #{mod\ 1981}#)
               (#{build-sequence\ 324}#
                 #{s\ 1980}#
                 (letrec ((#{dobody\ 1992}#
                            (lambda (#{body\ 1993}#
                                     #{r\ 1994}#
                                     #{w\ 1995}#
                                     #{mod\ 1996}#)
                              (if (null? #{body\ 1993}#)
                                '()
                                (let ((#{first\ 1998}#
                                        (#{chi\ 457}#
                                          (car #{body\ 1993}#)
                                          #{r\ 1994}#
                                          #{w\ 1995}#
                                          #{mod\ 1996}#)))
                                  (cons #{first\ 1998}#
                                        (#{dobody\ 1992}#
                                          (cdr #{body\ 1993}#)
                                          #{r\ 1994}#
                                          #{w\ 1995}#
                                          #{mod\ 1996}#)))))))
                   (#{dobody\ 1992}#
                     #{body\ 1977}#
                     #{r\ 1978}#
                     #{w\ 1979}#
                     #{mod\ 1981}#)))))
           (#{source-wrap\ 443}#
             (lambda (#{x\ 1999}#
                      #{w\ 2000}#
                      #{s\ 2001}#
                      #{defmod\ 2002}#)
               (#{wrap\ 441}#
                 (#{decorate-source\ 290}#
                   #{x\ 1999}#
                   #{s\ 2001}#)
                 #{w\ 2000}#
                 #{defmod\ 2002}#)))
           (#{wrap\ 441}#
             (lambda (#{x\ 2007}# #{w\ 2008}# #{defmod\ 2009}#)
               (if (if (null? (#{wrap-marks\ 379}# #{w\ 2008}#))
                     (null? (#{wrap-subst\ 381}# #{w\ 2008}#))
                     #f)
                 #{x\ 2007}#
                 (if (#{syntax-object?\ 336}# #{x\ 2007}#)
                   (#{make-syntax-object\ 334}#
                     (#{syntax-object-expression\ 338}# #{x\ 2007}#)
                     (#{join-wraps\ 423}#
                       #{w\ 2008}#
                       (#{syntax-object-wrap\ 340}# #{x\ 2007}#))
                     (#{syntax-object-module\ 342}# #{x\ 2007}#))
                   (if (null? #{x\ 2007}#)
                     #{x\ 2007}#
                     (#{make-syntax-object\ 334}#
                       #{x\ 2007}#
                       #{w\ 2008}#
                       #{defmod\ 2009}#))))))
           (#{bound-id-member?\ 439}#
             (lambda (#{x\ 2022}# #{list\ 2023}#)
               (if (not (null? #{list\ 2023}#))
                 (let ((#{t\ 2030}#
                         (#{bound-id=?\ 433}#
                           #{x\ 2022}#
                           (car #{list\ 2023}#))))
                   (if #{t\ 2030}#
                     #{t\ 2030}#
                     (#{bound-id-member?\ 439}#
                       #{x\ 2022}#
                       (cdr #{list\ 2023}#))))
                 #f)))
           (#{distinct-bound-ids?\ 437}#
             (lambda (#{ids\ 2032}#)
               (letrec ((#{distinct?\ 2036}#
                          (lambda (#{ids\ 2037}#)
                            (let ((#{t\ 2040}# (null? #{ids\ 2037}#)))
                              (if #{t\ 2040}#
                                #{t\ 2040}#
                                (if (not (#{bound-id-member?\ 439}#
                                           (car #{ids\ 2037}#)
                                           (cdr #{ids\ 2037}#)))
                                  (#{distinct?\ 2036}# (cdr #{ids\ 2037}#))
                                  #f))))))
                 (#{distinct?\ 2036}# #{ids\ 2032}#))))
           (#{valid-bound-ids?\ 435}#
             (lambda (#{ids\ 2044}#)
               (if (letrec ((#{all-ids?\ 2049}#
                              (lambda (#{ids\ 2050}#)
                                (let ((#{t\ 2053}# (null? #{ids\ 2050}#)))
                                  (if #{t\ 2053}#
                                    #{t\ 2053}#
                                    (if (#{id?\ 372}# (car #{ids\ 2050}#))
                                      (#{all-ids?\ 2049}# (cdr #{ids\ 2050}#))
                                      #f))))))
                     (#{all-ids?\ 2049}# #{ids\ 2044}#))
                 (#{distinct-bound-ids?\ 437}# #{ids\ 2044}#)
                 #f)))
           (#{bound-id=?\ 433}#
             (lambda (#{i\ 2058}# #{j\ 2059}#)
               (if (if (#{syntax-object?\ 336}# #{i\ 2058}#)
                     (#{syntax-object?\ 336}# #{j\ 2059}#)
                     #f)
                 (if (eq? (#{syntax-object-expression\ 338}# #{i\ 2058}#)
                          (#{syntax-object-expression\ 338}# #{j\ 2059}#))
                   (#{same-marks?\ 427}#
                     (#{wrap-marks\ 379}#
                       (#{syntax-object-wrap\ 340}# #{i\ 2058}#))
                     (#{wrap-marks\ 379}#
                       (#{syntax-object-wrap\ 340}# #{j\ 2059}#)))
                   #f)
                 (eq? #{i\ 2058}# #{j\ 2059}#))))
           (#{free-id=?\ 431}#
             (lambda (#{i\ 2066}# #{j\ 2067}#)
               (if (eq? (let ((#{x\ 2073}# #{i\ 2066}#))
                          (if (#{syntax-object?\ 336}# #{x\ 2073}#)
                            (#{syntax-object-expression\ 338}# #{x\ 2073}#)
                            #{x\ 2073}#))
                        (let ((#{x\ 2076}# #{j\ 2067}#))
                          (if (#{syntax-object?\ 336}# #{x\ 2076}#)
                            (#{syntax-object-expression\ 338}# #{x\ 2076}#)
                            #{x\ 2076}#)))
                 (eq? (#{id-var-name\ 429}# #{i\ 2066}# (quote (())))
                      (#{id-var-name\ 429}# #{j\ 2067}# (quote (()))))
                 #f)))
           (#{id-var-name\ 429}#
             (lambda (#{id\ 2080}# #{w\ 2081}#)
               (letrec ((#{search-vector-rib\ 2090}#
                          (lambda (#{sym\ 2102}#
                                   #{subst\ 2103}#
                                   #{marks\ 2104}#
                                   #{symnames\ 2105}#
                                   #{ribcage\ 2106}#)
                            (let ((#{n\ 2113}#
                                    (vector-length #{symnames\ 2105}#)))
                              (letrec ((#{f\ 2116}#
                                         (lambda (#{i\ 2117}#)
                                           (if (#{fx=\ 277}#
                                                 #{i\ 2117}#
                                                 #{n\ 2113}#)
                                             (#{search\ 2086}#
                                               #{sym\ 2102}#
                                               (cdr #{subst\ 2103}#)
                                               #{marks\ 2104}#)
                                             (if (if (eq? (vector-ref
                                                            #{symnames\ 2105}#
                                                            #{i\ 2117}#)
                                                          #{sym\ 2102}#)
                                                   (#{same-marks?\ 427}#
                                                     #{marks\ 2104}#
                                                     (vector-ref
                                                       (#{ribcage-marks\ 399}#
                                                         #{ribcage\ 2106}#)
                                                       #{i\ 2117}#))
                                                   #f)
                                               (values
                                                 (vector-ref
                                                   (#{ribcage-labels\ 401}#
                                                     #{ribcage\ 2106}#)
                                                   #{i\ 2117}#)
                                                 #{marks\ 2104}#)
                                               (#{f\ 2116}#
                                                 (#{fx+\ 273}#
                                                   #{i\ 2117}#
                                                   1)))))))
                                (#{f\ 2116}# 0)))))
                        (#{search-list-rib\ 2088}#
                          (lambda (#{sym\ 2125}#
                                   #{subst\ 2126}#
                                   #{marks\ 2127}#
                                   #{symnames\ 2128}#
                                   #{ribcage\ 2129}#)
                            (letrec ((#{f\ 2138}#
                                       (lambda (#{symnames\ 2139}# #{i\ 2140}#)
                                         (if (null? #{symnames\ 2139}#)
                                           (#{search\ 2086}#
                                             #{sym\ 2125}#
                                             (cdr #{subst\ 2126}#)
                                             #{marks\ 2127}#)
                                           (if (if (eq? (car #{symnames\ 2139}#)
                                                        #{sym\ 2125}#)
                                                 (#{same-marks?\ 427}#
                                                   #{marks\ 2127}#
                                                   (list-ref
                                                     (#{ribcage-marks\ 399}#
                                                       #{ribcage\ 2129}#)
                                                     #{i\ 2140}#))
                                                 #f)
                                             (values
                                               (list-ref
                                                 (#{ribcage-labels\ 401}#
                                                   #{ribcage\ 2129}#)
                                                 #{i\ 2140}#)
                                               #{marks\ 2127}#)
                                             (#{f\ 2138}#
                                               (cdr #{symnames\ 2139}#)
                                               (#{fx+\ 273}#
                                                 #{i\ 2140}#
                                                 1)))))))
                              (#{f\ 2138}# #{symnames\ 2128}# 0))))
                        (#{search\ 2086}#
                          (lambda (#{sym\ 2148}#
                                   #{subst\ 2149}#
                                   #{marks\ 2150}#)
                            (if (null? #{subst\ 2149}#)
                              (values #f #{marks\ 2150}#)
                              (let ((#{fst\ 2155}# (car #{subst\ 2149}#)))
                                (if (eq? #{fst\ 2155}# (quote shift))
                                  (#{search\ 2086}#
                                    #{sym\ 2148}#
                                    (cdr #{subst\ 2149}#)
                                    (cdr #{marks\ 2150}#))
                                  (let ((#{symnames\ 2157}#
                                          (#{ribcage-symnames\ 397}#
                                            #{fst\ 2155}#)))
                                    (if (vector? #{symnames\ 2157}#)
                                      (#{search-vector-rib\ 2090}#
                                        #{sym\ 2148}#
                                        #{subst\ 2149}#
                                        #{marks\ 2150}#
                                        #{symnames\ 2157}#
                                        #{fst\ 2155}#)
                                      (#{search-list-rib\ 2088}#
                                        #{sym\ 2148}#
                                        #{subst\ 2149}#
                                        #{marks\ 2150}#
                                        #{symnames\ 2157}#
                                        #{fst\ 2155}#)))))))))
                 (if (symbol? #{id\ 2080}#)
                   (let ((#{t\ 2160}#
                           (call-with-values
                             (lambda ()
                               (#{search\ 2086}#
                                 #{id\ 2080}#
                                 (#{wrap-subst\ 381}# #{w\ 2081}#)
                                 (#{wrap-marks\ 379}# #{w\ 2081}#)))
                             (lambda (#{x\ 2162}# . #{ignore\ 2163}#)
                               #{x\ 2162}#))))
                     (if #{t\ 2160}# #{t\ 2160}# #{id\ 2080}#))
                   (if (#{syntax-object?\ 336}# #{id\ 2080}#)
                     (let ((#{id\ 2171}#
                             (#{syntax-object-expression\ 338}# #{id\ 2080}#))
                           (#{w1\ 2172}#
                             (#{syntax-object-wrap\ 340}# #{id\ 2080}#)))
                       (let ((#{marks\ 2174}#
                               (#{join-marks\ 425}#
                                 (#{wrap-marks\ 379}# #{w\ 2081}#)
                                 (#{wrap-marks\ 379}# #{w1\ 2172}#))))
                         (call-with-values
                           (lambda ()
                             (#{search\ 2086}#
                               #{id\ 2171}#
                               (#{wrap-subst\ 381}# #{w\ 2081}#)
                               #{marks\ 2174}#))
                           (lambda (#{new-id\ 2175}# #{marks\ 2176}#)
                             (let ((#{t\ 2181}# #{new-id\ 2175}#))
                               (if #{t\ 2181}#
                                 #{t\ 2181}#
                                 (let ((#{t\ 2184}#
                                         (call-with-values
                                           (lambda ()
                                             (#{search\ 2086}#
                                               #{id\ 2171}#
                                               (#{wrap-subst\ 381}#
                                                 #{w1\ 2172}#)
                                               #{marks\ 2176}#))
                                           (lambda (#{x\ 2186}#
                                                    .
                                                    #{ignore\ 2187}#)
                                             #{x\ 2186}#))))
                                   (if #{t\ 2184}#
                                     #{t\ 2184}#
                                     #{id\ 2171}#))))))))
                     (syntax-violation
                       'id-var-name
                       "invalid id"
                       #{id\ 2080}#))))))
           (#{same-marks?\ 427}#
             (lambda (#{x\ 2192}# #{y\ 2193}#)
               (let ((#{t\ 2198}# (eq? #{x\ 2192}# #{y\ 2193}#)))
                 (if #{t\ 2198}#
                   #{t\ 2198}#
                   (if (not (null? #{x\ 2192}#))
                     (if (not (null? #{y\ 2193}#))
                       (if (eq? (car #{x\ 2192}#) (car #{y\ 2193}#))
                         (#{same-marks?\ 427}#
                           (cdr #{x\ 2192}#)
                           (cdr #{y\ 2193}#))
                         #f)
                       #f)
                     #f)))))
           (#{join-marks\ 425}#
             (lambda (#{m1\ 2204}# #{m2\ 2205}#)
               (#{smart-append\ 421}# #{m1\ 2204}# #{m2\ 2205}#)))
           (#{join-wraps\ 423}#
             (lambda (#{w1\ 2208}# #{w2\ 2209}#)
               (let ((#{m1\ 2214}# (#{wrap-marks\ 379}# #{w1\ 2208}#))
                     (#{s1\ 2215}# (#{wrap-subst\ 381}# #{w1\ 2208}#)))
                 (if (null? #{m1\ 2214}#)
                   (if (null? #{s1\ 2215}#)
                     #{w2\ 2209}#
                     (#{make-wrap\ 377}#
                       (#{wrap-marks\ 379}# #{w2\ 2209}#)
                       (#{smart-append\ 421}#
                         #{s1\ 2215}#
                         (#{wrap-subst\ 381}# #{w2\ 2209}#))))
                   (#{make-wrap\ 377}#
                     (#{smart-append\ 421}#
                       #{m1\ 2214}#
                       (#{wrap-marks\ 379}# #{w2\ 2209}#))
                     (#{smart-append\ 421}#
                       #{s1\ 2215}#
                       (#{wrap-subst\ 381}# #{w2\ 2209}#)))))))
           (#{smart-append\ 421}#
             (lambda (#{m1\ 2216}# #{m2\ 2217}#)
               (if (null? #{m2\ 2217}#)
                 #{m1\ 2216}#
                 (append #{m1\ 2216}# #{m2\ 2217}#))))
           (#{make-binding-wrap\ 419}#
             (lambda (#{ids\ 2220}# #{labels\ 2221}# #{w\ 2222}#)
               (if (null? #{ids\ 2220}#)
                 #{w\ 2222}#
                 (#{make-wrap\ 377}#
                   (#{wrap-marks\ 379}# #{w\ 2222}#)
                   (cons (let ((#{labelvec\ 2227}#
                                 (list->vector #{labels\ 2221}#)))
                           (let ((#{n\ 2229}#
                                   (vector-length #{labelvec\ 2227}#)))
                             (let ((#{symnamevec\ 2232}#
                                     (make-vector #{n\ 2229}#))
                                   (#{marksvec\ 2233}#
                                     (make-vector #{n\ 2229}#)))
                               (begin
                                 (letrec ((#{f\ 2237}#
                                            (lambda (#{ids\ 2238}# #{i\ 2239}#)
                                              (if (not (null? #{ids\ 2238}#))
                                                (call-with-values
                                                  (lambda ()
                                                    (#{id-sym-name&marks\ 375}#
                                                      (car #{ids\ 2238}#)
                                                      #{w\ 2222}#))
                                                  (lambda (#{symname\ 2240}#
                                                           #{marks\ 2241}#)
                                                    (begin
                                                      (vector-set!
                                                        #{symnamevec\ 2232}#
                                                        #{i\ 2239}#
                                                        #{symname\ 2240}#)
                                                      (vector-set!
                                                        #{marksvec\ 2233}#
                                                        #{i\ 2239}#
                                                        #{marks\ 2241}#)
                                                      (#{f\ 2237}#
                                                        (cdr #{ids\ 2238}#)
                                                        (#{fx+\ 273}#
                                                          #{i\ 2239}#
                                                          1)))))))))
                                   (#{f\ 2237}# #{ids\ 2220}# 0))
                                 (#{make-ribcage\ 393}#
                                   #{symnamevec\ 2232}#
                                   #{marksvec\ 2233}#
                                   #{labelvec\ 2227}#)))))
                         (#{wrap-subst\ 381}# #{w\ 2222}#))))))
           (#{extend-ribcage!\ 417}#
             (lambda (#{ribcage\ 2244}# #{id\ 2245}# #{label\ 2246}#)
               (begin
                 (#{set-ribcage-symnames!\ 403}#
                   #{ribcage\ 2244}#
                   (cons (#{syntax-object-expression\ 338}# #{id\ 2245}#)
                         (#{ribcage-symnames\ 397}# #{ribcage\ 2244}#)))
                 (#{set-ribcage-marks!\ 405}#
                   #{ribcage\ 2244}#
                   (cons (#{wrap-marks\ 379}#
                           (#{syntax-object-wrap\ 340}# #{id\ 2245}#))
                         (#{ribcage-marks\ 399}# #{ribcage\ 2244}#)))
                 (#{set-ribcage-labels!\ 407}#
                   #{ribcage\ 2244}#
                   (cons #{label\ 2246}#
                         (#{ribcage-labels\ 401}# #{ribcage\ 2244}#))))))
           (#{anti-mark\ 413}#
             (lambda (#{w\ 2250}#)
               (#{make-wrap\ 377}#
                 (cons #f (#{wrap-marks\ 379}# #{w\ 2250}#))
                 (cons 'shift
                       (#{wrap-subst\ 381}# #{w\ 2250}#)))))
           (#{set-ribcage-labels!\ 407}#
             (lambda (#{x\ 2253}# #{update\ 2254}#)
               (vector-set! #{x\ 2253}# 3 #{update\ 2254}#)))
           (#{set-ribcage-marks!\ 405}#
             (lambda (#{x\ 2257}# #{update\ 2258}#)
               (vector-set! #{x\ 2257}# 2 #{update\ 2258}#)))
           (#{set-ribcage-symnames!\ 403}#
             (lambda (#{x\ 2261}# #{update\ 2262}#)
               (vector-set! #{x\ 2261}# 1 #{update\ 2262}#)))
           (#{ribcage-labels\ 401}#
             (lambda (#{x\ 2265}#) (vector-ref #{x\ 2265}# 3)))
           (#{ribcage-marks\ 399}#
             (lambda (#{x\ 2267}#) (vector-ref #{x\ 2267}# 2)))
           (#{ribcage-symnames\ 397}#
             (lambda (#{x\ 2269}#) (vector-ref #{x\ 2269}# 1)))
           (#{ribcage?\ 395}#
             (lambda (#{x\ 2271}#)
               (if (vector? #{x\ 2271}#)
                 (if (= (vector-length #{x\ 2271}#) 4)
                   (eq? (vector-ref #{x\ 2271}# 0) (quote ribcage))
                   #f)
                 #f)))
           (#{make-ribcage\ 393}#
             (lambda (#{symnames\ 2276}#
                      #{marks\ 2277}#
                      #{labels\ 2278}#)
               (vector
                 'ribcage
                 #{symnames\ 2276}#
                 #{marks\ 2277}#
                 #{labels\ 2278}#)))
           (#{gen-labels\ 390}#
             (lambda (#{ls\ 2282}#)
               (if (null? #{ls\ 2282}#)
                 '()
                 (cons (#{gen-label\ 388}#)
                       (#{gen-labels\ 390}# (cdr #{ls\ 2282}#))))))
           (#{gen-label\ 388}#
             (lambda () (symbol->string (gensym "i"))))
           (#{wrap-subst\ 381}# cdr)
           (#{wrap-marks\ 379}# car)
           (#{make-wrap\ 377}# cons)
           (#{id-sym-name&marks\ 375}#
             (lambda (#{x\ 2284}# #{w\ 2285}#)
               (if (#{syntax-object?\ 336}# #{x\ 2284}#)
                 (values
                   (#{syntax-object-expression\ 338}# #{x\ 2284}#)
                   (#{join-marks\ 425}#
                     (#{wrap-marks\ 379}# #{w\ 2285}#)
                     (#{wrap-marks\ 379}#
                       (#{syntax-object-wrap\ 340}# #{x\ 2284}#))))
                 (values
                   #{x\ 2284}#
                   (#{wrap-marks\ 379}# #{w\ 2285}#)))))
           (#{id?\ 372}#
             (lambda (#{x\ 2288}#)
               (if (symbol? #{x\ 2288}#)
                 #t
                 (if (#{syntax-object?\ 336}# #{x\ 2288}#)
                   (symbol?
                     (#{syntax-object-expression\ 338}# #{x\ 2288}#))
                   #f))))
           (#{nonsymbol-id?\ 370}#
             (lambda (#{x\ 2295}#)
               (if (#{syntax-object?\ 336}# #{x\ 2295}#)
                 (symbol?
                   (#{syntax-object-expression\ 338}# #{x\ 2295}#))
                 #f)))
           (#{global-extend\ 368}#
             (lambda (#{type\ 2299}# #{sym\ 2300}# #{val\ 2301}#)
               (#{put-global-definition-hook\ 286}#
                 #{sym\ 2300}#
                 #{type\ 2299}#
                 #{val\ 2301}#)))
           (#{lookup\ 366}#
             (lambda (#{x\ 2305}# #{r\ 2306}# #{mod\ 2307}#)
               (let ((#{t\ 2313}# (assq #{x\ 2305}# #{r\ 2306}#)))
                 (if #{t\ 2313}#
                   (cdr #{t\ 2313}#)
                   (if (symbol? #{x\ 2305}#)
                     (let ((#{t\ 2319}#
                             (#{get-global-definition-hook\ 288}#
                               #{x\ 2305}#
                               #{mod\ 2307}#)))
                       (if #{t\ 2319}# #{t\ 2319}# (quote (global))))
                     '(displaced-lexical))))))
           (#{macros-only-env\ 364}#
             (lambda (#{r\ 2324}#)
               (if (null? #{r\ 2324}#)
                 '()
                 (let ((#{a\ 2327}# (car #{r\ 2324}#)))
                   (if (eq? (cadr #{a\ 2327}#) (quote macro))
                     (cons #{a\ 2327}#
                           (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))
                     (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))))))
           (#{extend-var-env\ 362}#
             (lambda (#{labels\ 2328}# #{vars\ 2329}# #{r\ 2330}#)
               (if (null? #{labels\ 2328}#)
                 #{r\ 2330}#
                 (#{extend-var-env\ 362}#
                   (cdr #{labels\ 2328}#)
                   (cdr #{vars\ 2329}#)
                   (cons (cons (car #{labels\ 2328}#)
                               (cons (quote lexical) (car #{vars\ 2329}#)))
                         #{r\ 2330}#)))))
           (#{extend-env\ 360}#
             (lambda (#{labels\ 2335}# #{bindings\ 2336}# #{r\ 2337}#)
               (if (null? #{labels\ 2335}#)
                 #{r\ 2337}#
                 (#{extend-env\ 360}#
                   (cdr #{labels\ 2335}#)
                   (cdr #{bindings\ 2336}#)
                   (cons (cons (car #{labels\ 2335}#)
                               (car #{bindings\ 2336}#))
                         #{r\ 2337}#)))))
           (#{binding-value\ 357}# cdr)
           (#{binding-type\ 355}# car)
           (#{source-annotation\ 351}#
             (lambda (#{x\ 2341}#)
               (if (#{syntax-object?\ 336}# #{x\ 2341}#)
                 (#{source-annotation\ 351}#
                   (#{syntax-object-expression\ 338}# #{x\ 2341}#))
                 (if (pair? #{x\ 2341}#)
                   (let ((#{props\ 2348}# (source-properties #{x\ 2341}#)))
                     (if (pair? #{props\ 2348}#) #{props\ 2348}# #f))
                   #f))))
           (#{set-syntax-object-module!\ 348}#
             (lambda (#{x\ 2350}# #{update\ 2351}#)
               (vector-set! #{x\ 2350}# 3 #{update\ 2351}#)))
           (#{set-syntax-object-wrap!\ 346}#
             (lambda (#{x\ 2354}# #{update\ 2355}#)
               (vector-set! #{x\ 2354}# 2 #{update\ 2355}#)))
           (#{set-syntax-object-expression!\ 344}#
             (lambda (#{x\ 2358}# #{update\ 2359}#)
               (vector-set! #{x\ 2358}# 1 #{update\ 2359}#)))
           (#{syntax-object-module\ 342}#
             (lambda (#{x\ 2362}#) (vector-ref #{x\ 2362}# 3)))
           (#{syntax-object-wrap\ 340}#
             (lambda (#{x\ 2364}#) (vector-ref #{x\ 2364}# 2)))
           (#{syntax-object-expression\ 338}#
             (lambda (#{x\ 2366}#) (vector-ref #{x\ 2366}# 1)))
           (#{syntax-object?\ 336}#
             (lambda (#{x\ 2368}#)
               (if (vector? #{x\ 2368}#)
                 (if (= (vector-length #{x\ 2368}#) 4)
                   (eq? (vector-ref #{x\ 2368}# 0)
                        'syntax-object)
                   #f)
                 #f)))
           (#{make-syntax-object\ 334}#
             (lambda (#{expression\ 2373}#
                      #{wrap\ 2374}#
                      #{module\ 2375}#)
               (vector
                 'syntax-object
                 #{expression\ 2373}#
                 #{wrap\ 2374}#
                 #{module\ 2375}#)))
           (#{build-letrec\ 330}#
             (lambda (#{src\ 2379}#
                      #{ids\ 2380}#
                      #{vars\ 2381}#
                      #{val-exps\ 2382}#
                      #{body-exp\ 2383}#)
               (if (null? #{vars\ 2381}#)
                 #{body-exp\ 2383}#
                 (begin
                   (for-each
                     #{maybe-name-value!\ 310}#
                     #{ids\ 2380}#
                     #{val-exps\ 2382}#)
                   (#{make-letrec\ 262}#
                     #{src\ 2379}#
                     #{ids\ 2380}#
                     #{vars\ 2381}#
                     #{val-exps\ 2382}#
                     #{body-exp\ 2383}#)))))
           (#{build-named-let\ 328}#
             (lambda (#{src\ 2389}#
                      #{ids\ 2390}#
                      #{vars\ 2391}#
                      #{val-exps\ 2392}#
                      #{body-exp\ 2393}#)
               (let ((#{f\ 2403}# (car #{vars\ 2391}#))
                     (#{f-name\ 2404}# (car #{ids\ 2390}#))
                     (#{vars\ 2405}# (cdr #{vars\ 2391}#))
                     (#{ids\ 2406}# (cdr #{ids\ 2390}#)))
                 (let ((#{proc\ 2408}#
                         (#{build-simple-lambda\ 314}#
                           #{src\ 2389}#
                           #{ids\ 2406}#
                           #f
                           #{vars\ 2405}#
                           '()
                           #{body-exp\ 2393}#)))
                   (begin
                     (#{maybe-name-value!\ 310}#
                       #{f-name\ 2404}#
                       #{proc\ 2408}#)
                     (for-each
                       #{maybe-name-value!\ 310}#
                       #{ids\ 2406}#
                       #{val-exps\ 2392}#)
                     (#{make-letrec\ 262}#
                       #{src\ 2389}#
                       (list #{f-name\ 2404}#)
                       (list #{f\ 2403}#)
                       (list #{proc\ 2408}#)
                       (#{build-application\ 294}#
                         #{src\ 2389}#
                         (#{build-lexical-reference\ 300}#
                           'fun
                           #{src\ 2389}#
                           #{f-name\ 2404}#
                           #{f\ 2403}#)
                         #{val-exps\ 2392}#)))))))
           (#{build-let\ 326}#
             (lambda (#{src\ 2409}#
                      #{ids\ 2410}#
                      #{vars\ 2411}#
                      #{val-exps\ 2412}#
                      #{body-exp\ 2413}#)
               (begin
                 (for-each
                   #{maybe-name-value!\ 310}#
                   #{ids\ 2410}#
                   #{val-exps\ 2412}#)
                 (if (null? #{vars\ 2411}#)
                   #{body-exp\ 2413}#
                   (#{make-let\ 260}#
                     #{src\ 2409}#
                     #{ids\ 2410}#
                     #{vars\ 2411}#
                     #{val-exps\ 2412}#
                     #{body-exp\ 2413}#)))))
           (#{build-sequence\ 324}#
             (lambda (#{src\ 2419}# #{exps\ 2420}#)
               (if (null? (cdr #{exps\ 2420}#))
                 (car #{exps\ 2420}#)
                 (#{make-sequence\ 254}#
                   #{src\ 2419}#
                   #{exps\ 2420}#))))
           (#{build-data\ 322}#
             (lambda (#{src\ 2423}# #{exp\ 2424}#)
               (#{make-const\ 232}# #{src\ 2423}# #{exp\ 2424}#)))
           (#{build-primref\ 320}#
             (lambda (#{src\ 2427}# #{name\ 2428}#)
               (if (equal?
                     (module-name (current-module))
                     '(guile))
                 (#{make-toplevel-ref\ 244}#
                   #{src\ 2427}#
                   #{name\ 2428}#)
                 (#{make-module-ref\ 240}#
                   #{src\ 2427}#
                   '(guile)
                   #{name\ 2428}#
                   #f))))
           (#{build-lambda-case\ 318}#
             (lambda (#{src\ 2431}#
                      #{req\ 2432}#
                      #{opt\ 2433}#
                      #{rest\ 2434}#
                      #{kw\ 2435}#
                      #{inits\ 2436}#
                      #{vars\ 2437}#
                      #{body\ 2438}#
                      #{else-case\ 2439}#)
               (#{make-lambda-case\ 258}#
                 #{src\ 2431}#
                 #{req\ 2432}#
                 #{opt\ 2433}#
                 #{rest\ 2434}#
                 #{kw\ 2435}#
                 #{inits\ 2436}#
                 #{vars\ 2437}#
                 #{body\ 2438}#
                 #{else-case\ 2439}#)))
           (#{build-case-lambda\ 316}#
             (lambda (#{src\ 2449}# #{meta\ 2450}# #{body\ 2451}#)
               (#{make-lambda\ 256}#
                 #{src\ 2449}#
                 #{meta\ 2450}#
                 #{body\ 2451}#)))
           (#{build-simple-lambda\ 314}#
             (lambda (#{src\ 2455}#
                      #{req\ 2456}#
                      #{rest\ 2457}#
                      #{vars\ 2458}#
                      #{meta\ 2459}#
                      #{exp\ 2460}#)
               (#{make-lambda\ 256}#
                 #{src\ 2455}#
                 #{meta\ 2459}#
                 (#{make-lambda-case\ 258}#
                   #{src\ 2455}#
                   #{req\ 2456}#
                   #f
                   #{rest\ 2457}#
                   #f
                   '()
                   #{vars\ 2458}#
                   #{exp\ 2460}#
                   #f))))
           (#{build-global-definition\ 312}#
             (lambda (#{source\ 2467}# #{var\ 2468}# #{exp\ 2469}#)
               (begin
                 (#{maybe-name-value!\ 310}#
                   #{var\ 2468}#
                   #{exp\ 2469}#)
                 (#{make-toplevel-define\ 248}#
                   #{source\ 2467}#
                   #{var\ 2468}#
                   #{exp\ 2469}#))))
           (#{maybe-name-value!\ 310}#
             (lambda (#{name\ 2473}# #{val\ 2474}#)
               (if (#{lambda?\ 267}# #{val\ 2474}#)
                 (let ((#{meta\ 2478}#
                         (#{lambda-meta\ 269}# #{val\ 2474}#)))
                   (if (not (assq (quote name) #{meta\ 2478}#))
                     (#{set-lambda-meta!\ 271}#
                       #{val\ 2474}#
                       (acons 'name
                              #{name\ 2473}#
                              #{meta\ 2478}#)))))))
           (#{build-global-assignment\ 308}#
             (lambda (#{source\ 2479}#
                      #{var\ 2480}#
                      #{exp\ 2481}#
                      #{mod\ 2482}#)
               (#{analyze-variable\ 304}#
                 #{mod\ 2482}#
                 #{var\ 2480}#
                 (lambda (#{mod\ 2487}# #{var\ 2488}# #{public?\ 2489}#)
                   (#{make-module-set\ 242}#
                     #{source\ 2479}#
                     #{mod\ 2487}#
                     #{var\ 2488}#
                     #{public?\ 2489}#
                     #{exp\ 2481}#))
                 (lambda (#{var\ 2493}#)
                   (#{make-toplevel-set\ 246}#
                     #{source\ 2479}#
                     #{var\ 2493}#
                     #{exp\ 2481}#)))))
           (#{build-global-reference\ 306}#
             (lambda (#{source\ 2495}# #{var\ 2496}# #{mod\ 2497}#)
               (#{analyze-variable\ 304}#
                 #{mod\ 2497}#
                 #{var\ 2496}#
                 (lambda (#{mod\ 2501}# #{var\ 2502}# #{public?\ 2503}#)
                   (#{make-module-ref\ 240}#
                     #{source\ 2495}#
                     #{mod\ 2501}#
                     #{var\ 2502}#
                     #{public?\ 2503}#))
                 (lambda (#{var\ 2507}#)
                   (#{make-toplevel-ref\ 244}#
                     #{source\ 2495}#
                     #{var\ 2507}#)))))
           (#{analyze-variable\ 304}#
             (lambda (#{mod\ 2509}#
                      #{var\ 2510}#
                      #{modref-cont\ 2511}#
                      #{bare-cont\ 2512}#)
               (if (not #{mod\ 2509}#)
                 (#{bare-cont\ 2512}# #{var\ 2510}#)
                 (let ((#{kind\ 2519}# (car #{mod\ 2509}#))
                       (#{mod\ 2520}# (cdr #{mod\ 2509}#)))
                   (if (memv #{kind\ 2519}# (quote (public)))
                     (#{modref-cont\ 2511}#
                       #{mod\ 2520}#
                       #{var\ 2510}#
                       #t)
                     (if (memv #{kind\ 2519}# (quote (private)))
                       (if (not (equal?
                                  #{mod\ 2520}#
                                  (module-name (current-module))))
                         (#{modref-cont\ 2511}#
                           #{mod\ 2520}#
                           #{var\ 2510}#
                           #f)
                         (#{bare-cont\ 2512}# #{var\ 2510}#))
                       (if (memv #{kind\ 2519}# (quote (bare)))
                         (#{bare-cont\ 2512}# #{var\ 2510}#)
                         (if (memv #{kind\ 2519}# (quote (hygiene)))
                           (if (if (not (equal?
                                          #{mod\ 2520}#
                                          (module-name (current-module))))
                                 (module-variable
                                   (resolve-module #{mod\ 2520}#)
                                   #{var\ 2510}#)
                                 #f)
                             (#{modref-cont\ 2511}#
                               #{mod\ 2520}#
                               #{var\ 2510}#
                               #f)
                             (#{bare-cont\ 2512}# #{var\ 2510}#))
                           (syntax-violation
                             #f
                             "bad module kind"
                             #{var\ 2510}#
                             #{mod\ 2520}#)))))))))
           (#{build-lexical-assignment\ 302}#
             (lambda (#{source\ 2528}#
                      #{name\ 2529}#
                      #{var\ 2530}#
                      #{exp\ 2531}#)
               (#{make-lexical-set\ 238}#
                 #{source\ 2528}#
                 #{name\ 2529}#
                 #{var\ 2530}#
                 #{exp\ 2531}#)))
           (#{build-lexical-reference\ 300}#
             (lambda (#{type\ 2536}#
                      #{source\ 2537}#
                      #{name\ 2538}#
                      #{var\ 2539}#)
               (#{make-lexical-ref\ 236}#
                 #{source\ 2537}#
                 #{name\ 2538}#
                 #{var\ 2539}#)))
           (#{build-dynlet\ 298}#
             (lambda (#{source\ 2544}#
                      #{fluids\ 2545}#
                      #{vals\ 2546}#
                      #{body\ 2547}#)
               (#{make-dynlet\ 264}#
                 #{source\ 2544}#
                 #{fluids\ 2545}#
                 #{vals\ 2546}#
                 #{body\ 2547}#)))
           (#{build-conditional\ 296}#
             (lambda (#{source\ 2552}#
                      #{test-exp\ 2553}#
                      #{then-exp\ 2554}#
                      #{else-exp\ 2555}#)
               (#{make-conditional\ 250}#
                 #{source\ 2552}#
                 #{test-exp\ 2553}#
                 #{then-exp\ 2554}#
                 #{else-exp\ 2555}#)))
           (#{build-application\ 294}#
             (lambda (#{source\ 2560}#
                      #{fun-exp\ 2561}#
                      #{arg-exps\ 2562}#)
               (#{make-application\ 252}#
                 #{source\ 2560}#
                 #{fun-exp\ 2561}#
                 #{arg-exps\ 2562}#)))
           (#{build-void\ 292}#
             (lambda (#{source\ 2566}#)
               (#{make-void\ 230}# #{source\ 2566}#)))
           (#{decorate-source\ 290}#
             (lambda (#{e\ 2568}# #{s\ 2569}#)
               (begin
                 (if (if (pair? #{e\ 2568}#) #{s\ 2569}# #f)
                   (set-source-properties! #{e\ 2568}# #{s\ 2569}#))
                 #{e\ 2568}#)))
           (#{get-global-definition-hook\ 288}#
             (lambda (#{symbol\ 2574}# #{module\ 2575}#)
               (begin
                 (if (if (not #{module\ 2575}#) (current-module) #f)
                   (warn "module system is booted, we should have a module"
                         #{symbol\ 2574}#))
                 (let ((#{v\ 2581}#
                         (module-variable
                           (if #{module\ 2575}#
                             (resolve-module (cdr #{module\ 2575}#))
                             (current-module))
                           #{symbol\ 2574}#)))
                   (if #{v\ 2581}#
                     (if (variable-bound? #{v\ 2581}#)
                       (let ((#{val\ 2586}# (variable-ref #{v\ 2581}#)))
                         (if (macro? #{val\ 2586}#)
                           (if (macro-type #{val\ 2586}#)
                             (cons (macro-type #{val\ 2586}#)
                                   (macro-binding #{val\ 2586}#))
                             #f)
                           #f))
                       #f)
                     #f)))))
           (#{put-global-definition-hook\ 286}#
             (lambda (#{symbol\ 2590}# #{type\ 2591}# #{val\ 2592}#)
               (module-define!
                 (current-module)
                 #{symbol\ 2590}#
                 (make-syntax-transformer
                   #{symbol\ 2590}#
                   #{type\ 2591}#
                   #{val\ 2592}#))))
           (#{local-eval-hook\ 283}#
             (lambda (#{x\ 2596}# #{mod\ 2597}#)
               (primitive-eval #{x\ 2596}#)))
           (#{top-level-eval-hook\ 281}#
             (lambda (#{x\ 2600}# #{mod\ 2601}#)
               (primitive-eval #{x\ 2600}#)))
           (#{fx<\ 279}# <)
           (#{fx=\ 277}# =)
           (#{fx-\ 275}# -)
           (#{fx+\ 273}# +)
           (#{set-lambda-meta!\ 271}#
             (lambda (#{x\ 2604}# #{v\ 2605}#)
               (struct-set! #{x\ 2604}# 1 #{v\ 2605}#)))
           (#{lambda-meta\ 269}#
             (lambda (#{x\ 2608}#) (struct-ref #{x\ 2608}# 1)))
           (#{lambda?\ 267}#
             (lambda (#{x\ 2610}#)
               (if (struct? #{x\ 2610}#)
                 (eq? (struct-vtable #{x\ 2610}#)
                      (vector-ref %expanded-vtables 13))
                 #f)))
           (#{make-dynlet\ 264}#
             (lambda (#{src\ 2614}#
                      #{fluids\ 2615}#
                      #{vals\ 2616}#
                      #{body\ 2617}#)
               (make-struct
                 (vector-ref %expanded-vtables 17)
                 0
                 #{src\ 2614}#
                 #{fluids\ 2615}#
                 #{vals\ 2616}#
                 #{body\ 2617}#)))
           (#{make-letrec\ 262}#
             (lambda (#{src\ 2622}#
                      #{names\ 2623}#
                      #{gensyms\ 2624}#
                      #{vals\ 2625}#
                      #{body\ 2626}#)
               (make-struct
                 (vector-ref %expanded-vtables 16)
                 0
                 #{src\ 2622}#
                 #{names\ 2623}#
                 #{gensyms\ 2624}#
                 #{vals\ 2625}#
                 #{body\ 2626}#)))
           (#{make-let\ 260}#
             (lambda (#{src\ 2632}#
                      #{names\ 2633}#
                      #{gensyms\ 2634}#
                      #{vals\ 2635}#
                      #{body\ 2636}#)
               (make-struct
                 (vector-ref %expanded-vtables 15)
                 0
                 #{src\ 2632}#
                 #{names\ 2633}#
                 #{gensyms\ 2634}#
                 #{vals\ 2635}#
                 #{body\ 2636}#)))
           (#{make-lambda-case\ 258}#
             (lambda (#{src\ 2642}#
                      #{req\ 2643}#
                      #{opt\ 2644}#
                      #{rest\ 2645}#
                      #{kw\ 2646}#
                      #{inits\ 2647}#
                      #{gensyms\ 2648}#
                      #{body\ 2649}#
                      #{alternate\ 2650}#)
               (make-struct
                 (vector-ref %expanded-vtables 14)
                 0
                 #{src\ 2642}#
                 #{req\ 2643}#
                 #{opt\ 2644}#
                 #{rest\ 2645}#
                 #{kw\ 2646}#
                 #{inits\ 2647}#
                 #{gensyms\ 2648}#
                 #{body\ 2649}#
                 #{alternate\ 2650}#)))
           (#{make-lambda\ 256}#
             (lambda (#{src\ 2660}# #{meta\ 2661}# #{body\ 2662}#)
               (make-struct
                 (vector-ref %expanded-vtables 13)
                 0
                 #{src\ 2660}#
                 #{meta\ 2661}#
                 #{body\ 2662}#)))
           (#{make-sequence\ 254}#
             (lambda (#{src\ 2666}# #{exps\ 2667}#)
               (make-struct
                 (vector-ref %expanded-vtables 12)
                 0
                 #{src\ 2666}#
                 #{exps\ 2667}#)))
           (#{make-application\ 252}#
             (lambda (#{src\ 2670}# #{proc\ 2671}# #{args\ 2672}#)
               (make-struct
                 (vector-ref %expanded-vtables 11)
                 0
                 #{src\ 2670}#
                 #{proc\ 2671}#
                 #{args\ 2672}#)))
           (#{make-conditional\ 250}#
             (lambda (#{src\ 2676}#
                      #{test\ 2677}#
                      #{consequent\ 2678}#
                      #{alternate\ 2679}#)
               (make-struct
                 (vector-ref %expanded-vtables 10)
                 0
                 #{src\ 2676}#
                 #{test\ 2677}#
                 #{consequent\ 2678}#
                 #{alternate\ 2679}#)))
           (#{make-toplevel-define\ 248}#
             (lambda (#{src\ 2684}# #{name\ 2685}# #{exp\ 2686}#)
               (make-struct
                 (vector-ref %expanded-vtables 9)
                 0
                 #{src\ 2684}#
                 #{name\ 2685}#
                 #{exp\ 2686}#)))
           (#{make-toplevel-set\ 246}#
             (lambda (#{src\ 2690}# #{name\ 2691}# #{exp\ 2692}#)
               (make-struct
                 (vector-ref %expanded-vtables 8)
                 0
                 #{src\ 2690}#
                 #{name\ 2691}#
                 #{exp\ 2692}#)))
           (#{make-toplevel-ref\ 244}#
             (lambda (#{src\ 2696}# #{name\ 2697}#)
               (make-struct
                 (vector-ref %expanded-vtables 7)
                 0
                 #{src\ 2696}#
                 #{name\ 2697}#)))
           (#{make-module-set\ 242}#
             (lambda (#{src\ 2700}#
                      #{mod\ 2701}#
                      #{name\ 2702}#
                      #{public?\ 2703}#
                      #{exp\ 2704}#)
               (make-struct
                 (vector-ref %expanded-vtables 6)
                 0
                 #{src\ 2700}#
                 #{mod\ 2701}#
                 #{name\ 2702}#
                 #{public?\ 2703}#
                 #{exp\ 2704}#)))
           (#{make-module-ref\ 240}#
             (lambda (#{src\ 2710}#
                      #{mod\ 2711}#
                      #{name\ 2712}#
                      #{public?\ 2713}#)
               (make-struct
                 (vector-ref %expanded-vtables 5)
                 0
                 #{src\ 2710}#
                 #{mod\ 2711}#
                 #{name\ 2712}#
                 #{public?\ 2713}#)))
           (#{make-lexical-set\ 238}#
             (lambda (#{src\ 2718}#
                      #{name\ 2719}#
                      #{gensym\ 2720}#
                      #{exp\ 2721}#)
               (make-struct
                 (vector-ref %expanded-vtables 4)
                 0
                 #{src\ 2718}#
                 #{name\ 2719}#
                 #{gensym\ 2720}#
                 #{exp\ 2721}#)))
           (#{make-lexical-ref\ 236}#
             (lambda (#{src\ 2726}# #{name\ 2727}# #{gensym\ 2728}#)
               (make-struct
                 (vector-ref %expanded-vtables 3)
                 0
                 #{src\ 2726}#
                 #{name\ 2727}#
                 #{gensym\ 2728}#)))
           (#{make-primitive-ref\ 234}#
             (lambda (#{src\ 2732}# #{name\ 2733}#)
               (make-struct
                 (vector-ref %expanded-vtables 2)
                 0
                 #{src\ 2732}#
                 #{name\ 2733}#)))
           (#{make-const\ 232}#
             (lambda (#{src\ 2736}# #{exp\ 2737}#)
               (make-struct
                 (vector-ref %expanded-vtables 1)
                 0
                 #{src\ 2736}#
                 #{exp\ 2737}#)))
           (#{make-void\ 230}#
             (lambda (#{src\ 2740}#)
               (make-struct
                 (vector-ref %expanded-vtables 0)
                 0
                 #{src\ 2740}#))))
    (begin
      (#{global-extend\ 368}#
        'local-syntax
        'letrec-syntax
        #t)
      (#{global-extend\ 368}#
        'local-syntax
        'let-syntax
        #f)
      (#{global-extend\ 368}#
        'core
        'fluid-let-syntax
        (lambda (#{e\ 2742}#
                 #{r\ 2743}#
                 #{w\ 2744}#
                 #{s\ 2745}#
                 #{mod\ 2746}#)
          ((lambda (#{tmp\ 2752}#)
             ((lambda (#{tmp\ 2753}#)
                (if (if #{tmp\ 2753}#
                      (apply (lambda (#{_\ 2759}#
                                      #{var\ 2760}#
                                      #{val\ 2761}#
                                      #{e1\ 2762}#
                                      #{e2\ 2763}#)
                               (#{valid-bound-ids?\ 435}# #{var\ 2760}#))
                             #{tmp\ 2753}#)
                      #f)
                  (apply (lambda (#{_\ 2770}#
                                  #{var\ 2771}#
                                  #{val\ 2772}#
                                  #{e1\ 2773}#
                                  #{e2\ 2774}#)
                           (let ((#{names\ 2776}#
                                   (map (lambda (#{x\ 2777}#)
                                          (#{id-var-name\ 429}#
                                            #{x\ 2777}#
                                            #{w\ 2744}#))
                                        #{var\ 2771}#)))
                             (begin
                               (for-each
                                 (lambda (#{id\ 2780}# #{n\ 2781}#)
                                   (let ((#{atom-key\ 2786}#
                                           (#{binding-type\ 355}#
                                             (#{lookup\ 366}#
                                               #{n\ 2781}#
                                               #{r\ 2743}#
                                               #{mod\ 2746}#))))
                                     (if (memv #{atom-key\ 2786}#
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'fluid-let-syntax
                                         "identifier out of context"
                                         #{e\ 2742}#
                                         (#{source-wrap\ 443}#
                                           #{id\ 2780}#
                                           #{w\ 2744}#
                                           #{s\ 2745}#
                                           #{mod\ 2746}#)))))
                                 #{var\ 2771}#
                                 #{names\ 2776}#)
                               (#{chi-body\ 465}#
                                 (cons #{e1\ 2773}# #{e2\ 2774}#)
                                 (#{source-wrap\ 443}#
                                   #{e\ 2742}#
                                   #{w\ 2744}#
                                   #{s\ 2745}#
                                   #{mod\ 2746}#)
                                 (#{extend-env\ 360}#
                                   #{names\ 2776}#
                                   (let ((#{trans-r\ 2791}#
                                           (#{macros-only-env\ 364}#
                                             #{r\ 2743}#)))
                                     (map (lambda (#{x\ 2792}#)
                                            (cons 'macro
                                                  (#{eval-local-transformer\ 469}#
                                                    (#{chi\ 457}#
                                                      #{x\ 2792}#
                                                      #{trans-r\ 2791}#
                                                      #{w\ 2744}#
                                                      #{mod\ 2746}#)
                                                    #{mod\ 2746}#)))
                                          #{val\ 2772}#))
                                   #{r\ 2743}#)
                                 #{w\ 2744}#
                                 #{mod\ 2746}#))))
                         #{tmp\ 2753}#)
                  ((lambda (#{_\ 2797}#)
                     (syntax-violation
                       'fluid-let-syntax
                       "bad syntax"
                       (#{source-wrap\ 443}#
                         #{e\ 2742}#
                         #{w\ 2744}#
                         #{s\ 2745}#
                         #{mod\ 2746}#)))
                   #{tmp\ 2752}#)))
              ($sc-dispatch
                #{tmp\ 2752}#
                '(any #(each (any any)) any . each-any))))
           #{e\ 2742}#)))
      (#{global-extend\ 368}#
        'core
        'quote
        (lambda (#{e\ 2798}#
                 #{r\ 2799}#
                 #{w\ 2800}#
                 #{s\ 2801}#
                 #{mod\ 2802}#)
          ((lambda (#{tmp\ 2808}#)
             ((lambda (#{tmp\ 2809}#)
                (if #{tmp\ 2809}#
                  (apply (lambda (#{_\ 2812}# #{e\ 2813}#)
                           (#{build-data\ 322}#
                             #{s\ 2801}#
                             (#{strip\ 483}# #{e\ 2813}# #{w\ 2800}#)))
                         #{tmp\ 2809}#)
                  ((lambda (#{_\ 2815}#)
                     (syntax-violation
                       'quote
                       "bad syntax"
                       (#{source-wrap\ 443}#
                         #{e\ 2798}#
                         #{w\ 2800}#
                         #{s\ 2801}#
                         #{mod\ 2802}#)))
                   #{tmp\ 2808}#)))
              ($sc-dispatch #{tmp\ 2808}# (quote (any any)))))
           #{e\ 2798}#)))
      (#{global-extend\ 368}#
        'core
        'syntax
        (letrec ((#{regen\ 2831}#
                   (lambda (#{x\ 2832}#)
                     (let ((#{atom-key\ 2836}# (car #{x\ 2832}#)))
                       (if (memv #{atom-key\ 2836}# (quote (ref)))
                         (#{build-lexical-reference\ 300}#
                           'value
                           #f
                           (cadr #{x\ 2832}#)
                           (cadr #{x\ 2832}#))
                         (if (memv #{atom-key\ 2836}# (quote (primitive)))
                           (#{build-primref\ 320}# #f (cadr #{x\ 2832}#))
                           (if (memv #{atom-key\ 2836}# (quote (quote)))
                             (#{build-data\ 322}# #f (cadr #{x\ 2832}#))
                             (if (memv #{atom-key\ 2836}# (quote (lambda)))
                               (if (list? (cadr #{x\ 2832}#))
                                 (#{build-simple-lambda\ 314}#
                                   #f
                                   (cadr #{x\ 2832}#)
                                   #f
                                   (cadr #{x\ 2832}#)
                                   '()
                                   (#{regen\ 2831}# (caddr #{x\ 2832}#)))
                                 (error "how did we get here" #{x\ 2832}#))
                               (#{build-application\ 294}#
                                 #f
                                 (#{build-primref\ 320}# #f (car #{x\ 2832}#))
                                 (map #{regen\ 2831}#
                                      (cdr #{x\ 2832}#))))))))))
                 (#{gen-vector\ 2829}#
                   (lambda (#{x\ 2848}#)
                     (if (eq? (car #{x\ 2848}#) (quote list))
                       (cons (quote vector) (cdr #{x\ 2848}#))
                       (if (eq? (car #{x\ 2848}#) (quote quote))
                         (list 'quote
                               (list->vector (cadr #{x\ 2848}#)))
                         (list (quote list->vector) #{x\ 2848}#)))))
                 (#{gen-append\ 2827}#
                   (lambda (#{x\ 2858}# #{y\ 2859}#)
                     (if (equal? #{y\ 2859}# (quote (quote ())))
                       #{x\ 2858}#
                       (list (quote append) #{x\ 2858}# #{y\ 2859}#))))
                 (#{gen-cons\ 2825}#
                   (lambda (#{x\ 2863}# #{y\ 2864}#)
                     (let ((#{atom-key\ 2869}# (car #{y\ 2864}#)))
                       (if (memv #{atom-key\ 2869}# (quote (quote)))
                         (if (eq? (car #{x\ 2863}#) (quote quote))
                           (list 'quote
                                 (cons (cadr #{x\ 2863}#) (cadr #{y\ 2864}#)))
                           (if (eq? (cadr #{y\ 2864}#) (quote ()))
                             (list (quote list) #{x\ 2863}#)
                             (list (quote cons) #{x\ 2863}# #{y\ 2864}#)))
                         (if (memv #{atom-key\ 2869}# (quote (list)))
                           (cons 'list
                                 (cons #{x\ 2863}# (cdr #{y\ 2864}#)))
                           (list (quote cons) #{x\ 2863}# #{y\ 2864}#))))))
                 (#{gen-map\ 2823}#
                   (lambda (#{e\ 2878}# #{map-env\ 2879}#)
                     (let ((#{formals\ 2884}# (map cdr #{map-env\ 2879}#))
                           (#{actuals\ 2885}#
                             (map (lambda (#{x\ 2886}#)
                                    (list (quote ref) (car #{x\ 2886}#)))
                                  #{map-env\ 2879}#)))
                       (if (eq? (car #{e\ 2878}#) (quote ref))
                         (car #{actuals\ 2885}#)
                         (if (and-map
                               (lambda (#{x\ 2893}#)
                                 (if (eq? (car #{x\ 2893}#) (quote ref))
                                   (memq (cadr #{x\ 2893}#) #{formals\ 2884}#)
                                   #f))
                               (cdr #{e\ 2878}#))
                           (cons 'map
                                 (cons (list 'primitive
                                             (car #{e\ 2878}#))
                                       (map (let ((#{r\ 2899}#
                                                    (map cons
                                                         #{formals\ 2884}#
                                                         #{actuals\ 2885}#)))
                                              (lambda (#{x\ 2900}#)
                                                (cdr (assq (cadr #{x\ 2900}#)
                                                           #{r\ 2899}#))))
                                            (cdr #{e\ 2878}#))))
                           (cons 'map
                                 (cons (list 'lambda
                                             #{formals\ 2884}#
                                             #{e\ 2878}#)
                                       #{actuals\ 2885}#)))))))
                 (#{gen-mappend\ 2821}#
                   (lambda (#{e\ 2904}# #{map-env\ 2905}#)
                     (list 'apply
                           '(primitive append)
                           (#{gen-map\ 2823}# #{e\ 2904}# #{map-env\ 2905}#))))
                 (#{gen-ref\ 2819}#
                   (lambda (#{src\ 2909}#
                            #{var\ 2910}#
                            #{level\ 2911}#
                            #{maps\ 2912}#)
                     (if (#{fx=\ 277}# #{level\ 2911}# 0)
                       (values #{var\ 2910}# #{maps\ 2912}#)
                       (if (null? #{maps\ 2912}#)
                         (syntax-violation
                           'syntax
                           "missing ellipsis"
                           #{src\ 2909}#)
                         (call-with-values
                           (lambda ()
                             (#{gen-ref\ 2819}#
                               #{src\ 2909}#
                               #{var\ 2910}#
                               (#{fx-\ 275}# #{level\ 2911}# 1)
                               (cdr #{maps\ 2912}#)))
                           (lambda (#{outer-var\ 2917}# #{outer-maps\ 2918}#)
                             (let ((#{b\ 2922}#
                                     (assq #{outer-var\ 2917}#
                                           (car #{maps\ 2912}#))))
                               (if #{b\ 2922}#
                                 (values (cdr #{b\ 2922}#) #{maps\ 2912}#)
                                 (let ((#{inner-var\ 2924}#
                                         (#{gen-var\ 485}# (quote tmp))))
                                   (values
                                     #{inner-var\ 2924}#
                                     (cons (cons (cons #{outer-var\ 2917}#
                                                       #{inner-var\ 2924}#)
                                                 (car #{maps\ 2912}#))
                                           #{outer-maps\ 2918}#)))))))))))
                 (#{gen-syntax\ 2817}#
                   (lambda (#{src\ 2925}#
                            #{e\ 2926}#
                            #{r\ 2927}#
                            #{maps\ 2928}#
                            #{ellipsis?\ 2929}#
                            #{mod\ 2930}#)
                     (if (#{id?\ 372}# #{e\ 2926}#)
                       (let ((#{label\ 2938}#
                               (#{id-var-name\ 429}#
                                 #{e\ 2926}#
                                 '(()))))
                         (let ((#{b\ 2941}#
                                 (#{lookup\ 366}#
                                   #{label\ 2938}#
                                   #{r\ 2927}#
                                   #{mod\ 2930}#)))
                           (if (eq? (#{binding-type\ 355}# #{b\ 2941}#)
                                    'syntax)
                             (call-with-values
                               (lambda ()
                                 (let ((#{var.lev\ 2943}#
                                         (#{binding-value\ 357}# #{b\ 2941}#)))
                                   (#{gen-ref\ 2819}#
                                     #{src\ 2925}#
                                     (car #{var.lev\ 2943}#)
                                     (cdr #{var.lev\ 2943}#)
                                     #{maps\ 2928}#)))
                               (lambda (#{var\ 2944}# #{maps\ 2945}#)
                                 (values
                                   (list (quote ref) #{var\ 2944}#)
                                   #{maps\ 2945}#)))
                             (if (#{ellipsis?\ 2929}# #{e\ 2926}#)
                               (syntax-violation
                                 'syntax
                                 "misplaced ellipsis"
                                 #{src\ 2925}#)
                               (values
                                 (list (quote quote) #{e\ 2926}#)
                                 #{maps\ 2928}#)))))
                       ((lambda (#{tmp\ 2950}#)
                          ((lambda (#{tmp\ 2951}#)
                             (if (if #{tmp\ 2951}#
                                   (apply (lambda (#{dots\ 2954}# #{e\ 2955}#)
                                            (#{ellipsis?\ 2929}#
                                              #{dots\ 2954}#))
                                          #{tmp\ 2951}#)
                                   #f)
                               (apply (lambda (#{dots\ 2958}# #{e\ 2959}#)
                                        (#{gen-syntax\ 2817}#
                                          #{src\ 2925}#
                                          #{e\ 2959}#
                                          #{r\ 2927}#
                                          #{maps\ 2928}#
                                          (lambda (#{x\ 2960}#) #f)
                                          #{mod\ 2930}#))
                                      #{tmp\ 2951}#)
                               ((lambda (#{tmp\ 2962}#)
                                  (if (if #{tmp\ 2962}#
                                        (apply (lambda (#{x\ 2966}#
                                                        #{dots\ 2967}#
                                                        #{y\ 2968}#)
                                                 (#{ellipsis?\ 2929}#
                                                   #{dots\ 2967}#))
                                               #{tmp\ 2962}#)
                                        #f)
                                    (apply (lambda (#{x\ 2972}#
                                                    #{dots\ 2973}#
                                                    #{y\ 2974}#)
                                             (letrec ((#{f\ 2978}#
                                                        (lambda (#{y\ 2979}#
                                                                 #{k\ 2980}#)
                                                          ((lambda (#{tmp\ 2987}#)
                                                             ((lambda (#{tmp\ 2988}#)
                                                                (if (if #{tmp\ 2988}#
                                                                      (apply (lambda (#{dots\ 2991}#
                                                                                      #{y\ 2992}#)
                                                                               (#{ellipsis?\ 2929}#
                                                                                 #{dots\ 2991}#))
                                                                             #{tmp\ 2988}#)
                                                                      #f)
                                                                  (apply (lambda (#{dots\ 2995}#
                                                                                  #{y\ 2996}#)
                                                                           (#{f\ 2978}#
                                                                             #{y\ 2996}#
                                                                             (lambda (#{maps\ 2997}#)
                                                                               (call-with-values
                                                                                 (lambda ()
                                                                                   (#{k\ 2980}#
                                                                                     (cons '()
                                                                                           #{maps\ 2997}#)))
                                                                                 (lambda (#{x\ 2999}#
                                                                                          #{maps\ 3000}#)
                                                                                   (if (null? (car #{maps\ 3000}#))
                                                                                     (syntax-violation
                                                                                       'syntax
                                                                                       "extra ellipsis"
                                                                                       #{src\ 2925}#)
                                                                                     (values
                                                                                       (#{gen-mappend\ 2821}#
                                                                                         #{x\ 2999}#
                                                                                         (car #{maps\ 3000}#))
                                                                                       (cdr #{maps\ 3000}#))))))))
                                                                         #{tmp\ 2988}#)
                                                                  ((lambda (#{_\ 3004}#)
                                                                     (call-with-values
                                                                       (lambda ()
                                                                         (#{gen-syntax\ 2817}#
                                                                           #{src\ 2925}#
                                                                           #{y\ 2979}#
                                                                           #{r\ 2927}#
                                                                           #{maps\ 2928}#
                                                                           #{ellipsis?\ 2929}#
                                                                           #{mod\ 2930}#))
                                                                       (lambda (#{y\ 3005}#
                                                                                #{maps\ 3006}#)
                                                                         (call-with-values
                                                                           (lambda ()
                                                                             (#{k\ 2980}#
                                                                               #{maps\ 3006}#))
                                                                           (lambda (#{x\ 3009}#
                                                                                    #{maps\ 3010}#)
                                                                             (values
                                                                               (#{gen-append\ 2827}#
                                                                                 #{x\ 3009}#
                                                                                 #{y\ 3005}#)
                                                                               #{maps\ 3010}#))))))
                                                                   #{tmp\ 2987}#)))
                                                              ($sc-dispatch
                                                                #{tmp\ 2987}#
                                                                '(any . any))))
                                                           #{y\ 2979}#))))
                                               (#{f\ 2978}#
                                                 #{y\ 2974}#
                                                 (lambda (#{maps\ 2981}#)
                                                   (call-with-values
                                                     (lambda ()
                                                       (#{gen-syntax\ 2817}#
                                                         #{src\ 2925}#
                                                         #{x\ 2972}#
                                                         #{r\ 2927}#
                                                         (cons '()
                                                               #{maps\ 2981}#)
                                                         #{ellipsis?\ 2929}#
                                                         #{mod\ 2930}#))
                                                     (lambda (#{x\ 2983}#
                                                              #{maps\ 2984}#)
                                                       (if (null? (car #{maps\ 2984}#))
                                                         (syntax-violation
                                                           'syntax
                                                           "extra ellipsis"
                                                           #{src\ 2925}#)
                                                         (values
                                                           (#{gen-map\ 2823}#
                                                             #{x\ 2983}#
                                                             (car #{maps\ 2984}#))
                                                           (cdr #{maps\ 2984}#)))))))))
                                           #{tmp\ 2962}#)
                                    ((lambda (#{tmp\ 3013}#)
                                       (if #{tmp\ 3013}#
                                         (apply (lambda (#{x\ 3016}#
                                                         #{y\ 3017}#)
                                                  (call-with-values
                                                    (lambda ()
                                                      (#{gen-syntax\ 2817}#
                                                        #{src\ 2925}#
                                                        #{x\ 3016}#
                                                        #{r\ 2927}#
                                                        #{maps\ 2928}#
                                                        #{ellipsis?\ 2929}#
                                                        #{mod\ 2930}#))
                                                    (lambda (#{x\ 3018}#
                                                             #{maps\ 3019}#)
                                                      (call-with-values
                                                        (lambda ()
                                                          (#{gen-syntax\ 2817}#
                                                            #{src\ 2925}#
                                                            #{y\ 3017}#
                                                            #{r\ 2927}#
                                                            #{maps\ 3019}#
                                                            #{ellipsis?\ 2929}#
                                                            #{mod\ 2930}#))
                                                        (lambda (#{y\ 3022}#
                                                                 #{maps\ 3023}#)
                                                          (values
                                                            (#{gen-cons\ 2825}#
                                                              #{x\ 3018}#
                                                              #{y\ 3022}#)
                                                            #{maps\ 3023}#))))))
                                                #{tmp\ 3013}#)
                                         ((lambda (#{tmp\ 3026}#)
                                            (if #{tmp\ 3026}#
                                              (apply (lambda (#{e1\ 3029}#
                                                              #{e2\ 3030}#)
                                                       (call-with-values
                                                         (lambda ()
                                                           (#{gen-syntax\ 2817}#
                                                             #{src\ 2925}#
                                                             (cons #{e1\ 3029}#
                                                                   #{e2\ 3030}#)
                                                             #{r\ 2927}#
                                                             #{maps\ 2928}#
                                                             #{ellipsis?\ 2929}#
                                                             #{mod\ 2930}#))
                                                         (lambda (#{e\ 3032}#
                                                                  #{maps\ 3033}#)
                                                           (values
                                                             (#{gen-vector\ 2829}#
                                                               #{e\ 3032}#)
                                                             #{maps\ 3033}#))))
                                                     #{tmp\ 3026}#)
                                              ((lambda (#{_\ 3037}#)
                                                 (values
                                                   (list 'quote
                                                         #{e\ 2926}#)
                                                   #{maps\ 2928}#))
                                               #{tmp\ 2950}#)))
                                          ($sc-dispatch
                                            #{tmp\ 2950}#
                                            '#(vector (any . each-any))))))
                                     ($sc-dispatch
                                       #{tmp\ 2950}#
                                       '(any . any)))))
                                ($sc-dispatch
                                  #{tmp\ 2950}#
                                  '(any any . any)))))
                           ($sc-dispatch #{tmp\ 2950}# (quote (any any)))))
                        #{e\ 2926}#)))))
          (lambda (#{e\ 3039}#
                   #{r\ 3040}#
                   #{w\ 3041}#
                   #{s\ 3042}#
                   #{mod\ 3043}#)
            (let ((#{e\ 3050}#
                    (#{source-wrap\ 443}#
                      #{e\ 3039}#
                      #{w\ 3041}#
                      #{s\ 3042}#
                      #{mod\ 3043}#)))
              ((lambda (#{tmp\ 3051}#)
                 ((lambda (#{tmp\ 3052}#)
                    (if #{tmp\ 3052}#
                      (apply (lambda (#{_\ 3055}# #{x\ 3056}#)
                               (call-with-values
                                 (lambda ()
                                   (#{gen-syntax\ 2817}#
                                     #{e\ 3050}#
                                     #{x\ 3056}#
                                     #{r\ 3040}#
                                     '()
                                     #{ellipsis?\ 473}#
                                     #{mod\ 3043}#))
                                 (lambda (#{e\ 3057}# #{maps\ 3058}#)
                                   (#{regen\ 2831}# #{e\ 3057}#))))
                             #{tmp\ 3052}#)
                      ((lambda (#{_\ 3062}#)
                         (syntax-violation
                           'syntax
                           "bad `syntax' form"
                           #{e\ 3050}#))
                       #{tmp\ 3051}#)))
                  ($sc-dispatch #{tmp\ 3051}# (quote (any any)))))
               #{e\ 3050}#)))))
      (#{global-extend\ 368}#
        'core
        'lambda
        (lambda (#{e\ 3063}#
                 #{r\ 3064}#
                 #{w\ 3065}#
                 #{s\ 3066}#
                 #{mod\ 3067}#)
          ((lambda (#{tmp\ 3073}#)
             ((lambda (#{tmp\ 3074}#)
                (if #{tmp\ 3074}#
                  (apply (lambda (#{_\ 3079}#
                                  #{args\ 3080}#
                                  #{e1\ 3081}#
                                  #{e2\ 3082}#)
                           (call-with-values
                             (lambda ()
                               (#{lambda-formals\ 475}# #{args\ 3080}#))
                             (lambda (#{req\ 3083}#
                                      #{opt\ 3084}#
                                      #{rest\ 3085}#
                                      #{kw\ 3086}#)
                               (letrec ((#{lp\ 3094}#
                                          (lambda (#{body\ 3095}#
                                                   #{meta\ 3096}#)
                                            ((lambda (#{tmp\ 3098}#)
                                               ((lambda (#{tmp\ 3099}#)
                                                  (if (if #{tmp\ 3099}#
                                                        (apply (lambda (#{docstring\ 3103}#
                                                                        #{e1\ 3104}#
                                                                        #{e2\ 3105}#)
                                                                 (string?
                                                                   (syntax->datum
                                                                     #{docstring\ 3103}#)))
                                                               #{tmp\ 3099}#)
                                                        #f)
                                                    (apply (lambda (#{docstring\ 3109}#
                                                                    #{e1\ 3110}#
                                                                    #{e2\ 3111}#)
                                                             (#{lp\ 3094}#
                                                               (cons #{e1\ 3110}#
                                                                     #{e2\ 3111}#)
                                                               (append
                                                                 #{meta\ 3096}#
                                                                 (list (cons 'documentation
                                                                             (syntax->datum
                                                                               #{docstring\ 3109}#))))))
                                                           #{tmp\ 3099}#)
                                                    ((lambda (#{tmp\ 3114}#)
                                                       (if #{tmp\ 3114}#
                                                         (apply (lambda (#{k\ 3119}#
                                                                         #{v\ 3120}#
                                                                         #{e1\ 3121}#
                                                                         #{e2\ 3122}#)
                                                                  (#{lp\ 3094}#
                                                                    (cons #{e1\ 3121}#
                                                                          #{e2\ 3122}#)
                                                                    (append
                                                                      #{meta\ 3096}#
                                                                      (syntax->datum
                                                                        (map cons
                                                                             #{k\ 3119}#
                                                                             #{v\ 3120}#)))))
                                                                #{tmp\ 3114}#)
                                                         ((lambda (#{_\ 3127}#)
                                                            (#{chi-simple-lambda\ 477}#
                                                              #{e\ 3063}#
                                                              #{r\ 3064}#
                                                              #{w\ 3065}#
                                                              #{s\ 3066}#
                                                              #{mod\ 3067}#
                                                              #{req\ 3083}#
                                                              #{rest\ 3085}#
                                                              #{meta\ 3096}#
                                                              #{body\ 3095}#))
                                                          #{tmp\ 3098}#)))
                                                     ($sc-dispatch
                                                       #{tmp\ 3098}#
                                                       '(#(vector
                                                           #(each (any . any)))
                                                         any
                                                         .
                                                         each-any)))))
                                                ($sc-dispatch
                                                  #{tmp\ 3098}#
                                                  '(any any . each-any))))
                                             #{body\ 3095}#))))
                                 (#{lp\ 3094}#
                                   (cons #{e1\ 3081}# #{e2\ 3082}#)
                                   '())))))
                         #{tmp\ 3074}#)
                  ((lambda (#{_\ 3129}#)
                     (syntax-violation
                       'lambda
                       "bad lambda"
                       #{e\ 3063}#))
                   #{tmp\ 3073}#)))
              ($sc-dispatch
                #{tmp\ 3073}#
                '(any any any . each-any))))
           #{e\ 3063}#)))
      (#{global-extend\ 368}#
        'core
        'lambda*
        (lambda (#{e\ 3130}#
                 #{r\ 3131}#
                 #{w\ 3132}#
                 #{s\ 3133}#
                 #{mod\ 3134}#)
          ((lambda (#{tmp\ 3140}#)
             ((lambda (#{tmp\ 3141}#)
                (if #{tmp\ 3141}#
                  (apply (lambda (#{_\ 3146}#
                                  #{args\ 3147}#
                                  #{e1\ 3148}#
                                  #{e2\ 3149}#)
                           (call-with-values
                             (lambda ()
                               (#{chi-lambda-case\ 481}#
                                 #{e\ 3130}#
                                 #{r\ 3131}#
                                 #{w\ 3132}#
                                 #{s\ 3133}#
                                 #{mod\ 3134}#
                                 #{lambda*-formals\ 479}#
                                 (list (cons #{args\ 3147}#
                                             (cons #{e1\ 3148}#
                                                   #{e2\ 3149}#)))))
                             (lambda (#{meta\ 3151}# #{lcase\ 3152}#)
                               (#{build-case-lambda\ 316}#
                                 #{s\ 3133}#
                                 #{meta\ 3151}#
                                 #{lcase\ 3152}#))))
                         #{tmp\ 3141}#)
                  ((lambda (#{_\ 3156}#)
                     (syntax-violation
                       'lambda
                       "bad lambda*"
                       #{e\ 3130}#))
                   #{tmp\ 3140}#)))
              ($sc-dispatch
                #{tmp\ 3140}#
                '(any any any . each-any))))
           #{e\ 3130}#)))
      (#{global-extend\ 368}#
        'core
        'case-lambda
        (lambda (#{e\ 3157}#
                 #{r\ 3158}#
                 #{w\ 3159}#
                 #{s\ 3160}#
                 #{mod\ 3161}#)
          ((lambda (#{tmp\ 3167}#)
             ((lambda (#{tmp\ 3168}#)
                (if #{tmp\ 3168}#
                  (apply (lambda (#{_\ 3176}#
                                  #{args\ 3177}#
                                  #{e1\ 3178}#
                                  #{e2\ 3179}#
                                  #{args*\ 3180}#
                                  #{e1*\ 3181}#
                                  #{e2*\ 3182}#)
                           (call-with-values
                             (lambda ()
                               (#{chi-lambda-case\ 481}#
                                 #{e\ 3157}#
                                 #{r\ 3158}#
                                 #{w\ 3159}#
                                 #{s\ 3160}#
                                 #{mod\ 3161}#
                                 #{lambda-formals\ 475}#
                                 (cons (cons #{args\ 3177}#
                                             (cons #{e1\ 3178}# #{e2\ 3179}#))
                                       (map (lambda (#{tmp\ 3186}#
                                                     #{tmp\ 3185}#
                                                     #{tmp\ 3184}#)
                                              (cons #{tmp\ 3184}#
                                                    (cons #{tmp\ 3185}#
                                                          #{tmp\ 3186}#)))
                                            #{e2*\ 3182}#
                                            #{e1*\ 3181}#
                                            #{args*\ 3180}#))))
                             (lambda (#{meta\ 3188}# #{lcase\ 3189}#)
                               (#{build-case-lambda\ 316}#
                                 #{s\ 3160}#
                                 #{meta\ 3188}#
                                 #{lcase\ 3189}#))))
                         #{tmp\ 3168}#)
                  ((lambda (#{_\ 3193}#)
                     (syntax-violation
                       'case-lambda
                       "bad case-lambda"
                       #{e\ 3157}#))
                   #{tmp\ 3167}#)))
              ($sc-dispatch
                #{tmp\ 3167}#
                '(any (any any . each-any)
                      .
                      #(each (any any . each-any))))))
           #{e\ 3157}#)))
      (#{global-extend\ 368}#
        'core
        'case-lambda*
        (lambda (#{e\ 3194}#
                 #{r\ 3195}#
                 #{w\ 3196}#
                 #{s\ 3197}#
                 #{mod\ 3198}#)
          ((lambda (#{tmp\ 3204}#)
             ((lambda (#{tmp\ 3205}#)
                (if #{tmp\ 3205}#
                  (apply (lambda (#{_\ 3213}#
                                  #{args\ 3214}#
                                  #{e1\ 3215}#
                                  #{e2\ 3216}#
                                  #{args*\ 3217}#
                                  #{e1*\ 3218}#
                                  #{e2*\ 3219}#)
                           (call-with-values
                             (lambda ()
                               (#{chi-lambda-case\ 481}#
                                 #{e\ 3194}#
                                 #{r\ 3195}#
                                 #{w\ 3196}#
                                 #{s\ 3197}#
                                 #{mod\ 3198}#
                                 #{lambda*-formals\ 479}#
                                 (cons (cons #{args\ 3214}#
                                             (cons #{e1\ 3215}# #{e2\ 3216}#))
                                       (map (lambda (#{tmp\ 3223}#
                                                     #{tmp\ 3222}#
                                                     #{tmp\ 3221}#)
                                              (cons #{tmp\ 3221}#
                                                    (cons #{tmp\ 3222}#
                                                          #{tmp\ 3223}#)))
                                            #{e2*\ 3219}#
                                            #{e1*\ 3218}#
                                            #{args*\ 3217}#))))
                             (lambda (#{meta\ 3225}# #{lcase\ 3226}#)
                               (#{build-case-lambda\ 316}#
                                 #{s\ 3197}#
                                 #{meta\ 3225}#
                                 #{lcase\ 3226}#))))
                         #{tmp\ 3205}#)
                  ((lambda (#{_\ 3230}#)
                     (syntax-violation
                       'case-lambda
                       "bad case-lambda*"
                       #{e\ 3194}#))
                   #{tmp\ 3204}#)))
              ($sc-dispatch
                #{tmp\ 3204}#
                '(any (any any . each-any)
                      .
                      #(each (any any . each-any))))))
           #{e\ 3194}#)))
      (#{global-extend\ 368}#
        'core
        'let
        (letrec ((#{chi-let\ 3232}#
                   (lambda (#{e\ 3233}#
                            #{r\ 3234}#
                            #{w\ 3235}#
                            #{s\ 3236}#
                            #{mod\ 3237}#
                            #{constructor\ 3238}#
                            #{ids\ 3239}#
                            #{vals\ 3240}#
                            #{exps\ 3241}#)
                     (if (not (#{valid-bound-ids?\ 435}# #{ids\ 3239}#))
                       (syntax-violation
                         'let
                         "duplicate bound variable"
                         #{e\ 3233}#)
                       (let ((#{labels\ 3253}#
                               (#{gen-labels\ 390}# #{ids\ 3239}#))
                             (#{new-vars\ 3254}#
                               (map #{gen-var\ 485}# #{ids\ 3239}#)))
                         (let ((#{nw\ 3257}#
                                 (#{make-binding-wrap\ 419}#
                                   #{ids\ 3239}#
                                   #{labels\ 3253}#
                                   #{w\ 3235}#))
                               (#{nr\ 3258}#
                                 (#{extend-var-env\ 362}#
                                   #{labels\ 3253}#
                                   #{new-vars\ 3254}#
                                   #{r\ 3234}#)))
                           (#{constructor\ 3238}#
                             #{s\ 3236}#
                             (map syntax->datum #{ids\ 3239}#)
                             #{new-vars\ 3254}#
                             (map (lambda (#{x\ 3259}#)
                                    (#{chi\ 457}#
                                      #{x\ 3259}#
                                      #{r\ 3234}#
                                      #{w\ 3235}#
                                      #{mod\ 3237}#))
                                  #{vals\ 3240}#)
                             (#{chi-body\ 465}#
                               #{exps\ 3241}#
                               (#{source-wrap\ 443}#
                                 #{e\ 3233}#
                                 #{nw\ 3257}#
                                 #{s\ 3236}#
                                 #{mod\ 3237}#)
                               #{nr\ 3258}#
                               #{nw\ 3257}#
                               #{mod\ 3237}#))))))))
          (lambda (#{e\ 3261}#
                   #{r\ 3262}#
                   #{w\ 3263}#
                   #{s\ 3264}#
                   #{mod\ 3265}#)
            ((lambda (#{tmp\ 3271}#)
               ((lambda (#{tmp\ 3272}#)
                  (if (if #{tmp\ 3272}#
                        (apply (lambda (#{_\ 3278}#
                                        #{id\ 3279}#
                                        #{val\ 3280}#
                                        #{e1\ 3281}#
                                        #{e2\ 3282}#)
                                 (and-map #{id?\ 372}# #{id\ 3279}#))
                               #{tmp\ 3272}#)
                        #f)
                    (apply (lambda (#{_\ 3289}#
                                    #{id\ 3290}#
                                    #{val\ 3291}#
                                    #{e1\ 3292}#
                                    #{e2\ 3293}#)
                             (#{chi-let\ 3232}#
                               #{e\ 3261}#
                               #{r\ 3262}#
                               #{w\ 3263}#
                               #{s\ 3264}#
                               #{mod\ 3265}#
                               #{build-let\ 326}#
                               #{id\ 3290}#
                               #{val\ 3291}#
                               (cons #{e1\ 3292}# #{e2\ 3293}#)))
                           #{tmp\ 3272}#)
                    ((lambda (#{tmp\ 3297}#)
                       (if (if #{tmp\ 3297}#
                             (apply (lambda (#{_\ 3304}#
                                             #{f\ 3305}#
                                             #{id\ 3306}#
                                             #{val\ 3307}#
                                             #{e1\ 3308}#
                                             #{e2\ 3309}#)
                                      (if (#{id?\ 372}# #{f\ 3305}#)
                                        (and-map #{id?\ 372}# #{id\ 3306}#)
                                        #f))
                                    #{tmp\ 3297}#)
                             #f)
                         (apply (lambda (#{_\ 3319}#
                                         #{f\ 3320}#
                                         #{id\ 3321}#
                                         #{val\ 3322}#
                                         #{e1\ 3323}#
                                         #{e2\ 3324}#)
                                  (#{chi-let\ 3232}#
                                    #{e\ 3261}#
                                    #{r\ 3262}#
                                    #{w\ 3263}#
                                    #{s\ 3264}#
                                    #{mod\ 3265}#
                                    #{build-named-let\ 328}#
                                    (cons #{f\ 3320}# #{id\ 3321}#)
                                    #{val\ 3322}#
                                    (cons #{e1\ 3323}# #{e2\ 3324}#)))
                                #{tmp\ 3297}#)
                         ((lambda (#{_\ 3329}#)
                            (syntax-violation
                              'let
                              "bad let"
                              (#{source-wrap\ 443}#
                                #{e\ 3261}#
                                #{w\ 3263}#
                                #{s\ 3264}#
                                #{mod\ 3265}#)))
                          #{tmp\ 3271}#)))
                     ($sc-dispatch
                       #{tmp\ 3271}#
                       '(any any #(each (any any)) any . each-any)))))
                ($sc-dispatch
                  #{tmp\ 3271}#
                  '(any #(each (any any)) any . each-any))))
             #{e\ 3261}#))))
      (#{global-extend\ 368}#
        'core
        'letrec
        (lambda (#{e\ 3330}#
                 #{r\ 3331}#
                 #{w\ 3332}#
                 #{s\ 3333}#
                 #{mod\ 3334}#)
          ((lambda (#{tmp\ 3340}#)
             ((lambda (#{tmp\ 3341}#)
                (if (if #{tmp\ 3341}#
                      (apply (lambda (#{_\ 3347}#
                                      #{id\ 3348}#
                                      #{val\ 3349}#
                                      #{e1\ 3350}#
                                      #{e2\ 3351}#)
                               (and-map #{id?\ 372}# #{id\ 3348}#))
                             #{tmp\ 3341}#)
                      #f)
                  (apply (lambda (#{_\ 3358}#
                                  #{id\ 3359}#
                                  #{val\ 3360}#
                                  #{e1\ 3361}#
                                  #{e2\ 3362}#)
                           (let ((#{ids\ 3364}# #{id\ 3359}#))
                             (if (not (#{valid-bound-ids?\ 435}#
                                        #{ids\ 3364}#))
                               (syntax-violation
                                 'letrec
                                 "duplicate bound variable"
                                 #{e\ 3330}#)
                               (let ((#{labels\ 3368}#
                                       (#{gen-labels\ 390}# #{ids\ 3364}#))
                                     (#{new-vars\ 3369}#
                                       (map #{gen-var\ 485}# #{ids\ 3364}#)))
                                 (let ((#{w\ 3372}#
                                         (#{make-binding-wrap\ 419}#
                                           #{ids\ 3364}#
                                           #{labels\ 3368}#
                                           #{w\ 3332}#))
                                       (#{r\ 3373}#
                                         (#{extend-var-env\ 362}#
                                           #{labels\ 3368}#
                                           #{new-vars\ 3369}#
                                           #{r\ 3331}#)))
                                   (#{build-letrec\ 330}#
                                     #{s\ 3333}#
                                     (map syntax->datum #{ids\ 3364}#)
                                     #{new-vars\ 3369}#
                                     (map (lambda (#{x\ 3374}#)
                                            (#{chi\ 457}#
                                              #{x\ 3374}#
                                              #{r\ 3373}#
                                              #{w\ 3372}#
                                              #{mod\ 3334}#))
                                          #{val\ 3360}#)
                                     (#{chi-body\ 465}#
                                       (cons #{e1\ 3361}# #{e2\ 3362}#)
                                       (#{source-wrap\ 443}#
                                         #{e\ 3330}#
                                         #{w\ 3372}#
                                         #{s\ 3333}#
                                         #{mod\ 3334}#)
                                       #{r\ 3373}#
                                       #{w\ 3372}#
                                       #{mod\ 3334}#)))))))
                         #{tmp\ 3341}#)
                  ((lambda (#{_\ 3379}#)
                     (syntax-violation
                       'letrec
                       "bad letrec"
                       (#{source-wrap\ 443}#
                         #{e\ 3330}#
                         #{w\ 3332}#
                         #{s\ 3333}#
                         #{mod\ 3334}#)))
                   #{tmp\ 3340}#)))
              ($sc-dispatch
                #{tmp\ 3340}#
                '(any #(each (any any)) any . each-any))))
           #{e\ 3330}#)))
      (#{global-extend\ 368}#
        'core
        'set!
        (lambda (#{e\ 3380}#
                 #{r\ 3381}#
                 #{w\ 3382}#
                 #{s\ 3383}#
                 #{mod\ 3384}#)
          ((lambda (#{tmp\ 3390}#)
             ((lambda (#{tmp\ 3391}#)
                (if (if #{tmp\ 3391}#
                      (apply (lambda (#{_\ 3395}# #{id\ 3396}# #{val\ 3397}#)
                               (#{id?\ 372}# #{id\ 3396}#))
                             #{tmp\ 3391}#)
                      #f)
                  (apply (lambda (#{_\ 3401}# #{id\ 3402}# #{val\ 3403}#)
                           (let ((#{val\ 3406}#
                                   (#{chi\ 457}#
                                     #{val\ 3403}#
                                     #{r\ 3381}#
                                     #{w\ 3382}#
                                     #{mod\ 3384}#))
                                 (#{n\ 3407}#
                                   (#{id-var-name\ 429}#
                                     #{id\ 3402}#
                                     #{w\ 3382}#)))
                             (let ((#{b\ 3409}#
                                     (#{lookup\ 366}#
                                       #{n\ 3407}#
                                       #{r\ 3381}#
                                       #{mod\ 3384}#)))
                               (let ((#{atom-key\ 3412}#
                                       (#{binding-type\ 355}# #{b\ 3409}#)))
                                 (if (memv #{atom-key\ 3412}#
                                           '(lexical))
                                   (#{build-lexical-assignment\ 302}#
                                     #{s\ 3383}#
                                     (syntax->datum #{id\ 3402}#)
                                     (#{binding-value\ 357}# #{b\ 3409}#)
                                     #{val\ 3406}#)
                                   (if (memv #{atom-key\ 3412}#
                                             '(global))
                                     (#{build-global-assignment\ 308}#
                                       #{s\ 3383}#
                                       #{n\ 3407}#
                                       #{val\ 3406}#
                                       #{mod\ 3384}#)
                                     (if (memv #{atom-key\ 3412}#
                                               '(displaced-lexical))
                                       (syntax-violation
                                         'set!
                                         "identifier out of context"
                                         (#{wrap\ 441}#
                                           #{id\ 3402}#
                                           #{w\ 3382}#
                                           #{mod\ 3384}#))
                                       (syntax-violation
                                         'set!
                                         "bad set!"
                                         (#{source-wrap\ 443}#
                                           #{e\ 3380}#
                                           #{w\ 3382}#
                                           #{s\ 3383}#
                                           #{mod\ 3384}#)))))))))
                         #{tmp\ 3391}#)
                  ((lambda (#{tmp\ 3417}#)
                     (if #{tmp\ 3417}#
                       (apply (lambda (#{_\ 3422}#
                                       #{head\ 3423}#
                                       #{tail\ 3424}#
                                       #{val\ 3425}#)
                                (call-with-values
                                  (lambda ()
                                    (#{syntax-type\ 453}#
                                      #{head\ 3423}#
                                      #{r\ 3381}#
                                      '(())
                                      #f
                                      #f
                                      #{mod\ 3384}#
                                      #t))
                                  (lambda (#{type\ 3428}#
                                           #{value\ 3429}#
                                           #{ee\ 3430}#
                                           #{ww\ 3431}#
                                           #{ss\ 3432}#
                                           #{modmod\ 3433}#)
                                    (if (memv #{type\ 3428}#
                                              '(module-ref))
                                      (let ((#{val\ 3442}#
                                              (#{chi\ 457}#
                                                #{val\ 3425}#
                                                #{r\ 3381}#
                                                #{w\ 3382}#
                                                #{mod\ 3384}#)))
                                        (call-with-values
                                          (lambda ()
                                            (#{value\ 3429}#
                                              (cons #{head\ 3423}#
                                                    #{tail\ 3424}#)
                                              #{r\ 3381}#
                                              #{w\ 3382}#))
                                          (lambda (#{e\ 3444}#
                                                   #{r\ 3445}#
                                                   #{w\ 3446}#
                                                   #{s*\ 3447}#
                                                   #{mod\ 3448}#)
                                            ((lambda (#{tmp\ 3454}#)
                                               ((lambda (#{tmp\ 3455}#)
                                                  (if (if #{tmp\ 3455}#
                                                        (apply (lambda (#{e\ 3457}#)
                                                                 (#{id?\ 372}#
                                                                   #{e\ 3457}#))
                                                               #{tmp\ 3455}#)
                                                        #f)
                                                    (apply (lambda (#{e\ 3459}#)
                                                             (#{build-global-assignment\ 308}#
                                                               #{s\ 3383}#
                                                               (syntax->datum
                                                                 #{e\ 3459}#)
                                                               #{val\ 3442}#
                                                               #{mod\ 3448}#))
                                                           #{tmp\ 3455}#)
                                                    (syntax-violation
                                                      #f
                                                      "source expression failed to match any pattern"
                                                      #{tmp\ 3454}#)))
                                                (list #{tmp\ 3454}#)))
                                             #{e\ 3444}#))))
                                      (#{build-application\ 294}#
                                        #{s\ 3383}#
                                        (#{chi\ 457}#
                                          (list '#(syntax-object
                                                   setter
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(type
                                                        value
                                                        ee
                                                        ww
                                                        ss
                                                        modmod)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i3434"
                                                        "i3435"
                                                        "i3436"
                                                        "i3437"
                                                        "i3438"
                                                        "i3439"))
                                                    #(ribcage
                                                      #(_ head tail val)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i3418"
                                                        "i3419"
                                                        "i3420"
                                                        "i3421"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(e r w s mod)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i3385"
                                                        "i3386"
                                                        "i3387"
                                                        "i3388"
                                                        "i3389"))
                                                    #(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
                                                        chi-top
                                                        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
                                                        maybe-name-value!
                                                        build-global-assignment
                                                        build-global-reference
                                                        analyze-variable
                                                        build-lexical-assignment
                                                        build-lexical-reference
                                                        build-dynlet
                                                        build-conditional
                                                        build-application
                                                        build-void
                                                        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)
                                                       (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"
                                                       "i416"
                                                       "i415"
                                                       "i414"
                                                       "i412"
                                                       "i411"
                                                       "i410"
                                                       "i409"
                                                       "i408"
                                                       "i406"
                                                       "i404"
                                                       "i402"
                                                       "i400"
                                                       "i398"
                                                       "i396"
                                                       "i394"
                                                       "i392"
                                                       "i389"
                                                       "i387"
                                                       "i386"
                                                       "i385"
                                                       "i384"
                                                       "i383"
                                                       "i382"
                                                       "i380"
                                                       "i378"
                                                       "i376"
                                                       "i374"
                                                       "i373"
                                                       "i371"
                                                       "i369"
                                                       "i367"
                                                       "i365"
                                                       "i363"
                                                       "i361"
                                                       "i359"
                                                       "i358"
                                                       "i356"
                                                       "i354"
                                                       "i353"
                                                       "i352"
                                                       "i350"
                                                       "i349"
                                                       "i347"
                                                       "i345"
                                                       "i343"
                                                       "i341"
                                                       "i339"
                                                       "i337"
                                                       "i335"
                                                       "i333"
                                                       "i331"
                                                       "i329"
                                                       "i327"
                                                       "i325"
                                                       "i323"
                                                       "i321"
                                                       "i319"
                                                       "i317"
                                                       "i315"
                                                       "i313"
                                                       "i311"
                                                       "i309"
                                                       "i307"
                                                       "i305"
                                                       "i303"
                                                       "i301"
                                                       "i299"
                                                       "i297"
                                                       "i295"
                                                       "i293"
                                                       "i291"
                                                       "i289"
                                                       "i287"
                                                       "i285"
                                                       "i284"
                                                       "i282"
                                                       "i280"
                                                       "i278"
                                                       "i276"
                                                       "i274"
                                                       "i272"
                                                       "i270"
                                                       "i268"
                                                       "i266"
                                                       "i263"
                                                       "i261"
                                                       "i259"
                                                       "i257"
                                                       "i255"
                                                       "i253"
                                                       "i251"
                                                       "i249"
                                                       "i247"
                                                       "i245"
                                                       "i243"
                                                       "i241"
                                                       "i239"
                                                       "i237"
                                                       "i235"
                                                       "i233"
                                                       "i231"
                                                       "i229"))
                                                    #(ribcage
                                                      (define-structure
                                                        define-expansion-accessors
                                                        define-expansion-constructors
                                                        and-map*)
                                                      ((top) (top) (top) (top))
                                                      ("i23"
                                                       "i22"
                                                       "i21"
                                                       "i19")))
                                                   (hygiene guile))
                                                #{head\ 3423}#)
                                          #{r\ 3381}#
                                          #{w\ 3382}#
                                          #{mod\ 3384}#)
                                        (map (lambda (#{e\ 3461}#)
                                               (#{chi\ 457}#
                                                 #{e\ 3461}#
                                                 #{r\ 3381}#
                                                 #{w\ 3382}#
                                                 #{mod\ 3384}#))
                                             (append
                                               #{tail\ 3424}#
                                               (list #{val\ 3425}#))))))))
                              #{tmp\ 3417}#)
                       ((lambda (#{_\ 3465}#)
                          (syntax-violation
                            'set!
                            "bad set!"
                            (#{source-wrap\ 443}#
                              #{e\ 3380}#
                              #{w\ 3382}#
                              #{s\ 3383}#
                              #{mod\ 3384}#)))
                        #{tmp\ 3390}#)))
                   ($sc-dispatch
                     #{tmp\ 3390}#
                     '(any (any . each-any) any)))))
              ($sc-dispatch
                #{tmp\ 3390}#
                '(any any any))))
           #{e\ 3380}#)))
      (#{global-extend\ 368}#
        'module-ref
        '@
        (lambda (#{e\ 3466}# #{r\ 3467}# #{w\ 3468}#)
          ((lambda (#{tmp\ 3472}#)
             ((lambda (#{tmp\ 3473}#)
                (if (if #{tmp\ 3473}#
                      (apply (lambda (#{_\ 3477}# #{mod\ 3478}# #{id\ 3479}#)
                               (if (and-map #{id?\ 372}# #{mod\ 3478}#)
                                 (#{id?\ 372}# #{id\ 3479}#)
                                 #f))
                             #{tmp\ 3473}#)
                      #f)
                  (apply (lambda (#{_\ 3486}# #{mod\ 3487}# #{id\ 3488}#)
                           (values
                             (syntax->datum #{id\ 3488}#)
                             #{r\ 3467}#
                             #{w\ 3468}#
                             #f
                             (syntax->datum
                               (cons '#(syntax-object
                                        public
                                        ((top)
                                         #(ribcage
                                           #(_ mod id)
                                           #((top) (top) (top))
                                           #("i3483" "i3484" "i3485"))
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(e r w)
                                           #((top) (top) (top))
                                           #("i3469" "i3470" "i3471"))
                                         #(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
                                             chi-top
                                             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
                                             maybe-name-value!
                                             build-global-assignment
                                             build-global-reference
                                             analyze-variable
                                             build-lexical-assignment
                                             build-lexical-reference
                                             build-dynlet
                                             build-conditional
                                             build-application
                                             build-void
                                             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)
                                            (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"
                                            "i416"
                                            "i415"
                                            "i414"
                                            "i412"
                                            "i411"
                                            "i410"
                                            "i409"
                                            "i408"
                                            "i406"
                                            "i404"
                                            "i402"
                                            "i400"
                                            "i398"
                                            "i396"
                                            "i394"
                                            "i392"
                                            "i389"
                                            "i387"
                                            "i386"
                                            "i385"
                                            "i384"
                                            "i383"
                                            "i382"
                                            "i380"
                                            "i378"
                                            "i376"
                                            "i374"
                                            "i373"
                                            "i371"
                                            "i369"
                                            "i367"
                                            "i365"
                                            "i363"
                                            "i361"
                                            "i359"
                                            "i358"
                                            "i356"
                                            "i354"
                                            "i353"
                                            "i352"
                                            "i350"
                                            "i349"
                                            "i347"
                                            "i345"
                                            "i343"
                                            "i341"
                                            "i339"
                                            "i337"
                                            "i335"
                                            "i333"
                                            "i331"
                                            "i329"
                                            "i327"
                                            "i325"
                                            "i323"
                                            "i321"
                                            "i319"
                                            "i317"
                                            "i315"
                                            "i313"
                                            "i311"
                                            "i309"
                                            "i307"
                                            "i305"
                                            "i303"
                                            "i301"
                                            "i299"
                                            "i297"
                                            "i295"
                                            "i293"
                                            "i291"
                                            "i289"
                                            "i287"
                                            "i285"
                                            "i284"
                                            "i282"
                                            "i280"
                                            "i278"
                                            "i276"
                                            "i274"
                                            "i272"
                                            "i270"
                                            "i268"
                                            "i266"
                                            "i263"
                                            "i261"
                                            "i259"
                                            "i257"
                                            "i255"
                                            "i253"
                                            "i251"
                                            "i249"
                                            "i247"
                                            "i245"
                                            "i243"
                                            "i241"
                                            "i239"
                                            "i237"
                                            "i235"
                                            "i233"
                                            "i231"
                                            "i229"))
                                         #(ribcage
                                           (define-structure
                                             define-expansion-accessors
                                             define-expansion-constructors
                                             and-map*)
                                           ((top) (top) (top) (top))
                                           ("i23" "i22" "i21" "i19")))
                                        (hygiene guile))
                                     #{mod\ 3487}#))))
                         #{tmp\ 3473}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp\ 3472}#)))
              ($sc-dispatch
                #{tmp\ 3472}#
                '(any each-any any))))
           #{e\ 3466}#)))
      (#{global-extend\ 368}#
        'module-ref
        '@@
        (lambda (#{e\ 3490}# #{r\ 3491}# #{w\ 3492}#)
          (letrec ((#{remodulate\ 3497}#
                     (lambda (#{x\ 3498}# #{mod\ 3499}#)
                       (if (pair? #{x\ 3498}#)
                         (cons (#{remodulate\ 3497}#
                                 (car #{x\ 3498}#)
                                 #{mod\ 3499}#)
                               (#{remodulate\ 3497}#
                                 (cdr #{x\ 3498}#)
                                 #{mod\ 3499}#))
                         (if (#{syntax-object?\ 336}# #{x\ 3498}#)
                           (#{make-syntax-object\ 334}#
                             (#{remodulate\ 3497}#
                               (#{syntax-object-expression\ 338}# #{x\ 3498}#)
                               #{mod\ 3499}#)
                             (#{syntax-object-wrap\ 340}# #{x\ 3498}#)
                             #{mod\ 3499}#)
                           (if (vector? #{x\ 3498}#)
                             (let ((#{n\ 3510}# (vector-length #{x\ 3498}#)))
                               (let ((#{v\ 3512}# (make-vector #{n\ 3510}#)))
                                 (letrec ((#{loop\ 3515}#
                                            (lambda (#{i\ 3516}#)
                                              (if (#{fx=\ 277}#
                                                    #{i\ 3516}#
                                                    #{n\ 3510}#)
                                                (begin (if #f #f) #{v\ 3512}#)
                                                (begin
                                                  (vector-set!
                                                    #{v\ 3512}#
                                                    #{i\ 3516}#
                                                    (#{remodulate\ 3497}#
                                                      (vector-ref
                                                        #{x\ 3498}#
                                                        #{i\ 3516}#)
                                                      #{mod\ 3499}#))
                                                  (#{loop\ 3515}#
                                                    (#{fx+\ 273}#
                                                      #{i\ 3516}#
                                                      1)))))))
                                   (#{loop\ 3515}# 0))))
                             #{x\ 3498}#))))))
            ((lambda (#{tmp\ 3520}#)
               ((lambda (#{tmp\ 3521}#)
                  (if (if #{tmp\ 3521}#
                        (apply (lambda (#{_\ 3525}#
                                        #{mod\ 3526}#
                                        #{exp\ 3527}#)
                                 (and-map #{id?\ 372}# #{mod\ 3526}#))
                               #{tmp\ 3521}#)
                        #f)
                    (apply (lambda (#{_\ 3532}# #{mod\ 3533}# #{exp\ 3534}#)
                             (let ((#{mod\ 3536}#
                                     (syntax->datum
                                       (cons '#(syntax-object
                                                private
                                                ((top)
                                                 #(ribcage
                                                   #(_ mod exp)
                                                   #((top) (top) (top))
                                                   #("i3529" "i3530" "i3531"))
                                                 #(ribcage
                                                   (remodulate)
                                                   ((top))
                                                   ("i3496"))
                                                 #(ribcage
                                                   #(e r w)
                                                   #((top) (top) (top))
                                                   #("i3493" "i3494" "i3495"))
                                                 #(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
                                                     chi-top
                                                     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
                                                     maybe-name-value!
                                                     build-global-assignment
                                                     build-global-reference
                                                     analyze-variable
                                                     build-lexical-assignment
                                                     build-lexical-reference
                                                     build-dynlet
                                                     build-conditional
                                                     build-application
                                                     build-void
                                                     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)
                                                    (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"
                                                    "i416"
                                                    "i415"
                                                    "i414"
                                                    "i412"
                                                    "i411"
                                                    "i410"
                                                    "i409"
                                                    "i408"
                                                    "i406"
                                                    "i404"
                                                    "i402"
                                                    "i400"
                                                    "i398"
                                                    "i396"
                                                    "i394"
                                                    "i392"
                                                    "i389"
                                                    "i387"
                                                    "i386"
                                                    "i385"
                                                    "i384"
                                                    "i383"
                                                    "i382"
                                                    "i380"
                                                    "i378"
                                                    "i376"
                                                    "i374"
                                                    "i373"
                                                    "i371"
                                                    "i369"
                                                    "i367"
                                                    "i365"
                                                    "i363"
                                                    "i361"
                                                    "i359"
                                                    "i358"
                                                    "i356"
                                                    "i354"
                                                    "i353"
                                                    "i352"
                                                    "i350"
                                                    "i349"
                                                    "i347"
                                                    "i345"
                                                    "i343"
                                                    "i341"
                                                    "i339"
                                                    "i337"
                                                    "i335"
                                                    "i333"
                                                    "i331"
                                                    "i329"
                                                    "i327"
                                                    "i325"
                                                    "i323"
                                                    "i321"
                                                    "i319"
                                                    "i317"
                                                    "i315"
                                                    "i313"
                                                    "i311"
                                                    "i309"
                                                    "i307"
                                                    "i305"
                                                    "i303"
                                                    "i301"
                                                    "i299"
                                                    "i297"
                                                    "i295"
                                                    "i293"
                                                    "i291"
                                                    "i289"
                                                    "i287"
                                                    "i285"
                                                    "i284"
                                                    "i282"
                                                    "i280"
                                                    "i278"
                                                    "i276"
                                                    "i274"
                                                    "i272"
                                                    "i270"
                                                    "i268"
                                                    "i266"
                                                    "i263"
                                                    "i261"
                                                    "i259"
                                                    "i257"
                                                    "i255"
                                                    "i253"
                                                    "i251"
                                                    "i249"
                                                    "i247"
                                                    "i245"
                                                    "i243"
                                                    "i241"
                                                    "i239"
                                                    "i237"
                                                    "i235"
                                                    "i233"
                                                    "i231"
                                                    "i229"))
                                                 #(ribcage
                                                   (define-structure
                                                     define-expansion-accessors
                                                     define-expansion-constructors
                                                     and-map*)
                                                   ((top) (top) (top) (top))
                                                   ("i23" "i22" "i21" "i19")))
                                                (hygiene guile))
                                             #{mod\ 3533}#))))
                               (values
                                 (#{remodulate\ 3497}#
                                   #{exp\ 3534}#
                                   #{mod\ 3536}#)
                                 #{r\ 3491}#
                                 #{w\ 3492}#
                                 (#{source-annotation\ 351}# #{exp\ 3534}#)
                                 #{mod\ 3536}#)))
                           #{tmp\ 3521}#)
                    (syntax-violation
                      #f
                      "source expression failed to match any pattern"
                      #{tmp\ 3520}#)))
                ($sc-dispatch
                  #{tmp\ 3520}#
                  '(any each-any any))))
             #{e\ 3490}#))))
      (#{global-extend\ 368}#
        'core
        'if
        (lambda (#{e\ 3538}#
                 #{r\ 3539}#
                 #{w\ 3540}#
                 #{s\ 3541}#
                 #{mod\ 3542}#)
          ((lambda (#{tmp\ 3548}#)
             ((lambda (#{tmp\ 3549}#)
                (if #{tmp\ 3549}#
                  (apply (lambda (#{_\ 3553}# #{test\ 3554}# #{then\ 3555}#)
                           (#{build-conditional\ 296}#
                             #{s\ 3541}#
                             (#{chi\ 457}#
                               #{test\ 3554}#
                               #{r\ 3539}#
                               #{w\ 3540}#
                               #{mod\ 3542}#)
                             (#{chi\ 457}#
                               #{then\ 3555}#
                               #{r\ 3539}#
                               #{w\ 3540}#
                               #{mod\ 3542}#)
                             (#{build-void\ 292}# #f)))
                         #{tmp\ 3549}#)
                  ((lambda (#{tmp\ 3557}#)
                     (if #{tmp\ 3557}#
                       (apply (lambda (#{_\ 3562}#
                                       #{test\ 3563}#
                                       #{then\ 3564}#
                                       #{else\ 3565}#)
                                (#{build-conditional\ 296}#
                                  #{s\ 3541}#
                                  (#{chi\ 457}#
                                    #{test\ 3563}#
                                    #{r\ 3539}#
                                    #{w\ 3540}#
                                    #{mod\ 3542}#)
                                  (#{chi\ 457}#
                                    #{then\ 3564}#
                                    #{r\ 3539}#
                                    #{w\ 3540}#
                                    #{mod\ 3542}#)
                                  (#{chi\ 457}#
                                    #{else\ 3565}#
                                    #{r\ 3539}#
                                    #{w\ 3540}#
                                    #{mod\ 3542}#)))
                              #{tmp\ 3557}#)
                       (syntax-violation
                         #f
                         "source expression failed to match any pattern"
                         #{tmp\ 3548}#)))
                   ($sc-dispatch
                     #{tmp\ 3548}#
                     '(any any any any)))))
              ($sc-dispatch
                #{tmp\ 3548}#
                '(any any any))))
           #{e\ 3538}#)))
      (#{global-extend\ 368}#
        'core
        'with-fluids
        (lambda (#{e\ 3566}#
                 #{r\ 3567}#
                 #{w\ 3568}#
                 #{s\ 3569}#
                 #{mod\ 3570}#)
          ((lambda (#{tmp\ 3576}#)
             ((lambda (#{tmp\ 3577}#)
                (if #{tmp\ 3577}#
                  (apply (lambda (#{_\ 3583}#
                                  #{fluid\ 3584}#
                                  #{val\ 3585}#
                                  #{b\ 3586}#
                                  #{b*\ 3587}#)
                           (#{build-dynlet\ 298}#
                             #{s\ 3569}#
                             (map (lambda (#{x\ 3588}#)
                                    (#{chi\ 457}#
                                      #{x\ 3588}#
                                      #{r\ 3567}#
                                      #{w\ 3568}#
                                      #{mod\ 3570}#))
                                  #{fluid\ 3584}#)
                             (map (lambda (#{x\ 3591}#)
                                    (#{chi\ 457}#
                                      #{x\ 3591}#
                                      #{r\ 3567}#
                                      #{w\ 3568}#
                                      #{mod\ 3570}#))
                                  #{val\ 3585}#)
                             (#{chi-body\ 465}#
                               (cons #{b\ 3586}# #{b*\ 3587}#)
                               (#{source-wrap\ 443}#
                                 #{e\ 3566}#
                                 #{w\ 3568}#
                                 #{s\ 3569}#
                                 #{mod\ 3570}#)
                               #{r\ 3567}#
                               #{w\ 3568}#
                               #{mod\ 3570}#)))
                         #{tmp\ 3577}#)
                  (syntax-violation
                    #f
                    "source expression failed to match any pattern"
                    #{tmp\ 3576}#)))
              ($sc-dispatch
                #{tmp\ 3576}#
                '(any #(each (any any)) any . each-any))))
           #{e\ 3566}#)))
      (#{global-extend\ 368}#
        'begin
        'begin
        '())
      (#{global-extend\ 368}#
        'define
        'define
        '())
      (#{global-extend\ 368}#
        'define-syntax
        'define-syntax
        '())
      (#{global-extend\ 368}#
        'eval-when
        'eval-when
        '())
      (#{global-extend\ 368}#
        'core
        'syntax-case
        (letrec ((#{gen-syntax-case\ 3602}#
                   (lambda (#{x\ 3603}#
                            #{keys\ 3604}#
                            #{clauses\ 3605}#
                            #{r\ 3606}#
                            #{mod\ 3607}#)
                     (if (null? #{clauses\ 3605}#)
                       (#{build-application\ 294}#
                         #f
                         (#{build-primref\ 320}#
                           #f
                           'syntax-violation)
                         (list (#{build-data\ 322}# #f #f)
                               (#{build-data\ 322}#
                                 #f
                                 "source expression failed to match any pattern")
                               #{x\ 3603}#))
                       ((lambda (#{tmp\ 3617}#)
                          ((lambda (#{tmp\ 3618}#)
                             (if #{tmp\ 3618}#
                               (apply (lambda (#{pat\ 3621}# #{exp\ 3622}#)
                                        (if (if (#{id?\ 372}# #{pat\ 3621}#)
                                              (and-map
                                                (lambda (#{x\ 3625}#)
                                                  (not (#{free-id=?\ 431}#
                                                         #{pat\ 3621}#
                                                         #{x\ 3625}#)))
                                                (cons '#(syntax-object
                                                         ...
                                                         ((top)
                                                          #(ribcage
                                                            #(pat exp)
                                                            #((top) (top))
                                                            #("i3619" "i3620"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x
                                                              keys
                                                              clauses
                                                              r
                                                              mod)
                                                            #((top)
                                                              (top)
                                                              (top)
                                                              (top)
                                                              (top))
                                                            #("i3608"
                                                              "i3609"
                                                              "i3610"
                                                              "i3611"
                                                              "i3612"))
                                                          #(ribcage
                                                            (gen-syntax-case
                                                              gen-clause
                                                              build-dispatch-call
                                                              convert-pattern)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i3601"
                                                             "i3599"
                                                             "i3597"
                                                             "i3595"))
                                                          #(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
                                                              chi-top
                                                              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
                                                              maybe-name-value!
                                                              build-global-assignment
                                                              build-global-reference
                                                              analyze-variable
                                                              build-lexical-assignment
                                                              build-lexical-reference
                                                              build-dynlet
                                                              build-conditional
                                                              build-application
                                                              build-void
                                                              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)
                                                             (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"
                                                             "i416"
                                                             "i415"
                                                             "i414"
                                                             "i412"
                                                             "i411"
                                                             "i410"
                                                             "i409"
                                                             "i408"
                                                             "i406"
                                                             "i404"
                                                             "i402"
                                                             "i400"
                                                             "i398"
                                                             "i396"
                                                             "i394"
                                                             "i392"
                                                             "i389"
                                                             "i387"
                                                             "i386"
                                                             "i385"
                                                             "i384"
                                                             "i383"
                                                             "i382"
                                                             "i380"
                                                             "i378"
                                                             "i376"
                                                             "i374"
                                                             "i373"
                                                             "i371"
                                                             "i369"
                                                             "i367"
                                                             "i365"
                                                             "i363"
                                                             "i361"
                                                             "i359"
                                                             "i358"
                                                             "i356"
                                                             "i354"
                                                             "i353"
                                                             "i352"
                                                             "i350"
                                                             "i349"
                                                             "i347"
                                                             "i345"
                                                             "i343"
                                                             "i341"
                                                             "i339"
                                                             "i337"
                                                             "i335"
                                                             "i333"
                                                             "i331"
                                                             "i329"
                                                             "i327"
                                                             "i325"
                                                             "i323"
                                                             "i321"
                                                             "i319"
                                                             "i317"
                                                             "i315"
                                                             "i313"
                                                             "i311"
                                                             "i309"
                                                             "i307"
                                                             "i305"
                                                             "i303"
                                                             "i301"
                                                             "i299"
                                                             "i297"
                                                             "i295"
                                                             "i293"
                                                             "i291"
                                                             "i289"
                                                             "i287"
                                                             "i285"
                                                             "i284"
                                                             "i282"
                                                             "i280"
                                                             "i278"
                                                             "i276"
                                                             "i274"
                                                             "i272"
                                                             "i270"
                                                             "i268"
                                                             "i266"
                                                             "i263"
                                                             "i261"
                                                             "i259"
                                                             "i257"
                                                             "i255"
                                                             "i253"
                                                             "i251"
                                                             "i249"
                                                             "i247"
                                                             "i245"
                                                             "i243"
                                                             "i241"
                                                             "i239"
                                                             "i237"
                                                             "i235"
                                                             "i233"
                                                             "i231"
                                                             "i229"))
                                                          #(ribcage
                                                            (define-structure
                                                              define-expansion-accessors
                                                              define-expansion-constructors
                                                              and-map*)
                                                            ((top)
                                                             (top)
                                                             (top)
                                                             (top))
                                                            ("i23"
                                                             "i22"
                                                             "i21"
                                                             "i19")))
                                                         (hygiene guile))
                                                      #{keys\ 3604}#))
                                              #f)
                                          (let ((#{labels\ 3629}#
                                                  (list (#{gen-label\ 388}#)))
                                                (#{var\ 3630}#
                                                  (#{gen-var\ 485}#
                                                    #{pat\ 3621}#)))
                                            (#{build-application\ 294}#
                                              #f
                                              (#{build-simple-lambda\ 314}#
                                                #f
                                                (list (syntax->datum
                                                        #{pat\ 3621}#))
                                                #f
                                                (list #{var\ 3630}#)
                                                '()
                                                (#{chi\ 457}#
                                                  #{exp\ 3622}#
                                                  (#{extend-env\ 360}#
                                                    #{labels\ 3629}#
                                                    (list (cons 'syntax
                                                                (cons #{var\ 3630}#
                                                                      0)))
                                                    #{r\ 3606}#)
                                                  (#{make-binding-wrap\ 419}#
                                                    (list #{pat\ 3621}#)
                                                    #{labels\ 3629}#
                                                    '(()))
                                                  #{mod\ 3607}#))
                                              (list #{x\ 3603}#)))
                                          (#{gen-clause\ 3600}#
                                            #{x\ 3603}#
                                            #{keys\ 3604}#
                                            (cdr #{clauses\ 3605}#)
                                            #{r\ 3606}#
                                            #{pat\ 3621}#
                                            #t
                                            #{exp\ 3622}#
                                            #{mod\ 3607}#)))
                                      #{tmp\ 3618}#)
                               ((lambda (#{tmp\ 3636}#)
                                  (if #{tmp\ 3636}#
                                    (apply (lambda (#{pat\ 3640}#
                                                    #{fender\ 3641}#
                                                    #{exp\ 3642}#)
                                             (#{gen-clause\ 3600}#
                                               #{x\ 3603}#
                                               #{keys\ 3604}#
                                               (cdr #{clauses\ 3605}#)
                                               #{r\ 3606}#
                                               #{pat\ 3640}#
                                               #{fender\ 3641}#
                                               #{exp\ 3642}#
                                               #{mod\ 3607}#))
                                           #{tmp\ 3636}#)
                                    ((lambda (#{_\ 3644}#)
                                       (syntax-violation
                                         'syntax-case
                                         "invalid clause"
                                         (car #{clauses\ 3605}#)))
                                     #{tmp\ 3617}#)))
                                ($sc-dispatch
                                  #{tmp\ 3617}#
                                  '(any any any)))))
                           ($sc-dispatch #{tmp\ 3617}# (quote (any any)))))
                        (car #{clauses\ 3605}#)))))
                 (#{gen-clause\ 3600}#
                   (lambda (#{x\ 3645}#
                            #{keys\ 3646}#
                            #{clauses\ 3647}#
                            #{r\ 3648}#
                            #{pat\ 3649}#
                            #{fender\ 3650}#
                            #{exp\ 3651}#
                            #{mod\ 3652}#)
                     (call-with-values
                       (lambda ()
                         (#{convert-pattern\ 3596}#
                           #{pat\ 3649}#
                           #{keys\ 3646}#))
                       (lambda (#{p\ 3661}# #{pvars\ 3662}#)
                         (if (not (#{distinct-bound-ids?\ 437}#
                                    (map car #{pvars\ 3662}#)))
                           (syntax-violation
                             'syntax-case
                             "duplicate pattern variable"
                             #{pat\ 3649}#)
                           (if (not (and-map
                                      (lambda (#{x\ 3669}#)
                                        (not (#{ellipsis?\ 473}#
                                               (car #{x\ 3669}#))))
                                      #{pvars\ 3662}#))
                             (syntax-violation
                               'syntax-case
                               "misplaced ellipsis"
                               #{pat\ 3649}#)
                             (let ((#{y\ 3673}#
                                     (#{gen-var\ 485}# (quote tmp))))
                               (#{build-application\ 294}#
                                 #f
                                 (#{build-simple-lambda\ 314}#
                                   #f
                                   (list (quote tmp))
                                   #f
                                   (list #{y\ 3673}#)
                                   '()
                                   (let ((#{y\ 3677}#
                                           (#{build-lexical-reference\ 300}#
                                             'value
                                             #f
                                             'tmp
                                             #{y\ 3673}#)))
                                     (#{build-conditional\ 296}#
                                       #f
                                       ((lambda (#{tmp\ 3680}#)
                                          ((lambda (#{tmp\ 3681}#)
                                             (if #{tmp\ 3681}#
                                               (apply (lambda () #{y\ 3677}#)
                                                      #{tmp\ 3681}#)
                                               ((lambda (#{_\ 3683}#)
                                                  (#{build-conditional\ 296}#
                                                    #f
                                                    #{y\ 3677}#
                                                    (#{build-dispatch-call\ 3598}#
                                                      #{pvars\ 3662}#
                                                      #{fender\ 3650}#
                                                      #{y\ 3677}#
                                                      #{r\ 3648}#
                                                      #{mod\ 3652}#)
                                                    (#{build-data\ 322}#
                                                      #f
                                                      #f)))
                                                #{tmp\ 3680}#)))
                                           ($sc-dispatch
                                             #{tmp\ 3680}#
                                             '#(atom #t))))
                                        #{fender\ 3650}#)
                                       (#{build-dispatch-call\ 3598}#
                                         #{pvars\ 3662}#
                                         #{exp\ 3651}#
                                         #{y\ 3677}#
                                         #{r\ 3648}#
                                         #{mod\ 3652}#)
                                       (#{gen-syntax-case\ 3602}#
                                         #{x\ 3645}#
                                         #{keys\ 3646}#
                                         #{clauses\ 3647}#
                                         #{r\ 3648}#
                                         #{mod\ 3652}#))))
                                 (list (if (eq? #{p\ 3661}# (quote any))
                                         (#{build-application\ 294}#
                                           #f
                                           (#{build-primref\ 320}#
                                             #f
                                             'list)
                                           (list #{x\ 3645}#))
                                         (#{build-application\ 294}#
                                           #f
                                           (#{build-primref\ 320}#
                                             #f
                                             '$sc-dispatch)
                                           (list #{x\ 3645}#
                                                 (#{build-data\ 322}#
                                                   #f
                                                   #{p\ 3661}#)))))))))))))
                 (#{build-dispatch-call\ 3598}#
                   (lambda (#{pvars\ 3691}#
                            #{exp\ 3692}#
                            #{y\ 3693}#
                            #{r\ 3694}#
                            #{mod\ 3695}#)
                     (let ((#{ids\ 3703}# (map car #{pvars\ 3691}#))
                           (#{levels\ 3704}# (map cdr #{pvars\ 3691}#)))
                       (let ((#{labels\ 3707}#
                               (#{gen-labels\ 390}# #{ids\ 3703}#))
                             (#{new-vars\ 3708}#
                               (map #{gen-var\ 485}# #{ids\ 3703}#)))
                         (#{build-application\ 294}#
                           #f
                           (#{build-primref\ 320}# #f (quote apply))
                           (list (#{build-simple-lambda\ 314}#
                                   #f
                                   (map syntax->datum #{ids\ 3703}#)
                                   #f
                                   #{new-vars\ 3708}#
                                   '()
                                   (#{chi\ 457}#
                                     #{exp\ 3692}#
                                     (#{extend-env\ 360}#
                                       #{labels\ 3707}#
                                       (map (lambda (#{var\ 3712}#
                                                     #{level\ 3713}#)
                                              (cons 'syntax
                                                    (cons #{var\ 3712}#
                                                          #{level\ 3713}#)))
                                            #{new-vars\ 3708}#
                                            (map cdr #{pvars\ 3691}#))
                                       #{r\ 3694}#)
                                     (#{make-binding-wrap\ 419}#
                                       #{ids\ 3703}#
                                       #{labels\ 3707}#
                                       '(()))
                                     #{mod\ 3695}#))
                                 #{y\ 3693}#))))))
                 (#{convert-pattern\ 3596}#
                   (lambda (#{pattern\ 3719}# #{keys\ 3720}#)
                     (letrec ((#{cvt\ 3726}#
                                (lambda (#{p\ 3727}# #{n\ 3728}# #{ids\ 3729}#)
                                  (if (#{id?\ 372}# #{p\ 3727}#)
                                    (if (#{bound-id-member?\ 439}#
                                          #{p\ 3727}#
                                          #{keys\ 3720}#)
                                      (values
                                        (vector (quote free-id) #{p\ 3727}#)
                                        #{ids\ 3729}#)
                                      (values
                                        'any
                                        (cons (cons #{p\ 3727}# #{n\ 3728}#)
                                              #{ids\ 3729}#)))
                                    ((lambda (#{tmp\ 3733}#)
                                       ((lambda (#{tmp\ 3734}#)
                                          (if (if #{tmp\ 3734}#
                                                (apply (lambda (#{x\ 3737}#
                                                                #{dots\ 3738}#)
                                                         (#{ellipsis?\ 473}#
                                                           #{dots\ 3738}#))
                                                       #{tmp\ 3734}#)
                                                #f)
                                            (apply (lambda (#{x\ 3741}#
                                                            #{dots\ 3742}#)
                                                     (call-with-values
                                                       (lambda ()
                                                         (#{cvt\ 3726}#
                                                           #{x\ 3741}#
                                                           (#{fx+\ 273}#
                                                             #{n\ 3728}#
                                                             1)
                                                           #{ids\ 3729}#))
                                                       (lambda (#{p\ 3743}#
                                                                #{ids\ 3744}#)
                                                         (values
                                                           (if (eq? #{p\ 3743}#
                                                                    'any)
                                                             'each-any
                                                             (vector
                                                               'each
                                                               #{p\ 3743}#))
                                                           #{ids\ 3744}#))))
                                                   #{tmp\ 3734}#)
                                            ((lambda (#{tmp\ 3747}#)
                                               (if (if #{tmp\ 3747}#
                                                     (apply (lambda (#{x\ 3751}#
                                                                     #{dots\ 3752}#
                                                                     #{ys\ 3753}#)
                                                              (#{ellipsis?\ 473}#
                                                                #{dots\ 3752}#))
                                                            #{tmp\ 3747}#)
                                                     #f)
                                                 (apply (lambda (#{x\ 3757}#
                                                                 #{dots\ 3758}#
                                                                 #{ys\ 3759}#)
                                                          (call-with-values
                                                            (lambda ()
                                                              (#{cvt*\ 3724}#
                                                                #{ys\ 3759}#
                                                                #{n\ 3728}#
                                                                #{ids\ 3729}#))
                                                            (lambda (#{ys\ 3761}#
                                                                     #{ids\ 3762}#)
                                                              (call-with-values
                                                                (lambda ()
                                                                  (#{cvt\ 3726}#
                                                                    #{x\ 3757}#
                                                                    (+ #{n\ 3728}#
                                                                       1)
                                                                    #{ids\ 3762}#))
                                                                (lambda (#{x\ 3765}#
                                                                         #{ids\ 3766}#)
                                                                  (values
                                                                    (list->vector
                                                                      (cons 'each+
                                                                            (cons #{x\ 3765}#
                                                                                  (cons (reverse
                                                                                          #{ys\ 3761}#)
                                                                                        '(())))))
                                                                    #{ids\ 3766}#))))))
                                                        #{tmp\ 3747}#)
                                                 ((lambda (#{tmp\ 3770}#)
                                                    (if #{tmp\ 3770}#
                                                      (apply (lambda (#{x\ 3773}#
                                                                      #{y\ 3774}#)
                                                               (call-with-values
                                                                 (lambda ()
                                                                   (#{cvt\ 3726}#
                                                                     #{y\ 3774}#
                                                                     #{n\ 3728}#
                                                                     #{ids\ 3729}#))
                                                                 (lambda (#{y\ 3775}#
                                                                          #{ids\ 3776}#)
                                                                   (call-with-values
                                                                     (lambda ()
                                                                       (#{cvt\ 3726}#
                                                                         #{x\ 3773}#
                                                                         #{n\ 3728}#
                                                                         #{ids\ 3776}#))
                                                                     (lambda (#{x\ 3779}#
                                                                              #{ids\ 3780}#)
                                                                       (values
                                                                         (cons #{x\ 3779}#
                                                                               #{y\ 3775}#)
                                                                         #{ids\ 3780}#))))))
                                                             #{tmp\ 3770}#)
                                                      ((lambda (#{tmp\ 3783}#)
                                                         (if #{tmp\ 3783}#
                                                           (apply (lambda ()
                                                                    (values
                                                                      '()
                                                                      #{ids\ 3729}#))
                                                                  #{tmp\ 3783}#)
                                                           ((lambda (#{tmp\ 3784}#)
                                                              (if #{tmp\ 3784}#
                                                                (apply (lambda (#{x\ 3786}#)
                                                                         (call-with-values
                                                                           (lambda ()
                                                                             (#{cvt\ 3726}#
                                                                               #{x\ 3786}#
                                                                               #{n\ 3728}#
                                                                               #{ids\ 3729}#))
                                                                           (lambda (#{p\ 3788}#
                                                                                    #{ids\ 3789}#)
                                                                             (values
                                                                               (vector
                                                                                 'vector
                                                                                 #{p\ 3788}#)
                                                                               #{ids\ 3789}#))))
                                                                       #{tmp\ 3784}#)
                                                                ((lambda (#{x\ 3793}#)
                                                                   (values
                                                                     (vector
                                                                       'atom
                                                                       (#{strip\ 483}#
                                                                         #{p\ 3727}#
                                                                         '(())))
                                                                     #{ids\ 3729}#))
                                                                 #{tmp\ 3733}#)))
                                                            ($sc-dispatch
                                                              #{tmp\ 3733}#
                                                              '#(vector
                                                                 each-any)))))
                                                       ($sc-dispatch
                                                         #{tmp\ 3733}#
                                                         '()))))
                                                  ($sc-dispatch
                                                    #{tmp\ 3733}#
                                                    '(any . any)))))
                                             ($sc-dispatch
                                               #{tmp\ 3733}#
                                               '(any any . each-any)))))
                                        ($sc-dispatch
                                          #{tmp\ 3733}#
                                          '(any any))))
                                     #{p\ 3727}#))))
                              (#{cvt*\ 3724}#
                                (lambda (#{p*\ 3795}#
                                         #{n\ 3796}#
                                         #{ids\ 3797}#)
                                  (if (null? #{p*\ 3795}#)
                                    (values (quote ()) #{ids\ 3797}#)
                                    (call-with-values
                                      (lambda ()
                                        (#{cvt*\ 3724}#
                                          (cdr #{p*\ 3795}#)
                                          #{n\ 3796}#
                                          #{ids\ 3797}#))
                                      (lambda (#{y\ 3801}# #{ids\ 3802}#)
                                        (call-with-values
                                          (lambda ()
                                            (#{cvt\ 3726}#
                                              (car #{p*\ 3795}#)
                                              #{n\ 3796}#
                                              #{ids\ 3802}#))
                                          (lambda (#{x\ 3805}# #{ids\ 3806}#)
                                            (values
                                              (cons #{x\ 3805}# #{y\ 3801}#)
                                              #{ids\ 3806}#)))))))))
                       (#{cvt\ 3726}# #{pattern\ 3719}# 0 (quote ()))))))
          (lambda (#{e\ 3809}#
                   #{r\ 3810}#
                   #{w\ 3811}#
                   #{s\ 3812}#
                   #{mod\ 3813}#)
            (let ((#{e\ 3820}#
                    (#{source-wrap\ 443}#
                      #{e\ 3809}#
                      #{w\ 3811}#
                      #{s\ 3812}#
                      #{mod\ 3813}#)))
              ((lambda (#{tmp\ 3821}#)
                 ((lambda (#{tmp\ 3822}#)
                    (if #{tmp\ 3822}#
                      (apply (lambda (#{_\ 3827}#
                                      #{val\ 3828}#
                                      #{key\ 3829}#
                                      #{m\ 3830}#)
                               (if (and-map
                                     (lambda (#{x\ 3831}#)
                                       (if (#{id?\ 372}# #{x\ 3831}#)
                                         (not (#{ellipsis?\ 473}# #{x\ 3831}#))
                                         #f))
                                     #{key\ 3829}#)
                                 (let ((#{x\ 3837}#
                                         (#{gen-var\ 485}# (quote tmp))))
                                   (#{build-application\ 294}#
                                     #{s\ 3812}#
                                     (#{build-simple-lambda\ 314}#
                                       #f
                                       (list (quote tmp))
                                       #f
                                       (list #{x\ 3837}#)
                                       '()
                                       (#{gen-syntax-case\ 3602}#
                                         (#{build-lexical-reference\ 300}#
                                           'value
                                           #f
                                           'tmp
                                           #{x\ 3837}#)
                                         #{key\ 3829}#
                                         #{m\ 3830}#
                                         #{r\ 3810}#
                                         #{mod\ 3813}#))
                                     (list (#{chi\ 457}#
                                             #{val\ 3828}#
                                             #{r\ 3810}#
                                             '(())
                                             #{mod\ 3813}#))))
                                 (syntax-violation
                                   'syntax-case
                                   "invalid literals list"
                                   #{e\ 3820}#)))
                             #{tmp\ 3822}#)
                      (syntax-violation
                        #f
                        "source expression failed to match any pattern"
                        #{tmp\ 3821}#)))
                  ($sc-dispatch
                    #{tmp\ 3821}#
                    '(any any each-any . each-any))))
               #{e\ 3820}#)))))
      (set! macroexpand
        (lambda*
          (#{x\ 3843}#
            #:optional
            (#{m\ 3845}# (quote e))
            (#{esew\ 3847}# (quote (eval))))
          (#{chi-top\ 455}#
            #{x\ 3843}#
            '()
            '((top))
            #{m\ 3845}#
            #{esew\ 3847}#
            (cons 'hygiene
                  (module-name (current-module))))))
      (set! identifier?
        (lambda (#{x\ 3851}#)
          (#{nonsymbol-id?\ 370}# #{x\ 3851}#)))
      (set! datum->syntax
        (lambda (#{id\ 3853}# #{datum\ 3854}#)
          (#{make-syntax-object\ 334}#
            #{datum\ 3854}#
            (#{syntax-object-wrap\ 340}# #{id\ 3853}#)
            (#{syntax-object-module\ 342}# #{id\ 3853}#))))
      (set! syntax->datum
        (lambda (#{x\ 3857}#)
          (#{strip\ 483}# #{x\ 3857}# (quote (())))))
      (set! syntax-source
        (lambda (#{x\ 3860}#)
          (#{source-annotation\ 351}# #{x\ 3860}#)))
      (set! generate-temporaries
        (lambda (#{ls\ 3862}#)
          (begin
            (let ((#{x\ 3866}# #{ls\ 3862}#))
              (if (not (list? #{x\ 3866}#))
                (syntax-violation
                  'generate-temporaries
                  "invalid argument"
                  #{x\ 3866}#)))
            (map (lambda (#{x\ 3867}#)
                   (#{wrap\ 441}# (gensym) (quote ((top))) #f))
                 #{ls\ 3862}#))))
      (set! free-identifier=?
        (lambda (#{x\ 3871}# #{y\ 3872}#)
          (begin
            (let ((#{x\ 3877}# #{x\ 3871}#))
              (if (not (#{nonsymbol-id?\ 370}# #{x\ 3877}#))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  #{x\ 3877}#)))
            (let ((#{x\ 3880}# #{y\ 3872}#))
              (if (not (#{nonsymbol-id?\ 370}# #{x\ 3880}#))
                (syntax-violation
                  'free-identifier=?
                  "invalid argument"
                  #{x\ 3880}#)))
            (#{free-id=?\ 431}# #{x\ 3871}# #{y\ 3872}#))))
      (set! bound-identifier=?
        (lambda (#{x\ 3881}# #{y\ 3882}#)
          (begin
            (let ((#{x\ 3887}# #{x\ 3881}#))
              (if (not (#{nonsymbol-id?\ 370}# #{x\ 3887}#))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  #{x\ 3887}#)))
            (let ((#{x\ 3890}# #{y\ 3882}#))
              (if (not (#{nonsymbol-id?\ 370}# #{x\ 3890}#))
                (syntax-violation
                  'bound-identifier=?
                  "invalid argument"
                  #{x\ 3890}#)))
            (#{bound-id=?\ 433}# #{x\ 3881}# #{y\ 3882}#))))
      (set! syntax-violation
        (lambda (#{who\ 3891}#
                 #{message\ 3892}#
                 #{form\ 3893}#
                 .
                 #{subform\ 3894}#)
          (begin
            (let ((#{x\ 3901}# #{who\ 3891}#))
              (if (not ((lambda (#{x\ 3902}#)
                          (let ((#{t\ 3906}# (not #{x\ 3902}#)))
                            (if #{t\ 3906}#
                              #{t\ 3906}#
                              (let ((#{t\ 3909}# (string? #{x\ 3902}#)))
                                (if #{t\ 3909}#
                                  #{t\ 3909}#
                                  (symbol? #{x\ 3902}#))))))
                        #{x\ 3901}#))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  #{x\ 3901}#)))
            (let ((#{x\ 3913}# #{message\ 3892}#))
              (if (not (string? #{x\ 3913}#))
                (syntax-violation
                  'syntax-violation
                  "invalid argument"
                  #{x\ 3913}#)))
            (scm-error
              'syntax-error
              'macroexpand
              (string-append
                (if #{who\ 3891}# "~a: " "")
                "~a "
                (if (null? #{subform\ 3894}#)
                  "in ~a"
                  "in subform `~s' of `~s'"))
              (let ((#{tail\ 3915}#
                      (cons #{message\ 3892}#
                            (map (lambda (#{x\ 3916}#)
                                   (#{strip\ 483}# #{x\ 3916}# (quote (()))))
                                 (append
                                   #{subform\ 3894}#
                                   (list #{form\ 3893}#))))))
                (if #{who\ 3891}#
                  (cons #{who\ 3891}# #{tail\ 3915}#)
                  #{tail\ 3915}#))
              #f))))
      (letrec ((#{match\ 3932}#
                 (lambda (#{e\ 3933}#
                          #{p\ 3934}#
                          #{w\ 3935}#
                          #{r\ 3936}#
                          #{mod\ 3937}#)
                   (if (not #{r\ 3936}#)
                     #f
                     (if (eq? #{p\ 3934}# (quote any))
                       (cons (#{wrap\ 441}#
                               #{e\ 3933}#
                               #{w\ 3935}#
                               #{mod\ 3937}#)
                             #{r\ 3936}#)
                       (if (#{syntax-object?\ 336}# #{e\ 3933}#)
                         (#{match*\ 3930}#
                           (#{syntax-object-expression\ 338}# #{e\ 3933}#)
                           #{p\ 3934}#
                           (#{join-wraps\ 423}#
                             #{w\ 3935}#
                             (#{syntax-object-wrap\ 340}# #{e\ 3933}#))
                           #{r\ 3936}#
                           (#{syntax-object-module\ 342}# #{e\ 3933}#))
                         (#{match*\ 3930}#
                           #{e\ 3933}#
                           #{p\ 3934}#
                           #{w\ 3935}#
                           #{r\ 3936}#
                           #{mod\ 3937}#))))))
               (#{match*\ 3930}#
                 (lambda (#{e\ 3950}#
                          #{p\ 3951}#
                          #{w\ 3952}#
                          #{r\ 3953}#
                          #{mod\ 3954}#)
                   (if (null? #{p\ 3951}#)
                     (if (null? #{e\ 3950}#) #{r\ 3953}# #f)
                     (if (pair? #{p\ 3951}#)
                       (if (pair? #{e\ 3950}#)
                         (#{match\ 3932}#
                           (car #{e\ 3950}#)
                           (car #{p\ 3951}#)
                           #{w\ 3952}#
                           (#{match\ 3932}#
                             (cdr #{e\ 3950}#)
                             (cdr #{p\ 3951}#)
                             #{w\ 3952}#
                             #{r\ 3953}#
                             #{mod\ 3954}#)
                           #{mod\ 3954}#)
                         #f)
                       (if (eq? #{p\ 3951}# (quote each-any))
                         (let ((#{l\ 3971}#
                                 (#{match-each-any\ 3924}#
                                   #{e\ 3950}#
                                   #{w\ 3952}#
                                   #{mod\ 3954}#)))
                           (if #{l\ 3971}#
                             (cons #{l\ 3971}# #{r\ 3953}#)
                             #f))
                         (let ((#{atom-key\ 3977}# (vector-ref #{p\ 3951}# 0)))
                           (if (memv #{atom-key\ 3977}# (quote (each)))
                             (if (null? #{e\ 3950}#)
                               (#{match-empty\ 3926}#
                                 (vector-ref #{p\ 3951}# 1)
                                 #{r\ 3953}#)
                               (let ((#{l\ 3980}#
                                       (#{match-each\ 3920}#
                                         #{e\ 3950}#
                                         (vector-ref #{p\ 3951}# 1)
                                         #{w\ 3952}#
                                         #{mod\ 3954}#)))
                                 (if #{l\ 3980}#
                                   (letrec ((#{collect\ 3985}#
                                              (lambda (#{l\ 3986}#)
                                                (if (null? (car #{l\ 3986}#))
                                                  #{r\ 3953}#
                                                  (cons (map car #{l\ 3986}#)
                                                        (#{collect\ 3985}#
                                                          (map cdr
                                                               #{l\ 3986}#)))))))
                                     (#{collect\ 3985}# #{l\ 3980}#))
                                   #f)))
                             (if (memv #{atom-key\ 3977}# (quote (each+)))
                               (call-with-values
                                 (lambda ()
                                   (#{match-each+\ 3922}#
                                     #{e\ 3950}#
                                     (vector-ref #{p\ 3951}# 1)
                                     (vector-ref #{p\ 3951}# 2)
                                     (vector-ref #{p\ 3951}# 3)
                                     #{w\ 3952}#
                                     #{r\ 3953}#
                                     #{mod\ 3954}#))
                                 (lambda (#{xr*\ 3988}#
                                          #{y-pat\ 3989}#
                                          #{r\ 3990}#)
                                   (if #{r\ 3990}#
                                     (if (null? #{y-pat\ 3989}#)
                                       (if (null? #{xr*\ 3988}#)
                                         (#{match-empty\ 3926}#
                                           (vector-ref #{p\ 3951}# 1)
                                           #{r\ 3990}#)
                                         (#{combine\ 3928}#
                                           #{xr*\ 3988}#
                                           #{r\ 3990}#))
                                       #f)
                                     #f)))
                               (if (memv #{atom-key\ 3977}# (quote (free-id)))
                                 (if (#{id?\ 372}# #{e\ 3950}#)
                                   (if (#{free-id=?\ 431}#
                                         (#{wrap\ 441}#
                                           #{e\ 3950}#
                                           #{w\ 3952}#
                                           #{mod\ 3954}#)
                                         (vector-ref #{p\ 3951}# 1))
                                     #{r\ 3953}#
                                     #f)
                                   #f)
                                 (if (memv #{atom-key\ 3977}# (quote (atom)))
                                   (if (equal?
                                         (vector-ref #{p\ 3951}# 1)
                                         (#{strip\ 483}#
                                           #{e\ 3950}#
                                           #{w\ 3952}#))
                                     #{r\ 3953}#
                                     #f)
                                   (if (memv #{atom-key\ 3977}#
                                             '(vector))
                                     (if (vector? #{e\ 3950}#)
                                       (#{match\ 3932}#
                                         (vector->list #{e\ 3950}#)
                                         (vector-ref #{p\ 3951}# 1)
                                         #{w\ 3952}#
                                         #{r\ 3953}#
                                         #{mod\ 3954}#)
                                       #f))))))))))))
               (#{combine\ 3928}#
                 (lambda (#{r*\ 4007}# #{r\ 4008}#)
                   (if (null? (car #{r*\ 4007}#))
                     #{r\ 4008}#
                     (cons (map car #{r*\ 4007}#)
                           (#{combine\ 3928}#
                             (map cdr #{r*\ 4007}#)
                             #{r\ 4008}#)))))
               (#{match-empty\ 3926}#
                 (lambda (#{p\ 4011}# #{r\ 4012}#)
                   (if (null? #{p\ 4011}#)
                     #{r\ 4012}#
                     (if (eq? #{p\ 4011}# (quote any))
                       (cons (quote ()) #{r\ 4012}#)
                       (if (pair? #{p\ 4011}#)
                         (#{match-empty\ 3926}#
                           (car #{p\ 4011}#)
                           (#{match-empty\ 3926}#
                             (cdr #{p\ 4011}#)
                             #{r\ 4012}#))
                         (if (eq? #{p\ 4011}# (quote each-any))
                           (cons (quote ()) #{r\ 4012}#)
                           (let ((#{atom-key\ 4026}#
                                   (vector-ref #{p\ 4011}# 0)))
                             (if (memv #{atom-key\ 4026}# (quote (each)))
                               (#{match-empty\ 3926}#
                                 (vector-ref #{p\ 4011}# 1)
                                 #{r\ 4012}#)
                               (if (memv #{atom-key\ 4026}# (quote (each+)))
                                 (#{match-empty\ 3926}#
                                   (vector-ref #{p\ 4011}# 1)
                                   (#{match-empty\ 3926}#
                                     (reverse (vector-ref #{p\ 4011}# 2))
                                     (#{match-empty\ 3926}#
                                       (vector-ref #{p\ 4011}# 3)
                                       #{r\ 4012}#)))
                                 (if (memv #{atom-key\ 4026}#
                                           '(free-id atom))
                                   #{r\ 4012}#
                                   (if (memv #{atom-key\ 4026}#
                                             '(vector))
                                     (#{match-empty\ 3926}#
                                       (vector-ref #{p\ 4011}# 1)
                                       #{r\ 4012}#))))))))))))
               (#{match-each-any\ 3924}#
                 (lambda (#{e\ 4031}# #{w\ 4032}# #{mod\ 4033}#)
                   (if (pair? #{e\ 4031}#)
                     (let ((#{l\ 4040}#
                             (#{match-each-any\ 3924}#
                               (cdr #{e\ 4031}#)
                               #{w\ 4032}#
                               #{mod\ 4033}#)))
                       (if #{l\ 4040}#
                         (cons (#{wrap\ 441}#
                                 (car #{e\ 4031}#)
                                 #{w\ 4032}#
                                 #{mod\ 4033}#)
                               #{l\ 4040}#)
                         #f))
                     (if (null? #{e\ 4031}#)
                       '()
                       (if (#{syntax-object?\ 336}# #{e\ 4031}#)
                         (#{match-each-any\ 3924}#
                           (#{syntax-object-expression\ 338}# #{e\ 4031}#)
                           (#{join-wraps\ 423}#
                             #{w\ 4032}#
                             (#{syntax-object-wrap\ 340}# #{e\ 4031}#))
                           #{mod\ 4033}#)
                         #f)))))
               (#{match-each+\ 3922}#
                 (lambda (#{e\ 4048}#
                          #{x-pat\ 4049}#
                          #{y-pat\ 4050}#
                          #{z-pat\ 4051}#
                          #{w\ 4052}#
                          #{r\ 4053}#
                          #{mod\ 4054}#)
                   (letrec ((#{f\ 4065}#
                              (lambda (#{e\ 4066}# #{w\ 4067}#)
                                (if (pair? #{e\ 4066}#)
                                  (call-with-values
                                    (lambda ()
                                      (#{f\ 4065}#
                                        (cdr #{e\ 4066}#)
                                        #{w\ 4067}#))
                                    (lambda (#{xr*\ 4070}#
                                             #{y-pat\ 4071}#
                                             #{r\ 4072}#)
                                      (if #{r\ 4072}#
                                        (if (null? #{y-pat\ 4071}#)
                                          (let ((#{xr\ 4077}#
                                                  (#{match\ 3932}#
                                                    (car #{e\ 4066}#)
                                                    #{x-pat\ 4049}#
                                                    #{w\ 4067}#
                                                    '()
                                                    #{mod\ 4054}#)))
                                            (if #{xr\ 4077}#
                                              (values
                                                (cons #{xr\ 4077}#
                                                      #{xr*\ 4070}#)
                                                #{y-pat\ 4071}#
                                                #{r\ 4072}#)
                                              (values #f #f #f)))
                                          (values
                                            '()
                                            (cdr #{y-pat\ 4071}#)
                                            (#{match\ 3932}#
                                              (car #{e\ 4066}#)
                                              (car #{y-pat\ 4071}#)
                                              #{w\ 4067}#
                                              #{r\ 4072}#
                                              #{mod\ 4054}#)))
                                        (values #f #f #f))))
                                  (if (#{syntax-object?\ 336}# #{e\ 4066}#)
                                    (#{f\ 4065}#
                                      (#{syntax-object-expression\ 338}#
                                        #{e\ 4066}#)
                                      (#{join-wraps\ 423}#
                                        #{w\ 4067}#
                                        #{e\ 4066}#))
                                    (values
                                      '()
                                      #{y-pat\ 4050}#
                                      (#{match\ 3932}#
                                        #{e\ 4066}#
                                        #{z-pat\ 4051}#
                                        #{w\ 4067}#
                                        #{r\ 4053}#
                                        #{mod\ 4054}#)))))))
                     (#{f\ 4065}# #{e\ 4048}# #{w\ 4052}#))))
               (#{match-each\ 3920}#
                 (lambda (#{e\ 4081}#
                          #{p\ 4082}#
                          #{w\ 4083}#
                          #{mod\ 4084}#)
                   (if (pair? #{e\ 4081}#)
                     (let ((#{first\ 4092}#
                             (#{match\ 3932}#
                               (car #{e\ 4081}#)
                               #{p\ 4082}#
                               #{w\ 4083}#
                               '()
                               #{mod\ 4084}#)))
                       (if #{first\ 4092}#
                         (let ((#{rest\ 4096}#
                                 (#{match-each\ 3920}#
                                   (cdr #{e\ 4081}#)
                                   #{p\ 4082}#
                                   #{w\ 4083}#
                                   #{mod\ 4084}#)))
                           (if #{rest\ 4096}#
                             (cons #{first\ 4092}# #{rest\ 4096}#)
                             #f))
                         #f))
                     (if (null? #{e\ 4081}#)
                       '()
                       (if (#{syntax-object?\ 336}# #{e\ 4081}#)
                         (#{match-each\ 3920}#
                           (#{syntax-object-expression\ 338}# #{e\ 4081}#)
                           #{p\ 4082}#
                           (#{join-wraps\ 423}#
                             #{w\ 4083}#
                             (#{syntax-object-wrap\ 340}# #{e\ 4081}#))
                           (#{syntax-object-module\ 342}# #{e\ 4081}#))
                         #f))))))
        (set! $sc-dispatch
          (lambda (#{e\ 4104}# #{p\ 4105}#)
            (if (eq? #{p\ 4105}# (quote any))
              (list #{e\ 4104}#)
              (if (#{syntax-object?\ 336}# #{e\ 4104}#)
                (#{match*\ 3930}#
                  (#{syntax-object-expression\ 338}# #{e\ 4104}#)
                  #{p\ 4105}#
                  (#{syntax-object-wrap\ 340}# #{e\ 4104}#)
                  '()
                  (#{syntax-object-module\ 342}# #{e\ 4104}#))
                (#{match*\ 3930}#
                  #{e\ 4104}#
                  #{p\ 4105}#
                  '(())
                  '()
                  #f)))))))))

(define with-syntax
  (make-syntax-transformer
    'with-syntax
    'macro
    (lambda (#{x\ 4114}#)
      ((lambda (#{tmp\ 4116}#)
         ((lambda (#{tmp\ 4117}#)
            (if #{tmp\ 4117}#
              (apply (lambda (#{_\ 4121}# #{e1\ 4122}# #{e2\ 4123}#)
                       (cons '#(syntax-object
                                begin
                                ((top)
                                 #(ribcage
                                   #(_ e1 e2)
                                   #((top) (top) (top))
                                   #("i4118" "i4119" "i4120"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4115")))
                                (hygiene guile))
                             (cons #{e1\ 4122}# #{e2\ 4123}#)))
                     #{tmp\ 4117}#)
              ((lambda (#{tmp\ 4125}#)
                 (if #{tmp\ 4125}#
                   (apply (lambda (#{_\ 4131}#
                                   #{out\ 4132}#
                                   #{in\ 4133}#
                                   #{e1\ 4134}#
                                   #{e2\ 4135}#)
                            (list '#(syntax-object
                                     syntax-case
                                     ((top)
                                      #(ribcage
                                        #(_ out in e1 e2)
                                        #((top) (top) (top) (top) (top))
                                        #("i4126"
                                          "i4127"
                                          "i4128"
                                          "i4129"
                                          "i4130"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4115")))
                                     (hygiene guile))
                                  #{in\ 4133}#
                                  '()
                                  (list #{out\ 4132}#
                                        (cons '#(syntax-object
                                                 begin
                                                 ((top)
                                                  #(ribcage
                                                    #(_ out in e1 e2)
                                                    #((top)
                                                      (top)
                                                      (top)
                                                      (top)
                                                      (top))
                                                    #("i4126"
                                                      "i4127"
                                                      "i4128"
                                                      "i4129"
                                                      "i4130"))
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i4115")))
                                                 (hygiene guile))
                                              (cons #{e1\ 4134}#
                                                    #{e2\ 4135}#)))))
                          #{tmp\ 4125}#)
                   ((lambda (#{tmp\ 4137}#)
                      (if #{tmp\ 4137}#
                        (apply (lambda (#{_\ 4143}#
                                        #{out\ 4144}#
                                        #{in\ 4145}#
                                        #{e1\ 4146}#
                                        #{e2\ 4147}#)
                                 (list '#(syntax-object
                                          syntax-case
                                          ((top)
                                           #(ribcage
                                             #(_ out in e1 e2)
                                             #((top) (top) (top) (top) (top))
                                             #("i4138"
                                               "i4139"
                                               "i4140"
                                               "i4141"
                                               "i4142"))
                                           #(ribcage () () ())
                                           #(ribcage #(x) #((top)) #("i4115")))
                                          (hygiene guile))
                                       (cons '#(syntax-object
                                                list
                                                ((top)
                                                 #(ribcage
                                                   #(_ out in e1 e2)
                                                   #((top)
                                                     (top)
                                                     (top)
                                                     (top)
                                                     (top))
                                                   #("i4138"
                                                     "i4139"
                                                     "i4140"
                                                     "i4141"
                                                     "i4142"))
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i4115")))
                                                (hygiene guile))
                                             #{in\ 4145}#)
                                       '()
                                       (list #{out\ 4144}#
                                             (cons '#(syntax-object
                                                      begin
                                                      ((top)
                                                       #(ribcage
                                                         #(_ out in e1 e2)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4138"
                                                           "i4139"
                                                           "i4140"
                                                           "i4141"
                                                           "i4142"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4115")))
                                                      (hygiene guile))
                                                   (cons #{e1\ 4146}#
                                                         #{e2\ 4147}#)))))
                               #{tmp\ 4137}#)
                        (syntax-violation
                          #f
                          "source expression failed to match any pattern"
                          #{tmp\ 4116}#)))
                    ($sc-dispatch
                      #{tmp\ 4116}#
                      '(any #(each (any any)) any . each-any)))))
               ($sc-dispatch
                 #{tmp\ 4116}#
                 '(any ((any any)) any . each-any)))))
          ($sc-dispatch
            #{tmp\ 4116}#
            '(any () any . each-any))))
       #{x\ 4114}#))))

(define syntax-rules
  (make-syntax-transformer
    'syntax-rules
    'macro
    (lambda (#{x\ 4151}#)
      ((lambda (#{tmp\ 4153}#)
         ((lambda (#{tmp\ 4154}#)
            (if #{tmp\ 4154}#
              (apply (lambda (#{_\ 4160}#
                              #{k\ 4161}#
                              #{keyword\ 4162}#
                              #{pattern\ 4163}#
                              #{template\ 4164}#)
                       (list '#(syntax-object
                                lambda
                                ((top)
                                 #(ribcage
                                   #(_ k keyword pattern template)
                                   #((top) (top) (top) (top) (top))
                                   #("i4155" "i4156" "i4157" "i4158" "i4159"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4152")))
                                (hygiene guile))
                             '(#(syntax-object
                                 x
                                 ((top)
                                  #(ribcage
                                    #(_ k keyword pattern template)
                                    #((top) (top) (top) (top) (top))
                                    #("i4155" "i4156" "i4157" "i4158" "i4159"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i4152")))
                                 (hygiene guile)))
                             (vector
                               '(#(syntax-object
                                   macro-type
                                   ((top)
                                    #(ribcage
                                      #(_ k keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("i4155"
                                        "i4156"
                                        "i4157"
                                        "i4158"
                                        "i4159"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4152")))
                                   (hygiene guile))
                                 .
                                 #(syntax-object
                                   syntax-rules
                                   ((top)
                                    #(ribcage
                                      #(_ k keyword pattern template)
                                      #((top) (top) (top) (top) (top))
                                      #("i4155"
                                        "i4156"
                                        "i4157"
                                        "i4158"
                                        "i4159"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4152")))
                                   (hygiene guile)))
                               (cons '#(syntax-object
                                        patterns
                                        ((top)
                                         #(ribcage
                                           #(_ k keyword pattern template)
                                           #((top) (top) (top) (top) (top))
                                           #("i4155"
                                             "i4156"
                                             "i4157"
                                             "i4158"
                                             "i4159"))
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i4152")))
                                        (hygiene guile))
                                     #{pattern\ 4163}#))
                             (cons '#(syntax-object
                                      syntax-case
                                      ((top)
                                       #(ribcage
                                         #(_ k keyword pattern template)
                                         #((top) (top) (top) (top) (top))
                                         #("i4155"
                                           "i4156"
                                           "i4157"
                                           "i4158"
                                           "i4159"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4152")))
                                      (hygiene guile))
                                   (cons '#(syntax-object
                                            x
                                            ((top)
                                             #(ribcage
                                               #(_ k keyword pattern template)
                                               #((top) (top) (top) (top) (top))
                                               #("i4155"
                                                 "i4156"
                                                 "i4157"
                                                 "i4158"
                                                 "i4159"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i4152")))
                                            (hygiene guile))
                                         (cons #{k\ 4161}#
                                               (map (lambda (#{tmp\ 4168}#
                                                             #{tmp\ 4167}#)
                                                      (list (cons '#(syntax-object
                                                                     dummy
                                                                     ((top)
                                                                      #(ribcage
                                                                        #(_
                                                                          k
                                                                          keyword
                                                                          pattern
                                                                          template)
                                                                        #((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                        #("i4155"
                                                                          "i4156"
                                                                          "i4157"
                                                                          "i4158"
                                                                          "i4159"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(x)
                                                                        #((top))
                                                                        #("i4152")))
                                                                     (hygiene
                                                                       guile))
                                                                  #{tmp\ 4167}#)
                                                            (list '#(syntax-object
                                                                     syntax
                                                                     ((top)
                                                                      #(ribcage
                                                                        #(_
                                                                          k
                                                                          keyword
                                                                          pattern
                                                                          template)
                                                                        #((top)
                                                                          (top)
                                                                          (top)
                                                                          (top)
                                                                          (top))
                                                                        #("i4155"
                                                                          "i4156"
                                                                          "i4157"
                                                                          "i4158"
                                                                          "i4159"))
                                                                      #(ribcage
                                                                        ()
                                                                        ()
                                                                        ())
                                                                      #(ribcage
                                                                        #(x)
                                                                        #((top))
                                                                        #("i4152")))
                                                                     (hygiene
                                                                       guile))
                                                                  #{tmp\ 4168}#)))
                                                    #{template\ 4164}#
                                                    #{pattern\ 4163}#))))))
                     #{tmp\ 4154}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4153}#)))
          ($sc-dispatch
            #{tmp\ 4153}#
            '(any each-any . #(each ((any . any) any))))))
       #{x\ 4151}#))))

(define let*
  (make-syntax-transformer
    'let*
    'macro
    (lambda (#{x\ 4169}#)
      ((lambda (#{tmp\ 4171}#)
         ((lambda (#{tmp\ 4172}#)
            (if (if #{tmp\ 4172}#
                  (apply (lambda (#{let*\ 4178}#
                                  #{x\ 4179}#
                                  #{v\ 4180}#
                                  #{e1\ 4181}#
                                  #{e2\ 4182}#)
                           (and-map identifier? #{x\ 4179}#))
                         #{tmp\ 4172}#)
                  #f)
              (apply (lambda (#{let*\ 4189}#
                              #{x\ 4190}#
                              #{v\ 4191}#
                              #{e1\ 4192}#
                              #{e2\ 4193}#)
                       (letrec ((#{f\ 4196}#
                                  (lambda (#{bindings\ 4197}#)
                                    (if (null? #{bindings\ 4197}#)
                                      (cons '#(syntax-object
                                               let
                                               ((top)
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(f bindings)
                                                  #((top) (top))
                                                  #("i4194" "i4195"))
                                                #(ribcage
                                                  #(let* x v e1 e2)
                                                  #((top)
                                                    (top)
                                                    (top)
                                                    (top)
                                                    (top))
                                                  #("i4184"
                                                    "i4185"
                                                    "i4186"
                                                    "i4187"
                                                    "i4188"))
                                                #(ribcage () () ())
                                                #(ribcage
                                                  #(x)
                                                  #((top))
                                                  #("i4170")))
                                               (hygiene guile))
                                            (cons '()
                                                  (cons #{e1\ 4192}#
                                                        #{e2\ 4193}#)))
                                      ((lambda (#{tmp\ 4202}#)
                                         ((lambda (#{tmp\ 4203}#)
                                            (if #{tmp\ 4203}#
                                              (apply (lambda (#{body\ 4206}#
                                                              #{binding\ 4207}#)
                                                       (list '#(syntax-object
                                                                let
                                                                ((top)
                                                                 #(ribcage
                                                                   #(body
                                                                     binding)
                                                                   #((top)
                                                                     (top))
                                                                   #("i4204"
                                                                     "i4205"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(f
                                                                     bindings)
                                                                   #((top)
                                                                     (top))
                                                                   #("i4194"
                                                                     "i4195"))
                                                                 #(ribcage
                                                                   #(let*
                                                                     x
                                                                     v
                                                                     e1
                                                                     e2)
                                                                   #((top)
                                                                     (top)
                                                                     (top)
                                                                     (top)
                                                                     (top))
                                                                   #("i4184"
                                                                     "i4185"
                                                                     "i4186"
                                                                     "i4187"
                                                                     "i4188"))
                                                                 #(ribcage
                                                                   ()
                                                                   ()
                                                                   ())
                                                                 #(ribcage
                                                                   #(x)
                                                                   #((top))
                                                                   #("i4170")))
                                                                (hygiene
                                                                  guile))
                                                             (list #{binding\ 4207}#)
                                                             #{body\ 4206}#))
                                                     #{tmp\ 4203}#)
                                              (syntax-violation
                                                #f
                                                "source expression failed to match any pattern"
                                                #{tmp\ 4202}#)))
                                          ($sc-dispatch
                                            #{tmp\ 4202}#
                                            '(any any))))
                                       (list (#{f\ 4196}#
                                               (cdr #{bindings\ 4197}#))
                                             (car #{bindings\ 4197}#)))))))
                         (#{f\ 4196}# (map list #{x\ 4190}# #{v\ 4191}#))))
                     #{tmp\ 4172}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4171}#)))
          ($sc-dispatch
            #{tmp\ 4171}#
            '(any #(each (any any)) any . each-any))))
       #{x\ 4169}#))))

(define do
  (make-syntax-transformer
    'do
    'macro
    (lambda (#{orig-x\ 4208}#)
      ((lambda (#{tmp\ 4210}#)
         ((lambda (#{tmp\ 4211}#)
            (if #{tmp\ 4211}#
              (apply (lambda (#{_\ 4219}#
                              #{var\ 4220}#
                              #{init\ 4221}#
                              #{step\ 4222}#
                              #{e0\ 4223}#
                              #{e1\ 4224}#
                              #{c\ 4225}#)
                       ((lambda (#{tmp\ 4227}#)
                          ((lambda (#{tmp\ 4228}#)
                             (if #{tmp\ 4228}#
                               (apply (lambda (#{step\ 4230}#)
                                        ((lambda (#{tmp\ 4231}#)
                                           ((lambda (#{tmp\ 4232}#)
                                              (if #{tmp\ 4232}#
                                                (apply (lambda ()
                                                         (list '#(syntax-object
                                                                  let
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(step)
                                                                     #((top))
                                                                     #("i4229"))
                                                                   #(ribcage
                                                                     #(_
                                                                       var
                                                                       init
                                                                       step
                                                                       e0
                                                                       e1
                                                                       c)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i4212"
                                                                       "i4213"
                                                                       "i4214"
                                                                       "i4215"
                                                                       "i4216"
                                                                       "i4217"
                                                                       "i4218"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(orig-x)
                                                                     #((top))
                                                                     #("i4209")))
                                                                  (hygiene
                                                                    guile))
                                                               '#(syntax-object
                                                                  doloop
                                                                  ((top)
                                                                   #(ribcage
                                                                     #(step)
                                                                     #((top))
                                                                     #("i4229"))
                                                                   #(ribcage
                                                                     #(_
                                                                       var
                                                                       init
                                                                       step
                                                                       e0
                                                                       e1
                                                                       c)
                                                                     #((top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top)
                                                                       (top))
                                                                     #("i4212"
                                                                       "i4213"
                                                                       "i4214"
                                                                       "i4215"
                                                                       "i4216"
                                                                       "i4217"
                                                                       "i4218"))
                                                                   #(ribcage
                                                                     ()
                                                                     ()
                                                                     ())
                                                                   #(ribcage
                                                                     #(orig-x)
                                                                     #((top))
                                                                     #("i4209")))
                                                                  (hygiene
                                                                    guile))
                                                               (map list
                                                                    #{var\ 4220}#
                                                                    #{init\ 4221}#)
                                                               (list '#(syntax-object
                                                                        if
                                                                        ((top)
                                                                         #(ribcage
                                                                           #(step)
                                                                           #((top))
                                                                           #("i4229"))
                                                                         #(ribcage
                                                                           #(_
                                                                             var
                                                                             init
                                                                             step
                                                                             e0
                                                                             e1
                                                                             c)
                                                                           #((top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top)
                                                                             (top))
                                                                           #("i4212"
                                                                             "i4213"
                                                                             "i4214"
                                                                             "i4215"
                                                                             "i4216"
                                                                             "i4217"
                                                                             "i4218"))
                                                                         #(ribcage
                                                                           ()
                                                                           ()
                                                                           ())
                                                                         #(ribcage
                                                                           #(orig-x)
                                                                           #((top))
                                                                           #("i4209")))
                                                                        (hygiene
                                                                          guile))
                                                                     (list '#(syntax-object
                                                                              not
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(step)
                                                                                 #((top))
                                                                                 #("i4229"))
                                                                               #(ribcage
                                                                                 #(_
                                                                                   var
                                                                                   init
                                                                                   step
                                                                                   e0
                                                                                   e1
                                                                                   c)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i4212"
                                                                                   "i4213"
                                                                                   "i4214"
                                                                                   "i4215"
                                                                                   "i4216"
                                                                                   "i4217"
                                                                                   "i4218"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(orig-x)
                                                                                 #((top))
                                                                                 #("i4209")))
                                                                              (hygiene
                                                                                guile))
                                                                           #{e0\ 4223}#)
                                                                     (cons '#(syntax-object
                                                                              begin
                                                                              ((top)
                                                                               #(ribcage
                                                                                 #(step)
                                                                                 #((top))
                                                                                 #("i4229"))
                                                                               #(ribcage
                                                                                 #(_
                                                                                   var
                                                                                   init
                                                                                   step
                                                                                   e0
                                                                                   e1
                                                                                   c)
                                                                                 #((top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top)
                                                                                   (top))
                                                                                 #("i4212"
                                                                                   "i4213"
                                                                                   "i4214"
                                                                                   "i4215"
                                                                                   "i4216"
                                                                                   "i4217"
                                                                                   "i4218"))
                                                                               #(ribcage
                                                                                 ()
                                                                                 ()
                                                                                 ())
                                                                               #(ribcage
                                                                                 #(orig-x)
                                                                                 #((top))
                                                                                 #("i4209")))
                                                                              (hygiene
                                                                                guile))
                                                                           (append
                                                                             #{c\ 4225}#
                                                                             (list (cons '#(syntax-object
                                                                                            doloop
                                                                                            ((top)
                                                                                             #(ribcage
                                                                                               #(step)
                                                                                               #((top))
                                                                                               #("i4229"))
                                                                                             #(ribcage
                                                                                               #(_
                                                                                                 var
                                                                                                 init
                                                                                                 step
                                                                                                 e0
                                                                                                 e1
                                                                                                 c)
                                                                                               #((top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top)
                                                                                                 (top))
                                                                                               #("i4212"
                                                                                                 "i4213"
                                                                                                 "i4214"
                                                                                                 "i4215"
                                                                                                 "i4216"
                                                                                                 "i4217"
                                                                                                 "i4218"))
                                                                                             #(ribcage
                                                                                               ()
                                                                                               ()
                                                                                               ())
                                                                                             #(ribcage
                                                                                               #(orig-x)
                                                                                               #((top))
                                                                                               #("i4209")))
                                                                                            (hygiene
                                                                                              guile))
                                                                                         #{step\ 4230}#)))))))
                                                       #{tmp\ 4232}#)
                                                ((lambda (#{tmp\ 4237}#)
                                                   (if #{tmp\ 4237}#
                                                     (apply (lambda (#{e1\ 4240}#
                                                                     #{e2\ 4241}#)
                                                              (list '#(syntax-object
                                                                       let
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i4238"
                                                                            "i4239"))
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i4229"))
                                                                        #(ribcage
                                                                          #(_
                                                                            var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4212"
                                                                            "i4213"
                                                                            "i4214"
                                                                            "i4215"
                                                                            "i4216"
                                                                            "i4217"
                                                                            "i4218"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i4209")))
                                                                       (hygiene
                                                                         guile))
                                                                    '#(syntax-object
                                                                       doloop
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(e1
                                                                            e2)
                                                                          #((top)
                                                                            (top))
                                                                          #("i4238"
                                                                            "i4239"))
                                                                        #(ribcage
                                                                          #(step)
                                                                          #((top))
                                                                          #("i4229"))
                                                                        #(ribcage
                                                                          #(_
                                                                            var
                                                                            init
                                                                            step
                                                                            e0
                                                                            e1
                                                                            c)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4212"
                                                                            "i4213"
                                                                            "i4214"
                                                                            "i4215"
                                                                            "i4216"
                                                                            "i4217"
                                                                            "i4218"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(orig-x)
                                                                          #((top))
                                                                          #("i4209")))
                                                                       (hygiene
                                                                         guile))
                                                                    (map list
                                                                         #{var\ 4220}#
                                                                         #{init\ 4221}#)
                                                                    (list '#(syntax-object
                                                                             if
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(e1
                                                                                  e2)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i4238"
                                                                                  "i4239"))
                                                                              #(ribcage
                                                                                #(step)
                                                                                #((top))
                                                                                #("i4229"))
                                                                              #(ribcage
                                                                                #(_
                                                                                  var
                                                                                  init
                                                                                  step
                                                                                  e0
                                                                                  e1
                                                                                  c)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4212"
                                                                                  "i4213"
                                                                                  "i4214"
                                                                                  "i4215"
                                                                                  "i4216"
                                                                                  "i4217"
                                                                                  "i4218"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(orig-x)
                                                                                #((top))
                                                                                #("i4209")))
                                                                             (hygiene
                                                                               guile))
                                                                          #{e0\ 4223}#
                                                                          (cons '#(syntax-object
                                                                                   begin
                                                                                   ((top)
                                                                                    #(ribcage
                                                                                      #(e1
                                                                                        e2)
                                                                                      #((top)
                                                                                        (top))
                                                                                      #("i4238"
                                                                                        "i4239"))
                                                                                    #(ribcage
                                                                                      #(step)
                                                                                      #((top))
                                                                                      #("i4229"))
                                                                                    #(ribcage
                                                                                      #(_
                                                                                        var
                                                                                        init
                                                                                        step
                                                                                        e0
                                                                                        e1
                                                                                        c)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i4212"
                                                                                        "i4213"
                                                                                        "i4214"
                                                                                        "i4215"
                                                                                        "i4216"
                                                                                        "i4217"
                                                                                        "i4218"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(orig-x)
                                                                                      #((top))
                                                                                      #("i4209")))
                                                                                   (hygiene
                                                                                     guile))
                                                                                (cons #{e1\ 4240}#
                                                                                      #{e2\ 4241}#))
                                                                          (cons '#(syntax-object
                                                                                   begin
                                                                                   ((top)
                                                                                    #(ribcage
                                                                                      #(e1
                                                                                        e2)
                                                                                      #((top)
                                                                                        (top))
                                                                                      #("i4238"
                                                                                        "i4239"))
                                                                                    #(ribcage
                                                                                      #(step)
                                                                                      #((top))
                                                                                      #("i4229"))
                                                                                    #(ribcage
                                                                                      #(_
                                                                                        var
                                                                                        init
                                                                                        step
                                                                                        e0
                                                                                        e1
                                                                                        c)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i4212"
                                                                                        "i4213"
                                                                                        "i4214"
                                                                                        "i4215"
                                                                                        "i4216"
                                                                                        "i4217"
                                                                                        "i4218"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(orig-x)
                                                                                      #((top))
                                                                                      #("i4209")))
                                                                                   (hygiene
                                                                                     guile))
                                                                                (append
                                                                                  #{c\ 4225}#
                                                                                  (list (cons '#(syntax-object
                                                                                                 doloop
                                                                                                 ((top)
                                                                                                  #(ribcage
                                                                                                    #(e1
                                                                                                      e2)
                                                                                                    #((top)
                                                                                                      (top))
                                                                                                    #("i4238"
                                                                                                      "i4239"))
                                                                                                  #(ribcage
                                                                                                    #(step)
                                                                                                    #((top))
                                                                                                    #("i4229"))
                                                                                                  #(ribcage
                                                                                                    #(_
                                                                                                      var
                                                                                                      init
                                                                                                      step
                                                                                                      e0
                                                                                                      e1
                                                                                                      c)
                                                                                                    #((top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top)
                                                                                                      (top))
                                                                                                    #("i4212"
                                                                                                      "i4213"
                                                                                                      "i4214"
                                                                                                      "i4215"
                                                                                                      "i4216"
                                                                                                      "i4217"
                                                                                                      "i4218"))
                                                                                                  #(ribcage
                                                                                                    ()
                                                                                                    ()
                                                                                                    ())
                                                                                                  #(ribcage
                                                                                                    #(orig-x)
                                                                                                    #((top))
                                                                                                    #("i4209")))
                                                                                                 (hygiene
                                                                                                   guile))
                                                                                              #{step\ 4230}#)))))))
                                                            #{tmp\ 4237}#)
                                                     (syntax-violation
                                                       #f
                                                       "source expression failed to match any pattern"
                                                       #{tmp\ 4231}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 4231}#
                                                   '(any . each-any)))))
                                            ($sc-dispatch
                                              #{tmp\ 4231}#
                                              '())))
                                         #{e1\ 4224}#))
                                      #{tmp\ 4228}#)
                               (syntax-violation
                                 #f
                                 "source expression failed to match any pattern"
                                 #{tmp\ 4227}#)))
                           ($sc-dispatch #{tmp\ 4227}# (quote each-any))))
                        (map (lambda (#{v\ 4248}# #{s\ 4249}#)
                               ((lambda (#{tmp\ 4252}#)
                                  ((lambda (#{tmp\ 4253}#)
                                     (if #{tmp\ 4253}#
                                       (apply (lambda () #{v\ 4248}#)
                                              #{tmp\ 4253}#)
                                       ((lambda (#{tmp\ 4254}#)
                                          (if #{tmp\ 4254}#
                                            (apply (lambda (#{e\ 4256}#)
                                                     #{e\ 4256}#)
                                                   #{tmp\ 4254}#)
                                            ((lambda (#{_\ 4258}#)
                                               (syntax-violation
                                                 'do
                                                 "bad step expression"
                                                 #{orig-x\ 4208}#
                                                 #{s\ 4249}#))
                                             #{tmp\ 4252}#)))
                                        ($sc-dispatch
                                          #{tmp\ 4252}#
                                          '(any)))))
                                   ($sc-dispatch #{tmp\ 4252}# (quote ()))))
                                #{s\ 4249}#))
                             #{var\ 4220}#
                             #{step\ 4222}#)))
                     #{tmp\ 4211}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4210}#)))
          ($sc-dispatch
            #{tmp\ 4210}#
            '(any #(each (any any . any))
                  (any . each-any)
                  .
                  each-any))))
       #{orig-x\ 4208}#))))

(define quasiquote
  (make-syntax-transformer
    'quasiquote
    'macro
    (letrec ((#{quasicons\ 4265}#
               (lambda (#{x\ 4269}# #{y\ 4270}#)
                 ((lambda (#{tmp\ 4274}#)
                    ((lambda (#{tmp\ 4275}#)
                       (if #{tmp\ 4275}#
                         (apply (lambda (#{x\ 4278}# #{y\ 4279}#)
                                  ((lambda (#{tmp\ 4280}#)
                                     ((lambda (#{tmp\ 4281}#)
                                        (if #{tmp\ 4281}#
                                          (apply (lambda (#{dy\ 4283}#)
                                                   ((lambda (#{tmp\ 4284}#)
                                                      ((lambda (#{tmp\ 4285}#)
                                                         (if #{tmp\ 4285}#
                                                           (apply (lambda (#{dx\ 4287}#)
                                                                    (list '#(syntax-object
                                                                             quote
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(dx)
                                                                                #((top))
                                                                                #("i4286"))
                                                                              #(ribcage
                                                                                #(dy)
                                                                                #((top))
                                                                                #("i4282"))
                                                                              #(ribcage
                                                                                #(x
                                                                                  y)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i4276"
                                                                                  "i4277"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(x
                                                                                  y)
                                                                                #((top)
                                                                                  (top))
                                                                                #("i4271"
                                                                                  "i4272"))
                                                                              #(ribcage
                                                                                #(quasicons
                                                                                  quasiappend
                                                                                  quasivector
                                                                                  quasi)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4261"
                                                                                  "i4262"
                                                                                  "i4263"
                                                                                  "i4264")))
                                                                             (hygiene
                                                                               guile))
                                                                          (cons #{dx\ 4287}#
                                                                                #{dy\ 4283}#)))
                                                                  #{tmp\ 4285}#)
                                                           ((lambda (#{_\ 4289}#)
                                                              (if (null? #{dy\ 4283}#)
                                                                (list '#(syntax-object
                                                                         list
                                                                         ((top)
                                                                          #(ribcage
                                                                            #(_)
                                                                            #((top))
                                                                            #("i4288"))
                                                                          #(ribcage
                                                                            #(dy)
                                                                            #((top))
                                                                            #("i4282"))
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i4276"
                                                                              "i4277"))
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i4271"
                                                                              "i4272"))
                                                                          #(ribcage
                                                                            #(quasicons
                                                                              quasiappend
                                                                              quasivector
                                                                              quasi)
                                                                            #((top)
                                                                              (top)
                                                                              (top)
                                                                              (top))
                                                                            #("i4261"
                                                                              "i4262"
                                                                              "i4263"
                                                                              "i4264")))
                                                                         (hygiene
                                                                           guile))
                                                                      #{x\ 4278}#)
                                                                (list '#(syntax-object
                                                                         cons
                                                                         ((top)
                                                                          #(ribcage
                                                                            #(_)
                                                                            #((top))
                                                                            #("i4288"))
                                                                          #(ribcage
                                                                            #(dy)
                                                                            #((top))
                                                                            #("i4282"))
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i4276"
                                                                              "i4277"))
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            ()
                                                                            ()
                                                                            ())
                                                                          #(ribcage
                                                                            #(x
                                                                              y)
                                                                            #((top)
                                                                              (top))
                                                                            #("i4271"
                                                                              "i4272"))
                                                                          #(ribcage
                                                                            #(quasicons
                                                                              quasiappend
                                                                              quasivector
                                                                              quasi)
                                                                            #((top)
                                                                              (top)
                                                                              (top)
                                                                              (top))
                                                                            #("i4261"
                                                                              "i4262"
                                                                              "i4263"
                                                                              "i4264")))
                                                                         (hygiene
                                                                           guile))
                                                                      #{x\ 4278}#
                                                                      #{y\ 4279}#)))
                                                            #{tmp\ 4284}#)))
                                                       ($sc-dispatch
                                                         #{tmp\ 4284}#
                                                         '(#(free-id
                                                             #(syntax-object
                                                               quote
                                                               ((top)
                                                                #(ribcage
                                                                  #(dy)
                                                                  #((top))
                                                                  #("i4282"))
                                                                #(ribcage
                                                                  #(x y)
                                                                  #((top)
                                                                    (top))
                                                                  #("i4276"
                                                                    "i4277"))
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  ()
                                                                  ()
                                                                  ())
                                                                #(ribcage
                                                                  #(x y)
                                                                  #((top)
                                                                    (top))
                                                                  #("i4271"
                                                                    "i4272"))
                                                                #(ribcage
                                                                  #(quasicons
                                                                    quasiappend
                                                                    quasivector
                                                                    quasi)
                                                                  #((top)
                                                                    (top)
                                                                    (top)
                                                                    (top))
                                                                  #("i4261"
                                                                    "i4262"
                                                                    "i4263"
                                                                    "i4264")))
                                                               (hygiene
                                                                 guile)))
                                                           any))))
                                                    #{x\ 4278}#))
                                                 #{tmp\ 4281}#)
                                          ((lambda (#{tmp\ 4290}#)
                                             (if #{tmp\ 4290}#
                                               (apply (lambda (#{stuff\ 4292}#)
                                                        (cons '#(syntax-object
                                                                 list
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(stuff)
                                                                    #((top))
                                                                    #("i4291"))
                                                                  #(ribcage
                                                                    #(x y)
                                                                    #((top)
                                                                      (top))
                                                                    #("i4276"
                                                                      "i4277"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x y)
                                                                    #((top)
                                                                      (top))
                                                                    #("i4271"
                                                                      "i4272"))
                                                                  #(ribcage
                                                                    #(quasicons
                                                                      quasiappend
                                                                      quasivector
                                                                      quasi)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i4261"
                                                                      "i4262"
                                                                      "i4263"
                                                                      "i4264")))
                                                                 (hygiene
                                                                   guile))
                                                              (cons #{x\ 4278}#
                                                                    #{stuff\ 4292}#)))
                                                      #{tmp\ 4290}#)
                                               ((lambda (#{else\ 4294}#)
                                                  (list '#(syntax-object
                                                           cons
                                                           ((top)
                                                            #(ribcage
                                                              #(else)
                                                              #((top))
                                                              #("i4293"))
                                                            #(ribcage
                                                              #(x y)
                                                              #((top) (top))
                                                              #("i4276"
                                                                "i4277"))
                                                            #(ribcage () () ())
                                                            #(ribcage () () ())
                                                            #(ribcage
                                                              #(x y)
                                                              #((top) (top))
                                                              #("i4271"
                                                                "i4272"))
                                                            #(ribcage
                                                              #(quasicons
                                                                quasiappend
                                                                quasivector
                                                                quasi)
                                                              #((top)
                                                                (top)
                                                                (top)
                                                                (top))
                                                              #("i4261"
                                                                "i4262"
                                                                "i4263"
                                                                "i4264")))
                                                           (hygiene guile))
                                                        #{x\ 4278}#
                                                        #{y\ 4279}#))
                                                #{tmp\ 4280}#)))
                                           ($sc-dispatch
                                             #{tmp\ 4280}#
                                             '(#(free-id
                                                 #(syntax-object
                                                   list
                                                   ((top)
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
                                                      #("i4276" "i4277"))
                                                    #(ribcage () () ())
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x y)
                                                      #((top) (top))
                                                      #("i4271" "i4272"))
                                                    #(ribcage
                                                      #(quasicons
                                                        quasiappend
                                                        quasivector
                                                        quasi)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i4261"
                                                        "i4262"
                                                        "i4263"
                                                        "i4264")))
                                                   (hygiene guile)))
                                               .
                                               any)))))
                                      ($sc-dispatch
                                        #{tmp\ 4280}#
                                        '(#(free-id
                                            #(syntax-object
                                              quote
                                              ((top)
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4276" "i4277"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4271" "i4272"))
                                               #(ribcage
                                                 #(quasicons
                                                   quasiappend
                                                   quasivector
                                                   quasi)
                                                 #((top) (top) (top) (top))
                                                 #("i4261"
                                                   "i4262"
                                                   "i4263"
                                                   "i4264")))
                                              (hygiene guile)))
                                          any))))
                                   #{y\ 4279}#))
                                #{tmp\ 4275}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           #{tmp\ 4274}#)))
                     ($sc-dispatch #{tmp\ 4274}# (quote (any any)))))
                  (list #{x\ 4269}# #{y\ 4270}#))))
             (#{quasiappend\ 4266}#
               (lambda (#{x\ 4295}# #{y\ 4296}#)
                 ((lambda (#{tmp\ 4300}#)
                    ((lambda (#{tmp\ 4301}#)
                       (if #{tmp\ 4301}#
                         (apply (lambda (#{x\ 4304}# #{y\ 4305}#)
                                  ((lambda (#{tmp\ 4306}#)
                                     ((lambda (#{tmp\ 4307}#)
                                        (if #{tmp\ 4307}#
                                          (apply (lambda () #{x\ 4304}#)
                                                 #{tmp\ 4307}#)
                                          ((lambda (#{_\ 4309}#)
                                             (list '#(syntax-object
                                                      append
                                                      ((top)
                                                       #(ribcage
                                                         #(_)
                                                         #((top))
                                                         #("i4308"))
                                                       #(ribcage
                                                         #(x y)
                                                         #((top) (top))
                                                         #("i4302" "i4303"))
                                                       #(ribcage () () ())
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x y)
                                                         #((top) (top))
                                                         #("i4297" "i4298"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4261"
                                                           "i4262"
                                                           "i4263"
                                                           "i4264")))
                                                      (hygiene guile))
                                                   #{x\ 4304}#
                                                   #{y\ 4305}#))
                                           #{tmp\ 4306}#)))
                                      ($sc-dispatch
                                        #{tmp\ 4306}#
                                        '(#(free-id
                                            #(syntax-object
                                              quote
                                              ((top)
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4302" "i4303"))
                                               #(ribcage () () ())
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x y)
                                                 #((top) (top))
                                                 #("i4297" "i4298"))
                                               #(ribcage
                                                 #(quasicons
                                                   quasiappend
                                                   quasivector
                                                   quasi)
                                                 #((top) (top) (top) (top))
                                                 #("i4261"
                                                   "i4262"
                                                   "i4263"
                                                   "i4264")))
                                              (hygiene guile)))
                                          ()))))
                                   #{y\ 4305}#))
                                #{tmp\ 4301}#)
                         (syntax-violation
                           #f
                           "source expression failed to match any pattern"
                           #{tmp\ 4300}#)))
                     ($sc-dispatch #{tmp\ 4300}# (quote (any any)))))
                  (list #{x\ 4295}# #{y\ 4296}#))))
             (#{quasivector\ 4267}#
               (lambda (#{x\ 4310}#)
                 ((lambda (#{tmp\ 4313}#)
                    ((lambda (#{x\ 4315}#)
                       ((lambda (#{tmp\ 4316}#)
                          ((lambda (#{tmp\ 4317}#)
                             (if #{tmp\ 4317}#
                               (apply (lambda (#{x\ 4319}#)
                                        (list '#(syntax-object
                                                 quote
                                                 ((top)
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i4318"))
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i4314"))
                                                  #(ribcage () () ())
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(x)
                                                    #((top))
                                                    #("i4311"))
                                                  #(ribcage
                                                    #(quasicons
                                                      quasiappend
                                                      quasivector
                                                      quasi)
                                                    #((top) (top) (top) (top))
                                                    #("i4261"
                                                      "i4262"
                                                      "i4263"
                                                      "i4264")))
                                                 (hygiene guile))
                                              (list->vector #{x\ 4319}#)))
                                      #{tmp\ 4317}#)
                               ((lambda (#{tmp\ 4321}#)
                                  (if #{tmp\ 4321}#
                                    (apply (lambda (#{x\ 4323}#)
                                             (cons '#(syntax-object
                                                      vector
                                                      ((top)
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4322"))
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4314"))
                                                       #(ribcage () () ())
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(x)
                                                         #((top))
                                                         #("i4311"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4261"
                                                           "i4262"
                                                           "i4263"
                                                           "i4264")))
                                                      (hygiene guile))
                                                   #{x\ 4323}#))
                                           #{tmp\ 4321}#)
                                    ((lambda (#{_\ 4326}#)
                                       (list '#(syntax-object
                                                list->vector
                                                ((top)
                                                 #(ribcage
                                                   #(_)
                                                   #((top))
                                                   #("i4325"))
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i4314"))
                                                 #(ribcage () () ())
                                                 #(ribcage () () ())
                                                 #(ribcage
                                                   #(x)
                                                   #((top))
                                                   #("i4311"))
                                                 #(ribcage
                                                   #(quasicons
                                                     quasiappend
                                                     quasivector
                                                     quasi)
                                                   #((top) (top) (top) (top))
                                                   #("i4261"
                                                     "i4262"
                                                     "i4263"
                                                     "i4264")))
                                                (hygiene guile))
                                             #{x\ 4315}#))
                                     #{tmp\ 4316}#)))
                                ($sc-dispatch
                                  #{tmp\ 4316}#
                                  '(#(free-id
                                      #(syntax-object
                                        list
                                        ((top)
                                         #(ribcage #(x) #((top)) #("i4314"))
                                         #(ribcage () () ())
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i4311"))
                                         #(ribcage
                                           #(quasicons
                                             quasiappend
                                             quasivector
                                             quasi)
                                           #((top) (top) (top) (top))
                                           #("i4261" "i4262" "i4263" "i4264")))
                                        (hygiene guile)))
                                    .
                                    each-any)))))
                           ($sc-dispatch
                             #{tmp\ 4316}#
                             '(#(free-id
                                 #(syntax-object
                                   quote
                                   ((top)
                                    #(ribcage #(x) #((top)) #("i4314"))
                                    #(ribcage () () ())
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4311"))
                                    #(ribcage
                                      #(quasicons
                                        quasiappend
                                        quasivector
                                        quasi)
                                      #((top) (top) (top) (top))
                                      #("i4261" "i4262" "i4263" "i4264")))
                                   (hygiene guile)))
                               each-any))))
                        #{x\ 4315}#))
                     #{tmp\ 4313}#))
                  #{x\ 4310}#)))
             (#{quasi\ 4268}#
               (lambda (#{p\ 4327}# #{lev\ 4328}#)
                 ((lambda (#{tmp\ 4331}#)
                    ((lambda (#{tmp\ 4332}#)
                       (if #{tmp\ 4332}#
                         (apply (lambda (#{p\ 4334}#)
                                  (if (= #{lev\ 4328}# 0)
                                    #{p\ 4334}#
                                    (#{quasicons\ 4265}#
                                      '(#(syntax-object
                                          quote
                                          ((top)
                                           #(ribcage #(p) #((top)) #("i4333"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
                                             #("i4329" "i4330"))
                                           #(ribcage
                                             #(quasicons
                                               quasiappend
                                               quasivector
                                               quasi)
                                             #((top) (top) (top) (top))
                                             #("i4261"
                                               "i4262"
                                               "i4263"
                                               "i4264")))
                                          (hygiene guile))
                                        #(syntax-object
                                          unquote
                                          ((top)
                                           #(ribcage #(p) #((top)) #("i4333"))
                                           #(ribcage () () ())
                                           #(ribcage
                                             #(p lev)
                                             #((top) (top))
                                             #("i4329" "i4330"))
                                           #(ribcage
                                             #(quasicons
                                               quasiappend
                                               quasivector
                                               quasi)
                                             #((top) (top) (top) (top))
                                             #("i4261"
                                               "i4262"
                                               "i4263"
                                               "i4264")))
                                          (hygiene guile)))
                                      (#{quasi\ 4268}#
                                        (list #{p\ 4334}#)
                                        (- #{lev\ 4328}# 1)))))
                                #{tmp\ 4332}#)
                         ((lambda (#{tmp\ 4335}#)
                            (if (if #{tmp\ 4335}#
                                  (apply (lambda (#{args\ 4337}#)
                                           (= #{lev\ 4328}# 0))
                                         #{tmp\ 4335}#)
                                  #f)
                              (apply (lambda (#{args\ 4339}#)
                                       (syntax-violation
                                         'unquote
                                         "unquote takes exactly one argument"
                                         #{p\ 4327}#
                                         (cons '#(syntax-object
                                                  unquote
                                                  ((top)
                                                   #(ribcage
                                                     #(args)
                                                     #((top))
                                                     #("i4338"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(p lev)
                                                     #((top) (top))
                                                     #("i4329" "i4330"))
                                                   #(ribcage
                                                     #(quasicons
                                                       quasiappend
                                                       quasivector
                                                       quasi)
                                                     #((top) (top) (top) (top))
                                                     #("i4261"
                                                       "i4262"
                                                       "i4263"
                                                       "i4264")))
                                                  (hygiene guile))
                                               #{args\ 4339}#)))
                                     #{tmp\ 4335}#)
                              ((lambda (#{tmp\ 4340}#)
                                 (if #{tmp\ 4340}#
                                   (apply (lambda (#{p\ 4343}# #{q\ 4344}#)
                                            (if (= #{lev\ 4328}# 0)
                                              (#{quasiappend\ 4266}#
                                                #{p\ 4343}#
                                                (#{quasi\ 4268}#
                                                  #{q\ 4344}#
                                                  #{lev\ 4328}#))
                                              (#{quasicons\ 4265}#
                                                (#{quasicons\ 4265}#
                                                  '(#(syntax-object
                                                      quote
                                                      ((top)
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
                                                         #("i4341" "i4342"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
                                                         #("i4329" "i4330"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4261"
                                                           "i4262"
                                                           "i4263"
                                                           "i4264")))
                                                      (hygiene guile))
                                                    #(syntax-object
                                                      unquote-splicing
                                                      ((top)
                                                       #(ribcage
                                                         #(p q)
                                                         #((top) (top))
                                                         #("i4341" "i4342"))
                                                       #(ribcage () () ())
                                                       #(ribcage
                                                         #(p lev)
                                                         #((top) (top))
                                                         #("i4329" "i4330"))
                                                       #(ribcage
                                                         #(quasicons
                                                           quasiappend
                                                           quasivector
                                                           quasi)
                                                         #((top)
                                                           (top)
                                                           (top)
                                                           (top))
                                                         #("i4261"
                                                           "i4262"
                                                           "i4263"
                                                           "i4264")))
                                                      (hygiene guile)))
                                                  (#{quasi\ 4268}#
                                                    (list #{p\ 4343}#)
                                                    (- #{lev\ 4328}# 1)))
                                                (#{quasi\ 4268}#
                                                  #{q\ 4344}#
                                                  #{lev\ 4328}#))))
                                          #{tmp\ 4340}#)
                                   ((lambda (#{tmp\ 4345}#)
                                      (if (if #{tmp\ 4345}#
                                            (apply (lambda (#{args\ 4348}#
                                                            #{q\ 4349}#)
                                                     (= #{lev\ 4328}# 0))
                                                   #{tmp\ 4345}#)
                                            #f)
                                        (apply (lambda (#{args\ 4352}#
                                                        #{q\ 4353}#)
                                                 (syntax-violation
                                                   'unquote-splicing
                                                   "unquote-splicing takes exactly one argument"
                                                   #{p\ 4327}#
                                                   (cons '#(syntax-object
                                                            unquote-splicing
                                                            ((top)
                                                             #(ribcage
                                                               #(args q)
                                                               #((top) (top))
                                                               #("i4350"
                                                                 "i4351"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i4329"
                                                                 "i4330"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i4261"
                                                                 "i4262"
                                                                 "i4263"
                                                                 "i4264")))
                                                            (hygiene guile))
                                                         #{args\ 4352}#)))
                                               #{tmp\ 4345}#)
                                        ((lambda (#{tmp\ 4354}#)
                                           (if #{tmp\ 4354}#
                                             (apply (lambda (#{p\ 4356}#)
                                                      (#{quasicons\ 4265}#
                                                        '(#(syntax-object
                                                            quote
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
                                                               #("i4355"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i4329"
                                                                 "i4330"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i4261"
                                                                 "i4262"
                                                                 "i4263"
                                                                 "i4264")))
                                                            (hygiene guile))
                                                          #(syntax-object
                                                            quasiquote
                                                            ((top)
                                                             #(ribcage
                                                               #(p)
                                                               #((top))
                                                               #("i4355"))
                                                             #(ribcage
                                                               ()
                                                               ()
                                                               ())
                                                             #(ribcage
                                                               #(p lev)
                                                               #((top) (top))
                                                               #("i4329"
                                                                 "i4330"))
                                                             #(ribcage
                                                               #(quasicons
                                                                 quasiappend
                                                                 quasivector
                                                                 quasi)
                                                               #((top)
                                                                 (top)
                                                                 (top)
                                                                 (top))
                                                               #("i4261"
                                                                 "i4262"
                                                                 "i4263"
                                                                 "i4264")))
                                                            (hygiene guile)))
                                                        (#{quasi\ 4268}#
                                                          (list #{p\ 4356}#)
                                                          (+ #{lev\ 4328}#
                                                             1))))
                                                    #{tmp\ 4354}#)
                                             ((lambda (#{tmp\ 4357}#)
                                                (if #{tmp\ 4357}#
                                                  (apply (lambda (#{p\ 4360}#
                                                                  #{q\ 4361}#)
                                                           (#{quasicons\ 4265}#
                                                             (#{quasi\ 4268}#
                                                               #{p\ 4360}#
                                                               #{lev\ 4328}#)
                                                             (#{quasi\ 4268}#
                                                               #{q\ 4361}#
                                                               #{lev\ 4328}#)))
                                                         #{tmp\ 4357}#)
                                                  ((lambda (#{tmp\ 4362}#)
                                                     (if #{tmp\ 4362}#
                                                       (apply (lambda (#{x\ 4364}#)
                                                                (#{quasivector\ 4267}#
                                                                  (#{quasi\ 4268}#
                                                                    #{x\ 4364}#
                                                                    #{lev\ 4328}#)))
                                                              #{tmp\ 4362}#)
                                                       ((lambda (#{p\ 4367}#)
                                                          (list '#(syntax-object
                                                                   quote
                                                                   ((top)
                                                                    #(ribcage
                                                                      #(p)
                                                                      #((top))
                                                                      #("i4366"))
                                                                    #(ribcage
                                                                      ()
                                                                      ()
                                                                      ())
                                                                    #(ribcage
                                                                      #(p lev)
                                                                      #((top)
                                                                        (top))
                                                                      #("i4329"
                                                                        "i4330"))
                                                                    #(ribcage
                                                                      #(quasicons
                                                                        quasiappend
                                                                        quasivector
                                                                        quasi)
                                                                      #((top)
                                                                        (top)
                                                                        (top)
                                                                        (top))
                                                                      #("i4261"
                                                                        "i4262"
                                                                        "i4263"
                                                                        "i4264")))
                                                                   (hygiene
                                                                     guile))
                                                                #{p\ 4367}#))
                                                        #{tmp\ 4331}#)))
                                                   ($sc-dispatch
                                                     #{tmp\ 4331}#
                                                     '#(vector each-any)))))
                                              ($sc-dispatch
                                                #{tmp\ 4331}#
                                                '(any . any)))))
                                         ($sc-dispatch
                                           #{tmp\ 4331}#
                                           '(#(free-id
                                               #(syntax-object
                                                 quasiquote
                                                 ((top)
                                                  #(ribcage () () ())
                                                  #(ribcage
                                                    #(p lev)
                                                    #((top) (top))
                                                    #("i4329" "i4330"))
                                                  #(ribcage
                                                    #(quasicons
                                                      quasiappend
                                                      quasivector
                                                      quasi)
                                                    #((top) (top) (top) (top))
                                                    #("i4261"
                                                      "i4262"
                                                      "i4263"
                                                      "i4264")))
                                                 (hygiene guile)))
                                             any)))))
                                    ($sc-dispatch
                                      #{tmp\ 4331}#
                                      '((#(free-id
                                           #(syntax-object
                                             unquote-splicing
                                             ((top)
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(p lev)
                                                #((top) (top))
                                                #("i4329" "i4330"))
                                              #(ribcage
                                                #(quasicons
                                                  quasiappend
                                                  quasivector
                                                  quasi)
                                                #((top) (top) (top) (top))
                                                #("i4261"
                                                  "i4262"
                                                  "i4263"
                                                  "i4264")))
                                             (hygiene guile)))
                                         .
                                         any)
                                        .
                                        any)))))
                               ($sc-dispatch
                                 #{tmp\ 4331}#
                                 '((#(free-id
                                      #(syntax-object
                                        unquote-splicing
                                        ((top)
                                         #(ribcage () () ())
                                         #(ribcage
                                           #(p lev)
                                           #((top) (top))
                                           #("i4329" "i4330"))
                                         #(ribcage
                                           #(quasicons
                                             quasiappend
                                             quasivector
                                             quasi)
                                           #((top) (top) (top) (top))
                                           #("i4261" "i4262" "i4263" "i4264")))
                                        (hygiene guile)))
                                    any)
                                   .
                                   any)))))
                          ($sc-dispatch
                            #{tmp\ 4331}#
                            '(#(free-id
                                #(syntax-object
                                  unquote
                                  ((top)
                                   #(ribcage () () ())
                                   #(ribcage
                                     #(p lev)
                                     #((top) (top))
                                     #("i4329" "i4330"))
                                   #(ribcage
                                     #(quasicons quasiappend quasivector quasi)
                                     #((top) (top) (top) (top))
                                     #("i4261" "i4262" "i4263" "i4264")))
                                  (hygiene guile)))
                              .
                              any)))))
                     ($sc-dispatch
                       #{tmp\ 4331}#
                       '(#(free-id
                           #(syntax-object
                             unquote
                             ((top)
                              #(ribcage () () ())
                              #(ribcage
                                #(p lev)
                                #((top) (top))
                                #("i4329" "i4330"))
                              #(ribcage
                                #(quasicons quasiappend quasivector quasi)
                                #((top) (top) (top) (top))
                                #("i4261" "i4262" "i4263" "i4264")))
                             (hygiene guile)))
                         any))))
                  #{p\ 4327}#))))
      (lambda (#{x\ 4368}#)
        ((lambda (#{tmp\ 4370}#)
           ((lambda (#{tmp\ 4371}#)
              (if #{tmp\ 4371}#
                (apply (lambda (#{_\ 4374}# #{e\ 4375}#)
                         (#{quasi\ 4268}# #{e\ 4375}# 0))
                       #{tmp\ 4371}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp\ 4370}#)))
            ($sc-dispatch #{tmp\ 4370}# (quote (any any)))))
         #{x\ 4368}#)))))

(define include
  (make-syntax-transformer
    'include
    'macro
    (lambda (#{x\ 4376}#)
      (letrec ((#{read-file\ 4379}#
                 (lambda (#{fn\ 4380}# #{k\ 4381}#)
                   (let ((#{p\ 4385}# (open-input-file #{fn\ 4380}#)))
                     (letrec ((#{f\ 4389}#
                                (lambda (#{x\ 4390}# #{result\ 4391}#)
                                  (if (eof-object? #{x\ 4390}#)
                                    (begin
                                      (close-input-port #{p\ 4385}#)
                                      (reverse #{result\ 4391}#))
                                    (#{f\ 4389}#
                                      (read #{p\ 4385}#)
                                      (cons (datum->syntax
                                              #{k\ 4381}#
                                              #{x\ 4390}#)
                                            #{result\ 4391}#))))))
                       (#{f\ 4389}# (read #{p\ 4385}#) (quote ())))))))
        ((lambda (#{tmp\ 4392}#)
           ((lambda (#{tmp\ 4393}#)
              (if #{tmp\ 4393}#
                (apply (lambda (#{k\ 4396}# #{filename\ 4397}#)
                         (let ((#{fn\ 4399}#
                                 (syntax->datum #{filename\ 4397}#)))
                           ((lambda (#{tmp\ 4401}#)
                              ((lambda (#{tmp\ 4402}#)
                                 (if #{tmp\ 4402}#
                                   (apply (lambda (#{exp\ 4404}#)
                                            (cons '#(syntax-object
                                                     begin
                                                     ((top)
                                                      #(ribcage
                                                        #(exp)
                                                        #((top))
                                                        #("i4403"))
                                                      #(ribcage () () ())
                                                      #(ribcage () () ())
                                                      #(ribcage
                                                        #(fn)
                                                        #((top))
                                                        #("i4398"))
                                                      #(ribcage
                                                        #(k filename)
                                                        #((top) (top))
                                                        #("i4394" "i4395"))
                                                      #(ribcage
                                                        (read-file)
                                                        ((top))
                                                        ("i4378"))
                                                      #(ribcage
                                                        #(x)
                                                        #((top))
                                                        #("i4377")))
                                                     (hygiene guile))
                                                  #{exp\ 4404}#))
                                          #{tmp\ 4402}#)
                                   (syntax-violation
                                     #f
                                     "source expression failed to match any pattern"
                                     #{tmp\ 4401}#)))
                               ($sc-dispatch #{tmp\ 4401}# (quote each-any))))
                            (#{read-file\ 4379}#
                              #{fn\ 4399}#
                              #{filename\ 4397}#))))
                       #{tmp\ 4393}#)
                (syntax-violation
                  #f
                  "source expression failed to match any pattern"
                  #{tmp\ 4392}#)))
            ($sc-dispatch #{tmp\ 4392}# (quote (any any)))))
         #{x\ 4376}#)))))

(define include-from-path
  (make-syntax-transformer
    'include-from-path
    'macro
    (lambda (#{x\ 4406}#)
      ((lambda (#{tmp\ 4408}#)
         ((lambda (#{tmp\ 4409}#)
            (if #{tmp\ 4409}#
              (apply (lambda (#{k\ 4412}# #{filename\ 4413}#)
                       (let ((#{fn\ 4415}# (syntax->datum #{filename\ 4413}#)))
                         ((lambda (#{tmp\ 4417}#)
                            ((lambda (#{fn\ 4419}#)
                               (list '#(syntax-object
                                        include
                                        ((top)
                                         #(ribcage #(fn) #((top)) #("i4418"))
                                         #(ribcage () () ())
                                         #(ribcage () () ())
                                         #(ribcage #(fn) #((top)) #("i4414"))
                                         #(ribcage
                                           #(k filename)
                                           #((top) (top))
                                           #("i4410" "i4411"))
                                         #(ribcage () () ())
                                         #(ribcage #(x) #((top)) #("i4407")))
                                        (hygiene guile))
                                     #{fn\ 4419}#))
                             #{tmp\ 4417}#))
                          (datum->syntax
                            #{filename\ 4413}#
                            (let ((#{t\ 4422}#
                                    (%search-load-path #{fn\ 4415}#)))
                              (if #{t\ 4422}#
                                #{t\ 4422}#
                                (syntax-violation
                                  'include-from-path
                                  "file not found in path"
                                  #{x\ 4406}#
                                  #{filename\ 4413}#)))))))
                     #{tmp\ 4409}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4408}#)))
          ($sc-dispatch #{tmp\ 4408}# (quote (any any)))))
       #{x\ 4406}#))))

(define unquote
  (make-syntax-transformer
    'unquote
    'macro
    (lambda (#{x\ 4424}#)
      ((lambda (#{tmp\ 4426}#)
         ((lambda (#{tmp\ 4427}#)
            (if #{tmp\ 4427}#
              (apply (lambda (#{_\ 4430}# #{e\ 4431}#)
                       (syntax-violation
                         'unquote
                         "expression not valid outside of quasiquote"
                         #{x\ 4424}#))
                     #{tmp\ 4427}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4426}#)))
          ($sc-dispatch #{tmp\ 4426}# (quote (any any)))))
       #{x\ 4424}#))))

(define unquote-splicing
  (make-syntax-transformer
    'unquote-splicing
    'macro
    (lambda (#{x\ 4432}#)
      ((lambda (#{tmp\ 4434}#)
         ((lambda (#{tmp\ 4435}#)
            (if #{tmp\ 4435}#
              (apply (lambda (#{_\ 4438}# #{e\ 4439}#)
                       (syntax-violation
                         'unquote-splicing
                         "expression not valid outside of quasiquote"
                         #{x\ 4432}#))
                     #{tmp\ 4435}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4434}#)))
          ($sc-dispatch #{tmp\ 4434}# (quote (any any)))))
       #{x\ 4432}#))))

(define case
  (make-syntax-transformer
    'case
    'macro
    (lambda (#{x\ 4440}#)
      ((lambda (#{tmp\ 4442}#)
         ((lambda (#{tmp\ 4443}#)
            (if #{tmp\ 4443}#
              (apply (lambda (#{_\ 4448}#
                              #{e\ 4449}#
                              #{m1\ 4450}#
                              #{m2\ 4451}#)
                       ((lambda (#{tmp\ 4453}#)
                          ((lambda (#{body\ 4455}#)
                             (list '#(syntax-object
                                      let
                                      ((top)
                                       #(ribcage #(body) #((top)) #("i4454"))
                                       #(ribcage
                                         #(_ e m1 m2)
                                         #((top) (top) (top) (top))
                                         #("i4444" "i4445" "i4446" "i4447"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4441")))
                                      (hygiene guile))
                                   (list (list '#(syntax-object
                                                  t
                                                  ((top)
                                                   #(ribcage
                                                     #(body)
                                                     #((top))
                                                     #("i4454"))
                                                   #(ribcage
                                                     #(_ e m1 m2)
                                                     #((top) (top) (top) (top))
                                                     #("i4444"
                                                       "i4445"
                                                       "i4446"
                                                       "i4447"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i4441")))
                                                  (hygiene guile))
                                               #{e\ 4449}#))
                                   #{body\ 4455}#))
                           #{tmp\ 4453}#))
                        (letrec ((#{f\ 4459}#
                                   (lambda (#{clause\ 4460}# #{clauses\ 4461}#)
                                     (if (null? #{clauses\ 4461}#)
                                       ((lambda (#{tmp\ 4463}#)
                                          ((lambda (#{tmp\ 4464}#)
                                             (if #{tmp\ 4464}#
                                               (apply (lambda (#{e1\ 4467}#
                                                               #{e2\ 4468}#)
                                                        (cons '#(syntax-object
                                                                 begin
                                                                 ((top)
                                                                  #(ribcage
                                                                    #(e1 e2)
                                                                    #((top)
                                                                      (top))
                                                                    #("i4465"
                                                                      "i4466"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(f
                                                                      clause
                                                                      clauses)
                                                                    #((top)
                                                                      (top)
                                                                      (top))
                                                                    #("i4456"
                                                                      "i4457"
                                                                      "i4458"))
                                                                  #(ribcage
                                                                    #(_
                                                                      e
                                                                      m1
                                                                      m2)
                                                                    #((top)
                                                                      (top)
                                                                      (top)
                                                                      (top))
                                                                    #("i4444"
                                                                      "i4445"
                                                                      "i4446"
                                                                      "i4447"))
                                                                  #(ribcage
                                                                    ()
                                                                    ()
                                                                    ())
                                                                  #(ribcage
                                                                    #(x)
                                                                    #((top))
                                                                    #("i4441")))
                                                                 (hygiene
                                                                   guile))
                                                              (cons #{e1\ 4467}#
                                                                    #{e2\ 4468}#)))
                                                      #{tmp\ 4464}#)
                                               ((lambda (#{tmp\ 4470}#)
                                                  (if #{tmp\ 4470}#
                                                    (apply (lambda (#{k\ 4474}#
                                                                    #{e1\ 4475}#
                                                                    #{e2\ 4476}#)
                                                             (list '#(syntax-object
                                                                      if
                                                                      ((top)
                                                                       #(ribcage
                                                                         #(k
                                                                           e1
                                                                           e2)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("i4471"
                                                                           "i4472"
                                                                           "i4473"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(f
                                                                           clause
                                                                           clauses)
                                                                         #((top)
                                                                           (top)
                                                                           (top))
                                                                         #("i4456"
                                                                           "i4457"
                                                                           "i4458"))
                                                                       #(ribcage
                                                                         #(_
                                                                           e
                                                                           m1
                                                                           m2)
                                                                         #((top)
                                                                           (top)
                                                                           (top)
                                                                           (top))
                                                                         #("i4444"
                                                                           "i4445"
                                                                           "i4446"
                                                                           "i4447"))
                                                                       #(ribcage
                                                                         ()
                                                                         ()
                                                                         ())
                                                                       #(ribcage
                                                                         #(x)
                                                                         #((top))
                                                                         #("i4441")))
                                                                      (hygiene
                                                                        guile))
                                                                   (list '#(syntax-object
                                                                            memv
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(k
                                                                                 e1
                                                                                 e2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4471"
                                                                                 "i4472"
                                                                                 "i4473"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(f
                                                                                 clause
                                                                                 clauses)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4456"
                                                                                 "i4457"
                                                                                 "i4458"))
                                                                             #(ribcage
                                                                               #(_
                                                                                 e
                                                                                 m1
                                                                                 m2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4444"
                                                                                 "i4445"
                                                                                 "i4446"
                                                                                 "i4447"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(x)
                                                                               #((top))
                                                                               #("i4441")))
                                                                            (hygiene
                                                                              guile))
                                                                         '#(syntax-object
                                                                            t
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(k
                                                                                 e1
                                                                                 e2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4471"
                                                                                 "i4472"
                                                                                 "i4473"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(f
                                                                                 clause
                                                                                 clauses)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4456"
                                                                                 "i4457"
                                                                                 "i4458"))
                                                                             #(ribcage
                                                                               #(_
                                                                                 e
                                                                                 m1
                                                                                 m2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4444"
                                                                                 "i4445"
                                                                                 "i4446"
                                                                                 "i4447"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(x)
                                                                               #((top))
                                                                               #("i4441")))
                                                                            (hygiene
                                                                              guile))
                                                                         (list '#(syntax-object
                                                                                  quote
                                                                                  ((top)
                                                                                   #(ribcage
                                                                                     #(k
                                                                                       e1
                                                                                       e2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i4471"
                                                                                       "i4472"
                                                                                       "i4473"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(f
                                                                                       clause
                                                                                       clauses)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i4456"
                                                                                       "i4457"
                                                                                       "i4458"))
                                                                                   #(ribcage
                                                                                     #(_
                                                                                       e
                                                                                       m1
                                                                                       m2)
                                                                                     #((top)
                                                                                       (top)
                                                                                       (top)
                                                                                       (top))
                                                                                     #("i4444"
                                                                                       "i4445"
                                                                                       "i4446"
                                                                                       "i4447"))
                                                                                   #(ribcage
                                                                                     ()
                                                                                     ()
                                                                                     ())
                                                                                   #(ribcage
                                                                                     #(x)
                                                                                     #((top))
                                                                                     #("i4441")))
                                                                                  (hygiene
                                                                                    guile))
                                                                               #{k\ 4474}#))
                                                                   (cons '#(syntax-object
                                                                            begin
                                                                            ((top)
                                                                             #(ribcage
                                                                               #(k
                                                                                 e1
                                                                                 e2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4471"
                                                                                 "i4472"
                                                                                 "i4473"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(f
                                                                                 clause
                                                                                 clauses)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4456"
                                                                                 "i4457"
                                                                                 "i4458"))
                                                                             #(ribcage
                                                                               #(_
                                                                                 e
                                                                                 m1
                                                                                 m2)
                                                                               #((top)
                                                                                 (top)
                                                                                 (top)
                                                                                 (top))
                                                                               #("i4444"
                                                                                 "i4445"
                                                                                 "i4446"
                                                                                 "i4447"))
                                                                             #(ribcage
                                                                               ()
                                                                               ()
                                                                               ())
                                                                             #(ribcage
                                                                               #(x)
                                                                               #((top))
                                                                               #("i4441")))
                                                                            (hygiene
                                                                              guile))
                                                                         (cons #{e1\ 4475}#
                                                                               #{e2\ 4476}#))))
                                                           #{tmp\ 4470}#)
                                                    ((lambda (#{_\ 4480}#)
                                                       (syntax-violation
                                                         'case
                                                         "bad clause"
                                                         #{x\ 4440}#
                                                         #{clause\ 4460}#))
                                                     #{tmp\ 4463}#)))
                                                ($sc-dispatch
                                                  #{tmp\ 4463}#
                                                  '(each-any
                                                     any
                                                     .
                                                     each-any)))))
                                           ($sc-dispatch
                                             #{tmp\ 4463}#
                                             '(#(free-id
                                                 #(syntax-object
                                                   else
                                                   ((top)
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(f clause clauses)
                                                      #((top) (top) (top))
                                                      #("i4456"
                                                        "i4457"
                                                        "i4458"))
                                                    #(ribcage
                                                      #(_ e m1 m2)
                                                      #((top)
                                                        (top)
                                                        (top)
                                                        (top))
                                                      #("i4444"
                                                        "i4445"
                                                        "i4446"
                                                        "i4447"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i4441")))
                                                   (hygiene guile)))
                                               any
                                               .
                                               each-any))))
                                        #{clause\ 4460}#)
                                       ((lambda (#{tmp\ 4482}#)
                                          ((lambda (#{rest\ 4484}#)
                                             ((lambda (#{tmp\ 4485}#)
                                                ((lambda (#{tmp\ 4486}#)
                                                   (if #{tmp\ 4486}#
                                                     (apply (lambda (#{k\ 4490}#
                                                                     #{e1\ 4491}#
                                                                     #{e2\ 4492}#)
                                                              (list '#(syntax-object
                                                                       if
                                                                       ((top)
                                                                        #(ribcage
                                                                          #(k
                                                                            e1
                                                                            e2)
                                                                          #((top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4487"
                                                                            "i4488"
                                                                            "i4489"))
                                                                        #(ribcage
                                                                          #(rest)
                                                                          #((top))
                                                                          #("i4483"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(f
                                                                            clause
                                                                            clauses)
                                                                          #((top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4456"
                                                                            "i4457"
                                                                            "i4458"))
                                                                        #(ribcage
                                                                          #(_
                                                                            e
                                                                            m1
                                                                            m2)
                                                                          #((top)
                                                                            (top)
                                                                            (top)
                                                                            (top))
                                                                          #("i4444"
                                                                            "i4445"
                                                                            "i4446"
                                                                            "i4447"))
                                                                        #(ribcage
                                                                          ()
                                                                          ()
                                                                          ())
                                                                        #(ribcage
                                                                          #(x)
                                                                          #((top))
                                                                          #("i4441")))
                                                                       (hygiene
                                                                         guile))
                                                                    (list '#(syntax-object
                                                                             memv
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(k
                                                                                  e1
                                                                                  e2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4487"
                                                                                  "i4488"
                                                                                  "i4489"))
                                                                              #(ribcage
                                                                                #(rest)
                                                                                #((top))
                                                                                #("i4483"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(f
                                                                                  clause
                                                                                  clauses)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4456"
                                                                                  "i4457"
                                                                                  "i4458"))
                                                                              #(ribcage
                                                                                #(_
                                                                                  e
                                                                                  m1
                                                                                  m2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4444"
                                                                                  "i4445"
                                                                                  "i4446"
                                                                                  "i4447"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(x)
                                                                                #((top))
                                                                                #("i4441")))
                                                                             (hygiene
                                                                               guile))
                                                                          '#(syntax-object
                                                                             t
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(k
                                                                                  e1
                                                                                  e2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4487"
                                                                                  "i4488"
                                                                                  "i4489"))
                                                                              #(ribcage
                                                                                #(rest)
                                                                                #((top))
                                                                                #("i4483"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(f
                                                                                  clause
                                                                                  clauses)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4456"
                                                                                  "i4457"
                                                                                  "i4458"))
                                                                              #(ribcage
                                                                                #(_
                                                                                  e
                                                                                  m1
                                                                                  m2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4444"
                                                                                  "i4445"
                                                                                  "i4446"
                                                                                  "i4447"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(x)
                                                                                #((top))
                                                                                #("i4441")))
                                                                             (hygiene
                                                                               guile))
                                                                          (list '#(syntax-object
                                                                                   quote
                                                                                   ((top)
                                                                                    #(ribcage
                                                                                      #(k
                                                                                        e1
                                                                                        e2)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i4487"
                                                                                        "i4488"
                                                                                        "i4489"))
                                                                                    #(ribcage
                                                                                      #(rest)
                                                                                      #((top))
                                                                                      #("i4483"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(f
                                                                                        clause
                                                                                        clauses)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i4456"
                                                                                        "i4457"
                                                                                        "i4458"))
                                                                                    #(ribcage
                                                                                      #(_
                                                                                        e
                                                                                        m1
                                                                                        m2)
                                                                                      #((top)
                                                                                        (top)
                                                                                        (top)
                                                                                        (top))
                                                                                      #("i4444"
                                                                                        "i4445"
                                                                                        "i4446"
                                                                                        "i4447"))
                                                                                    #(ribcage
                                                                                      ()
                                                                                      ()
                                                                                      ())
                                                                                    #(ribcage
                                                                                      #(x)
                                                                                      #((top))
                                                                                      #("i4441")))
                                                                                   (hygiene
                                                                                     guile))
                                                                                #{k\ 4490}#))
                                                                    (cons '#(syntax-object
                                                                             begin
                                                                             ((top)
                                                                              #(ribcage
                                                                                #(k
                                                                                  e1
                                                                                  e2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4487"
                                                                                  "i4488"
                                                                                  "i4489"))
                                                                              #(ribcage
                                                                                #(rest)
                                                                                #((top))
                                                                                #("i4483"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(f
                                                                                  clause
                                                                                  clauses)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4456"
                                                                                  "i4457"
                                                                                  "i4458"))
                                                                              #(ribcage
                                                                                #(_
                                                                                  e
                                                                                  m1
                                                                                  m2)
                                                                                #((top)
                                                                                  (top)
                                                                                  (top)
                                                                                  (top))
                                                                                #("i4444"
                                                                                  "i4445"
                                                                                  "i4446"
                                                                                  "i4447"))
                                                                              #(ribcage
                                                                                ()
                                                                                ()
                                                                                ())
                                                                              #(ribcage
                                                                                #(x)
                                                                                #((top))
                                                                                #("i4441")))
                                                                             (hygiene
                                                                               guile))
                                                                          (cons #{e1\ 4491}#
                                                                                #{e2\ 4492}#))
                                                                    #{rest\ 4484}#))
                                                            #{tmp\ 4486}#)
                                                     ((lambda (#{_\ 4496}#)
                                                        (syntax-violation
                                                          'case
                                                          "bad clause"
                                                          #{x\ 4440}#
                                                          #{clause\ 4460}#))
                                                      #{tmp\ 4485}#)))
                                                 ($sc-dispatch
                                                   #{tmp\ 4485}#
                                                   '(each-any
                                                      any
                                                      .
                                                      each-any))))
                                              #{clause\ 4460}#))
                                           #{tmp\ 4482}#))
                                        (#{f\ 4459}#
                                          (car #{clauses\ 4461}#)
                                          (cdr #{clauses\ 4461}#)))))))
                          (#{f\ 4459}# #{m1\ 4450}# #{m2\ 4451}#))))
                     #{tmp\ 4443}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4442}#)))
          ($sc-dispatch
            #{tmp\ 4442}#
            '(any any any . each-any))))
       #{x\ 4440}#))))

(define identifier-syntax
  (make-syntax-transformer
    'identifier-syntax
    'macro
    (lambda (#{x\ 4497}#)
      ((lambda (#{tmp\ 4499}#)
         ((lambda (#{tmp\ 4500}#)
            (if #{tmp\ 4500}#
              (apply (lambda (#{_\ 4503}# #{e\ 4504}#)
                       (list '#(syntax-object
                                lambda
                                ((top)
                                 #(ribcage
                                   #(_ e)
                                   #((top) (top))
                                   #("i4501" "i4502"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4498")))
                                (hygiene guile))
                             '(#(syntax-object
                                 x
                                 ((top)
                                  #(ribcage
                                    #(_ e)
                                    #((top) (top))
                                    #("i4501" "i4502"))
                                  #(ribcage () () ())
                                  #(ribcage #(x) #((top)) #("i4498")))
                                 (hygiene guile)))
                             '#((#(syntax-object
                                   macro-type
                                   ((top)
                                    #(ribcage
                                      #(_ e)
                                      #((top) (top))
                                      #("i4501" "i4502"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4498")))
                                   (hygiene guile))
                                 .
                                 #(syntax-object
                                   identifier-syntax
                                   ((top)
                                    #(ribcage
                                      #(_ e)
                                      #((top) (top))
                                      #("i4501" "i4502"))
                                    #(ribcage () () ())
                                    #(ribcage #(x) #((top)) #("i4498")))
                                   (hygiene guile))))
                             (list '#(syntax-object
                                      syntax-case
                                      ((top)
                                       #(ribcage
                                         #(_ e)
                                         #((top) (top))
                                         #("i4501" "i4502"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4498")))
                                      (hygiene guile))
                                   '#(syntax-object
                                      x
                                      ((top)
                                       #(ribcage
                                         #(_ e)
                                         #((top) (top))
                                         #("i4501" "i4502"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4498")))
                                      (hygiene guile))
                                   '()
                                   (list '#(syntax-object
                                            id
                                            ((top)
                                             #(ribcage
                                               #(_ e)
                                               #((top) (top))
                                               #("i4501" "i4502"))
                                             #(ribcage () () ())
                                             #(ribcage
                                               #(x)
                                               #((top))
                                               #("i4498")))
                                            (hygiene guile))
                                         '(#(syntax-object
                                             identifier?
                                             ((top)
                                              #(ribcage
                                                #(_ e)
                                                #((top) (top))
                                                #("i4501" "i4502"))
                                              #(ribcage () () ())
                                              #(ribcage
                                                #(x)
                                                #((top))
                                                #("i4498")))
                                             (hygiene guile))
                                           (#(syntax-object
                                              syntax
                                              ((top)
                                               #(ribcage
                                                 #(_ e)
                                                 #((top) (top))
                                                 #("i4501" "i4502"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
                                                 #("i4498")))
                                              (hygiene guile))
                                            #(syntax-object
                                              id
                                              ((top)
                                               #(ribcage
                                                 #(_ e)
                                                 #((top) (top))
                                                 #("i4501" "i4502"))
                                               #(ribcage () () ())
                                               #(ribcage
                                                 #(x)
                                                 #((top))
                                                 #("i4498")))
                                              (hygiene guile))))
                                         (list '#(syntax-object
                                                  syntax
                                                  ((top)
                                                   #(ribcage
                                                     #(_ e)
                                                     #((top) (top))
                                                     #("i4501" "i4502"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i4498")))
                                                  (hygiene guile))
                                               #{e\ 4504}#))
                                   (list (cons #{_\ 4503}#
                                               '(#(syntax-object
                                                   x
                                                   ((top)
                                                    #(ribcage
                                                      #(_ e)
                                                      #((top) (top))
                                                      #("i4501" "i4502"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i4498")))
                                                   (hygiene guile))
                                                 #(syntax-object
                                                   ...
                                                   ((top)
                                                    #(ribcage
                                                      #(_ e)
                                                      #((top) (top))
                                                      #("i4501" "i4502"))
                                                    #(ribcage () () ())
                                                    #(ribcage
                                                      #(x)
                                                      #((top))
                                                      #("i4498")))
                                                   (hygiene guile))))
                                         (list '#(syntax-object
                                                  syntax
                                                  ((top)
                                                   #(ribcage
                                                     #(_ e)
                                                     #((top) (top))
                                                     #("i4501" "i4502"))
                                                   #(ribcage () () ())
                                                   #(ribcage
                                                     #(x)
                                                     #((top))
                                                     #("i4498")))
                                                  (hygiene guile))
                                               (cons #{e\ 4504}#
                                                     '(#(syntax-object
                                                         x
                                                         ((top)
                                                          #(ribcage
                                                            #(_ e)
                                                            #((top) (top))
                                                            #("i4501" "i4502"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i4498")))
                                                         (hygiene guile))
                                                       #(syntax-object
                                                         ...
                                                         ((top)
                                                          #(ribcage
                                                            #(_ e)
                                                            #((top) (top))
                                                            #("i4501" "i4502"))
                                                          #(ribcage () () ())
                                                          #(ribcage
                                                            #(x)
                                                            #((top))
                                                            #("i4498")))
                                                         (hygiene
                                                           guile)))))))))
                     #{tmp\ 4500}#)
              (syntax-violation
                #f
                "source expression failed to match any pattern"
                #{tmp\ 4499}#)))
          ($sc-dispatch #{tmp\ 4499}# (quote (any any)))))
       #{x\ 4497}#))))

(define define*
  (make-syntax-transformer
    'define*
    'macro
    (lambda (#{x\ 4505}#)
      ((lambda (#{tmp\ 4507}#)
         ((lambda (#{tmp\ 4508}#)
            (if #{tmp\ 4508}#
              (apply (lambda (#{_\ 4514}#
                              #{id\ 4515}#
                              #{args\ 4516}#
                              #{b0\ 4517}#
                              #{b1\ 4518}#)
                       (list '#(syntax-object
                                define
                                ((top)
                                 #(ribcage
                                   #(_ id args b0 b1)
                                   #((top) (top) (top) (top) (top))
                                   #("i4509" "i4510" "i4511" "i4512" "i4513"))
                                 #(ribcage () () ())
                                 #(ribcage #(x) #((top)) #("i4506")))
                                (hygiene guile))
                             #{id\ 4515}#
                             (cons '#(syntax-object
                                      lambda*
                                      ((top)
                                       #(ribcage
                                         #(_ id args b0 b1)
                                         #((top) (top) (top) (top) (top))
                                         #("i4509"
                                           "i4510"
                                           "i4511"
                                           "i4512"
                                           "i4513"))
                                       #(ribcage () () ())
                                       #(ribcage #(x) #((top)) #("i4506")))
                                      (hygiene guile))
                                   (cons #{args\ 4516}#
                                         (cons #{b0\ 4517}# #{b1\ 4518}#)))))
                     #{tmp\ 4508}#)
              ((lambda (#{tmp\ 4520}#)
                 (if (if #{tmp\ 4520}#
                       (apply (lambda (#{_\ 4524}# #{id\ 4525}# #{val\ 4526}#)
                                (identifier?
                                  '#(syntax-object
                                     x
                                     ((top)
                                      #(ribcage
                                        #(_ id val)
                                        #((top) (top) (top))
                                        #("i4521" "i4522" "i4523"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4506")))
                                     (hygiene guile))))
                              #{tmp\ 4520}#)
                       #f)
                   (apply (lambda (#{_\ 4530}# #{id\ 4531}# #{val\ 4532}#)
                            (list '#(syntax-object
                                     define
                                     ((top)
                                      #(ribcage
                                        #(_ id val)
                                        #((top) (top) (top))
                                        #("i4527" "i4528" "i4529"))
                                      #(ribcage () () ())
                                      #(ribcage #(x) #((top)) #("i4506")))
                                     (hygiene guile))
                                  #{id\ 4531}#
                                  #{val\ 4532}#))
                          #{tmp\ 4520}#)
                   (syntax-violation
                     #f
                     "source expression failed to match any pattern"
                     #{tmp\ 4507}#)))
               ($sc-dispatch
                 #{tmp\ 4507}#
                 '(any any any)))))
          ($sc-dispatch
            #{tmp\ 4507}#
            '(any (any . any) any . each-any))))
       #{x\ 4505}#))))