((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile)))
- (values '_ #{ids 3726}#)
- (values
- 'any
- (cons (cons #{p 3724}# #{n 3725}#)
- #{ids 3726}#))))
- (let ((#{tmp 3735}# #{p 3724}#))
- (let ((#{tmp 3736}#
- ($sc-dispatch #{tmp 3735}# '(any any))))
- (if (if #{tmp 3736}#
- (@apply
- (lambda (#{x 3739}# #{dots 3740}#)
- (#{ellipsis? 435}# #{dots 3740}#))
- #{tmp 3736}#)
- #f)
- (@apply
- (lambda (#{x 3743}# #{dots 3744}#)
- (call-with-values
- (lambda ()
- (#{cvt 3701}#
- #{x 3743}#
- (#{1+}# #{n 3725}#)
- #{ids 3726}#))
- (lambda (#{p 3746}# #{ids 3747}#)
- (values
- (if (eq? #{p 3746}# 'any)
- 'each-any
- (vector 'each #{p 3746}#))
- #{ids 3747}#))))
- #{tmp 3736}#)
- (let ((#{tmp 3750}#
- ($sc-dispatch
- #{tmp 3735}#
- '(any any . any))))
- (if (if #{tmp 3750}#
- (@apply
- (lambda (#{x 3754}#
- #{dots 3755}#
- #{ys 3756}#)
- (#{ellipsis? 435}# #{dots 3755}#))
- #{tmp 3750}#)
- #f)
- (@apply
- (lambda (#{x 3760}#
- #{dots 3761}#
- #{ys 3762}#)
- (call-with-values
- (lambda ()
- (#{cvt* 3697}#
- #{ys 3762}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{ys 3763}# #{ids 3764}#)
- (call-with-values
- (lambda ()
- (#{cvt 3701}#
- #{x 3760}#
- (#{1+}# #{n 3725}#)
- #{ids 3764}#))
- (lambda (#{x 3767}# #{ids 3768}#)
- (call-with-values
- (lambda ()
- (#{v-reverse 3699}#
- #{ys 3763}#))
- (lambda (#{ys 3771}#
- #{e 3772}#)
- (values
- (vector
- 'each+
- #{x 3767}#
- #{ys 3771}#
- #{e 3772}#)
- #{ids 3768}#))))))))
- #{tmp 3750}#)
- (let ((#{tmp 3776}#
- ($sc-dispatch
- #{tmp 3735}#
- '(any . any))))
- (if #{tmp 3776}#
- (@apply
- (lambda (#{x 3779}# #{y 3780}#)
- (call-with-values
- (lambda ()
- (#{cvt 3701}#
- #{y 3780}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{y 3781}# #{ids 3782}#)
- (call-with-values
- (lambda ()
- (#{cvt 3701}#
- #{x 3779}#
- #{n 3725}#
- #{ids 3782}#))
- (lambda (#{x 3785}#
- #{ids 3786}#)
- (values
- (cons #{x 3785}#
- #{y 3781}#)
- #{ids 3786}#))))))
- #{tmp 3776}#)
- (let ((#{tmp 3789}#
- ($sc-dispatch #{tmp 3735}# '())))
- (if #{tmp 3789}#
- (@apply
- (lambda ()
- (values '() #{ids 3726}#))
- #{tmp 3789}#)
- (let ((#{tmp 3790}#
- ($sc-dispatch
- #{tmp 3735}#
- '#(vector each-any))))
- (if #{tmp 3790}#
+ 'compile
+ (if (#{free-id=? 399}#
+ #{x 1752}#
+ '#(syntax-object
+ load
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1751"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1742" "i1743" "i1744"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ 'load
+ (if (#{free-id=? 399}#
+ #{x 1752}#
+ '#(syntax-object
+ eval
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1751"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1742" "i1743" "i1744"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ 'eval
+ (if (#{free-id=? 399}#
+ #{x 1752}#
+ '#(syntax-object
+ expand
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1751"))
+ #(ribcage () () ())
+ #(ribcage
+ #(f when-list situations)
+ #((top) (top) (top))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1742" "i1743" "i1744"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ 'expand
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e 1739}#
+ (#{wrap 409}#
+ #{x 1752}#
+ #{w 1741}#
+ #f)))))))
+ #{situations 1750}#))))))
+ (#{f 1748}# #{when-list 1740}# '()))))
+ (#{syntax-type 421}#
+ (lambda (#{e 1762}#
+ #{r 1763}#
+ #{w 1764}#
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#
+ #{for-car? 1768}#)
+ (if (symbol? #{e 1762}#)
+ (let ((#{n 1780}#
+ (#{id-var-name 397}# #{e 1762}# #{w 1764}#)))
+ (let ((#{b 1782}#
+ (#{lookup 337}#
+ #{n 1780}#
+ #{r 1763}#
+ #{mod 1767}#)))
+ (let ((#{type 1784}# (car #{b 1782}#)))
+ (if (memv #{type 1784}# '(lexical))
+ (values
+ #{type 1784}#
+ (cdr #{b 1782}#)
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{type 1784}# '(global))
+ (values
+ #{type 1784}#
+ #{n 1780}#
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{type 1784}# '(macro))
+ (if #{for-car? 1768}#
+ (values
+ #{type 1784}#
+ (cdr #{b 1782}#)
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (#{syntax-type 421}#
+ (#{chi-macro 429}#
+ (cdr #{b 1782}#)
+ #{e 1762}#
+ #{r 1763}#
+ #{w 1764}#
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#)
+ #{r 1763}#
+ '(())
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#
+ #f))
+ (values
+ #{type 1784}#
+ (cdr #{b 1782}#)
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)))))))
+ (if (pair? #{e 1762}#)
+ (let ((#{first 1798}# (car #{e 1762}#)))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 421}#
+ #{first 1798}#
+ #{r 1763}#
+ #{w 1764}#
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#
+ #t))
+ (lambda (#{ftype 1799}#
+ #{fval 1800}#
+ #{fe 1801}#
+ #{fw 1802}#
+ #{fs 1803}#
+ #{fmod 1804}#)
+ (if (memv #{ftype 1799}# '(lexical))
+ (values
+ 'lexical-call
+ #{fval 1800}#
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(global))
+ (values
+ 'global-call
+ (#{make-syntax-object 307}#
+ #{fval 1800}#
+ #{w 1764}#
+ #{fmod 1804}#)
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(macro))
+ (#{syntax-type 421}#
+ (#{chi-macro 429}#
+ #{fval 1800}#
+ #{e 1762}#
+ #{r 1763}#
+ #{w 1764}#
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#)
+ #{r 1763}#
+ '(())
+ #{s 1765}#
+ #{rib 1766}#
+ #{mod 1767}#
+ #{for-car? 1768}#)
+ (if (memv #{ftype 1799}# '(module-ref))
+ (call-with-values
+ (lambda ()
+ (#{fval 1800}# #{e 1762}# #{r 1763}# #{w 1764}#))
+ (lambda (#{e 1816}#
+ #{r 1817}#
+ #{w 1818}#
+ #{s 1819}#
+ #{mod 1820}#)
+ (#{syntax-type 421}#
+ #{e 1816}#
+ #{r 1817}#
+ #{w 1818}#
+ #{s 1819}#
+ #{rib 1766}#
+ #{mod 1820}#
+ #{for-car? 1768}#)))
+ (if (memv #{ftype 1799}# '(core))
+ (values
+ 'core-form
+ #{fval 1800}#
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(local-syntax))
+ (values
+ 'local-syntax-form
+ #{fval 1800}#
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(begin))
+ (values
+ 'begin-form
+ #f
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(eval-when))
+ (values
+ 'eval-when-form
+ #f
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (if (memv #{ftype 1799}# '(define))
+ (let ((#{tmp 1831}# #{e 1762}#))
+ (let ((#{tmp 1832}#
+ ($sc-dispatch
+ #{tmp 1831}#
+ '(_ any any))))
+ (if (if #{tmp 1832}#
+ (@apply
+ (lambda (#{name 1835}#
+ #{val 1836}#)
+ (#{id? 343}# #{name 1835}#))
+ #{tmp 1832}#)
+ #f)
+ (@apply
+ (lambda (#{name 1839}# #{val 1840}#)
+ (values
+ 'define-form
+ #{name 1839}#
+ #{val 1840}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#))
+ #{tmp 1832}#)
+ (let ((#{tmp 1841}#
+ ($sc-dispatch
+ #{tmp 1831}#
+ '(_ (any . any)
+ any
+ .
+ each-any))))
+ (if (if #{tmp 1841}#
+ (@apply
+ (lambda (#{name 1846}#
+ #{args 1847}#
+ #{e1 1848}#
+ #{e2 1849}#)
+ (if (#{id? 343}#
+ #{name 1846}#)
+ (#{valid-bound-ids? 403}#
+ (#{lambda-var-list 453}#
+ #{args 1847}#))
+ #f))
+ #{tmp 1841}#)
+ #f)
+ (@apply
+ (lambda (#{name 1856}#
+ #{args 1857}#
+ #{e1 1858}#
+ #{e2 1859}#)
+ (values
+ 'define-form
+ (#{wrap 409}#
+ #{name 1856}#
+ #{w 1764}#
+ #{mod 1767}#)
+ (#{decorate-source 261}#
+ (cons '#(syntax-object
+ lambda
+ ((top)
+ #(ribcage
+ #(name
+ args
+ e1
+ e2)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i1852"
+ "i1853"
+ "i1854"
+ "i1855"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1805"
+ "i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1797"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1769"
+ "i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile))
+ (#{wrap 409}#
+ (cons #{args 1857}#
+ (cons #{e1 1858}#
+ #{e2 1859}#))
+ #{w 1764}#
+ #{mod 1767}#))
+ #{s 1765}#)
+ '(())
+ #{s 1765}#
+ #{mod 1767}#))
+ #{tmp 1841}#)
+ (let ((#{tmp 1862}#
+ ($sc-dispatch
+ #{tmp 1831}#
+ '(_ any))))
+ (if (if #{tmp 1862}#
+ (@apply
+ (lambda (#{name 1864}#)
+ (#{id? 343}#
+ #{name 1864}#))
+ #{tmp 1862}#)
+ #f)
+ (@apply
+ (lambda (#{name 1866}#)
+ (values
+ 'define-form
+ (#{wrap 409}#
+ #{name 1866}#
+ #{w 1764}#
+ #{mod 1767}#)
+ '(#(syntax-object
+ if
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1865"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1805"
+ "i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1797"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1769"
+ "i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1865"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1805"
+ "i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1797"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1769"
+ "i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile))
+ #(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(name)
+ #((top))
+ #("i1865"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ftype
+ fval
+ fe
+ fw
+ fs
+ fmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1805"
+ "i1806"
+ "i1807"
+ "i1808"
+ "i1809"
+ "i1810"))
+ #(ribcage () () ())
+ #(ribcage
+ #(first)
+ #((top))
+ #("i1797"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(e
+ r
+ w
+ s
+ rib
+ mod
+ for-car?)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i1769"
+ "i1770"
+ "i1771"
+ "i1772"
+ "i1773"
+ "i1774"
+ "i1775"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top)
+ (top)
+ (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile)))
+ '(())
+ #{s 1765}#
+ #{mod 1767}#))
+ #{tmp 1862}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1831}#))))))))
+ (if (memv #{ftype 1799}# '(define-syntax))
+ (let ((#{tmp 1869}# #{e 1762}#))
+ (let ((#{tmp 1870}#
+ ($sc-dispatch
+ #{tmp 1869}#
+ '(_ any any))))
+ (if (if #{tmp 1870}#
+ (@apply
+ (lambda (#{name 1873}#
+ #{val 1874}#)
+ (#{id? 343}# #{name 1873}#))
+ #{tmp 1870}#)
+ #f)
+ (@apply
+ (lambda (#{name 1877}#
+ #{val 1878}#)
+ (values
+ 'define-syntax-form
+ #{name 1877}#
+ #{val 1878}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#))
+ #{tmp 1870}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1869}#))))
+ (values
+ 'call
+ #f
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#))))))))))))))
+ (if (#{syntax-object? 309}# #{e 1762}#)
+ (#{syntax-type 421}#
+ (#{syntax-object-expression 311}# #{e 1762}#)
+ #{r 1763}#
+ (#{join-wraps 391}#
+ #{w 1764}#
+ (#{syntax-object-wrap 313}# #{e 1762}#))
+ (let ((#{t 1884}#
+ (#{source-annotation 324}# #{e 1762}#)))
+ (if #{t 1884}# #{t 1884}# #{s 1765}#))
+ #{rib 1766}#
+ (let ((#{t 1888}#
+ (#{syntax-object-module 315}# #{e 1762}#)))
+ (if #{t 1888}# #{t 1888}# #{mod 1767}#))
+ #{for-car? 1768}#)
+ (if (self-evaluating? #{e 1762}#)
+ (values
+ 'constant
+ #f
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)
+ (values
+ 'other
+ #f
+ #{e 1762}#
+ #{w 1764}#
+ #{s 1765}#
+ #{mod 1767}#)))))))
+ (#{chi 423}#
+ (lambda (#{e 1893}# #{r 1894}# #{w 1895}# #{mod 1896}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 421}#
+ #{e 1893}#
+ #{r 1894}#
+ #{w 1895}#
+ (#{source-annotation 324}# #{e 1893}#)
+ #f
+ #{mod 1896}#
+ #f))
+ (lambda (#{type 1901}#
+ #{value 1902}#
+ #{e 1903}#
+ #{w 1904}#
+ #{s 1905}#
+ #{mod 1906}#)
+ (#{chi-expr 425}#
+ #{type 1901}#
+ #{value 1902}#
+ #{e 1903}#
+ #{r 1894}#
+ #{w 1904}#
+ #{s 1905}#
+ #{mod 1906}#)))))
+ (#{chi-expr 425}#
+ (lambda (#{type 1913}#
+ #{value 1914}#
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(lexical))
+ (#{build-lexical-reference 273}#
+ 'value
+ #{s 1918}#
+ #{e 1915}#
+ #{value 1914}#)
+ (if (memv #{type 1913}# '(core core-form))
+ (#{value 1914}#
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(module-ref))
+ (call-with-values
+ (lambda ()
+ (#{value 1914}# #{e 1915}# #{r 1916}# #{w 1917}#))
+ (lambda (#{e 1930}#
+ #{r 1931}#
+ #{w 1932}#
+ #{s 1933}#
+ #{mod 1934}#)
+ (#{chi 423}#
+ #{e 1930}#
+ #{r 1931}#
+ #{w 1932}#
+ #{mod 1934}#)))
+ (if (memv #{type 1913}# '(lexical-call))
+ (#{chi-call 427}#
+ (let ((#{id 1942}# (car #{e 1915}#)))
+ (#{build-lexical-reference 273}#
+ 'fun
+ (#{source-annotation 324}# #{id 1942}#)
+ (if (#{syntax-object? 309}# #{id 1942}#)
+ (syntax->datum #{id 1942}#)
+ #{id 1942}#)
+ #{value 1914}#))
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(global-call))
+ (#{chi-call 427}#
+ (#{build-global-reference 279}#
+ (#{source-annotation 324}# (car #{e 1915}#))
+ (if (#{syntax-object? 309}# #{value 1914}#)
+ (#{syntax-object-expression 311}# #{value 1914}#)
+ #{value 1914}#)
+ (if (#{syntax-object? 309}# #{value 1914}#)
+ (#{syntax-object-module 315}# #{value 1914}#)
+ #{mod 1919}#))
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(constant))
+ (#{build-data 295}#
+ #{s 1918}#
+ (#{strip 449}#
+ (#{source-wrap 411}#
+ #{e 1915}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ '(())))
+ (if (memv #{type 1913}# '(global))
+ (#{build-global-reference 279}#
+ #{s 1918}#
+ #{value 1914}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(call))
+ (#{chi-call 427}#
+ (#{chi 423}#
+ (car #{e 1915}#)
+ #{r 1916}#
+ #{w 1917}#
+ #{mod 1919}#)
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (if (memv #{type 1913}# '(begin-form))
+ (let ((#{tmp 1949}# #{e 1915}#))
+ (let ((#{tmp 1950}#
+ ($sc-dispatch
+ #{tmp 1949}#
+ '(_ any . each-any))))
+ (if #{tmp 1950}#
+ (@apply
+ (lambda (#{e1 1953}# #{e2 1954}#)
+ (#{chi-sequence 413}#
+ (cons #{e1 1953}# #{e2 1954}#)
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#))
+ #{tmp 1950}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1949}#))))
+ (if (memv #{type 1913}# '(local-syntax-form))
+ (#{chi-local-syntax 433}#
+ #{value 1914}#
+ #{e 1915}#
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#
+ #{chi-sequence 413}#)
+ (if (memv #{type 1913}# '(eval-when-form))
+ (let ((#{tmp 1958}# #{e 1915}#))
+ (let ((#{tmp 1959}#
+ ($sc-dispatch
+ #{tmp 1958}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 1959}#
+ (@apply
+ (lambda (#{x 1963}#
+ #{e1 1964}#
+ #{e2 1965}#)
+ (let ((#{when-list 1967}#
+ (#{chi-when-list 419}#
+ #{e 1915}#
+ #{x 1963}#
+ #{w 1917}#)))
+ (if (memq 'eval #{when-list 1967}#)
+ (#{chi-sequence 413}#
+ (cons #{e1 1964}# #{e2 1965}#)
+ #{r 1916}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#)
+ (#{chi-void 437}#))))
+ #{tmp 1959}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1958}#))))
+ (if (memv #{type 1913}#
+ '(define-form define-syntax-form))
+ (syntax-violation
+ #f
+ "definition in expression context"
+ #{e 1915}#
+ (#{wrap 409}#
+ #{value 1914}#
+ #{w 1917}#
+ #{mod 1919}#))
+ (if (memv #{type 1913}# '(syntax))
+ (syntax-violation
+ #f
+ "reference to pattern variable outside syntax form"
+ (#{source-wrap 411}#
+ #{e 1915}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#))
+ (if (memv #{type 1913}# '(displaced-lexical))
+ (syntax-violation
+ #f
+ "reference to identifier outside its scope"
+ (#{source-wrap 411}#
+ #{e 1915}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#))
+ (syntax-violation
+ #f
+ "unexpected syntax"
+ (#{source-wrap 411}#
+ #{e 1915}#
+ #{w 1917}#
+ #{s 1918}#
+ #{mod 1919}#))))))))))))))))))
+ (#{chi-call 427}#
+ (lambda (#{x 1974}#
+ #{e 1975}#
+ #{r 1976}#
+ #{w 1977}#
+ #{s 1978}#
+ #{mod 1979}#)
+ (let ((#{tmp 1986}# #{e 1975}#))
+ (let ((#{tmp 1987}#
+ ($sc-dispatch #{tmp 1986}# '(any . each-any))))
+ (if #{tmp 1987}#
+ (@apply
+ (lambda (#{e0 1990}# #{e1 1991}#)
+ (#{build-call 267}#
+ #{s 1978}#
+ #{x 1974}#
+ (map (lambda (#{e 1992}#)
+ (#{chi 423}#
+ #{e 1992}#
+ #{r 1976}#
+ #{w 1977}#
+ #{mod 1979}#))
+ #{e1 1991}#)))
+ #{tmp 1987}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 1986}#))))))
+ (#{chi-macro 429}#
+ (lambda (#{p 1995}#
+ #{e 1996}#
+ #{r 1997}#
+ #{w 1998}#
+ #{s 1999}#
+ #{rib 2000}#
+ #{mod 2001}#)
+ (letrec*
+ ((#{rebuild-macro-output 2010}#
+ (lambda (#{x 2011}# #{m 2012}#)
+ (if (pair? #{x 2011}#)
+ (#{decorate-source 261}#
+ (cons (#{rebuild-macro-output 2010}#
+ (car #{x 2011}#)
+ #{m 2012}#)
+ (#{rebuild-macro-output 2010}#
+ (cdr #{x 2011}#)
+ #{m 2012}#))
+ #{s 1999}#)
+ (if (#{syntax-object? 309}# #{x 2011}#)
+ (let ((#{w 2020}#
+ (#{syntax-object-wrap 313}# #{x 2011}#)))
+ (let ((#{ms 2023}# (car #{w 2020}#))
+ (#{s 2024}# (cdr #{w 2020}#)))
+ (if (if (pair? #{ms 2023}#)
+ (eq? (car #{ms 2023}#) #f)
+ #f)
+ (#{make-syntax-object 307}#
+ (#{syntax-object-expression 311}# #{x 2011}#)
+ (cons (cdr #{ms 2023}#)
+ (if #{rib 2000}#
+ (cons #{rib 2000}# (cdr #{s 2024}#))
+ (cdr #{s 2024}#)))
+ (#{syntax-object-module 315}# #{x 2011}#))
+ (#{make-syntax-object 307}#
+ (#{decorate-source 261}#
+ (#{syntax-object-expression 311}# #{x 2011}#)
+ #{s 2024}#)
+ (cons (cons #{m 2012}# #{ms 2023}#)
+ (if #{rib 2000}#
+ (cons #{rib 2000}# (cons 'shift #{s 2024}#))
+ (cons 'shift #{s 2024}#)))
+ (#{syntax-object-module 315}# #{x 2011}#)))))
+ (if (vector? #{x 2011}#)
+ (let ((#{n 2036}# (vector-length #{x 2011}#)))
+ (let ((#{v 2038}#
+ (#{decorate-source 261}#
+ (make-vector #{n 2036}#)
+ #{x 2011}#)))
+ (letrec*
+ ((#{loop 2041}#
+ (lambda (#{i 2042}#)
+ (if (= #{i 2042}# #{n 2036}#)
+ (begin (if #f #f) #{v 2038}#)
+ (begin
+ (vector-set!
+ #{v 2038}#
+ #{i 2042}#
+ (#{rebuild-macro-output 2010}#
+ (vector-ref #{x 2011}# #{i 2042}#)
+ #{m 2012}#))
+ (#{loop 2041}# (#{1+}# #{i 2042}#)))))))
+ (#{loop 2041}# 0))))
+ (if (symbol? #{x 2011}#)
+ (syntax-violation
+ #f
+ "encountered raw symbol in macro output"
+ (#{source-wrap 411}#
+ #{e 1996}#
+ #{w 1998}#
+ (cdr #{w 1998}#)
+ #{mod 2001}#)
+ #{x 2011}#)
+ (#{decorate-source 261}# #{x 2011}# #{s 1999}#))))))))
+ (#{rebuild-macro-output 2010}#
+ (#{p 1995}#
+ (#{source-wrap 411}#
+ #{e 1996}#
+ (#{anti-mark 381}# #{w 1998}#)
+ #{s 1999}#
+ #{mod 2001}#))
+ (gensym "m")))))
+ (#{chi-body 431}#
+ (lambda (#{body 2052}#
+ #{outer-form 2053}#
+ #{r 2054}#
+ #{w 2055}#
+ #{mod 2056}#)
+ (let ((#{r 2064}#
+ (cons '("placeholder" placeholder) #{r 2054}#)))
+ (let ((#{ribcage 2066}#
+ (#{make-ribcage 361}# '() '() '())))
+ (let ((#{w 2069}#
+ (cons (car #{w 2055}#)
+ (cons #{ribcage 2066}# (cdr #{w 2055}#)))))
+ (letrec*
+ ((#{parse 2081}#
+ (lambda (#{body 2082}#
+ #{ids 2083}#
+ #{labels 2084}#
+ #{var-ids 2085}#
+ #{vars 2086}#
+ #{vals 2087}#
+ #{bindings 2088}#)
+ (if (null? #{body 2082}#)
+ (syntax-violation
+ #f
+ "no expressions in body"
+ #{outer-form 2053}#)
+ (let ((#{e 2093}# (cdr (car #{body 2082}#)))
+ (#{er 2094}# (car (car #{body 2082}#))))
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 421}#
+ #{e 2093}#
+ #{er 2094}#
+ '(())
+ (#{source-annotation 324}# #{er 2094}#)
+ #{ribcage 2066}#
+ #{mod 2056}#
+ #f))
+ (lambda (#{type 2096}#
+ #{value 2097}#
+ #{e 2098}#
+ #{w 2099}#
+ #{s 2100}#
+ #{mod 2101}#)
+ (if (memv #{type 2096}# '(define-form))
+ (let ((#{id 2111}#
+ (#{wrap 409}#
+ #{value 2097}#
+ #{w 2099}#
+ #{mod 2101}#))
+ (#{label 2112}# (#{gen-label 356}#)))
+ (let ((#{var 2114}#
+ (#{gen-var 451}# #{id 2111}#)))
+ (begin
+ (#{extend-ribcage! 385}#
+ #{ribcage 2066}#
+ #{id 2111}#
+ #{label 2112}#)
+ (#{parse 2081}#
+ (cdr #{body 2082}#)
+ (cons #{id 2111}# #{ids 2083}#)
+ (cons #{label 2112}# #{labels 2084}#)
+ (cons #{id 2111}# #{var-ids 2085}#)
+ (cons #{var 2114}# #{vars 2086}#)
+ (cons (cons #{er 2094}#
+ (#{wrap 409}#
+ #{e 2098}#
+ #{w 2099}#
+ #{mod 2101}#))
+ #{vals 2087}#)
+ (cons (cons 'lexical #{var 2114}#)
+ #{bindings 2088}#)))))
+ (if (memv #{type 2096}# '(define-syntax-form))
+ (let ((#{id 2119}#
+ (#{wrap 409}#
+ #{value 2097}#
+ #{w 2099}#
+ #{mod 2101}#))
+ (#{label 2120}# (#{gen-label 356}#)))
+ (begin
+ (#{extend-ribcage! 385}#
+ #{ribcage 2066}#
+ #{id 2119}#
+ #{label 2120}#)
+ (#{parse 2081}#
+ (cdr #{body 2082}#)
+ (cons #{id 2119}# #{ids 2083}#)
+ (cons #{label 2120}# #{labels 2084}#)
+ #{var-ids 2085}#
+ #{vars 2086}#
+ #{vals 2087}#
+ (cons (cons 'macro
+ (cons #{er 2094}#
+ (#{wrap 409}#
+ #{e 2098}#
+ #{w 2099}#
+ #{mod 2101}#)))
+ #{bindings 2088}#))))
+ (if (memv #{type 2096}# '(begin-form))
+ (let ((#{tmp 2123}# #{e 2098}#))
+ (let ((#{tmp 2124}#
+ ($sc-dispatch
+ #{tmp 2123}#
+ '(_ . each-any))))
+ (if #{tmp 2124}#
+ (@apply
+ (lambda (#{e1 2126}#)
+ (#{parse 2081}#
+ (letrec*
+ ((#{f 2129}#
+ (lambda (#{forms 2130}#)
+ (if (null? #{forms 2130}#)
+ (cdr #{body 2082}#)
+ (cons (cons #{er 2094}#
+ (#{wrap 409}#
+ (car #{forms 2130}#)
+ #{w 2099}#
+ #{mod 2101}#))
+ (#{f 2129}#
+ (cdr #{forms 2130}#)))))))
+ (#{f 2129}# #{e1 2126}#))
+ #{ids 2083}#
+ #{labels 2084}#
+ #{var-ids 2085}#
+ #{vars 2086}#
+ #{vals 2087}#
+ #{bindings 2088}#))
+ #{tmp 2124}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2123}#))))
+ (if (memv #{type 2096}# '(local-syntax-form))
+ (#{chi-local-syntax 433}#
+ #{value 2097}#
+ #{e 2098}#
+ #{er 2094}#
+ #{w 2099}#
+ #{s 2100}#
+ #{mod 2101}#
+ (lambda (#{forms 2133}#
+ #{er 2134}#
+ #{w 2135}#
+ #{s 2136}#
+ #{mod 2137}#)
+ (#{parse 2081}#
+ (letrec*
+ ((#{f 2145}#
+ (lambda (#{forms 2146}#)
+ (if (null? #{forms 2146}#)
+ (cdr #{body 2082}#)
+ (cons (cons #{er 2134}#
+ (#{wrap 409}#
+ (car #{forms 2146}#)
+ #{w 2135}#
+ #{mod 2137}#))
+ (#{f 2145}#
+ (cdr #{forms 2146}#)))))))
+ (#{f 2145}# #{forms 2133}#))
+ #{ids 2083}#
+ #{labels 2084}#
+ #{var-ids 2085}#
+ #{vars 2086}#
+ #{vals 2087}#
+ #{bindings 2088}#)))
+ (if (null? #{ids 2083}#)
+ (#{build-sequence 297}#
+ #f
+ (map (lambda (#{x 2149}#)
+ (#{chi 423}#
+ (cdr #{x 2149}#)
+ (car #{x 2149}#)
+ '(())
+ #{mod 2101}#))
+ (cons (cons #{er 2094}#
+ (#{source-wrap 411}#
+ #{e 2098}#
+ #{w 2099}#
+ #{s 2100}#
+ #{mod 2101}#))
+ (cdr #{body 2082}#))))
+ (begin
+ (if (not (#{valid-bound-ids? 403}#
+ #{ids 2083}#))
+ (syntax-violation
+ #f
+ "invalid or duplicate identifier in definition"
+ #{outer-form 2053}#))
+ (letrec*
+ ((#{loop 2156}#
+ (lambda (#{bs 2157}#
+ #{er-cache 2158}#
+ #{r-cache 2159}#)
+ (if (not (null? #{bs 2157}#))
+ (let ((#{b 2162}#
+ (car #{bs 2157}#)))
+ (if (eq? (car #{b 2162}#)
+ 'macro)
+ (let ((#{er 2165}#
+ (car (cdr #{b 2162}#))))
+ (let ((#{r-cache 2167}#
+ (if (eq? #{er 2165}#
+ #{er-cache 2158}#)
+ #{r-cache 2159}#
+ (#{macros-only-env 335}#
+ #{er 2165}#))))
+ (begin
+ (set-cdr!
+ #{b 2162}#
+ (#{eval-local-transformer 435}#
+ (#{chi 423}#
+ (cdr (cdr #{b 2162}#))
+ #{r-cache 2167}#
+ '(())
+ #{mod 2101}#)
+ #{mod 2101}#))
+ (#{loop 2156}#
+ (cdr #{bs 2157}#)
+ #{er 2165}#
+ #{r-cache 2167}#))))
+ (#{loop 2156}#
+ (cdr #{bs 2157}#)
+ #{er-cache 2158}#
+ #{r-cache 2159}#)))))))
+ (#{loop 2156}#
+ #{bindings 2088}#
+ #f
+ #f))
+ (set-cdr!
+ #{r 2064}#
+ (#{extend-env 331}#
+ #{labels 2084}#
+ #{bindings 2088}#
+ (cdr #{r 2064}#)))
+ (#{build-letrec 303}#
+ #f
+ #t
+ (reverse
+ (map syntax->datum
+ #{var-ids 2085}#))
+ (reverse #{vars 2086}#)
+ (map (lambda (#{x 2170}#)
+ (#{chi 423}#
+ (cdr #{x 2170}#)
+ (car #{x 2170}#)
+ '(())
+ #{mod 2101}#))
+ (reverse #{vals 2087}#))
+ (#{build-sequence 297}#
+ #f
+ (map (lambda (#{x 2174}#)
+ (#{chi 423}#
+ (cdr #{x 2174}#)
+ (car #{x 2174}#)
+ '(())
+ #{mod 2101}#))
+ (cons (cons #{er 2094}#
+ (#{source-wrap 411}#
+ #{e 2098}#
+ #{w 2099}#
+ #{s 2100}#
+ #{mod 2101}#))
+ (cdr #{body 2082}#))))))))))))))))))
+ (#{parse 2081}#
+ (map (lambda (#{x 2089}#)
+ (cons #{r 2064}#
+ (#{wrap 409}#
+ #{x 2089}#
+ #{w 2069}#
+ #{mod 2056}#)))
+ #{body 2052}#)
+ '()
+ '()
+ '()
+ '()
+ '()
+ '())))))))
+ (#{chi-local-syntax 433}#
+ (lambda (#{rec? 2177}#
+ #{e 2178}#
+ #{r 2179}#
+ #{w 2180}#
+ #{s 2181}#
+ #{mod 2182}#
+ #{k 2183}#)
+ (let ((#{tmp 2191}# #{e 2178}#))
+ (let ((#{tmp 2192}#
+ ($sc-dispatch
+ #{tmp 2191}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 2192}#
+ (@apply
+ (lambda (#{id 2197}#
+ #{val 2198}#
+ #{e1 2199}#
+ #{e2 2200}#)
+ (let ((#{ids 2202}# #{id 2197}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 2202}#))
+ (syntax-violation
+ #f
+ "duplicate bound keyword"
+ #{e 2178}#)
+ (let ((#{labels 2205}#
+ (#{gen-labels 358}# #{ids 2202}#)))
+ (let ((#{new-w 2207}#
+ (#{make-binding-wrap 387}#
+ #{ids 2202}#
+ #{labels 2205}#
+ #{w 2180}#)))
+ (#{k 2183}#
+ (cons #{e1 2199}# #{e2 2200}#)
+ (#{extend-env 331}#
+ #{labels 2205}#
+ (let ((#{w 2211}#
+ (if #{rec? 2177}#
+ #{new-w 2207}#
+ #{w 2180}#))
+ (#{trans-r 2212}#
+ (#{macros-only-env 335}# #{r 2179}#)))
+ (map (lambda (#{x 2213}#)
+ (cons 'macro
+ (#{eval-local-transformer 435}#
+ (#{chi 423}#
+ #{x 2213}#
+ #{trans-r 2212}#
+ #{w 2211}#
+ #{mod 2182}#)
+ #{mod 2182}#)))
+ #{val 2198}#))
+ #{r 2179}#)
+ #{new-w 2207}#
+ #{s 2181}#
+ #{mod 2182}#))))))
+ #{tmp 2192}#)
+ (let ((#{_ 2218}# #{tmp 2191}#))
+ (syntax-violation
+ #f
+ "bad local syntax definition"
+ (#{source-wrap 411}#
+ #{e 2178}#
+ #{w 2180}#
+ #{s 2181}#
+ #{mod 2182}#))))))))
+ (#{eval-local-transformer 435}#
+ (lambda (#{expanded 2219}# #{mod 2220}#)
+ (let ((#{p 2224}#
+ (#{local-eval-hook 254}#
+ #{expanded 2219}#
+ #{mod 2220}#)))
+ (if (procedure? #{p 2224}#)
+ #{p 2224}#
+ (syntax-violation
+ #f
+ "nonprocedure transformer"
+ #{p 2224}#)))))
+ (#{chi-void 437}#
+ (lambda () (#{build-void 265}# #f)))
+ (#{ellipsis? 439}#
+ (lambda (#{x 2226}#)
+ (if (#{nonsymbol-id? 341}# #{x 2226}#)
+ (#{free-id=? 399}#
+ #{x 2226}#
+ '#(syntax-object
+ ...
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i2227"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ #f)))
+ (#{lambda-formals 441}#
+ (lambda (#{orig-args 2230}#)
+ (letrec*
+ ((#{req 2233}#
+ (lambda (#{args 2236}# #{rreq 2237}#)
+ (let ((#{tmp 2240}# #{args 2236}#))
+ (let ((#{tmp 2241}# ($sc-dispatch #{tmp 2240}# '())))
+ (if #{tmp 2241}#
+ (@apply
+ (lambda ()
+ (#{check 2235}# (reverse #{rreq 2237}#) #f))
+ #{tmp 2241}#)
+ (let ((#{tmp 2242}#
+ ($sc-dispatch #{tmp 2240}# '(any . any))))
+ (if (if #{tmp 2242}#
+ (@apply
+ (lambda (#{a 2245}# #{b 2246}#)
+ (#{id? 343}# #{a 2245}#))
+ #{tmp 2242}#)
+ #f)
+ (@apply
+ (lambda (#{a 2249}# #{b 2250}#)
+ (#{req 2233}#
+ #{b 2250}#
+ (cons #{a 2249}# #{rreq 2237}#)))
+ #{tmp 2242}#)
+ (let ((#{tmp 2251}# (list #{tmp 2240}#)))
+ (if (if #{tmp 2251}#
+ (@apply
+ (lambda (#{r 2253}#)
+ (#{id? 343}# #{r 2253}#))
+ #{tmp 2251}#)
+ #f)
+ (@apply
+ (lambda (#{r 2255}#)
+ (#{check 2235}#
+ (reverse #{rreq 2237}#)
+ #{r 2255}#))
+ #{tmp 2251}#)
+ (let ((#{else 2257}# #{tmp 2240}#))
+ (syntax-violation
+ 'lambda
+ "invalid argument list"
+ #{orig-args 2230}#
+ #{args 2236}#)))))))))))
+ (#{check 2235}#
+ (lambda (#{req 2258}# #{rest 2259}#)
+ (if (#{distinct-bound-ids? 405}#
+ (if #{rest 2259}#
+ (cons #{rest 2259}# #{req 2258}#)
+ #{req 2258}#))
+ (values #{req 2258}# #f #{rest 2259}# #f)
+ (syntax-violation
+ 'lambda
+ "duplicate identifier in argument list"
+ #{orig-args 2230}#)))))
+ (#{req 2233}# #{orig-args 2230}# '()))))
+ (#{chi-simple-lambda 443}#
+ (lambda (#{e 2265}#
+ #{r 2266}#
+ #{w 2267}#
+ #{s 2268}#
+ #{mod 2269}#
+ #{req 2270}#
+ #{rest 2271}#
+ #{meta 2272}#
+ #{body 2273}#)
+ (let ((#{ids 2285}#
+ (if #{rest 2271}#
+ (append #{req 2270}# (list #{rest 2271}#))
+ #{req 2270}#)))
+ (let ((#{vars 2287}#
+ (map #{gen-var 451}# #{ids 2285}#)))
+ (let ((#{labels 2289}#
+ (#{gen-labels 358}# #{ids 2285}#)))
+ (#{build-simple-lambda 285}#
+ #{s 2268}#
+ (map syntax->datum #{req 2270}#)
+ (if #{rest 2271}#
+ (syntax->datum #{rest 2271}#)
+ #f)
+ #{vars 2287}#
+ #{meta 2272}#
+ (#{chi-body 431}#
+ #{body 2273}#
+ (#{source-wrap 411}#
+ #{e 2265}#
+ #{w 2267}#
+ #{s 2268}#
+ #{mod 2269}#)
+ (#{extend-var-env 333}#
+ #{labels 2289}#
+ #{vars 2287}#
+ #{r 2266}#)
+ (#{make-binding-wrap 387}#
+ #{ids 2285}#
+ #{labels 2289}#
+ #{w 2267}#)
+ #{mod 2269}#)))))))
+ (#{lambda*-formals 445}#
+ (lambda (#{orig-args 2292}#)
+ (letrec*
+ ((#{req 2295}#
+ (lambda (#{args 2304}# #{rreq 2305}#)
+ (let ((#{tmp 2308}# #{args 2304}#))
+ (let ((#{tmp 2309}# ($sc-dispatch #{tmp 2308}# '())))
+ (if #{tmp 2309}#
+ (@apply
+ (lambda ()
+ (#{check 2303}#
+ (reverse #{rreq 2305}#)
+ '()
+ #f
+ '()))
+ #{tmp 2309}#)
+ (let ((#{tmp 2310}#
+ ($sc-dispatch #{tmp 2308}# '(any . any))))
+ (if (if #{tmp 2310}#
+ (@apply
+ (lambda (#{a 2313}# #{b 2314}#)
+ (#{id? 343}# #{a 2313}#))
+ #{tmp 2310}#)
+ #f)
+ (@apply
+ (lambda (#{a 2317}# #{b 2318}#)
+ (#{req 2295}#
+ #{b 2318}#
+ (cons #{a 2317}# #{rreq 2305}#)))
+ #{tmp 2310}#)
+ (let ((#{tmp 2319}#
+ ($sc-dispatch #{tmp 2308}# '(any . any))))
+ (if (if #{tmp 2319}#
+ (@apply
+ (lambda (#{a 2322}# #{b 2323}#)
+ (eq? (syntax->datum #{a 2322}#)
+ #:optional))
+ #{tmp 2319}#)
+ #f)
+ (@apply
+ (lambda (#{a 2326}# #{b 2327}#)
+ (#{opt 2297}#
+ #{b 2327}#
+ (reverse #{rreq 2305}#)
+ '()))
+ #{tmp 2319}#)
+ (let ((#{tmp 2328}#
+ ($sc-dispatch #{tmp 2308}# '(any . any))))
+ (if (if #{tmp 2328}#
+ (@apply
+ (lambda (#{a 2331}# #{b 2332}#)
+ (eq? (syntax->datum #{a 2331}#) #:key))
+ #{tmp 2328}#)
+ #f)
+ (@apply
+ (lambda (#{a 2335}# #{b 2336}#)
+ (#{key 2299}#
+ #{b 2336}#
+ (reverse #{rreq 2305}#)
+ '()
+ '()))
+ #{tmp 2328}#)
+ (let ((#{tmp 2337}#
+ ($sc-dispatch
+ #{tmp 2308}#
+ '(any any))))
+ (if (if #{tmp 2337}#
+ (@apply
+ (lambda (#{a 2340}# #{b 2341}#)
+ (eq? (syntax->datum #{a 2340}#)
+ #:rest))
+ #{tmp 2337}#)
+ #f)
+ (@apply
+ (lambda (#{a 2344}# #{b 2345}#)
+ (#{rest 2301}#
+ #{b 2345}#
+ (reverse #{rreq 2305}#)
+ '()
+ '()))
+ #{tmp 2337}#)
+ (let ((#{tmp 2346}# (list #{tmp 2308}#)))
+ (if (if #{tmp 2346}#
+ (@apply
+ (lambda (#{r 2348}#)
+ (#{id? 343}# #{r 2348}#))
+ #{tmp 2346}#)
+ #f)
+ (@apply
+ (lambda (#{r 2350}#)
+ (#{rest 2301}#
+ #{r 2350}#
+ (reverse #{rreq 2305}#)
+ '()
+ '()))
+ #{tmp 2346}#)
+ (let ((#{else 2352}# #{tmp 2308}#))
+ (syntax-violation
+ 'lambda*
+ "invalid argument list"
+ #{orig-args 2292}#
+ #{args 2304}#)))))))))))))))))
+ (#{opt 2297}#
+ (lambda (#{args 2353}# #{req 2354}# #{ropt 2355}#)
+ (let ((#{tmp 2359}# #{args 2353}#))
+ (let ((#{tmp 2360}# ($sc-dispatch #{tmp 2359}# '())))
+ (if #{tmp 2360}#
+ (@apply
+ (lambda ()
+ (#{check 2303}#
+ #{req 2354}#
+ (reverse #{ropt 2355}#)
+ #f
+ '()))
+ #{tmp 2360}#)
+ (let ((#{tmp 2361}#
+ ($sc-dispatch #{tmp 2359}# '(any . any))))
+ (if (if #{tmp 2361}#
+ (@apply
+ (lambda (#{a 2364}# #{b 2365}#)
+ (#{id? 343}# #{a 2364}#))
+ #{tmp 2361}#)
+ #f)
+ (@apply
+ (lambda (#{a 2368}# #{b 2369}#)
+ (#{opt 2297}#
+ #{b 2369}#
+ #{req 2354}#
+ (cons (cons #{a 2368}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2366" "i2367"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req ropt)
+ #((top) (top) (top))
+ #("i2356" "i2357" "i2358"))
+ #(ribcage
+ (check rest key opt req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2293"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))))
+ #{ropt 2355}#)))
+ #{tmp 2361}#)
+ (let ((#{tmp 2370}#
+ ($sc-dispatch
+ #{tmp 2359}#
+ '((any any) . any))))
+ (if (if #{tmp 2370}#
+ (@apply
+ (lambda (#{a 2374}# #{init 2375}# #{b 2376}#)
+ (#{id? 343}# #{a 2374}#))
+ #{tmp 2370}#)
+ #f)
+ (@apply
+ (lambda (#{a 2380}# #{init 2381}# #{b 2382}#)
+ (#{opt 2297}#
+ #{b 2382}#
+ #{req 2354}#
+ (cons (list #{a 2380}# #{init 2381}#)
+ #{ropt 2355}#)))
+ #{tmp 2370}#)
+ (let ((#{tmp 2383}#
+ ($sc-dispatch #{tmp 2359}# '(any . any))))
+ (if (if #{tmp 2383}#
+ (@apply
+ (lambda (#{a 2386}# #{b 2387}#)
+ (eq? (syntax->datum #{a 2386}#) #:key))
+ #{tmp 2383}#)
+ #f)
+ (@apply
+ (lambda (#{a 2390}# #{b 2391}#)
+ (#{key 2299}#
+ #{b 2391}#
+ #{req 2354}#
+ (reverse #{ropt 2355}#)
+ '()))
+ #{tmp 2383}#)
+ (let ((#{tmp 2392}#
+ ($sc-dispatch
+ #{tmp 2359}#
+ '(any any))))
+ (if (if #{tmp 2392}#
+ (@apply
+ (lambda (#{a 2395}# #{b 2396}#)
+ (eq? (syntax->datum #{a 2395}#)
+ #:rest))
+ #{tmp 2392}#)
+ #f)
+ (@apply
+ (lambda (#{a 2399}# #{b 2400}#)
+ (#{rest 2301}#
+ #{b 2400}#
+ #{req 2354}#
+ (reverse #{ropt 2355}#)
+ '()))
+ #{tmp 2392}#)
+ (let ((#{tmp 2401}# (list #{tmp 2359}#)))
+ (if (if #{tmp 2401}#
+ (@apply
+ (lambda (#{r 2403}#)
+ (#{id? 343}# #{r 2403}#))
+ #{tmp 2401}#)
+ #f)
+ (@apply
+ (lambda (#{r 2405}#)
+ (#{rest 2301}#
+ #{r 2405}#
+ #{req 2354}#
+ (reverse #{ropt 2355}#)
+ '()))
+ #{tmp 2401}#)
+ (let ((#{else 2407}# #{tmp 2359}#))
+ (syntax-violation
+ 'lambda*
+ "invalid optional argument list"
+ #{orig-args 2292}#
+ #{args 2353}#)))))))))))))))))
+ (#{key 2299}#
+ (lambda (#{args 2408}#
+ #{req 2409}#
+ #{opt 2410}#
+ #{rkey 2411}#)
+ (let ((#{tmp 2416}# #{args 2408}#))
+ (let ((#{tmp 2417}# ($sc-dispatch #{tmp 2416}# '())))
+ (if #{tmp 2417}#
+ (@apply
+ (lambda ()
+ (#{check 2303}#
+ #{req 2409}#
+ #{opt 2410}#
+ #f
+ (cons #f (reverse #{rkey 2411}#))))
+ #{tmp 2417}#)
+ (let ((#{tmp 2418}#
+ ($sc-dispatch #{tmp 2416}# '(any . any))))
+ (if (if #{tmp 2418}#
+ (@apply
+ (lambda (#{a 2421}# #{b 2422}#)
+ (#{id? 343}# #{a 2421}#))
+ #{tmp 2418}#)
+ #f)
+ (@apply
+ (lambda (#{a 2425}# #{b 2426}#)
+ (let ((#{tmp 2428}#
+ (symbol->keyword
+ (syntax->datum #{a 2425}#))))
+ (let ((#{k 2430}# #{tmp 2428}#))
+ (#{key 2299}#
+ #{b 2426}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons (cons #{k 2430}#
+ (cons #{a 2425}#
+ '(#(syntax-object
+ #f
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(k)
+ #((top))
+ #("i2429"))
+ #(ribcage
+ #(a b)
+ #((top) (top))
+ #("i2423" "i2424"))
+ #(ribcage () () ())
+ #(ribcage
+ #(args req opt rkey)
+ #((top)
+ (top)
+ (top)
+ (top))
+ #("i2412"
+ "i2413"
+ "i2414"
+ "i2415"))
+ #(ribcage
+ (check rest
+ key
+ opt
+ req)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"))
+ #(ribcage
+ #(orig-args)
+ #((top))
+ #("i2293"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40"
+ "i39"
+ "i38")))
+ (hygiene guile)))))
+ #{rkey 2411}#)))))
+ #{tmp 2418}#)
+ (let ((#{tmp 2431}#
+ ($sc-dispatch
+ #{tmp 2416}#
+ '((any any) . any))))
+ (if (if #{tmp 2431}#
+ (@apply
+ (lambda (#{a 2435}# #{init 2436}# #{b 2437}#)
+ (#{id? 343}# #{a 2435}#))
+ #{tmp 2431}#)
+ #f)
+ (@apply
+ (lambda (#{a 2441}# #{init 2442}# #{b 2443}#)
+ (let ((#{tmp 2445}#
+ (symbol->keyword
+ (syntax->datum #{a 2441}#))))
+ (let ((#{k 2447}# #{tmp 2445}#))
+ (#{key 2299}#
+ #{b 2443}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons (list #{k 2447}#
+ #{a 2441}#
+ #{init 2442}#)
+ #{rkey 2411}#)))))
+ #{tmp 2431}#)
+ (let ((#{tmp 2448}#
+ ($sc-dispatch
+ #{tmp 2416}#
+ '((any any any) . any))))
+ (if (if #{tmp 2448}#
+ (@apply
+ (lambda (#{a 2453}#
+ #{init 2454}#
+ #{k 2455}#
+ #{b 2456}#)
+ (if (#{id? 343}# #{a 2453}#)
+ (keyword? (syntax->datum #{k 2455}#))
+ #f))
+ #{tmp 2448}#)
+ #f)
+ (@apply
+ (lambda (#{a 2463}#
+ #{init 2464}#
+ #{k 2465}#
+ #{b 2466}#)
+ (#{key 2299}#
+ #{b 2466}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons (list #{k 2465}#
+ #{a 2463}#
+ #{init 2464}#)
+ #{rkey 2411}#)))
+ #{tmp 2448}#)
+ (let ((#{tmp 2467}#
+ ($sc-dispatch #{tmp 2416}# '(any))))
+ (if (if #{tmp 2467}#
+ (@apply
+ (lambda (#{aok 2469}#)
+ (eq? (syntax->datum #{aok 2469}#)
+ #:allow-other-keys))
+ #{tmp 2467}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2471}#)
+ (#{check 2303}#
+ #{req 2409}#
+ #{opt 2410}#
+ #f
+ (cons #t (reverse #{rkey 2411}#))))
+ #{tmp 2467}#)
+ (let ((#{tmp 2472}#
+ ($sc-dispatch
+ #{tmp 2416}#
+ '(any any any))))
+ (if (if #{tmp 2472}#
+ (@apply
+ (lambda (#{aok 2476}#
+ #{a 2477}#
+ #{b 2478}#)
+ (if (eq? (syntax->datum
+ #{aok 2476}#)
+ #:allow-other-keys)
+ (eq? (syntax->datum
+ #{a 2477}#)
+ #:rest)
+ #f))
+ #{tmp 2472}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2484}#
+ #{a 2485}#
+ #{b 2486}#)
+ (#{rest 2301}#
+ #{b 2486}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons #t
+ (reverse #{rkey 2411}#))))
+ #{tmp 2472}#)
+ (let ((#{tmp 2487}#
+ ($sc-dispatch
+ #{tmp 2416}#
+ '(any . any))))
+ (if (if #{tmp 2487}#
+ (@apply
+ (lambda (#{aok 2490}#
+ #{r 2491}#)
+ (if (eq? (syntax->datum
+ #{aok 2490}#)
+ #:allow-other-keys)
+ (#{id? 343}# #{r 2491}#)
+ #f))
+ #{tmp 2487}#)
+ #f)
+ (@apply
+ (lambda (#{aok 2496}# #{r 2497}#)
+ (#{rest 2301}#
+ #{r 2497}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons #t
+ (reverse
+ #{rkey 2411}#))))
+ #{tmp 2487}#)
+ (let ((#{tmp 2498}#
+ ($sc-dispatch
+ #{tmp 2416}#
+ '(any any))))
+ (if (if #{tmp 2498}#
+ (@apply
+ (lambda (#{a 2501}#
+ #{b 2502}#)
+ (eq? (syntax->datum
+ #{a 2501}#)
+ #:rest))
+ #{tmp 2498}#)
+ #f)
+ (@apply
+ (lambda (#{a 2505}#
+ #{b 2506}#)
+ (#{rest 2301}#
+ #{b 2506}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons #f
+ (reverse
+ #{rkey 2411}#))))
+ #{tmp 2498}#)
+ (let ((#{tmp 2507}#
+ (list #{tmp 2416}#)))
+ (if (if #{tmp 2507}#
+ (@apply
+ (lambda (#{r 2509}#)
+ (#{id? 343}#
+ #{r 2509}#))
+ #{tmp 2507}#)
+ #f)
+ (@apply
+ (lambda (#{r 2511}#)
+ (#{rest 2301}#
+ #{r 2511}#
+ #{req 2409}#
+ #{opt 2410}#
+ (cons #f
+ (reverse
+ #{rkey 2411}#))))
+ #{tmp 2507}#)
+ (let ((#{else 2513}#
+ #{tmp 2416}#))
+ (syntax-violation
+ 'lambda*
+ "invalid keyword argument list"
+ #{orig-args 2292}#
+ #{args 2408}#)))))))))))))))))))))))
+ (#{rest 2301}#
+ (lambda (#{args 2514}#
+ #{req 2515}#
+ #{opt 2516}#
+ #{kw 2517}#)
+ (let ((#{tmp 2522}# #{args 2514}#))
+ (let ((#{tmp 2523}# (list #{tmp 2522}#)))
+ (if (if #{tmp 2523}#
+ (@apply
+ (lambda (#{r 2525}#) (#{id? 343}# #{r 2525}#))
+ #{tmp 2523}#)
+ #f)
+ (@apply
+ (lambda (#{r 2527}#)
+ (#{check 2303}#
+ #{req 2515}#
+ #{opt 2516}#
+ #{r 2527}#
+ #{kw 2517}#))
+ #{tmp 2523}#)
+ (let ((#{else 2529}# #{tmp 2522}#))
+ (syntax-violation
+ 'lambda*
+ "invalid rest argument"
+ #{orig-args 2292}#
+ #{args 2514}#)))))))
+ (#{check 2303}#
+ (lambda (#{req 2530}#
+ #{opt 2531}#
+ #{rest 2532}#
+ #{kw 2533}#)
+ (if (#{distinct-bound-ids? 405}#
+ (append
+ #{req 2530}#
+ (map car #{opt 2531}#)
+ (if #{rest 2532}# (list #{rest 2532}#) '())
+ (if (pair? #{kw 2533}#)
+ (map cadr (cdr #{kw 2533}#))
+ '())))
+ (values
+ #{req 2530}#
+ #{opt 2531}#
+ #{rest 2532}#
+ #{kw 2533}#)
+ (syntax-violation
+ 'lambda*
+ "duplicate identifier in argument list"
+ #{orig-args 2292}#)))))
+ (#{req 2295}# #{orig-args 2292}# '()))))
+ (#{chi-lambda-case 447}#
+ (lambda (#{e 2541}#
+ #{r 2542}#
+ #{w 2543}#
+ #{s 2544}#
+ #{mod 2545}#
+ #{get-formals 2546}#
+ #{clauses 2547}#)
+ (letrec*
+ ((#{expand-req 2556}#
+ (lambda (#{req 2563}#
+ #{opt 2564}#
+ #{rest 2565}#
+ #{kw 2566}#
+ #{body 2567}#)
+ (let ((#{vars 2575}#
+ (map #{gen-var 451}# #{req 2563}#))
+ (#{labels 2576}#
+ (#{gen-labels 358}# #{req 2563}#)))
+ (let ((#{r* 2579}#
+ (#{extend-var-env 333}#
+ #{labels 2576}#
+ #{vars 2575}#
+ #{r 2542}#))
+ (#{w* 2580}#
+ (#{make-binding-wrap 387}#
+ #{req 2563}#
+ #{labels 2576}#
+ #{w 2543}#)))
+ (#{expand-opt 2558}#
+ (map syntax->datum #{req 2563}#)
+ #{opt 2564}#
+ #{rest 2565}#
+ #{kw 2566}#
+ #{body 2567}#
+ (reverse #{vars 2575}#)
+ #{r* 2579}#
+ #{w* 2580}#
+ '()
+ '())))))
+ (#{expand-opt 2558}#
+ (lambda (#{req 2581}#
+ #{opt 2582}#
+ #{rest 2583}#
+ #{kw 2584}#
+ #{body 2585}#
+ #{vars 2586}#
+ #{r* 2587}#
+ #{w* 2588}#
+ #{out 2589}#
+ #{inits 2590}#)
+ (if (pair? #{opt 2582}#)
+ (let ((#{tmp 2603}# (car #{opt 2582}#)))
+ (let ((#{tmp 2604}#
+ ($sc-dispatch #{tmp 2603}# '(any any))))
+ (if #{tmp 2604}#
+ (@apply
+ (lambda (#{id 2607}# #{i 2608}#)
+ (let ((#{v 2611}# (#{gen-var 451}# #{id 2607}#)))
+ (let ((#{l 2613}#
+ (#{gen-labels 358}# (list #{v 2611}#))))
+ (let ((#{r** 2615}#
+ (#{extend-var-env 333}#
+ #{l 2613}#
+ (list #{v 2611}#)
+ #{r* 2587}#)))
+ (let ((#{w** 2617}#
+ (#{make-binding-wrap 387}#
+ (list #{id 2607}#)
+ #{l 2613}#
+ #{w* 2588}#)))
+ (#{expand-opt 2558}#
+ #{req 2581}#
+ (cdr #{opt 2582}#)
+ #{rest 2583}#
+ #{kw 2584}#
+ #{body 2585}#
+ (cons #{v 2611}# #{vars 2586}#)
+ #{r** 2615}#
+ #{w** 2617}#
+ (cons (syntax->datum #{id 2607}#)
+ #{out 2589}#)
+ (cons (#{chi 423}#
+ #{i 2608}#
+ #{r* 2587}#
+ #{w* 2588}#
+ #{mod 2545}#)
+ #{inits 2590}#)))))))
+ #{tmp 2604}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2603}#))))
+ (if #{rest 2583}#
+ (let ((#{v 2622}# (#{gen-var 451}# #{rest 2583}#)))
+ (let ((#{l 2624}#
+ (#{gen-labels 358}# (list #{v 2622}#))))
+ (let ((#{r* 2626}#
+ (#{extend-var-env 333}#
+ #{l 2624}#
+ (list #{v 2622}#)
+ #{r* 2587}#)))
+ (let ((#{w* 2628}#
+ (#{make-binding-wrap 387}#
+ (list #{rest 2583}#)
+ #{l 2624}#
+ #{w* 2588}#)))
+ (#{expand-kw 2560}#
+ #{req 2581}#
+ (if (pair? #{out 2589}#)
+ (reverse #{out 2589}#)
+ #f)
+ (syntax->datum #{rest 2583}#)
+ (if (pair? #{kw 2584}#)
+ (cdr #{kw 2584}#)
+ #{kw 2584}#)
+ #{body 2585}#
+ (cons #{v 2622}# #{vars 2586}#)
+ #{r* 2626}#
+ #{w* 2628}#
+ (if (pair? #{kw 2584}#) (car #{kw 2584}#) #f)
+ '()
+ #{inits 2590}#)))))
+ (#{expand-kw 2560}#
+ #{req 2581}#
+ (if (pair? #{out 2589}#)
+ (reverse #{out 2589}#)
+ #f)
+ #f
+ (if (pair? #{kw 2584}#)
+ (cdr #{kw 2584}#)
+ #{kw 2584}#)
+ #{body 2585}#
+ #{vars 2586}#
+ #{r* 2587}#
+ #{w* 2588}#
+ (if (pair? #{kw 2584}#) (car #{kw 2584}#) #f)
+ '()
+ #{inits 2590}#)))))
+ (#{expand-kw 2560}#
+ (lambda (#{req 2630}#
+ #{opt 2631}#
+ #{rest 2632}#
+ #{kw 2633}#
+ #{body 2634}#
+ #{vars 2635}#
+ #{r* 2636}#
+ #{w* 2637}#
+ #{aok 2638}#
+ #{out 2639}#
+ #{inits 2640}#)
+ (if (pair? #{kw 2633}#)
+ (let ((#{tmp 2654}# (car #{kw 2633}#)))
+ (let ((#{tmp 2655}#
+ ($sc-dispatch #{tmp 2654}# '(any any any))))
+ (if #{tmp 2655}#
+ (@apply
+ (lambda (#{k 2659}# #{id 2660}# #{i 2661}#)
+ (let ((#{v 2664}# (#{gen-var 451}# #{id 2660}#)))
+ (let ((#{l 2666}#
+ (#{gen-labels 358}# (list #{v 2664}#))))
+ (let ((#{r** 2668}#
+ (#{extend-var-env 333}#
+ #{l 2666}#
+ (list #{v 2664}#)
+ #{r* 2636}#)))
+ (let ((#{w** 2670}#
+ (#{make-binding-wrap 387}#
+ (list #{id 2660}#)
+ #{l 2666}#
+ #{w* 2637}#)))
+ (#{expand-kw 2560}#
+ #{req 2630}#
+ #{opt 2631}#
+ #{rest 2632}#
+ (cdr #{kw 2633}#)
+ #{body 2634}#
+ (cons #{v 2664}# #{vars 2635}#)
+ #{r** 2668}#
+ #{w** 2670}#
+ #{aok 2638}#
+ (cons (list (syntax->datum #{k 2659}#)
+ (syntax->datum #{id 2660}#)
+ #{v 2664}#)
+ #{out 2639}#)
+ (cons (#{chi 423}#
+ #{i 2661}#
+ #{r* 2636}#
+ #{w* 2637}#
+ #{mod 2545}#)
+ #{inits 2640}#)))))))
+ #{tmp 2655}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2654}#))))
+ (#{expand-body 2562}#
+ #{req 2630}#
+ #{opt 2631}#
+ #{rest 2632}#
+ (if (let ((#{t 2674}# #{aok 2638}#))
+ (if #{t 2674}# #{t 2674}# (pair? #{out 2639}#)))
+ (cons #{aok 2638}# (reverse #{out 2639}#))
+ #f)
+ #{body 2634}#
+ (reverse #{vars 2635}#)
+ #{r* 2636}#
+ #{w* 2637}#
+ (reverse #{inits 2640}#)
+ '()))))
+ (#{expand-body 2562}#
+ (lambda (#{req 2676}#
+ #{opt 2677}#
+ #{rest 2678}#
+ #{kw 2679}#
+ #{body 2680}#
+ #{vars 2681}#
+ #{r* 2682}#
+ #{w* 2683}#
+ #{inits 2684}#
+ #{meta 2685}#)
+ (let ((#{tmp 2696}# #{body 2680}#))
+ (let ((#{tmp 2697}#
+ ($sc-dispatch #{tmp 2696}# '(any any . each-any))))
+ (if (if #{tmp 2697}#
+ (@apply
+ (lambda (#{docstring 2701}# #{e1 2702}# #{e2 2703}#)
+ (string? (syntax->datum #{docstring 2701}#)))
+ #{tmp 2697}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 2707}# #{e1 2708}# #{e2 2709}#)
+ (#{expand-body 2562}#
+ #{req 2676}#
+ #{opt 2677}#
+ #{rest 2678}#
+ #{kw 2679}#
+ (cons #{e1 2708}# #{e2 2709}#)
+ #{vars 2681}#
+ #{r* 2682}#
+ #{w* 2683}#
+ #{inits 2684}#
+ (append
+ #{meta 2685}#
+ (list (cons 'documentation
+ (syntax->datum #{docstring 2707}#))))))
+ #{tmp 2697}#)
+ (let ((#{tmp 2712}#
+ ($sc-dispatch
+ #{tmp 2696}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 2712}#
+ (@apply
+ (lambda (#{k 2717}#
+ #{v 2718}#
+ #{e1 2719}#
+ #{e2 2720}#)
+ (#{expand-body 2562}#
+ #{req 2676}#
+ #{opt 2677}#
+ #{rest 2678}#
+ #{kw 2679}#
+ (cons #{e1 2719}# #{e2 2720}#)
+ #{vars 2681}#
+ #{r* 2682}#
+ #{w* 2683}#
+ #{inits 2684}#
+ (append
+ #{meta 2685}#
+ (syntax->datum
+ (map cons #{k 2717}# #{v 2718}#)))))
+ #{tmp 2712}#)
+ (let ((#{tmp 2724}#
+ ($sc-dispatch #{tmp 2696}# '(any . each-any))))
+ (if #{tmp 2724}#
+ (@apply
+ (lambda (#{e1 2727}# #{e2 2728}#)
+ (values
+ #{meta 2685}#
+ #{req 2676}#
+ #{opt 2677}#
+ #{rest 2678}#
+ #{kw 2679}#
+ #{inits 2684}#
+ #{vars 2681}#
+ (#{chi-body 431}#
+ (cons #{e1 2727}# #{e2 2728}#)
+ (#{source-wrap 411}#
+ #{e 2541}#
+ #{w 2543}#
+ #{s 2544}#
+ #{mod 2545}#)
+ #{r* 2682}#
+ #{w* 2683}#
+ #{mod 2545}#)))
+ #{tmp 2724}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2696}#)))))))))))
+ (let ((#{tmp 2730}# #{clauses 2547}#))
+ (let ((#{tmp 2731}# ($sc-dispatch #{tmp 2730}# '())))
+ (if #{tmp 2731}#
+ (@apply (lambda () (values '() #f)) #{tmp 2731}#)
+ (let ((#{tmp 2732}#
+ ($sc-dispatch
+ #{tmp 2730}#
+ '((any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 2732}#
+ (@apply
+ (lambda (#{args 2739}#
+ #{e1 2740}#
+ #{e2 2741}#
+ #{args* 2742}#
+ #{e1* 2743}#
+ #{e2* 2744}#)
+ (call-with-values
+ (lambda () (#{get-formals 2546}# #{args 2739}#))
+ (lambda (#{req 2745}#
+ #{opt 2746}#
+ #{rest 2747}#
+ #{kw 2748}#)
+ (call-with-values
+ (lambda ()
+ (#{expand-req 2556}#
+ #{req 2745}#
+ #{opt 2746}#
+ #{rest 2747}#
+ #{kw 2748}#
+ (cons #{e1 2740}# #{e2 2741}#)))
+ (lambda (#{meta 2754}#
+ #{req 2755}#
+ #{opt 2756}#
+ #{rest 2757}#
+ #{kw 2758}#
+ #{inits 2759}#
+ #{vars 2760}#
+ #{body 2761}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 447}#
+ #{e 2541}#
+ #{r 2542}#
+ #{w 2543}#
+ #{s 2544}#
+ #{mod 2545}#
+ #{get-formals 2546}#
+ (map (lambda (#{tmp 2772}#
+ #{tmp 2771}#
+ #{tmp 2770}#)
+ (cons #{tmp 2770}#
+ (cons #{tmp 2771}#
+ #{tmp 2772}#)))
+ #{e2* 2744}#
+ #{e1* 2743}#
+ #{args* 2742}#)))
+ (lambda (#{meta* 2774}# #{else* 2775}#)
+ (values
+ (append #{meta 2754}# #{meta* 2774}#)
+ (#{build-lambda-case 289}#
+ #{s 2544}#
+ #{req 2755}#
+ #{opt 2756}#
+ #{rest 2757}#
+ #{kw 2758}#
+ #{inits 2759}#
+ #{vars 2760}#
+ #{body 2761}#
+ #{else* 2775}#)))))))))
+ #{tmp 2732}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 2730}#)))))))))
+ (#{strip 449}#
+ (lambda (#{x 2778}# #{w 2779}#)
+ (if (memq 'top (car #{w 2779}#))
+ #{x 2778}#
+ (letrec*
+ ((#{f 2786}#
+ (lambda (#{x 2787}#)
+ (if (#{syntax-object? 309}# #{x 2787}#)
+ (#{strip 449}#
+ (#{syntax-object-expression 311}# #{x 2787}#)
+ (#{syntax-object-wrap 313}# #{x 2787}#))
+ (if (pair? #{x 2787}#)
+ (let ((#{a 2794}# (#{f 2786}# (car #{x 2787}#)))
+ (#{d 2795}# (#{f 2786}# (cdr #{x 2787}#))))
+ (if (if (eq? #{a 2794}# (car #{x 2787}#))
+ (eq? #{d 2795}# (cdr #{x 2787}#))
+ #f)
+ #{x 2787}#
+ (cons #{a 2794}# #{d 2795}#)))
+ (if (vector? #{x 2787}#)
+ (let ((#{old 2801}# (vector->list #{x 2787}#)))
+ (let ((#{new 2803}# (map #{f 2786}# #{old 2801}#)))
+ (letrec*
+ ((#{lp 2807}#
+ (lambda (#{l1 2808}# #{l2 2809}#)
+ (if (null? #{l1 2808}#)
+ #{x 2787}#
+ (if (eq? (car #{l1 2808}#)
+ (car #{l2 2809}#))
+ (#{lp 2807}#
+ (cdr #{l1 2808}#)
+ (cdr #{l2 2809}#))
+ (list->vector #{new 2803}#))))))
+ (#{lp 2807}# #{old 2801}# #{new 2803}#))))
+ #{x 2787}#))))))
+ (#{f 2786}# #{x 2778}#)))))
+ (#{gen-var 451}#
+ (lambda (#{id 2811}#)
+ (let ((#{id 2814}#
+ (if (#{syntax-object? 309}# #{id 2811}#)
+ (#{syntax-object-expression 311}# #{id 2811}#)
+ #{id 2811}#)))
+ (gensym
+ (string-append (symbol->string #{id 2814}#) " ")))))
+ (#{lambda-var-list 453}#
+ (lambda (#{vars 2816}#)
+ (letrec*
+ ((#{lvl 2822}#
+ (lambda (#{vars 2823}# #{ls 2824}# #{w 2825}#)
+ (if (pair? #{vars 2823}#)
+ (#{lvl 2822}#
+ (cdr #{vars 2823}#)
+ (cons (#{wrap 409}# (car #{vars 2823}#) #{w 2825}# #f)
+ #{ls 2824}#)
+ #{w 2825}#)
+ (if (#{id? 343}# #{vars 2823}#)
+ (cons (#{wrap 409}# #{vars 2823}# #{w 2825}# #f)
+ #{ls 2824}#)
+ (if (null? #{vars 2823}#)
+ #{ls 2824}#
+ (if (#{syntax-object? 309}# #{vars 2823}#)
+ (#{lvl 2822}#
+ (#{syntax-object-expression 311}# #{vars 2823}#)
+ #{ls 2824}#
+ (#{join-wraps 391}#
+ #{w 2825}#
+ (#{syntax-object-wrap 313}# #{vars 2823}#)))
+ (cons #{vars 2823}# #{ls 2824}#))))))))
+ (#{lvl 2822}# #{vars 2816}# '() '(()))))))
+ (begin
+ (lambda (#{x 1163}# #{update 1164}#)
+ (vector-set! #{x 1163}# 1 #{update 1164}#))
+ (lambda (#{x 1167}# #{update 1168}#)
+ (vector-set! #{x 1167}# 2 #{update 1168}#))
+ (lambda (#{x 1171}# #{update 1172}#)
+ (vector-set! #{x 1171}# 3 #{update 1172}#))
+ (lambda (#{x 1252}#)
+ (if (vector? #{x 1252}#)
+ (if (= (vector-length #{x 1252}#) 4)
+ (eq? (vector-ref #{x 1252}# 0) 'ribcage)
+ #f)
+ #f))
+ (#{global-extend 339}#
+ 'local-syntax
+ 'letrec-syntax
+ #t)
+ (#{global-extend 339}#
+ 'local-syntax
+ 'let-syntax
+ #f)
+ (#{global-extend 339}#
+ 'core
+ 'fluid-let-syntax
+ (lambda (#{e 2836}#
+ #{r 2837}#
+ #{w 2838}#
+ #{s 2839}#
+ #{mod 2840}#)
+ (let ((#{tmp 2846}# #{e 2836}#))
+ (let ((#{tmp 2847}#
+ ($sc-dispatch
+ #{tmp 2846}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 2847}#
+ (@apply
+ (lambda (#{var 2852}#
+ #{val 2853}#
+ #{e1 2854}#
+ #{e2 2855}#)
+ (#{valid-bound-ids? 403}# #{var 2852}#))
+ #{tmp 2847}#)
+ #f)
+ (@apply
+ (lambda (#{var 2861}#
+ #{val 2862}#
+ #{e1 2863}#
+ #{e2 2864}#)
+ (let ((#{names 2866}#
+ (map (lambda (#{x 2867}#)
+ (#{id-var-name 397}# #{x 2867}# #{w 2838}#))
+ #{var 2861}#)))
+ (begin
+ (for-each
+ (lambda (#{id 2870}# #{n 2871}#)
+ (let ((#{atom-key 2876}#
+ (car (#{lookup 337}#
+ #{n 2871}#
+ #{r 2837}#
+ #{mod 2840}#))))
+ (if (memv #{atom-key 2876}# '(displaced-lexical))
+ (syntax-violation
+ 'fluid-let-syntax
+ "identifier out of context"
+ #{e 2836}#
+ (#{source-wrap 411}#
+ #{id 2870}#
+ #{w 2838}#
+ #{s 2839}#
+ #{mod 2840}#)))))
+ #{var 2861}#
+ #{names 2866}#)
+ (#{chi-body 431}#
+ (cons #{e1 2863}# #{e2 2864}#)
+ (#{source-wrap 411}#
+ #{e 2836}#
+ #{w 2838}#
+ #{s 2839}#
+ #{mod 2840}#)
+ (#{extend-env 331}#
+ #{names 2866}#
+ (let ((#{trans-r 2882}#
+ (#{macros-only-env 335}# #{r 2837}#)))
+ (map (lambda (#{x 2883}#)
+ (cons 'macro
+ (#{eval-local-transformer 435}#
+ (#{chi 423}#
+ #{x 2883}#
+ #{trans-r 2882}#
+ #{w 2838}#
+ #{mod 2840}#)
+ #{mod 2840}#)))
+ #{val 2862}#))
+ #{r 2837}#)
+ #{w 2838}#
+ #{mod 2840}#))))
+ #{tmp 2847}#)
+ (let ((#{_ 2888}# #{tmp 2846}#))
+ (syntax-violation
+ 'fluid-let-syntax
+ "bad syntax"
+ (#{source-wrap 411}#
+ #{e 2836}#
+ #{w 2838}#
+ #{s 2839}#
+ #{mod 2840}#))))))))
+ (#{global-extend 339}#
+ 'core
+ 'quote
+ (lambda (#{e 2889}#
+ #{r 2890}#
+ #{w 2891}#
+ #{s 2892}#
+ #{mod 2893}#)
+ (let ((#{tmp 2899}# #{e 2889}#))
+ (let ((#{tmp 2900}#
+ ($sc-dispatch #{tmp 2899}# '(_ any))))
+ (if #{tmp 2900}#
+ (@apply
+ (lambda (#{e 2902}#)
+ (#{build-data 295}#
+ #{s 2892}#
+ (#{strip 449}# #{e 2902}# #{w 2891}#)))
+ #{tmp 2900}#)
+ (let ((#{_ 2904}# #{tmp 2899}#))
+ (syntax-violation
+ 'quote
+ "bad syntax"
+ (#{source-wrap 411}#
+ #{e 2889}#
+ #{w 2891}#
+ #{s 2892}#
+ #{mod 2893}#))))))))
+ (#{global-extend 339}#
+ 'core
+ 'syntax
+ (letrec*
+ ((#{gen-syntax 2906}#
+ (lambda (#{src 2921}#
+ #{e 2922}#
+ #{r 2923}#
+ #{maps 2924}#
+ #{ellipsis? 2925}#
+ #{mod 2926}#)
+ (if (#{id? 343}# #{e 2922}#)
+ (let ((#{label 2934}#
+ (#{id-var-name 397}# #{e 2922}# '(()))))
+ (let ((#{b 2937}#
+ (#{lookup 337}#
+ #{label 2934}#
+ #{r 2923}#
+ #{mod 2926}#)))
+ (if (eq? (car #{b 2937}#) 'syntax)
+ (call-with-values
+ (lambda ()
+ (let ((#{var.lev 2940}# (cdr #{b 2937}#)))
+ (#{gen-ref 2908}#
+ #{src 2921}#
+ (car #{var.lev 2940}#)
+ (cdr #{var.lev 2940}#)
+ #{maps 2924}#)))
+ (lambda (#{var 2942}# #{maps 2943}#)
+ (values (list 'ref #{var 2942}#) #{maps 2943}#)))
+ (if (#{ellipsis? 2925}# #{e 2922}#)
+ (syntax-violation
+ 'syntax
+ "misplaced ellipsis"
+ #{src 2921}#)
+ (values (list 'quote #{e 2922}#) #{maps 2924}#)))))
+ (let ((#{tmp 2948}# #{e 2922}#))
+ (let ((#{tmp 2949}#
+ ($sc-dispatch #{tmp 2948}# '(any any))))
+ (if (if #{tmp 2949}#
+ (@apply
+ (lambda (#{dots 2952}# #{e 2953}#)
+ (#{ellipsis? 2925}# #{dots 2952}#))
+ #{tmp 2949}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2956}# #{e 2957}#)
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ #{e 2957}#
+ #{r 2923}#
+ #{maps 2924}#
+ (lambda (#{x 2958}#) #f)
+ #{mod 2926}#))
+ #{tmp 2949}#)
+ (let ((#{tmp 2960}#
+ ($sc-dispatch #{tmp 2948}# '(any any . any))))
+ (if (if #{tmp 2960}#
+ (@apply
+ (lambda (#{x 2964}# #{dots 2965}# #{y 2966}#)
+ (#{ellipsis? 2925}# #{dots 2965}#))
+ #{tmp 2960}#)
+ #f)
+ (@apply
+ (lambda (#{x 2970}# #{dots 2971}# #{y 2972}#)
+ (letrec*
+ ((#{f 2976}#
+ (lambda (#{y 2977}# #{k 2978}#)
+ (let ((#{tmp 2985}# #{y 2977}#))
+ (let ((#{tmp 2986}#
+ ($sc-dispatch
+ #{tmp 2985}#
+ '(any . any))))
+ (if (if #{tmp 2986}#
(@apply
- (lambda (#{x 3792}#)
+ (lambda (#{dots 2989}#
+ #{y 2990}#)
+ (#{ellipsis? 2925}#
+ #{dots 2989}#))
+ #{tmp 2986}#)
+ #f)
+ (@apply
+ (lambda (#{dots 2993}# #{y 2994}#)
+ (#{f 2976}#
+ #{y 2994}#
+ (lambda (#{maps 2995}#)
(call-with-values
(lambda ()
- (#{cvt 3701}#
- #{x 3792}#
- #{n 3725}#
- #{ids 3726}#))
- (lambda (#{p 3794}#
- #{ids 3795}#)
- (values
- (vector
- 'vector
- #{p 3794}#)
- #{ids 3795}#))))
- #{tmp 3790}#)
- (let ((#{x 3799}# #{tmp 3735}#))
+ (#{k 2978}#
+ (cons '()
+ #{maps 2995}#)))
+ (lambda (#{x 2997}#
+ #{maps 2998}#)
+ (if (null? (car #{maps 2998}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2921}#)
+ (values
+ (#{gen-mappend 2910}#
+ #{x 2997}#
+ (car #{maps 2998}#))
+ (cdr #{maps 2998}#))))))))
+ #{tmp 2986}#)
+ (let ((#{_ 3002}# #{tmp 2985}#))
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ #{y 2977}#
+ #{r 2923}#
+ #{maps 2924}#
+ #{ellipsis? 2925}#
+ #{mod 2926}#))
+ (lambda (#{y 3003}#
+ #{maps 3004}#)
+ (call-with-values
+ (lambda ()
+ (#{k 2978}# #{maps 3004}#))
+ (lambda (#{x 3007}#
+ #{maps 3008}#)
+ (values
+ (#{gen-append 2916}#
+ #{x 3007}#
+ #{y 3003}#)
+ #{maps 3008}#))))))))))))
+ (#{f 2976}#
+ #{y 2972}#
+ (lambda (#{maps 2979}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ #{x 2970}#
+ #{r 2923}#
+ (cons '() #{maps 2979}#)
+ #{ellipsis? 2925}#
+ #{mod 2926}#))
+ (lambda (#{x 2981}# #{maps 2982}#)
+ (if (null? (car #{maps 2982}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src 2921}#)
+ (values
+ (#{gen-map 2912}#
+ #{x 2981}#
+ (car #{maps 2982}#))
+ (cdr #{maps 2982}#)))))))))
+ #{tmp 2960}#)
+ (let ((#{tmp 3011}#
+ ($sc-dispatch #{tmp 2948}# '(any . any))))
+ (if #{tmp 3011}#
+ (@apply
+ (lambda (#{x 3014}# #{y 3015}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ #{x 3014}#
+ #{r 2923}#
+ #{maps 2924}#
+ #{ellipsis? 2925}#
+ #{mod 2926}#))
+ (lambda (#{x 3016}# #{maps 3017}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ #{y 3015}#
+ #{r 2923}#
+ #{maps 3017}#
+ #{ellipsis? 2925}#
+ #{mod 2926}#))
+ (lambda (#{y 3020}# #{maps 3021}#)
+ (values
+ (#{gen-cons 2914}#
+ #{x 3016}#
+ #{y 3020}#)
+ #{maps 3021}#))))))
+ #{tmp 3011}#)
+ (let ((#{tmp 3024}#
+ ($sc-dispatch
+ #{tmp 2948}#
+ '#(vector (any . each-any)))))
+ (if #{tmp 3024}#
+ (@apply
+ (lambda (#{e1 3027}# #{e2 3028}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{src 2921}#
+ (cons #{e1 3027}# #{e2 3028}#)
+ #{r 2923}#
+ #{maps 2924}#
+ #{ellipsis? 2925}#
+ #{mod 2926}#))
+ (lambda (#{e 3030}# #{maps 3031}#)
+ (values
+ (#{gen-vector 2918}# #{e 3030}#)
+ #{maps 3031}#))))
+ #{tmp 3024}#)
+ (let ((#{_ 3035}# #{tmp 2948}#))
+ (values
+ (list 'quote #{e 2922}#)
+ #{maps 2924}#))))))))))))))
+ (#{gen-ref 2908}#
+ (lambda (#{src 3037}#
+ #{var 3038}#
+ #{level 3039}#
+ #{maps 3040}#)
+ (if (= #{level 3039}# 0)
+ (values #{var 3038}# #{maps 3040}#)
+ (if (null? #{maps 3040}#)
+ (syntax-violation
+ 'syntax
+ "missing ellipsis"
+ #{src 3037}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-ref 2908}#
+ #{src 3037}#
+ #{var 3038}#
+ (#{1-}# #{level 3039}#)
+ (cdr #{maps 3040}#)))
+ (lambda (#{outer-var 3047}# #{outer-maps 3048}#)
+ (let ((#{b 3052}#
+ (assq #{outer-var 3047}# (car #{maps 3040}#))))
+ (if #{b 3052}#
+ (values (cdr #{b 3052}#) #{maps 3040}#)
+ (let ((#{inner-var 3054}# (#{gen-var 451}# 'tmp)))
+ (values
+ #{inner-var 3054}#
+ (cons (cons (cons #{outer-var 3047}#
+ #{inner-var 3054}#)
+ (car #{maps 3040}#))
+ #{outer-maps 3048}#)))))))))))
+ (#{gen-mappend 2910}#
+ (lambda (#{e 3055}# #{map-env 3056}#)
+ (list 'apply
+ '(primitive append)
+ (#{gen-map 2912}# #{e 3055}# #{map-env 3056}#))))
+ (#{gen-map 2912}#
+ (lambda (#{e 3060}# #{map-env 3061}#)
+ (let ((#{formals 3066}# (map cdr #{map-env 3061}#))
+ (#{actuals 3067}#
+ (map (lambda (#{x 3068}#)
+ (list 'ref (car #{x 3068}#)))
+ #{map-env 3061}#)))
+ (if (eq? (car #{e 3060}#) 'ref)
+ (car #{actuals 3067}#)
+ (if (and-map
+ (lambda (#{x 3075}#)
+ (if (eq? (car #{x 3075}#) 'ref)
+ (memq (car (cdr #{x 3075}#)) #{formals 3066}#)
+ #f))
+ (cdr #{e 3060}#))
+ (cons 'map
+ (cons (list 'primitive (car #{e 3060}#))
+ (map (let ((#{r 3081}#
+ (map cons
+ #{formals 3066}#
+ #{actuals 3067}#)))
+ (lambda (#{x 3082}#)
+ (cdr (assq (car (cdr #{x 3082}#))
+ #{r 3081}#))))
+ (cdr #{e 3060}#))))
+ (cons 'map
+ (cons (list 'lambda #{formals 3066}# #{e 3060}#)
+ #{actuals 3067}#)))))))
+ (#{gen-cons 2914}#
+ (lambda (#{x 3086}# #{y 3087}#)
+ (let ((#{atom-key 3092}# (car #{y 3087}#)))
+ (if (memv #{atom-key 3092}# '(quote))
+ (if (eq? (car #{x 3086}#) 'quote)
+ (list 'quote
+ (cons (car (cdr #{x 3086}#))
+ (car (cdr #{y 3087}#))))
+ (if (eq? (car (cdr #{y 3087}#)) '())
+ (list 'list #{x 3086}#)
+ (list 'cons #{x 3086}# #{y 3087}#)))
+ (if (memv #{atom-key 3092}# '(list))
+ (cons 'list (cons #{x 3086}# (cdr #{y 3087}#)))
+ (list 'cons #{x 3086}# #{y 3087}#))))))
+ (#{gen-append 2916}#
+ (lambda (#{x 3101}# #{y 3102}#)
+ (if (equal? #{y 3102}# ''())
+ #{x 3101}#
+ (list 'append #{x 3101}# #{y 3102}#))))
+ (#{gen-vector 2918}#
+ (lambda (#{x 3106}#)
+ (if (eq? (car #{x 3106}#) 'list)
+ (cons 'vector (cdr #{x 3106}#))
+ (if (eq? (car #{x 3106}#) 'quote)
+ (list 'quote
+ (list->vector (car (cdr #{x 3106}#))))
+ (list 'list->vector #{x 3106}#)))))
+ (#{regen 2920}#
+ (lambda (#{x 3116}#)
+ (let ((#{atom-key 3120}# (car #{x 3116}#)))
+ (if (memv #{atom-key 3120}# '(ref))
+ (#{build-lexical-reference 273}#
+ 'value
+ #f
+ (car (cdr #{x 3116}#))
+ (car (cdr #{x 3116}#)))
+ (if (memv #{atom-key 3120}# '(primitive))
+ (#{build-primref 293}# #f (car (cdr #{x 3116}#)))
+ (if (memv #{atom-key 3120}# '(quote))
+ (#{build-data 295}# #f (car (cdr #{x 3116}#)))
+ (if (memv #{atom-key 3120}# '(lambda))
+ (if (list? (car (cdr #{x 3116}#)))
+ (#{build-simple-lambda 285}#
+ #f
+ (car (cdr #{x 3116}#))
+ #f
+ (car (cdr #{x 3116}#))
+ '()
+ (#{regen 2920}# (car (cdr (cdr #{x 3116}#)))))
+ (error "how did we get here" #{x 3116}#))
+ (#{build-primcall 291}#
+ #f
+ (car #{x 3116}#)
+ (map #{regen 2920}# (cdr #{x 3116}#)))))))))))
+ (lambda (#{e 3131}#
+ #{r 3132}#
+ #{w 3133}#
+ #{s 3134}#
+ #{mod 3135}#)
+ (let ((#{e 3142}#
+ (#{source-wrap 411}#
+ #{e 3131}#
+ #{w 3133}#
+ #{s 3134}#
+ #{mod 3135}#)))
+ (let ((#{tmp 3143}# #{e 3142}#))
+ (let ((#{tmp 3144}#
+ ($sc-dispatch #{tmp 3143}# '(_ any))))
+ (if #{tmp 3144}#
+ (@apply
+ (lambda (#{x 3146}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax 2906}#
+ #{e 3142}#
+ #{x 3146}#
+ #{r 3132}#
+ '()
+ #{ellipsis? 439}#
+ #{mod 3135}#))
+ (lambda (#{e 3147}# #{maps 3148}#)
+ (#{regen 2920}# #{e 3147}#))))
+ #{tmp 3144}#)
+ (let ((#{_ 3152}# #{tmp 3143}#))
+ (syntax-violation
+ 'syntax
+ "bad `syntax' form"
+ #{e 3142}#)))))))))
+ (#{global-extend 339}#
+ 'core
+ 'lambda
+ (lambda (#{e 3153}#
+ #{r 3154}#
+ #{w 3155}#
+ #{s 3156}#
+ #{mod 3157}#)
+ (let ((#{tmp 3163}# #{e 3153}#))
+ (let ((#{tmp 3164}#
+ ($sc-dispatch
+ #{tmp 3163}#
+ '(_ any any . each-any))))
+ (if #{tmp 3164}#
+ (@apply
+ (lambda (#{args 3168}# #{e1 3169}# #{e2 3170}#)
+ (call-with-values
+ (lambda ()
+ (#{lambda-formals 441}# #{args 3168}#))
+ (lambda (#{req 3171}#
+ #{opt 3172}#
+ #{rest 3173}#
+ #{kw 3174}#)
+ (letrec*
+ ((#{lp 3182}#
+ (lambda (#{body 3183}# #{meta 3184}#)
+ (let ((#{tmp 3186}# #{body 3183}#))
+ (let ((#{tmp 3187}#
+ ($sc-dispatch
+ #{tmp 3186}#
+ '(any any . each-any))))
+ (if (if #{tmp 3187}#
+ (@apply
+ (lambda (#{docstring 3191}#
+ #{e1 3192}#
+ #{e2 3193}#)
+ (string?
+ (syntax->datum
+ #{docstring 3191}#)))
+ #{tmp 3187}#)
+ #f)
+ (@apply
+ (lambda (#{docstring 3197}#
+ #{e1 3198}#
+ #{e2 3199}#)
+ (#{lp 3182}#
+ (cons #{e1 3198}# #{e2 3199}#)
+ (append
+ #{meta 3184}#
+ (list (cons 'documentation
+ (syntax->datum
+ #{docstring 3197}#))))))
+ #{tmp 3187}#)
+ (let ((#{tmp 3202}#
+ ($sc-dispatch
+ #{tmp 3186}#
+ '(#(vector #(each (any . any)))
+ any
+ .
+ each-any))))
+ (if #{tmp 3202}#
+ (@apply
+ (lambda (#{k 3207}#
+ #{v 3208}#
+ #{e1 3209}#
+ #{e2 3210}#)
+ (#{lp 3182}#
+ (cons #{e1 3209}# #{e2 3210}#)
+ (append
+ #{meta 3184}#
+ (syntax->datum
+ (map cons
+ #{k 3207}#
+ #{v 3208}#)))))
+ #{tmp 3202}#)
+ (let ((#{_ 3215}# #{tmp 3186}#))
+ (#{chi-simple-lambda 443}#
+ #{e 3153}#
+ #{r 3154}#
+ #{w 3155}#
+ #{s 3156}#
+ #{mod 3157}#
+ #{req 3171}#
+ #{rest 3173}#
+ #{meta 3184}#
+ #{body 3183}#))))))))))
+ (#{lp 3182}# (cons #{e1 3169}# #{e2 3170}#) '())))))
+ #{tmp 3164}#)
+ (let ((#{_ 3217}# #{tmp 3163}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda"
+ #{e 3153}#)))))))
+ (#{global-extend 339}#
+ 'core
+ 'lambda*
+ (lambda (#{e 3218}#
+ #{r 3219}#
+ #{w 3220}#
+ #{s 3221}#
+ #{mod 3222}#)
+ (let ((#{tmp 3228}# #{e 3218}#))
+ (let ((#{tmp 3229}#
+ ($sc-dispatch
+ #{tmp 3228}#
+ '(_ any any . each-any))))
+ (if #{tmp 3229}#
+ (@apply
+ (lambda (#{args 3233}# #{e1 3234}# #{e2 3235}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 447}#
+ #{e 3218}#
+ #{r 3219}#
+ #{w 3220}#
+ #{s 3221}#
+ #{mod 3222}#
+ #{lambda*-formals 445}#
+ (list (cons #{args 3233}#
+ (cons #{e1 3234}# #{e2 3235}#)))))
+ (lambda (#{meta 3237}# #{lcase 3238}#)
+ (#{build-case-lambda 287}#
+ #{s 3221}#
+ #{meta 3237}#
+ #{lcase 3238}#))))
+ #{tmp 3229}#)
+ (let ((#{_ 3242}# #{tmp 3228}#))
+ (syntax-violation
+ 'lambda
+ "bad lambda*"
+ #{e 3218}#)))))))
+ (#{global-extend 339}#
+ 'core
+ 'case-lambda
+ (lambda (#{e 3243}#
+ #{r 3244}#
+ #{w 3245}#
+ #{s 3246}#
+ #{mod 3247}#)
+ (let ((#{tmp 3253}# #{e 3243}#))
+ (let ((#{tmp 3254}#
+ ($sc-dispatch
+ #{tmp 3253}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3254}#
+ (@apply
+ (lambda (#{args 3261}#
+ #{e1 3262}#
+ #{e2 3263}#
+ #{args* 3264}#
+ #{e1* 3265}#
+ #{e2* 3266}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 447}#
+ #{e 3243}#
+ #{r 3244}#
+ #{w 3245}#
+ #{s 3246}#
+ #{mod 3247}#
+ #{lambda-formals 441}#
+ (cons (cons #{args 3261}#
+ (cons #{e1 3262}# #{e2 3263}#))
+ (map (lambda (#{tmp 3270}#
+ #{tmp 3269}#
+ #{tmp 3268}#)
+ (cons #{tmp 3268}#
+ (cons #{tmp 3269}# #{tmp 3270}#)))
+ #{e2* 3266}#
+ #{e1* 3265}#
+ #{args* 3264}#))))
+ (lambda (#{meta 3272}# #{lcase 3273}#)
+ (#{build-case-lambda 287}#
+ #{s 3246}#
+ #{meta 3272}#
+ #{lcase 3273}#))))
+ #{tmp 3254}#)
+ (let ((#{_ 3277}# #{tmp 3253}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda"
+ #{e 3243}#)))))))
+ (#{global-extend 339}#
+ 'core
+ 'case-lambda*
+ (lambda (#{e 3278}#
+ #{r 3279}#
+ #{w 3280}#
+ #{s 3281}#
+ #{mod 3282}#)
+ (let ((#{tmp 3288}# #{e 3278}#))
+ (let ((#{tmp 3289}#
+ ($sc-dispatch
+ #{tmp 3288}#
+ '(_ (any any . each-any)
+ .
+ #(each (any any . each-any))))))
+ (if #{tmp 3289}#
+ (@apply
+ (lambda (#{args 3296}#
+ #{e1 3297}#
+ #{e2 3298}#
+ #{args* 3299}#
+ #{e1* 3300}#
+ #{e2* 3301}#)
+ (call-with-values
+ (lambda ()
+ (#{chi-lambda-case 447}#
+ #{e 3278}#
+ #{r 3279}#
+ #{w 3280}#
+ #{s 3281}#
+ #{mod 3282}#
+ #{lambda*-formals 445}#
+ (cons (cons #{args 3296}#
+ (cons #{e1 3297}# #{e2 3298}#))
+ (map (lambda (#{tmp 3305}#
+ #{tmp 3304}#
+ #{tmp 3303}#)
+ (cons #{tmp 3303}#
+ (cons #{tmp 3304}# #{tmp 3305}#)))
+ #{e2* 3301}#
+ #{e1* 3300}#
+ #{args* 3299}#))))
+ (lambda (#{meta 3307}# #{lcase 3308}#)
+ (#{build-case-lambda 287}#
+ #{s 3281}#
+ #{meta 3307}#
+ #{lcase 3308}#))))
+ #{tmp 3289}#)
+ (let ((#{_ 3312}# #{tmp 3288}#))
+ (syntax-violation
+ 'case-lambda
+ "bad case-lambda*"
+ #{e 3278}#)))))))
+ (#{global-extend 339}#
+ 'core
+ 'let
+ (letrec*
+ ((#{chi-let 3314}#
+ (lambda (#{e 3315}#
+ #{r 3316}#
+ #{w 3317}#
+ #{s 3318}#
+ #{mod 3319}#
+ #{constructor 3320}#
+ #{ids 3321}#
+ #{vals 3322}#
+ #{exps 3323}#)
+ (if (not (#{valid-bound-ids? 403}# #{ids 3321}#))
+ (syntax-violation
+ 'let
+ "duplicate bound variable"
+ #{e 3315}#)
+ (let ((#{labels 3335}#
+ (#{gen-labels 358}# #{ids 3321}#))
+ (#{new-vars 3336}#
+ (map #{gen-var 451}# #{ids 3321}#)))
+ (let ((#{nw 3339}#
+ (#{make-binding-wrap 387}#
+ #{ids 3321}#
+ #{labels 3335}#
+ #{w 3317}#))
+ (#{nr 3340}#
+ (#{extend-var-env 333}#
+ #{labels 3335}#
+ #{new-vars 3336}#
+ #{r 3316}#)))
+ (#{constructor 3320}#
+ #{s 3318}#
+ (map syntax->datum #{ids 3321}#)
+ #{new-vars 3336}#
+ (map (lambda (#{x 3341}#)
+ (#{chi 423}#
+ #{x 3341}#
+ #{r 3316}#
+ #{w 3317}#
+ #{mod 3319}#))
+ #{vals 3322}#)
+ (#{chi-body 431}#
+ #{exps 3323}#
+ (#{source-wrap 411}#
+ #{e 3315}#
+ #{nw 3339}#
+ #{s 3318}#
+ #{mod 3319}#)
+ #{nr 3340}#
+ #{nw 3339}#
+ #{mod 3319}#))))))))
+ (lambda (#{e 3343}#
+ #{r 3344}#
+ #{w 3345}#
+ #{s 3346}#
+ #{mod 3347}#)
+ (let ((#{tmp 3353}# #{e 3343}#))
+ (let ((#{tmp 3354}#
+ ($sc-dispatch
+ #{tmp 3353}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3354}#
+ (@apply
+ (lambda (#{id 3359}#
+ #{val 3360}#
+ #{e1 3361}#
+ #{e2 3362}#)
+ (and-map #{id? 343}# #{id 3359}#))
+ #{tmp 3354}#)
+ #f)
+ (@apply
+ (lambda (#{id 3368}#
+ #{val 3369}#
+ #{e1 3370}#
+ #{e2 3371}#)
+ (#{chi-let 3314}#
+ #{e 3343}#
+ #{r 3344}#
+ #{w 3345}#
+ #{s 3346}#
+ #{mod 3347}#
+ #{build-let 299}#
+ #{id 3368}#
+ #{val 3369}#
+ (cons #{e1 3370}# #{e2 3371}#)))
+ #{tmp 3354}#)
+ (let ((#{tmp 3375}#
+ ($sc-dispatch
+ #{tmp 3353}#
+ '(_ any #(each (any any)) any . each-any))))
+ (if (if #{tmp 3375}#
+ (@apply
+ (lambda (#{f 3381}#
+ #{id 3382}#
+ #{val 3383}#
+ #{e1 3384}#
+ #{e2 3385}#)
+ (if (#{id? 343}# #{f 3381}#)
+ (and-map #{id? 343}# #{id 3382}#)
+ #f))
+ #{tmp 3375}#)
+ #f)
+ (@apply
+ (lambda (#{f 3394}#
+ #{id 3395}#
+ #{val 3396}#
+ #{e1 3397}#
+ #{e2 3398}#)
+ (#{chi-let 3314}#
+ #{e 3343}#
+ #{r 3344}#
+ #{w 3345}#
+ #{s 3346}#
+ #{mod 3347}#
+ #{build-named-let 301}#
+ (cons #{f 3394}# #{id 3395}#)
+ #{val 3396}#
+ (cons #{e1 3397}# #{e2 3398}#)))
+ #{tmp 3375}#)
+ (let ((#{_ 3403}# #{tmp 3353}#))
+ (syntax-violation
+ 'let
+ "bad let"
+ (#{source-wrap 411}#
+ #{e 3343}#
+ #{w 3345}#
+ #{s 3346}#
+ #{mod 3347}#)))))))))))
+ (#{global-extend 339}#
+ 'core
+ 'letrec
+ (lambda (#{e 3404}#
+ #{r 3405}#
+ #{w 3406}#
+ #{s 3407}#
+ #{mod 3408}#)
+ (let ((#{tmp 3414}# #{e 3404}#))
+ (let ((#{tmp 3415}#
+ ($sc-dispatch
+ #{tmp 3414}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3415}#
+ (@apply
+ (lambda (#{id 3420}#
+ #{val 3421}#
+ #{e1 3422}#
+ #{e2 3423}#)
+ (and-map #{id? 343}# #{id 3420}#))
+ #{tmp 3415}#)
+ #f)
+ (@apply
+ (lambda (#{id 3429}#
+ #{val 3430}#
+ #{e1 3431}#
+ #{e2 3432}#)
+ (let ((#{ids 3434}# #{id 3429}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 3434}#))
+ (syntax-violation
+ 'letrec
+ "duplicate bound variable"
+ #{e 3404}#)
+ (let ((#{labels 3438}#
+ (#{gen-labels 358}# #{ids 3434}#))
+ (#{new-vars 3439}#
+ (map #{gen-var 451}# #{ids 3434}#)))
+ (let ((#{w 3442}#
+ (#{make-binding-wrap 387}#
+ #{ids 3434}#
+ #{labels 3438}#
+ #{w 3406}#))
+ (#{r 3443}#
+ (#{extend-var-env 333}#
+ #{labels 3438}#
+ #{new-vars 3439}#
+ #{r 3405}#)))
+ (#{build-letrec 303}#
+ #{s 3407}#
+ #f
+ (map syntax->datum #{ids 3434}#)
+ #{new-vars 3439}#
+ (map (lambda (#{x 3444}#)
+ (#{chi 423}#
+ #{x 3444}#
+ #{r 3443}#
+ #{w 3442}#
+ #{mod 3408}#))
+ #{val 3430}#)
+ (#{chi-body 431}#
+ (cons #{e1 3431}# #{e2 3432}#)
+ (#{source-wrap 411}#
+ #{e 3404}#
+ #{w 3442}#
+ #{s 3407}#
+ #{mod 3408}#)
+ #{r 3443}#
+ #{w 3442}#
+ #{mod 3408}#)))))))
+ #{tmp 3415}#)
+ (let ((#{_ 3449}# #{tmp 3414}#))
+ (syntax-violation
+ 'letrec
+ "bad letrec"
+ (#{source-wrap 411}#
+ #{e 3404}#
+ #{w 3406}#
+ #{s 3407}#
+ #{mod 3408}#))))))))
+ (#{global-extend 339}#
+ 'core
+ 'letrec*
+ (lambda (#{e 3450}#
+ #{r 3451}#
+ #{w 3452}#
+ #{s 3453}#
+ #{mod 3454}#)
+ (let ((#{tmp 3460}# #{e 3450}#))
+ (let ((#{tmp 3461}#
+ ($sc-dispatch
+ #{tmp 3460}#
+ '(_ #(each (any any)) any . each-any))))
+ (if (if #{tmp 3461}#
+ (@apply
+ (lambda (#{id 3466}#
+ #{val 3467}#
+ #{e1 3468}#
+ #{e2 3469}#)
+ (and-map #{id? 343}# #{id 3466}#))
+ #{tmp 3461}#)
+ #f)
+ (@apply
+ (lambda (#{id 3475}#
+ #{val 3476}#
+ #{e1 3477}#
+ #{e2 3478}#)
+ (let ((#{ids 3480}# #{id 3475}#))
+ (if (not (#{valid-bound-ids? 403}# #{ids 3480}#))
+ (syntax-violation
+ 'letrec*
+ "duplicate bound variable"
+ #{e 3450}#)
+ (let ((#{labels 3484}#
+ (#{gen-labels 358}# #{ids 3480}#))
+ (#{new-vars 3485}#
+ (map #{gen-var 451}# #{ids 3480}#)))
+ (let ((#{w 3488}#
+ (#{make-binding-wrap 387}#
+ #{ids 3480}#
+ #{labels 3484}#
+ #{w 3452}#))
+ (#{r 3489}#
+ (#{extend-var-env 333}#
+ #{labels 3484}#
+ #{new-vars 3485}#
+ #{r 3451}#)))
+ (#{build-letrec 303}#
+ #{s 3453}#
+ #t
+ (map syntax->datum #{ids 3480}#)
+ #{new-vars 3485}#
+ (map (lambda (#{x 3490}#)
+ (#{chi 423}#
+ #{x 3490}#
+ #{r 3489}#
+ #{w 3488}#
+ #{mod 3454}#))
+ #{val 3476}#)
+ (#{chi-body 431}#
+ (cons #{e1 3477}# #{e2 3478}#)
+ (#{source-wrap 411}#
+ #{e 3450}#
+ #{w 3488}#
+ #{s 3453}#
+ #{mod 3454}#)
+ #{r 3489}#
+ #{w 3488}#
+ #{mod 3454}#)))))))
+ #{tmp 3461}#)
+ (let ((#{_ 3495}# #{tmp 3460}#))
+ (syntax-violation
+ 'letrec*
+ "bad letrec*"
+ (#{source-wrap 411}#
+ #{e 3450}#
+ #{w 3452}#
+ #{s 3453}#
+ #{mod 3454}#))))))))
+ (#{global-extend 339}#
+ 'core
+ 'set!
+ (lambda (#{e 3496}#
+ #{r 3497}#
+ #{w 3498}#
+ #{s 3499}#
+ #{mod 3500}#)
+ (let ((#{tmp 3506}# #{e 3496}#))
+ (let ((#{tmp 3507}#
+ ($sc-dispatch #{tmp 3506}# '(_ any any))))
+ (if (if #{tmp 3507}#
+ (@apply
+ (lambda (#{id 3510}# #{val 3511}#)
+ (#{id? 343}# #{id 3510}#))
+ #{tmp 3507}#)
+ #f)
+ (@apply
+ (lambda (#{id 3514}# #{val 3515}#)
+ (let ((#{n 3518}#
+ (#{id-var-name 397}# #{id 3514}# #{w 3498}#))
+ (#{id-mod 3519}#
+ (if (#{syntax-object? 309}# #{id 3514}#)
+ (#{syntax-object-module 315}# #{id 3514}#)
+ #{mod 3500}#)))
+ (let ((#{b 3521}#
+ (#{lookup 337}#
+ #{n 3518}#
+ #{r 3497}#
+ #{id-mod 3519}#)))
+ (let ((#{atom-key 3524}# (car #{b 3521}#)))
+ (if (memv #{atom-key 3524}# '(lexical))
+ (#{build-lexical-assignment 275}#
+ #{s 3499}#
+ (syntax->datum #{id 3514}#)
+ (cdr #{b 3521}#)
+ (#{chi 423}#
+ #{val 3515}#
+ #{r 3497}#
+ #{w 3498}#
+ #{mod 3500}#))
+ (if (memv #{atom-key 3524}# '(global))
+ (#{build-global-assignment 281}#
+ #{s 3499}#
+ #{n 3518}#
+ (#{chi 423}#
+ #{val 3515}#
+ #{r 3497}#
+ #{w 3498}#
+ #{mod 3500}#)
+ #{id-mod 3519}#)
+ (if (memv #{atom-key 3524}# '(macro))
+ (let ((#{p 3531}# (cdr #{b 3521}#)))
+ (if (procedure-property
+ #{p 3531}#
+ 'variable-transformer)
+ (#{chi 423}#
+ (#{chi-macro 429}#
+ #{p 3531}#
+ #{e 3496}#
+ #{r 3497}#
+ #{w 3498}#
+ #{s 3499}#
+ #f
+ #{mod 3500}#)
+ #{r 3497}#
+ '(())
+ #{mod 3500}#)
+ (syntax-violation
+ 'set!
+ "not a variable transformer"
+ (#{wrap 409}#
+ #{e 3496}#
+ #{w 3498}#
+ #{mod 3500}#)
+ (#{wrap 409}#
+ #{id 3514}#
+ #{w 3498}#
+ #{id-mod 3519}#))))
+ (if (memv #{atom-key 3524}# '(displaced-lexical))
+ (syntax-violation
+ 'set!
+ "identifier out of context"
+ (#{wrap 409}#
+ #{id 3514}#
+ #{w 3498}#
+ #{mod 3500}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap 411}#
+ #{e 3496}#
+ #{w 3498}#
+ #{s 3499}#
+ #{mod 3500}#))))))))))
+ #{tmp 3507}#)
+ (let ((#{tmp 3536}#
+ ($sc-dispatch
+ #{tmp 3506}#
+ '(_ (any . each-any) any))))
+ (if #{tmp 3536}#
+ (@apply
+ (lambda (#{head 3540}# #{tail 3541}# #{val 3542}#)
+ (call-with-values
+ (lambda ()
+ (#{syntax-type 421}#
+ #{head 3540}#
+ #{r 3497}#
+ '(())
+ #f
+ #f
+ #{mod 3500}#
+ #t))
+ (lambda (#{type 3545}#
+ #{value 3546}#
+ #{ee 3547}#
+ #{ww 3548}#
+ #{ss 3549}#
+ #{modmod 3550}#)
+ (if (memv #{type 3545}# '(module-ref))
+ (let ((#{val 3559}#
+ (#{chi 423}#
+ #{val 3542}#
+ #{r 3497}#
+ #{w 3498}#
+ #{mod 3500}#)))
+ (call-with-values
+ (lambda ()
+ (#{value 3546}#
+ (cons #{head 3540}# #{tail 3541}#)
+ #{r 3497}#
+ #{w 3498}#))
+ (lambda (#{e 3561}#
+ #{r 3562}#
+ #{w 3563}#
+ #{s* 3564}#
+ #{mod 3565}#)
+ (let ((#{tmp 3571}# #{e 3561}#))
+ (let ((#{tmp 3572}# (list #{tmp 3571}#)))
+ (if (if #{tmp 3572}#
+ (@apply
+ (lambda (#{e 3574}#)
+ (#{id? 343}# #{e 3574}#))
+ #{tmp 3572}#)
+ #f)
+ (@apply
+ (lambda (#{e 3576}#)
+ (#{build-global-assignment 281}#
+ #{s 3499}#
+ (syntax->datum #{e 3576}#)
+ #{val 3559}#
+ #{mod 3565}#))
+ #{tmp 3572}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3571}#)))))))
+ (#{build-call 267}#
+ #{s 3499}#
+ (#{chi 423}#
+ (list '#(syntax-object
+ setter
+ ((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(type value ee ww ss modmod)
+ #((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ #("i3551"
+ "i3552"
+ "i3553"
+ "i3554"
+ "i3555"
+ "i3556"))
+ #(ribcage
+ #(head tail val)
+ #((top) (top) (top))
+ #("i3537" "i3538" "i3539"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w s mod)
+ #((top) (top) (top) (top) (top))
+ #("i3501"
+ "i3502"
+ "i3503"
+ "i3504"
+ "i3505"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{head 3540}#)
+ #{r 3497}#
+ #{w 3498}#
+ #{mod 3500}#)
+ (map (lambda (#{e 3578}#)
+ (#{chi 423}#
+ #{e 3578}#
+ #{r 3497}#
+ #{w 3498}#
+ #{mod 3500}#))
+ (append
+ #{tail 3541}#
+ (list #{val 3542}#))))))))
+ #{tmp 3536}#)
+ (let ((#{_ 3582}# #{tmp 3506}#))
+ (syntax-violation
+ 'set!
+ "bad set!"
+ (#{source-wrap 411}#
+ #{e 3496}#
+ #{w 3498}#
+ #{s 3499}#
+ #{mod 3500}#))))))))))
+ (#{global-extend 339}#
+ 'module-ref
+ '@
+ (lambda (#{e 3583}# #{r 3584}# #{w 3585}#)
+ (let ((#{tmp 3589}# #{e 3583}#))
+ (let ((#{tmp 3590}#
+ ($sc-dispatch #{tmp 3589}# '(_ each-any any))))
+ (if (if #{tmp 3590}#
+ (@apply
+ (lambda (#{mod 3593}# #{id 3594}#)
+ (if (and-map #{id? 343}# #{mod 3593}#)
+ (#{id? 343}# #{id 3594}#)
+ #f))
+ #{tmp 3590}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3600}# #{id 3601}#)
+ (values
+ (syntax->datum #{id 3601}#)
+ #{r 3584}#
+ #{w 3585}#
+ #f
+ (syntax->datum
+ (cons '#(syntax-object
+ public
+ ((top)
+ #(ribcage
+ #(mod id)
+ #((top) (top))
+ #("i3598" "i3599"))
+ #(ribcage () () ())
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3586" "i3587" "i3588"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{mod 3600}#))))
+ #{tmp 3590}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3589}#))))))
+ (#{global-extend 339}#
+ 'module-ref
+ '@@
+ (lambda (#{e 3603}# #{r 3604}# #{w 3605}#)
+ (letrec*
+ ((#{remodulate 3610}#
+ (lambda (#{x 3611}# #{mod 3612}#)
+ (if (pair? #{x 3611}#)
+ (cons (#{remodulate 3610}#
+ (car #{x 3611}#)
+ #{mod 3612}#)
+ (#{remodulate 3610}#
+ (cdr #{x 3611}#)
+ #{mod 3612}#))
+ (if (#{syntax-object? 309}# #{x 3611}#)
+ (#{make-syntax-object 307}#
+ (#{remodulate 3610}#
+ (#{syntax-object-expression 311}# #{x 3611}#)
+ #{mod 3612}#)
+ (#{syntax-object-wrap 313}# #{x 3611}#)
+ #{mod 3612}#)
+ (if (vector? #{x 3611}#)
+ (let ((#{n 3623}# (vector-length #{x 3611}#)))
+ (let ((#{v 3625}# (make-vector #{n 3623}#)))
+ (letrec*
+ ((#{loop 3628}#
+ (lambda (#{i 3629}#)
+ (if (= #{i 3629}# #{n 3623}#)
+ (begin (if #f #f) #{v 3625}#)
+ (begin
+ (vector-set!
+ #{v 3625}#
+ #{i 3629}#
+ (#{remodulate 3610}#
+ (vector-ref #{x 3611}# #{i 3629}#)
+ #{mod 3612}#))
+ (#{loop 3628}# (#{1+}# #{i 3629}#)))))))
+ (#{loop 3628}# 0))))
+ #{x 3611}#))))))
+ (let ((#{tmp 3635}# #{e 3603}#))
+ (let ((#{tmp 3636}#
+ ($sc-dispatch #{tmp 3635}# '(_ each-any any))))
+ (if (if #{tmp 3636}#
+ (@apply
+ (lambda (#{mod 3639}# #{exp 3640}#)
+ (and-map #{id? 343}# #{mod 3639}#))
+ #{tmp 3636}#)
+ #f)
+ (@apply
+ (lambda (#{mod 3644}# #{exp 3645}#)
+ (let ((#{mod 3647}#
+ (syntax->datum
+ (cons '#(syntax-object
+ private
+ ((top)
+ #(ribcage
+ #(mod exp)
+ #((top) (top))
+ #("i3642" "i3643"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("i3609"))
+ #(ribcage
+ #(e r w)
+ #((top) (top) (top))
+ #("i3606" "i3607" "i3608"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ #{mod 3644}#))))
+ (values
+ (#{remodulate 3610}# #{exp 3645}# #{mod 3647}#)
+ #{r 3604}#
+ #{w 3605}#
+ (#{source-annotation 324}# #{exp 3645}#)
+ #{mod 3647}#)))
+ #{tmp 3636}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3635}#)))))))
+ (#{global-extend 339}#
+ 'core
+ 'if
+ (lambda (#{e 3649}#
+ #{r 3650}#
+ #{w 3651}#
+ #{s 3652}#
+ #{mod 3653}#)
+ (let ((#{tmp 3659}# #{e 3649}#))
+ (let ((#{tmp 3660}#
+ ($sc-dispatch #{tmp 3659}# '(_ any any))))
+ (if #{tmp 3660}#
+ (@apply
+ (lambda (#{test 3663}# #{then 3664}#)
+ (#{build-conditional 269}#
+ #{s 3652}#
+ (#{chi 423}#
+ #{test 3663}#
+ #{r 3650}#
+ #{w 3651}#
+ #{mod 3653}#)
+ (#{chi 423}#
+ #{then 3664}#
+ #{r 3650}#
+ #{w 3651}#
+ #{mod 3653}#)
+ (#{build-void 265}# #f)))
+ #{tmp 3660}#)
+ (let ((#{tmp 3666}#
+ ($sc-dispatch #{tmp 3659}# '(_ any any any))))
+ (if #{tmp 3666}#
+ (@apply
+ (lambda (#{test 3670}# #{then 3671}# #{else 3672}#)
+ (#{build-conditional 269}#
+ #{s 3652}#
+ (#{chi 423}#
+ #{test 3670}#
+ #{r 3650}#
+ #{w 3651}#
+ #{mod 3653}#)
+ (#{chi 423}#
+ #{then 3671}#
+ #{r 3650}#
+ #{w 3651}#
+ #{mod 3653}#)
+ (#{chi 423}#
+ #{else 3672}#
+ #{r 3650}#
+ #{w 3651}#
+ #{mod 3653}#)))
+ #{tmp 3666}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3659}#))))))))
+ (#{global-extend 339}#
+ 'core
+ 'with-fluids
+ (lambda (#{e 3673}#
+ #{r 3674}#
+ #{w 3675}#
+ #{s 3676}#
+ #{mod 3677}#)
+ (let ((#{tmp 3683}# #{e 3673}#))
+ (let ((#{tmp 3684}#
+ ($sc-dispatch
+ #{tmp 3683}#
+ '(_ #(each (any any)) any . each-any))))
+ (if #{tmp 3684}#
+ (@apply
+ (lambda (#{fluid 3689}#
+ #{val 3690}#
+ #{b 3691}#
+ #{b* 3692}#)
+ (#{build-dynlet 271}#
+ #{s 3676}#
+ (map (lambda (#{x 3693}#)
+ (#{chi 423}#
+ #{x 3693}#
+ #{r 3674}#
+ #{w 3675}#
+ #{mod 3677}#))
+ #{fluid 3689}#)
+ (map (lambda (#{x 3696}#)
+ (#{chi 423}#
+ #{x 3696}#
+ #{r 3674}#
+ #{w 3675}#
+ #{mod 3677}#))
+ #{val 3690}#)
+ (#{chi-body 431}#
+ (cons #{b 3691}# #{b* 3692}#)
+ (#{source-wrap 411}#
+ #{e 3673}#
+ #{w 3675}#
+ #{s 3676}#
+ #{mod 3677}#)
+ #{r 3674}#
+ #{w 3675}#
+ #{mod 3677}#)))
+ #{tmp 3684}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3683}#))))))
+ (#{global-extend 339}# 'begin 'begin '())
+ (#{global-extend 339}# 'define 'define '())
+ (#{global-extend 339}#
+ 'define-syntax
+ 'define-syntax
+ '())
+ (#{global-extend 339}# 'eval-when 'eval-when '())
+ (#{global-extend 339}#
+ 'core
+ 'syntax-case
+ (letrec*
+ ((#{convert-pattern 3701}#
+ (lambda (#{pattern 3708}# #{keys 3709}#)
+ (letrec*
+ ((#{cvt* 3713}#
- (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#)
- (if (null? #{p* 3716}#)
- (values '() #{ids 3718}#)
++ (lambda (#{p* 3718}# #{n 3719}# #{ids 3720}#)
++ (if (not (pair? #{p* 3718}#))
++ (#{cvt 3717}#
++ #{p* 3718}#
++ #{n 3719}#
++ #{ids 3720}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3713}#
- (cdr #{p* 3716}#)
- #{n 3717}#
- #{ids 3718}#))
- (lambda (#{y 3722}# #{ids 3723}#)
++ (cdr #{p* 3718}#)
++ #{n 3719}#
++ #{ids 3720}#))
++ (lambda (#{y 3724}# #{ids 3725}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- (car #{p* 3716}#)
- #{n 3717}#
- #{ids 3723}#))
- (lambda (#{x 3726}# #{ids 3727}#)
++ (#{cvt 3717}#
++ (car #{p* 3718}#)
++ #{n 3719}#
++ #{ids 3725}#))
++ (lambda (#{x 3728}# #{ids 3729}#)
+ (values
- (cons #{x 3726}# #{y 3722}#)
- #{ids 3727}#))))))))
- (#{cvt 3715}#
- (lambda (#{p 3730}# #{n 3731}# #{ids 3732}#)
- (if (#{id? 343}# #{p 3730}#)
++ (cons #{x 3728}# #{y 3724}#)
++ #{ids 3729}#))))))))
++ (#{v-reverse 3715}#
++ (lambda (#{x 3732}#)
++ (letrec*
++ ((#{loop 3737}#
++ (lambda (#{r 3738}# #{x 3739}#)
++ (if (not (pair? #{x 3739}#))
++ (values #{r 3738}# #{x 3739}#)
++ (#{loop 3737}#
++ (cons (car #{x 3739}#) #{r 3738}#)
++ (cdr #{x 3739}#))))))
++ (#{loop 3737}# '() #{x 3732}#))))
++ (#{cvt 3717}#
++ (lambda (#{p 3740}# #{n 3741}# #{ids 3742}#)
++ (if (#{id? 343}# #{p 3740}#)
+ (if (#{bound-id-member? 407}#
- #{p 3730}#
++ #{p 3740}#
+ #{keys 3709}#)
+ (values
- (vector 'free-id #{p 3730}#)
- #{ids 3732}#)
++ (vector 'free-id #{p 3740}#)
++ #{ids 3742}#)
+ (if (#{free-id=? 399}#
- #{p 3730}#
++ #{p 3740}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
- #("i3733" "i3734" "i3735"))
++ #("i3743" "i3744" "i3745"))
+ #(ribcage
- (cvt cvt*)
- ((top) (top))
- ("i3714" "i3712"))
++ (cvt v-reverse cvt*)
++ ((top) (top) (top))
++ ("i3716" "i3714" "i3712"))
+ #(ribcage
+ #(pattern keys)
+ #((top) (top))
+ #("i3710" "i3711"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3706" "i3704" "i3702" "i3700"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
- (values '_ #{ids 3732}#)
++ (values '_ #{ids 3742}#)
+ (values
+ 'any
- (cons (cons #{p 3730}# #{n 3731}#) #{ids 3732}#))))
- (let ((#{tmp 3741}# #{p 3730}#))
- (let ((#{tmp 3742}#
- ($sc-dispatch #{tmp 3741}# '(any any))))
- (if (if #{tmp 3742}#
++ (cons (cons #{p 3740}# #{n 3741}#) #{ids 3742}#))))
++ (let ((#{tmp 3751}# #{p 3740}#))
++ (let ((#{tmp 3752}#
++ ($sc-dispatch #{tmp 3751}# '(any any))))
++ (if (if #{tmp 3752}#
+ (@apply
- (lambda (#{x 3745}# #{dots 3746}#)
- (#{ellipsis? 439}# #{dots 3746}#))
- #{tmp 3742}#)
++ (lambda (#{x 3755}# #{dots 3756}#)
++ (#{ellipsis? 439}# #{dots 3756}#))
++ #{tmp 3752}#)
+ #f)
+ (@apply
- (lambda (#{x 3749}# #{dots 3750}#)
++ (lambda (#{x 3759}# #{dots 3760}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- #{x 3749}#
- (#{1+}# #{n 3731}#)
- #{ids 3732}#))
- (lambda (#{p 3752}# #{ids 3753}#)
++ (#{cvt 3717}#
++ #{x 3759}#
++ (#{1+}# #{n 3741}#)
++ #{ids 3742}#))
++ (lambda (#{p 3762}# #{ids 3763}#)
+ (values
- (if (eq? #{p 3752}# 'any)
++ (if (eq? #{p 3762}# 'any)
+ 'each-any
- (vector 'each #{p 3752}#))
- #{ids 3753}#))))
- #{tmp 3742}#)
- (let ((#{tmp 3756}#
++ (vector 'each #{p 3762}#))
++ #{ids 3763}#))))
++ #{tmp 3752}#)
++ (let ((#{tmp 3766}#
+ ($sc-dispatch
- #{tmp 3741}#
- '(any any . each-any))))
- (if (if #{tmp 3756}#
++ #{tmp 3751}#
++ '(any any . any))))
++ (if (if #{tmp 3766}#
+ (@apply
- (lambda (#{x 3760}#
- #{dots 3761}#
- #{ys 3762}#)
- (#{ellipsis? 439}# #{dots 3761}#))
- #{tmp 3756}#)
++ (lambda (#{x 3770}#
++ #{dots 3771}#
++ #{ys 3772}#)
++ (#{ellipsis? 439}# #{dots 3771}#))
++ #{tmp 3766}#)
+ #f)
+ (@apply
- (lambda (#{x 3766}#
- #{dots 3767}#
- #{ys 3768}#)
++ (lambda (#{x 3776}#
++ #{dots 3777}#
++ #{ys 3778}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3713}#
- #{ys 3768}#
- #{n 3731}#
- #{ids 3732}#))
- (lambda (#{ys 3770}# #{ids 3771}#)
++ #{ys 3778}#
++ #{n 3741}#
++ #{ids 3742}#))
++ (lambda (#{ys 3779}# #{ids 3780}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- #{x 3766}#
- (#{1+}# #{n 3731}#)
- #{ids 3771}#))
- (lambda (#{x 3774}# #{ids 3775}#)
- (values
- (vector
- 'each+
- #{x 3774}#
- (reverse #{ys 3770}#)
- '())
- #{ids 3775}#))))))
- #{tmp 3756}#)
- (let ((#{tmp 3779}#
++ (#{cvt 3717}#
++ #{x 3776}#
++ (#{1+}# #{n 3741}#)
++ #{ids 3780}#))
++ (lambda (#{x 3783}# #{ids 3784}#)
++ (call-with-values
++ (lambda ()
++ (#{v-reverse 3715}#
++ #{ys 3779}#))
++ (lambda (#{ys 3787}# #{e 3788}#)
+ (values
+ (vector
- 'atom
- (#{strip 445}#
- #{p 3724}#
- '(())))
- #{ids 3726}#)))))))))))))))))
- (begin (#{cvt 3701}# #{pattern 3692}# 0 '())))))
- (#{build-dispatch-call 3687}#
- (lambda (#{pvars 3801}#
- #{exp 3802}#
- #{y 3803}#
- #{r 3804}#
- #{mod 3805}#)
- (begin
- (map cdr #{pvars 3801}#)
- (let ((#{ids 3813}# (map car #{pvars 3801}#)))
- (begin
- (let ((#{labels 3817}#
- (#{gen-labels 354}# #{ids 3813}#))
- (#{new-vars 3818}#
- (map #{gen-var 447}# #{ids 3813}#)))
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f 'apply)
- (list (#{build-simple-lambda 283}#
- #f
- (map syntax->datum #{ids 3813}#)
- #f
- #{new-vars 3818}#
- '()
- (#{chi 419}#
- #{exp 3802}#
- (#{extend-env 327}#
- #{labels 3817}#
- (map (lambda (#{var 3822}# #{level 3823}#)
- (cons 'syntax
- (cons #{var 3822}#
- #{level 3823}#)))
- #{new-vars 3818}#
- (map cdr #{pvars 3801}#))
- #{r 3804}#)
- (#{make-binding-wrap 383}#
- #{ids 3813}#
- #{labels 3817}#
- '(()))
- #{mod 3805}#))
- #{y 3803}#))))))))
- (#{gen-clause 3689}#
- (lambda (#{x 3829}#
- #{keys 3830}#
- #{clauses 3831}#
- #{r 3832}#
- #{pat 3833}#
- #{fender 3834}#
- #{exp 3835}#
- #{mod 3836}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 3685}#
- #{pat 3833}#
- #{keys 3830}#))
- (lambda (#{p 3845}# #{pvars 3846}#)
- (if (not (#{distinct-bound-ids? 401}#
- (map car #{pvars 3846}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 3833}#)
- (if (not (and-map
- (lambda (#{x 3853}#)
- (not (#{ellipsis? 435}# (car #{x 3853}#))))
- #{pvars 3846}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 3833}#)
- (begin
- (let ((#{y 3857}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
- #f
- (#{build-simple-lambda 283}#
- #f
- (list 'tmp)
- #f
- (list #{y 3857}#)
- '()
- (begin
- (let ((#{y 3861}#
- (#{build-lexical-reference 271}#
- 'value
- #f
- 'tmp
- #{y 3857}#)))
- (#{build-conditional 267}#
- #f
- (let ((#{tmp 3864}# #{fender 3834}#))
- (let ((#{tmp 3865}#
- ($sc-dispatch
- #{tmp 3864}#
- '#(atom #t))))
- (if #{tmp 3865}#
- (@apply
- (lambda () #{y 3861}#)
- #{tmp 3865}#)
- (let ((#{_ 3867}# #{tmp 3864}#))
- (#{build-conditional 267}#
- #f
- #{y 3861}#
- (#{build-dispatch-call 3687}#
- #{pvars 3846}#
- #{fender 3834}#
- #{y 3861}#
- #{r 3832}#
- #{mod 3836}#)
- (#{build-data 291}# #f #f))))))
- (#{build-dispatch-call 3687}#
- #{pvars 3846}#
- #{exp 3835}#
- #{y 3861}#
- #{r 3832}#
- #{mod 3836}#)
- (#{gen-syntax-case 3691}#
- #{x 3829}#
- #{keys 3830}#
- #{clauses 3831}#
- #{r 3832}#
- #{mod 3836}#)))))
- (list (if (eq? #{p 3845}# 'any)
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f 'list)
- (list #{x 3829}#))
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f '$sc-dispatch)
- (list #{x 3829}#
- (#{build-data 291}#
- #f
- #{p 3845}#))))))))))))))
- (#{gen-syntax-case 3691}#
- (lambda (#{x 3875}#
- #{keys 3876}#
- #{clauses 3877}#
- #{r 3878}#
- #{mod 3879}#)
- (if (null? #{clauses 3877}#)
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f 'syntax-violation)
- (list (#{build-data 291}# #f #f)
- (#{build-data 291}#
- #f
- "source expression failed to match any pattern")
- #{x 3875}#))
- (let ((#{tmp 3889}# (car #{clauses 3877}#)))
- (let ((#{tmp 3890}#
- ($sc-dispatch #{tmp 3889}# '(any any))))
- (if #{tmp 3890}#
- (@apply
- (lambda (#{pat 3893}# #{exp 3894}#)
- (if (if (#{id? 339}# #{pat 3893}#)
- (and-map
- (lambda (#{x 3897}#)
- (not (#{free-id=? 395}#
- #{pat 3893}#
- #{x 3897}#)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3891" "i3892"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3690"
- "i3688"
- "i3686"
- "i3684"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i379"
- "i378"
- "i376"
- "i375"
- "i374"
- "i373"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i353"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i346"
- "i345"
- "i344"
- "i343"
- "i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i325"
- "i324"
- "i323"
- "i322"
- "i321"
- "i319"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i253"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- #{keys 3876}#))
- #f)
- (if (#{free-id=? 395}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3891" "i3892"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i379"
- "i378"
- "i376"
- "i375"
- "i374"
- "i373"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i353"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i346"
- "i345"
- "i344"
- "i343"
- "i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i325"
- "i324"
- "i323"
- "i322"
- "i321"
- "i319"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i253"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile))
- '#(syntax-object
- _
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3891" "i3892"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
- #(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- chi-lambda-case
- lambda*-formals
- chi-simple-lambda
- lambda-formals
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
- set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda-case
- build-case-lambda
- build-simple-lambda
- build-global-definition
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-dynlet
- build-conditional
- build-application
- build-void
- maybe-name-value!
- decorate-source
- get-global-definition-hook
- put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- set-lambda-meta!
- lambda-meta
- lambda?
- make-dynlet
- make-letrec
- make-let
- make-lambda-case
- make-lambda
- make-sequence
- make-application
- make-conditional
- make-toplevel-define
- make-toplevel-set
- make-toplevel-ref
- make-module-set
- make-module-ref
- make-lexical-set
- make-lexical-ref
- make-primitive-ref
- make-const
- make-void)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i448"
- "i446"
- "i444"
- "i442"
- "i440"
- "i438"
- "i436"
- "i434"
- "i432"
- "i430"
- "i428"
- "i426"
- "i424"
- "i422"
- "i420"
- "i418"
- "i416"
- "i414"
- "i412"
- "i410"
- "i408"
- "i406"
- "i404"
- "i402"
- "i400"
- "i398"
- "i396"
- "i394"
- "i392"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i379"
- "i378"
- "i376"
- "i375"
- "i374"
- "i373"
- "i372"
- "i370"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i358"
- "i356"
- "i353"
- "i351"
- "i350"
- "i349"
- "i348"
- "i347"
- "i346"
- "i345"
- "i344"
- "i343"
- "i341"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i325"
- "i324"
- "i323"
- "i322"
- "i321"
- "i319"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i286"
- "i284"
- "i282"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i262"
- "i260"
- "i258"
- "i256"
- "i254"
- "i253"
- "i251"
- "i249"
- "i248"
- "i247"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"
- "i206"
- "i204"
- "i202"))
- #(ribcage
- (define-structure
- define-expansion-accessors
- define-expansion-constructors)
- ((top) (top) (top))
- ("i40" "i39" "i38")))
- (hygiene guile)))
- (#{chi 419}#
- #{exp 3894}#
- #{r 3878}#
- '(())
- #{mod 3879}#)
- (begin
- (let ((#{labels 3902}#
- (list (#{gen-label 352}#)))
- (#{var 3903}#
- (#{gen-var 447}# #{pat 3893}#)))
- (#{build-application 265}#
++ 'each+
++ #{x 3783}#
++ #{ys 3787}#
++ #{e 3788}#)
++ #{ids 3784}#))))))))
++ #{tmp 3766}#)
++ (let ((#{tmp 3792}#
+ ($sc-dispatch
- #{tmp 3741}#
++ #{tmp 3751}#
+ '(any . any))))
- (if #{tmp 3779}#
++ (if #{tmp 3792}#
+ (@apply
- (lambda (#{x 3782}# #{y 3783}#)
++ (lambda (#{x 3795}# #{y 3796}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- #{y 3783}#
- #{n 3731}#
- #{ids 3732}#))
- (lambda (#{y 3784}# #{ids 3785}#)
++ (#{cvt 3717}#
++ #{y 3796}#
++ #{n 3741}#
++ #{ids 3742}#))
++ (lambda (#{y 3797}# #{ids 3798}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- #{x 3782}#
- #{n 3731}#
- #{ids 3785}#))
- (lambda (#{x 3788}# #{ids 3789}#)
++ (#{cvt 3717}#
++ #{x 3795}#
++ #{n 3741}#
++ #{ids 3798}#))
++ (lambda (#{x 3801}# #{ids 3802}#)
+ (values
- (cons #{x 3788}# #{y 3784}#)
- #{ids 3789}#))))))
- #{tmp 3779}#)
- (let ((#{tmp 3792}#
- ($sc-dispatch #{tmp 3741}# '())))
- (if #{tmp 3792}#
++ (cons #{x 3801}# #{y 3797}#)
++ #{ids 3802}#))))))
++ #{tmp 3792}#)
++ (let ((#{tmp 3805}#
++ ($sc-dispatch #{tmp 3751}# '())))
++ (if #{tmp 3805}#
+ (@apply
- (lambda () (values '() #{ids 3732}#))
- #{tmp 3792}#)
- (let ((#{tmp 3793}#
++ (lambda () (values '() #{ids 3742}#))
++ #{tmp 3805}#)
++ (let ((#{tmp 3806}#
+ ($sc-dispatch
- #{tmp 3741}#
++ #{tmp 3751}#
+ '#(vector each-any))))
- (if #{tmp 3793}#
++ (if #{tmp 3806}#
+ (@apply
- (lambda (#{x 3795}#)
++ (lambda (#{x 3808}#)
+ (call-with-values
+ (lambda ()
- (#{cvt 3715}#
- #{x 3795}#
- #{n 3731}#
- #{ids 3732}#))
- (lambda (#{p 3797}#
- #{ids 3798}#)
++ (#{cvt 3717}#
++ #{x 3808}#
++ #{n 3741}#
++ #{ids 3742}#))
++ (lambda (#{p 3810}#
++ #{ids 3811}#)
+ (values
+ (vector
+ 'vector
- #{p 3797}#)
- #{ids 3798}#))))
- #{tmp 3793}#)
- (let ((#{x 3802}# #{tmp 3741}#))
++ #{p 3810}#)
++ #{ids 3811}#))))
++ #{tmp 3806}#)
++ (let ((#{x 3815}# #{tmp 3751}#))
+ (values
+ (vector
+ 'atom
+ (#{strip 449}#
- #{p 3730}#
++ #{p 3740}#
+ '(())))
- #{ids 3732}#)))))))))))))))))
- (#{cvt 3715}# #{pattern 3708}# 0 '()))))
++ #{ids 3742}#)))))))))))))))))
++ (#{cvt 3717}# #{pattern 3708}# 0 '()))))
+ (#{build-dispatch-call 3703}#
- (lambda (#{pvars 3804}#
- #{exp 3805}#
- #{y 3806}#
- #{r 3807}#
- #{mod 3808}#)
++ (lambda (#{pvars 3817}#
++ #{exp 3818}#
++ #{y 3819}#
++ #{r 3820}#
++ #{mod 3821}#)
+ (begin
- (map cdr #{pvars 3804}#)
- (let ((#{ids 3816}# (map car #{pvars 3804}#)))
- (let ((#{labels 3820}#
- (#{gen-labels 358}# #{ids 3816}#))
- (#{new-vars 3821}#
- (map #{gen-var 451}# #{ids 3816}#)))
++ (map cdr #{pvars 3817}#)
++ (let ((#{ids 3829}# (map car #{pvars 3817}#)))
++ (let ((#{labels 3833}#
++ (#{gen-labels 358}# #{ids 3829}#))
++ (#{new-vars 3834}#
++ (map #{gen-var 451}# #{ids 3829}#)))
+ (#{build-primcall 291}#
+ #f
+ 'apply
+ (list (#{build-simple-lambda 285}#
+ #f
- (map syntax->datum #{ids 3816}#)
++ (map syntax->datum #{ids 3829}#)
+ #f
- #{new-vars 3821}#
++ #{new-vars 3834}#
+ '()
+ (#{chi 423}#
- #{exp 3805}#
++ #{exp 3818}#
+ (#{extend-env 331}#
- #{labels 3820}#
- (map (lambda (#{var 3824}# #{level 3825}#)
++ #{labels 3833}#
++ (map (lambda (#{var 3837}# #{level 3838}#)
+ (cons 'syntax
- (cons #{var 3824}#
- #{level 3825}#)))
- #{new-vars 3821}#
- (map cdr #{pvars 3804}#))
- #{r 3807}#)
++ (cons #{var 3837}#
++ #{level 3838}#)))
++ #{new-vars 3834}#
++ (map cdr #{pvars 3817}#))
++ #{r 3820}#)
+ (#{make-binding-wrap 387}#
- #{ids 3816}#
- #{labels 3820}#
++ #{ids 3829}#
++ #{labels 3833}#
+ '(()))
- #{mod 3808}#))
- #{y 3806}#)))))))
++ #{mod 3821}#))
++ #{y 3819}#)))))))
+ (#{gen-clause 3705}#
- (lambda (#{x 3831}#
- #{keys 3832}#
- #{clauses 3833}#
- #{r 3834}#
- #{pat 3835}#
- #{fender 3836}#
- #{exp 3837}#
- #{mod 3838}#)
++ (lambda (#{x 3844}#
++ #{keys 3845}#
++ #{clauses 3846}#
++ #{r 3847}#
++ #{pat 3848}#
++ #{fender 3849}#
++ #{exp 3850}#
++ #{mod 3851}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 3701}#
- #{pat 3835}#
- #{keys 3832}#))
- (lambda (#{p 3847}# #{pvars 3848}#)
++ #{pat 3848}#
++ #{keys 3845}#))
++ (lambda (#{p 3860}# #{pvars 3861}#)
+ (if (not (#{distinct-bound-ids? 405}#
- (map car #{pvars 3848}#)))
++ (map car #{pvars 3861}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
- #{pat 3835}#)
++ #{pat 3848}#)
+ (if (not (and-map
- (lambda (#{x 3855}#)
- (not (#{ellipsis? 439}# (car #{x 3855}#))))
- #{pvars 3848}#))
++ (lambda (#{x 3868}#)
++ (not (#{ellipsis? 439}# (car #{x 3868}#))))
++ #{pvars 3861}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
- #{pat 3835}#)
- (let ((#{y 3859}# (#{gen-var 451}# 'tmp)))
++ #{pat 3848}#)
++ (let ((#{y 3872}# (#{gen-var 451}# 'tmp)))
+ (#{build-call 267}#
+ #f
+ (#{build-simple-lambda 285}#
+ #f
+ (list 'tmp)
+ #f
- (list #{y 3859}#)
++ (list #{y 3872}#)
+ '()
- (let ((#{y 3863}#
++ (let ((#{y 3876}#
+ (#{build-lexical-reference 273}#
+ 'value
#f
- (#{build-simple-lambda 283}#
- #f
- (list (syntax->datum #{pat 3893}#))
- #f
- (list #{var 3903}#)
- '()
- (#{chi 419}#
- #{exp 3894}#
- (#{extend-env 327}#
- #{labels 3902}#
- (list (cons 'syntax
- (cons #{var 3903}# 0)))
- #{r 3878}#)
- (#{make-binding-wrap 383}#
- (list #{pat 3893}#)
- #{labels 3902}#
- '(()))
- #{mod 3879}#))
- (list #{x 3875}#)))))
- (#{gen-clause 3689}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3893}#
- #t
- #{exp 3894}#
- #{mod 3879}#)))
- #{tmp 3890}#)
- (let ((#{tmp 3909}#
- ($sc-dispatch #{tmp 3889}# '(any any any))))
- (if #{tmp 3909}#
- (@apply
- (lambda (#{pat 3913}#
- #{fender 3914}#
- #{exp 3915}#)
- (#{gen-clause 3689}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3913}#
- #{fender 3914}#
- #{exp 3915}#
- #{mod 3879}#))
- #{tmp 3909}#)
- (let ((#{_ 3917}# #{tmp 3889}#))
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 3877}#))))))))))))
- (begin
- (lambda (#{e 3918}#
- #{r 3919}#
- #{w 3920}#
- #{s 3921}#
- #{mod 3922}#)
- (begin
- (let ((#{e 3929}#
- (#{source-wrap 407}#
- #{e 3918}#
- #{w 3920}#
- #{s 3921}#
- #{mod 3922}#)))
- (let ((#{tmp 3930}# #{e 3929}#))
- (let ((#{tmp 3931}#
- ($sc-dispatch
- #{tmp 3930}#
- '(_ any each-any . each-any))))
- (if #{tmp 3931}#
- (@apply
- (lambda (#{val 3935}# #{key 3936}# #{m 3937}#)
- (if (and-map
- (lambda (#{x 3938}#)
- (if (#{id? 339}# #{x 3938}#)
- (not (#{ellipsis? 435}# #{x 3938}#))
- #f))
- #{key 3936}#)
- (begin
- (let ((#{x 3944}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
- #{s 3921}#
- (#{build-simple-lambda 283}#
- #f
- (list 'tmp)
- #f
- (list #{x 3944}#)
- '()
- (#{gen-syntax-case 3691}#
- (#{build-lexical-reference 271}#
- 'value
- #f
- 'tmp
- #{x 3944}#)
- #{key 3936}#
- #{m 3937}#
- #{r 3919}#
- #{mod 3922}#))
- (list (#{chi 419}#
- #{val 3935}#
- #{r 3919}#
- '(())
- #{mod 3922}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e 3929}#)))
- #{tmp 3931}#)
+ 'tmp
- #{y 3859}#)))
++ #{y 3872}#)))
+ (#{build-conditional 269}#
+ #f
- (let ((#{tmp 3866}# #{fender 3836}#))
- (let ((#{tmp 3867}#
++ (let ((#{tmp 3879}# #{fender 3849}#))
++ (let ((#{tmp 3880}#
+ ($sc-dispatch
- #{tmp 3866}#
++ #{tmp 3879}#
+ '#(atom #t))))
- (if #{tmp 3867}#
++ (if #{tmp 3880}#
+ (@apply
- (lambda () #{y 3863}#)
- #{tmp 3867}#)
- (let ((#{_ 3869}# #{tmp 3866}#))
++ (lambda () #{y 3876}#)
++ #{tmp 3880}#)
++ (let ((#{_ 3882}# #{tmp 3879}#))
+ (#{build-conditional 269}#
+ #f
- #{y 3863}#
++ #{y 3876}#
+ (#{build-dispatch-call 3703}#
- #{pvars 3848}#
- #{fender 3836}#
- #{y 3863}#
- #{r 3834}#
- #{mod 3838}#)
++ #{pvars 3861}#
++ #{fender 3849}#
++ #{y 3876}#
++ #{r 3847}#
++ #{mod 3851}#)
+ (#{build-data 295}# #f #f))))))
+ (#{build-dispatch-call 3703}#
- #{pvars 3848}#
- #{exp 3837}#
- #{y 3863}#
- #{r 3834}#
- #{mod 3838}#)
++ #{pvars 3861}#
++ #{exp 3850}#
++ #{y 3876}#
++ #{r 3847}#
++ #{mod 3851}#)
+ (#{gen-syntax-case 3707}#
- #{x 3831}#
- #{keys 3832}#
- #{clauses 3833}#
- #{r 3834}#
- #{mod 3838}#))))
- (list (if (eq? #{p 3847}# 'any)
++ #{x 3844}#
++ #{keys 3845}#
++ #{clauses 3846}#
++ #{r 3847}#
++ #{mod 3851}#))))
++ (list (if (eq? #{p 3860}# 'any)
+ (#{build-primcall 291}#
+ #f
+ 'list
- (list #{x 3831}#))
++ (list #{x 3844}#))
+ (#{build-primcall 291}#
+ #f
+ '$sc-dispatch
- (list #{x 3831}#
++ (list #{x 3844}#
+ (#{build-data 295}#
+ #f
- #{p 3847}#)))))))))))))
++ #{p 3860}#)))))))))))))
+ (#{gen-syntax-case 3707}#
- (lambda (#{x 3875}#
- #{keys 3876}#
- #{clauses 3877}#
- #{r 3878}#
- #{mod 3879}#)
- (if (null? #{clauses 3877}#)
++ (lambda (#{x 3888}#
++ #{keys 3889}#
++ #{clauses 3890}#
++ #{r 3891}#
++ #{mod 3892}#)
++ (if (null? #{clauses 3890}#)
+ (#{build-primcall 291}#
+ #f
+ 'syntax-violation
+ (list (#{build-data 295}# #f #f)
+ (#{build-data 295}#
+ #f
+ "source expression failed to match any pattern")
- #{x 3875}#))
- (let ((#{tmp 3888}# (car #{clauses 3877}#)))
- (let ((#{tmp 3889}#
- ($sc-dispatch #{tmp 3888}# '(any any))))
- (if #{tmp 3889}#
++ #{x 3888}#))
++ (let ((#{tmp 3901}# (car #{clauses 3890}#)))
++ (let ((#{tmp 3902}#
++ ($sc-dispatch #{tmp 3901}# '(any any))))
++ (if #{tmp 3902}#
+ (@apply
- (lambda (#{pat 3892}# #{exp 3893}#)
- (if (if (#{id? 343}# #{pat 3892}#)
++ (lambda (#{pat 3905}# #{exp 3906}#)
++ (if (if (#{id? 343}# #{pat 3905}#)
+ (and-map
- (lambda (#{x 3896}#)
++ (lambda (#{x 3909}#)
+ (not (#{free-id=? 399}#
- #{pat 3892}#
- #{x 3896}#)))
++ #{pat 3905}#
++ #{x 3909}#)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
- #("i3890" "i3891"))
++ #("i3903" "i3904"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
++ #("i3893"
++ "i3894"
++ "i3895"
++ "i3896"
++ "i3897"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3706" "i3704" "i3702" "i3700"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
- #{keys 3876}#))
++ #{keys 3889}#))
+ #f)
+ (if (#{free-id=? 399}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
- #("i3890" "i3891"))
++ #("i3903" "i3904"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
++ #("i3893"
++ "i3894"
++ "i3895"
++ "i3896"
++ "i3897"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3706" "i3704" "i3702" "i3700"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile))
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
- #("i3890" "i3891"))
++ #("i3903" "i3904"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x keys clauses r mod)
+ #((top) (top) (top) (top) (top))
- #("i3880"
- "i3881"
- "i3882"
- "i3883"
- "i3884"))
++ #("i3893"
++ "i3894"
++ "i3895"
++ "i3896"
++ "i3897"))
+ #(ribcage
+ (gen-syntax-case
+ gen-clause
+ build-dispatch-call
+ convert-pattern)
+ ((top) (top) (top) (top))
+ ("i3706" "i3704" "i3702" "i3700"))
+ #(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-call
+ chi-expr
+ chi
+ syntax-type
+ chi-when-list
+ chi-install-global
+ chi-top-sequence
+ chi-sequence
+ source-wrap
+ wrap
+ bound-id-member?
+ distinct-bound-ids?
+ valid-bound-ids?
+ bound-id=?
+ free-id=?
+ id-var-name
+ same-marks?
+ join-marks
+ join-wraps
+ smart-append
+ make-binding-wrap
+ extend-ribcage!
+ make-empty-ribcage
+ new-mark
+ anti-mark
+ the-anti-mark
+ top-marked?
+ top-wrap
+ empty-wrap
+ set-ribcage-labels!
+ set-ribcage-marks!
+ set-ribcage-symnames!
+ ribcage-labels
+ ribcage-marks
+ ribcage-symnames
+ ribcage?
+ make-ribcage
+ gen-labels
+ gen-label
+ make-rename
+ rename-marks
+ rename-new
+ rename-old
+ subst-rename?
+ wrap-subst
+ wrap-marks
+ make-wrap
+ id-sym-name&marks
+ id-sym-name
+ id?
+ nonsymbol-id?
+ global-extend
+ lookup
+ macros-only-env
+ extend-var-env
+ extend-env
+ null-env
+ binding-value
+ binding-type
+ make-binding
+ arg-check
+ source-annotation
+ no-source
+ set-syntax-object-module!
+ set-syntax-object-wrap!
+ set-syntax-object-expression!
+ syntax-object-module
+ syntax-object-wrap
+ syntax-object-expression
+ syntax-object?
+ make-syntax-object
+ build-lexical-var
+ build-letrec
+ build-named-let
+ build-let
+ build-sequence
+ build-data
+ build-primref
+ build-primcall
+ build-lambda-case
+ build-case-lambda
+ build-simple-lambda
+ build-global-definition
+ build-global-assignment
+ build-global-reference
+ analyze-variable
+ build-lexical-assignment
+ build-lexical-reference
+ build-dynlet
+ build-conditional
+ build-call
+ build-void
+ maybe-name-value!
+ decorate-source
+ get-global-definition-hook
+ put-global-definition-hook
+ gensym-hook
+ local-eval-hook
+ top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+ set-lambda-meta!
+ lambda-meta
+ lambda?
+ make-dynlet
+ make-letrec
+ make-let
+ make-lambda-case
+ make-lambda
+ make-seq
+ make-primcall
+ make-call
+ 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)
+ (top))
+ ("i452"
+ "i450"
+ "i448"
+ "i446"
+ "i444"
+ "i442"
+ "i440"
+ "i438"
+ "i436"
+ "i434"
+ "i432"
+ "i430"
+ "i428"
+ "i426"
+ "i424"
+ "i422"
+ "i420"
+ "i418"
+ "i416"
+ "i414"
+ "i412"
+ "i410"
+ "i408"
+ "i406"
+ "i404"
+ "i402"
+ "i400"
+ "i398"
+ "i396"
+ "i394"
+ "i392"
+ "i390"
+ "i388"
+ "i386"
+ "i384"
+ "i383"
+ "i382"
+ "i380"
+ "i379"
+ "i378"
+ "i377"
+ "i376"
+ "i374"
+ "i372"
+ "i370"
+ "i368"
+ "i366"
+ "i364"
+ "i362"
+ "i360"
+ "i357"
+ "i355"
+ "i354"
+ "i353"
+ "i352"
+ "i351"
+ "i350"
+ "i349"
+ "i348"
+ "i347"
+ "i345"
+ "i344"
+ "i342"
+ "i340"
+ "i338"
+ "i336"
+ "i334"
+ "i332"
+ "i330"
+ "i329"
+ "i328"
+ "i327"
+ "i326"
+ "i325"
+ "i323"
+ "i322"
+ "i320"
+ "i318"
+ "i316"
+ "i314"
+ "i312"
+ "i310"
+ "i308"
+ "i306"
+ "i304"
+ "i302"
+ "i300"
+ "i298"
+ "i296"
+ "i294"
+ "i292"
+ "i290"
+ "i288"
+ "i286"
+ "i284"
+ "i282"
+ "i280"
+ "i278"
+ "i276"
+ "i274"
+ "i272"
+ "i270"
+ "i268"
+ "i266"
+ "i264"
+ "i262"
+ "i260"
+ "i258"
+ "i256"
+ "i255"
+ "i253"
+ "i251"
+ "i250"
+ "i249"
+ "i248"
+ "i247"
+ "i245"
+ "i243"
+ "i241"
+ "i238"
+ "i236"
+ "i234"
+ "i232"
+ "i230"
+ "i228"
+ "i226"
+ "i224"
+ "i222"
+ "i220"
+ "i218"
+ "i216"
+ "i214"
+ "i212"
+ "i210"
+ "i208"
+ "i206"
+ "i204"
+ "i202"))
+ #(ribcage
+ (define-structure
+ define-expansion-accessors
+ define-expansion-constructors)
+ ((top) (top) (top))
+ ("i40" "i39" "i38")))
+ (hygiene guile)))
+ (#{chi 423}#
- #{exp 3893}#
- #{r 3878}#
++ #{exp 3906}#
++ #{r 3891}#
+ '(())
- #{mod 3879}#)
- (let ((#{labels 3901}# (list (#{gen-label 356}#)))
- (#{var 3902}#
- (#{gen-var 451}# #{pat 3892}#)))
++ #{mod 3892}#)
++ (let ((#{labels 3914}# (list (#{gen-label 356}#)))
++ (#{var 3915}#
++ (#{gen-var 451}# #{pat 3905}#)))
+ (#{build-call 267}#
+ #f
+ (#{build-simple-lambda 285}#
+ #f
- (list (syntax->datum #{pat 3892}#))
++ (list (syntax->datum #{pat 3905}#))
+ #f
- (list #{var 3902}#)
++ (list #{var 3915}#)
+ '()
+ (#{chi 423}#
- #{exp 3893}#
++ #{exp 3906}#
+ (#{extend-env 331}#
- #{labels 3901}#
++ #{labels 3914}#
+ (list (cons 'syntax
- (cons #{var 3902}# 0)))
- #{r 3878}#)
++ (cons #{var 3915}# 0)))
++ #{r 3891}#)
+ (#{make-binding-wrap 387}#
- (list #{pat 3892}#)
- #{labels 3901}#
++ (list #{pat 3905}#)
++ #{labels 3914}#
+ '(()))
- #{mod 3879}#))
- (list #{x 3875}#))))
++ #{mod 3892}#))
++ (list #{x 3888}#))))
+ (#{gen-clause 3705}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3892}#
++ #{x 3888}#
++ #{keys 3889}#
++ (cdr #{clauses 3890}#)
++ #{r 3891}#
++ #{pat 3905}#
+ #t
- #{exp 3893}#
- #{mod 3879}#)))
- #{tmp 3889}#)
- (let ((#{tmp 3908}#
- ($sc-dispatch #{tmp 3888}# '(any any any))))
- (if #{tmp 3908}#
++ #{exp 3906}#
++ #{mod 3892}#)))
++ #{tmp 3902}#)
++ (let ((#{tmp 3921}#
++ ($sc-dispatch #{tmp 3901}# '(any any any))))
++ (if #{tmp 3921}#
+ (@apply
- (lambda (#{pat 3912}# #{fender 3913}# #{exp 3914}#)
++ (lambda (#{pat 3925}# #{fender 3926}# #{exp 3927}#)
+ (#{gen-clause 3705}#
- #{x 3875}#
- #{keys 3876}#
- (cdr #{clauses 3877}#)
- #{r 3878}#
- #{pat 3912}#
- #{fender 3913}#
- #{exp 3914}#
- #{mod 3879}#))
- #{tmp 3908}#)
- (let ((#{_ 3916}# #{tmp 3888}#))
++ #{x 3888}#
++ #{keys 3889}#
++ (cdr #{clauses 3890}#)
++ #{r 3891}#
++ #{pat 3925}#
++ #{fender 3926}#
++ #{exp 3927}#
++ #{mod 3892}#))
++ #{tmp 3921}#)
++ (let ((#{_ 3929}# #{tmp 3901}#))
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
- (car #{clauses 3877}#))))))))))))
- (lambda (#{e 3917}#
- #{r 3918}#
- #{w 3919}#
- #{s 3920}#
- #{mod 3921}#)
- (let ((#{e 3928}#
++ (car #{clauses 3890}#))))))))))))
++ (lambda (#{e 3930}#
++ #{r 3931}#
++ #{w 3932}#
++ #{s 3933}#
++ #{mod 3934}#)
++ (let ((#{e 3941}#
+ (#{source-wrap 411}#
- #{e 3917}#
- #{w 3919}#
- #{s 3920}#
- #{mod 3921}#)))
- (let ((#{tmp 3929}# #{e 3928}#))
- (let ((#{tmp 3930}#
++ #{e 3930}#
++ #{w 3932}#
++ #{s 3933}#
++ #{mod 3934}#)))
++ (let ((#{tmp 3942}# #{e 3941}#))
++ (let ((#{tmp 3943}#
+ ($sc-dispatch
- #{tmp 3929}#
++ #{tmp 3942}#
+ '(_ any each-any . each-any))))
- (if #{tmp 3930}#
++ (if #{tmp 3943}#
+ (@apply
- (lambda (#{val 3934}# #{key 3935}# #{m 3936}#)
++ (lambda (#{val 3947}# #{key 3948}# #{m 3949}#)
+ (if (and-map
- (lambda (#{x 3937}#)
- (if (#{id? 343}# #{x 3937}#)
- (not (#{ellipsis? 439}# #{x 3937}#))
++ (lambda (#{x 3950}#)
++ (if (#{id? 343}# #{x 3950}#)
++ (not (#{ellipsis? 439}# #{x 3950}#))
+ #f))
- #{key 3935}#)
- (let ((#{x 3943}# (#{gen-var 451}# 'tmp)))
++ #{key 3948}#)
++ (let ((#{x 3956}# (#{gen-var 451}# 'tmp)))
+ (#{build-call 267}#
- #{s 3920}#
++ #{s 3933}#
+ (#{build-simple-lambda 285}#
+ #f
+ (list 'tmp)
+ #f
- (list #{x 3943}#)
++ (list #{x 3956}#)
+ '()
+ (#{gen-syntax-case 3707}#
+ (#{build-lexical-reference 273}#
+ 'value
+ #f
+ 'tmp
- #{x 3943}#)
- #{key 3935}#
- #{m 3936}#
- #{r 3918}#
- #{mod 3921}#))
++ #{x 3956}#)
++ #{key 3948}#
++ #{m 3949}#
++ #{r 3931}#
++ #{mod 3934}#))
+ (list (#{chi 423}#
- #{val 3934}#
- #{r 3918}#
++ #{val 3947}#
++ #{r 3931}#
+ '(())
- #{mod 3921}#))))
++ #{mod 3934}#))))
(syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3930}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x 3950}#
- #:optional
- (#{m 3952}# 'e)
- (#{esew 3954}# '(eval)))
- (#{chi-top-sequence 411}#
- (list #{x 3950}#)
- '()
- '((top))
- #f
- #{m 3952}#
- #{esew 3954}#
- (cons 'hygiene (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x 3958}#)
- (#{nonsymbol-id? 337}# #{x 3958}#)))
- (set! datum->syntax
- (lambda (#{id 3960}# #{datum 3961}#)
- (#{make-syntax-object 303}#
- #{datum 3961}#
- (#{syntax-object-wrap 309}# #{id 3960}#)
- (#{syntax-object-module 311}# #{id 3960}#))))
- (set! syntax->datum
- (lambda (#{x 3964}#)
- (#{strip 445}# #{x 3964}# '(()))))
- (set! syntax-source
- (lambda (#{x 3967}#)
- (#{source-annotation 320}# #{x 3967}#)))
- (set! generate-temporaries
- (lambda (#{ls 3969}#)
- (begin
- (begin
- (let ((#{x 3973}# #{ls 3969}#))
- (if (not (list? #{x 3973}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x 3973}#))))
- (begin
- (let ((#{mod 3975}#
- (cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3976}#)
- (#{wrap 405}# (gensym) '((top)) #{mod 3975}#))
- #{ls 3969}#))))))
- (set! free-identifier=?
- (lambda (#{x 3980}# #{y 3981}#)
- (begin
- (begin
- (let ((#{x 3986}# #{x 3980}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3986}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 3986}#))))
- (begin
- (let ((#{x 3989}# #{y 3981}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3989}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 3989}#))))
- (#{free-id=? 395}# #{x 3980}# #{y 3981}#))))
- (set! bound-identifier=?
- (lambda (#{x 3990}# #{y 3991}#)
- (begin
- (begin
- (let ((#{x 3996}# #{x 3990}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3996}#))
+ 'syntax-case
+ "invalid literals list"
- #{e 3928}#)))
- #{tmp 3930}#)
++ #{e 3941}#)))
++ #{tmp 3943}#)
(syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 3996}#))))
- (begin
- (let ((#{x 3999}# #{y 3991}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3999}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 3999}#))))
- (#{bound-id=? 397}# #{x 3990}# #{y 3991}#))))
- (set! syntax-violation
- (lambda*
- (#{who 4000}#
- #{message 4001}#
- #{form 4002}#
- #:optional
- (#{subform 4006}# #f))
- (begin
- (begin
- (let ((#{x 4010}# #{who 4000}#))
- (if (not (let ((#{x 4011}# #{x 4010}#))
- (begin
- (let ((#{t 4015}# (not #{x 4011}#)))
- (if #{t 4015}#
- #{t 4015}#
- (begin
- (let ((#{t 4018}# (string? #{x 4011}#)))
- (if #{t 4018}#
- #{t 4018}#
- (symbol? #{x 4011}#)))))))))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4010}#))))
- (begin
- (let ((#{x 4022}# #{message 4001}#))
- (if (not (string? #{x 4022}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4022}#))))
- (throw 'syntax-error
- #{who 4000}#
- #{message 4001}#
- (#{source-annotation 320}#
- (begin
- (let ((#{t 4025}# #{form 4002}#))
- (if #{t 4025}# #{t 4025}# #{subform 4006}#))))
- (#{strip 445}# #{form 4002}# '(()))
- (if #{subform 4006}#
- (#{strip 445}# #{subform 4006}# '(()))
- #f)))))
- (letrec*
- ((#{match-each 4032}#
- (lambda (#{e 4045}# #{p 4046}# #{w 4047}# #{mod 4048}#)
- (if (pair? #{e 4045}#)
- (begin
- (let ((#{first 4056}#
- (#{match 4044}#
- (car #{e 4045}#)
- #{p 4046}#
- #{w 4047}#
- '()
- #{mod 4048}#)))
- (if #{first 4056}#
- (begin
- (let ((#{rest 4060}#
- (#{match-each 4032}#
- (cdr #{e 4045}#)
- #{p 4046}#
- #{w 4047}#
- #{mod 4048}#)))
- (if #{rest 4060}#
- (cons #{first 4056}# #{rest 4060}#)
- #f)))
- #f)))
- (if (null? #{e 4045}#)
- '()
- (if (#{syntax-object? 305}# #{e 4045}#)
- (#{match-each 4032}#
- (#{syntax-object-expression 307}# #{e 4045}#)
- #{p 4046}#
- (#{join-wraps 387}#
- #{w 4047}#
- (#{syntax-object-wrap 309}# #{e 4045}#))
- (#{syntax-object-module 311}# #{e 4045}#))
- #f)))))
- (#{match-each+ 4034}#
- (lambda (#{e 4068}#
- #{x-pat 4069}#
- #{y-pat 4070}#
- #{z-pat 4071}#
- #{w 4072}#
- #{r 4073}#
- #{mod 4074}#)
- (letrec*
- ((#{f 4085}#
- (lambda (#{e 4086}# #{w 4087}#)
- (if (pair? #{e 4086}#)
- (call-with-values
- (lambda ()
- (#{f 4085}# (cdr #{e 4086}#) #{w 4087}#))
- (lambda (#{xr* 4090}# #{y-pat 4091}# #{r 4092}#)
- (if #{r 4092}#
- (if (null? #{y-pat 4091}#)
- (begin
- (let ((#{xr 4097}#
- (#{match 4044}#
- (car #{e 4086}#)
- #{x-pat 4069}#
- #{w 4087}#
- '()
- #{mod 4074}#)))
- (if #{xr 4097}#
- (values
- (cons #{xr 4097}# #{xr* 4090}#)
- #{y-pat 4091}#
- #{r 4092}#)
- (values #f #f #f))))
- (values
- '()
- (cdr #{y-pat 4091}#)
- (#{match 4044}#
- (car #{e 4086}#)
- (car #{y-pat 4091}#)
- #{w 4087}#
- #{r 4092}#
- #{mod 4074}#)))
- (values #f #f #f))))
- (if (#{syntax-object? 305}# #{e 4086}#)
- (#{f 4085}#
- (#{syntax-object-expression 307}# #{e 4086}#)
- (#{join-wraps 387}# #{w 4087}# #{e 4086}#))
- (values
- '()
- #{y-pat 4070}#
- (#{match 4044}#
- #{e 4086}#
- #{z-pat 4071}#
- #{w 4087}#
- #{r 4073}#
- #{mod 4074}#)))))))
- (begin (#{f 4085}# #{e 4068}# #{w 4072}#)))))
- (#{match-each-any 4036}#
- (lambda (#{e 4101}# #{w 4102}# #{mod 4103}#)
- (if (pair? #{e 4101}#)
- (begin
- (let ((#{l 4110}#
- (#{match-each-any 4036}#
- (cdr #{e 4101}#)
- #{w 4102}#
- #{mod 4103}#)))
- (if #{l 4110}#
- (cons (#{wrap 405}#
- (car #{e 4101}#)
- #{w 4102}#
- #{mod 4103}#)
- #{l 4110}#)
- #f)))
- (if (null? #{e 4101}#)
- '()
- (if (#{syntax-object? 305}# #{e 4101}#)
- (#{match-each-any 4036}#
- (#{syntax-object-expression 307}# #{e 4101}#)
- (#{join-wraps 387}#
- #{w 4102}#
- (#{syntax-object-wrap 309}# #{e 4101}#))
- #{mod 4103}#)
+ #f
+ "source expression failed to match any pattern"
- #{tmp 3929}#))))))))
++ #{tmp 3942}#))))))))
+ (set! macroexpand
+ (lambda*
- (#{x 3949}#
++ (#{x 3962}#
+ #:optional
- (#{m 3951}# 'e)
- (#{esew 3953}# '(eval)))
++ (#{m 3964}# 'e)
++ (#{esew 3966}# '(eval)))
+ (#{chi-top-sequence 415}#
- (list #{x 3949}#)
++ (list #{x 3962}#)
+ '()
+ '((top))
+ #f
- #{m 3951}#
- #{esew 3953}#
++ #{m 3964}#
++ #{esew 3966}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
- (lambda (#{x 3957}#)
- (#{nonsymbol-id? 341}# #{x 3957}#)))
++ (lambda (#{x 3970}#)
++ (#{nonsymbol-id? 341}# #{x 3970}#)))
+ (set! datum->syntax
- (lambda (#{id 3959}# #{datum 3960}#)
++ (lambda (#{id 3972}# #{datum 3973}#)
+ (#{make-syntax-object 307}#
- #{datum 3960}#
- (#{syntax-object-wrap 313}# #{id 3959}#)
- (#{syntax-object-module 315}# #{id 3959}#))))
++ #{datum 3973}#
++ (#{syntax-object-wrap 313}# #{id 3972}#)
++ (#{syntax-object-module 315}# #{id 3972}#))))
+ (set! syntax->datum
- (lambda (#{x 3963}#)
- (#{strip 449}# #{x 3963}# '(()))))
++ (lambda (#{x 3976}#)
++ (#{strip 449}# #{x 3976}# '(()))))
+ (set! syntax-source
- (lambda (#{x 3966}#)
- (#{source-annotation 324}# #{x 3966}#)))
++ (lambda (#{x 3979}#)
++ (#{source-annotation 324}# #{x 3979}#)))
+ (set! generate-temporaries
- (lambda (#{ls 3968}#)
++ (lambda (#{ls 3981}#)
+ (begin
- (let ((#{x 3972}# #{ls 3968}#))
- (if (not (list? #{x 3972}#))
++ (let ((#{x 3985}# #{ls 3981}#))
++ (if (not (list? #{x 3985}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
- #{x 3972}#)))
- (let ((#{mod 3974}#
++ #{x 3985}#)))
++ (let ((#{mod 3987}#
+ (cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3975}#)
- (#{wrap 409}# (gensym) '((top)) #{mod 3974}#))
- #{ls 3968}#)))))
++ (map (lambda (#{x 3988}#)
++ (#{wrap 409}# (gensym) '((top)) #{mod 3987}#))
++ #{ls 3981}#)))))
+ (set! free-identifier=?
- (lambda (#{x 3979}# #{y 3980}#)
++ (lambda (#{x 3992}# #{y 3993}#)
+ (begin
- (let ((#{x 3985}# #{x 3979}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3985}#))
++ (let ((#{x 3998}# #{x 3992}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 3998}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
- #{x 3985}#)))
- (let ((#{x 3988}# #{y 3980}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3988}#))
++ #{x 3998}#)))
++ (let ((#{x 4001}# #{y 3993}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 4001}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
- #{x 3988}#)))
- (#{free-id=? 399}# #{x 3979}# #{y 3980}#))))
++ #{x 4001}#)))
++ (#{free-id=? 399}# #{x 3992}# #{y 3993}#))))
+ (set! bound-identifier=?
- (lambda (#{x 3989}# #{y 3990}#)
++ (lambda (#{x 4002}# #{y 4003}#)
+ (begin
- (let ((#{x 3995}# #{x 3989}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3995}#))
++ (let ((#{x 4008}# #{x 4002}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 4008}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
- #{x 3995}#)))
- (let ((#{x 3998}# #{y 3990}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3998}#))
++ #{x 4008}#)))
++ (let ((#{x 4011}# #{y 4003}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 4011}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
- #{x 3998}#)))
- (#{bound-id=? 401}# #{x 3989}# #{y 3990}#))))
++ #{x 4011}#)))
++ (#{bound-id=? 401}# #{x 4002}# #{y 4003}#))))
+ (set! syntax-violation
+ (lambda*
- (#{who 3999}#
- #{message 4000}#
- #{form 4001}#
++ (#{who 4012}#
++ #{message 4013}#
++ #{form 4014}#
+ #:optional
- (#{subform 4005}# #f))
++ (#{subform 4018}# #f))
+ (begin
- (let ((#{x 4009}# #{who 3999}#))
- (if (not (let ((#{x 4010}# #{x 4009}#))
- (let ((#{t 4014}# (not #{x 4010}#)))
- (if #{t 4014}#
- #{t 4014}#
- (let ((#{t 4017}# (string? #{x 4010}#)))
- (if #{t 4017}#
- #{t 4017}#
- (symbol? #{x 4010}#)))))))
++ (let ((#{x 4022}# #{who 4012}#))
++ (if (not (let ((#{x 4023}# #{x 4022}#))
++ (let ((#{t 4027}# (not #{x 4023}#)))
++ (if #{t 4027}#
++ #{t 4027}#
++ (let ((#{t 4030}# (string? #{x 4023}#)))
++ (if #{t 4030}#
++ #{t 4030}#
++ (symbol? #{x 4023}#)))))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
- #{x 4009}#)))
- (let ((#{x 4021}# #{message 4000}#))
- (if (not (string? #{x 4021}#))
++ #{x 4022}#)))
++ (let ((#{x 4034}# #{message 4013}#))
++ (if (not (string? #{x 4034}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
- #{x 4021}#)))
++ #{x 4034}#)))
+ (throw 'syntax-error
- #{who 3999}#
- #{message 4000}#
++ #{who 4012}#
++ #{message 4013}#
+ (#{source-annotation 324}#
- (let ((#{t 4024}# #{form 4001}#))
- (if #{t 4024}# #{t 4024}# #{subform 4005}#)))
- (#{strip 449}# #{form 4001}# '(()))
- (if #{subform 4005}#
- (#{strip 449}# #{subform 4005}# '(()))
++ (let ((#{t 4037}# #{form 4014}#))
++ (if #{t 4037}# #{t 4037}# #{subform 4018}#)))
++ (#{strip 449}# #{form 4014}# '(()))
++ (if #{subform 4018}#
++ (#{strip 449}# #{subform 4018}# '(()))
#f)))))
- (#{match-empty 4038}#
- (lambda (#{p 4118}# #{r 4119}#)
- (if (null? #{p 4118}#)
- #{r 4119}#
- (if (eq? #{p 4118}# '_)
- #{r 4119}#
- (if (eq? #{p 4118}# 'any)
- (cons '() #{r 4119}#)
- (if (pair? #{p 4118}#)
- (#{match-empty 4038}#
- (car #{p 4118}#)
- (#{match-empty 4038}#
- (cdr #{p 4118}#)
- #{r 4119}#))
- (if (eq? #{p 4118}# 'each-any)
- (cons '() #{r 4119}#)
- (begin
- (let ((#{atom-key 4135}# (vector-ref #{p 4118}# 0)))
- (if (eqv? #{atom-key 4135}# 'each)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- #{r 4119}#)
- (if (eqv? #{atom-key 4135}# 'each+)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- (#{match-empty 4038}#
- (reverse (vector-ref #{p 4118}# 2))
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 3)
- #{r 4119}#)))
- (if (if (eqv? #{atom-key 4135}# 'free-id)
- #t
- (eqv? #{atom-key 4135}# 'atom))
- #{r 4119}#
- (if (eqv? #{atom-key 4135}# 'vector)
- (#{match-empty 4038}#
- (vector-ref #{p 4118}# 1)
- #{r 4119}#))))))))))))))
- (#{combine 4040}#
- (lambda (#{r* 4140}# #{r 4141}#)
- (if (null? (car #{r* 4140}#))
- #{r 4141}#
- (cons (map car #{r* 4140}#)
- (#{combine 4040}#
- (map cdr #{r* 4140}#)
- #{r 4141}#)))))
- (#{match* 4042}#
- (lambda (#{e 4144}#
- #{p 4145}#
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
- (if (null? #{p 4145}#)
- (if (null? #{e 4144}#) #{r 4147}# #f)
- (if (pair? #{p 4145}#)
- (if (pair? #{e 4144}#)
- (#{match 4044}#
- (car #{e 4144}#)
- (car #{p 4145}#)
- #{w 4146}#
- (#{match 4044}#
- (cdr #{e 4144}#)
- (cdr #{p 4145}#)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
- #{mod 4148}#)
- #f)
- (if (eq? #{p 4145}# 'each-any)
- (begin
- (let ((#{l 4165}#
- (#{match-each-any 4036}#
- #{e 4144}#
- #{w 4146}#
- #{mod 4148}#)))
- (if #{l 4165}# (cons #{l 4165}# #{r 4147}#) #f)))
- (begin
- (let ((#{atom-key 4171}# (vector-ref #{p 4145}# 0)))
- (if (eqv? #{atom-key 4171}# 'each)
- (if (null? #{e 4144}#)
- (#{match-empty 4038}#
- (vector-ref #{p 4145}# 1)
- #{r 4147}#)
- (begin
- (let ((#{l 4174}#
- (#{match-each 4032}#
- #{e 4144}#
- (vector-ref #{p 4145}# 1)
- #{w 4146}#
- #{mod 4148}#)))
- (if #{l 4174}#
- (letrec*
- ((#{collect 4179}#
- (lambda (#{l 4180}#)
- (if (null? (car #{l 4180}#))
- #{r 4147}#
- (cons (map car #{l 4180}#)
- (#{collect 4179}#
- (map cdr #{l 4180}#)))))))
- (begin (#{collect 4179}# #{l 4174}#)))
- #f))))
- (if (eqv? #{atom-key 4171}# 'each+)
- (call-with-values
- (lambda ()
- (#{match-each+ 4034}#
- #{e 4144}#
- (vector-ref #{p 4145}# 1)
- (vector-ref #{p 4145}# 2)
- (vector-ref #{p 4145}# 3)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#))
- (lambda (#{xr* 4182}# #{y-pat 4183}# #{r 4184}#)
- (if #{r 4184}#
- (if (null? #{y-pat 4183}#)
- (if (null? #{xr* 4182}#)
- (#{match-empty 4038}#
- (vector-ref #{p 4145}# 1)
- #{r 4184}#)
- (#{combine 4040}#
- #{xr* 4182}#
- #{r 4184}#))
- #f)
- #f)))
- (if (eqv? #{atom-key 4171}# 'free-id)
- (if (#{id? 339}# #{e 4144}#)
- (if (#{free-id=? 395}#
- (#{wrap 405}#
- #{e 4144}#
- #{w 4146}#
- #{mod 4148}#)
- (vector-ref #{p 4145}# 1))
- #{r 4147}#
- #f)
+ (letrec*
- ((#{match-each 4031}#
- (lambda (#{e 4044}# #{p 4045}# #{w 4046}# #{mod 4047}#)
- (if (pair? #{e 4044}#)
- (let ((#{first 4055}#
- (#{match 4043}#
- (car #{e 4044}#)
- #{p 4045}#
- #{w 4046}#
++ ((#{match-each 4044}#
++ (lambda (#{e 4057}# #{p 4058}# #{w 4059}# #{mod 4060}#)
++ (if (pair? #{e 4057}#)
++ (let ((#{first 4068}#
++ (#{match 4056}#
++ (car #{e 4057}#)
++ #{p 4058}#
++ #{w 4059}#
+ '()
- #{mod 4047}#)))
- (if #{first 4055}#
- (let ((#{rest 4059}#
- (#{match-each 4031}#
- (cdr #{e 4044}#)
- #{p 4045}#
- #{w 4046}#
- #{mod 4047}#)))
- (if #{rest 4059}#
- (cons #{first 4055}# #{rest 4059}#)
++ #{mod 4060}#)))
++ (if #{first 4068}#
++ (let ((#{rest 4072}#
++ (#{match-each 4044}#
++ (cdr #{e 4057}#)
++ #{p 4058}#
++ #{w 4059}#
++ #{mod 4060}#)))
++ (if #{rest 4072}#
++ (cons #{first 4068}# #{rest 4072}#)
+ #f))
+ #f))
- (if (null? #{e 4044}#)
++ (if (null? #{e 4057}#)
+ '()
- (if (#{syntax-object? 309}# #{e 4044}#)
- (#{match-each 4031}#
- (#{syntax-object-expression 311}# #{e 4044}#)
- #{p 4045}#
++ (if (#{syntax-object? 309}# #{e 4057}#)
++ (#{match-each 4044}#
++ (#{syntax-object-expression 311}# #{e 4057}#)
++ #{p 4058}#
+ (#{join-wraps 391}#
- #{w 4046}#
- (#{syntax-object-wrap 313}# #{e 4044}#))
- (#{syntax-object-module 315}# #{e 4044}#))
++ #{w 4059}#
++ (#{syntax-object-wrap 313}# #{e 4057}#))
++ (#{syntax-object-module 315}# #{e 4057}#))
+ #f)))))
- (#{match-each+ 4033}#
- (lambda (#{e 4067}#
- #{x-pat 4068}#
- #{y-pat 4069}#
- #{z-pat 4070}#
- #{w 4071}#
- #{r 4072}#
- #{mod 4073}#)
++ (#{match-each+ 4046}#
++ (lambda (#{e 4080}#
++ #{x-pat 4081}#
++ #{y-pat 4082}#
++ #{z-pat 4083}#
++ #{w 4084}#
++ #{r 4085}#
++ #{mod 4086}#)
+ (letrec*
- ((#{f 4084}#
- (lambda (#{e 4085}# #{w 4086}#)
- (if (pair? #{e 4085}#)
++ ((#{f 4097}#
++ (lambda (#{e 4098}# #{w 4099}#)
++ (if (pair? #{e 4098}#)
+ (call-with-values
+ (lambda ()
- (#{f 4084}# (cdr #{e 4085}#) #{w 4086}#))
- (lambda (#{xr* 4089}# #{y-pat 4090}# #{r 4091}#)
- (if #{r 4091}#
- (if (null? #{y-pat 4090}#)
- (let ((#{xr 4096}#
- (#{match 4043}#
- (car #{e 4085}#)
- #{x-pat 4068}#
- #{w 4086}#
++ (#{f 4097}# (cdr #{e 4098}#) #{w 4099}#))
++ (lambda (#{xr* 4102}# #{y-pat 4103}# #{r 4104}#)
++ (if #{r 4104}#
++ (if (null? #{y-pat 4103}#)
++ (let ((#{xr 4109}#
++ (#{match 4056}#
++ (car #{e 4098}#)
++ #{x-pat 4081}#
++ #{w 4099}#
+ '()
- #{mod 4073}#)))
- (if #{xr 4096}#
++ #{mod 4086}#)))
++ (if #{xr 4109}#
+ (values
- (cons #{xr 4096}# #{xr* 4089}#)
- #{y-pat 4090}#
- #{r 4091}#)
++ (cons #{xr 4109}# #{xr* 4102}#)
++ #{y-pat 4103}#
++ #{r 4104}#)
+ (values #f #f #f)))
+ (values
+ '()
- (cdr #{y-pat 4090}#)
- (#{match 4043}#
- (car #{e 4085}#)
- (car #{y-pat 4090}#)
- #{w 4086}#
- #{r 4091}#
- #{mod 4073}#)))
++ (cdr #{y-pat 4103}#)
++ (#{match 4056}#
++ (car #{e 4098}#)
++ (car #{y-pat 4103}#)
++ #{w 4099}#
++ #{r 4104}#
++ #{mod 4086}#)))
+ (values #f #f #f))))
- (if (#{syntax-object? 309}# #{e 4085}#)
- (#{f 4084}#
- (#{syntax-object-expression 311}# #{e 4085}#)
- (#{join-wraps 391}# #{w 4086}# #{e 4085}#))
++ (if (#{syntax-object? 309}# #{e 4098}#)
++ (#{f 4097}#
++ (#{syntax-object-expression 311}# #{e 4098}#)
++ (#{join-wraps 391}# #{w 4099}# #{e 4098}#))
+ (values
+ '()
- #{y-pat 4069}#
- (#{match 4043}#
- #{e 4085}#
- #{z-pat 4070}#
- #{w 4086}#
- #{r 4072}#
- #{mod 4073}#)))))))
- (#{f 4084}# #{e 4067}# #{w 4071}#))))
- (#{match-each-any 4035}#
- (lambda (#{e 4100}# #{w 4101}# #{mod 4102}#)
- (if (pair? #{e 4100}#)
- (let ((#{l 4109}#
- (#{match-each-any 4035}#
- (cdr #{e 4100}#)
- #{w 4101}#
- #{mod 4102}#)))
- (if #{l 4109}#
++ #{y-pat 4082}#
++ (#{match 4056}#
++ #{e 4098}#
++ #{z-pat 4083}#
++ #{w 4099}#
++ #{r 4085}#
++ #{mod 4086}#)))))))
++ (#{f 4097}# #{e 4080}# #{w 4084}#))))
++ (#{match-each-any 4048}#
++ (lambda (#{e 4113}# #{w 4114}# #{mod 4115}#)
++ (if (pair? #{e 4113}#)
++ (let ((#{l 4122}#
++ (#{match-each-any 4048}#
++ (cdr #{e 4113}#)
++ #{w 4114}#
++ #{mod 4115}#)))
++ (if #{l 4122}#
+ (cons (#{wrap 409}#
- (car #{e 4100}#)
- #{w 4101}#
- #{mod 4102}#)
- #{l 4109}#)
++ (car #{e 4113}#)
++ #{w 4114}#
++ #{mod 4115}#)
++ #{l 4122}#)
+ #f))
- (if (null? #{e 4100}#)
++ (if (null? #{e 4113}#)
+ '()
- (if (#{syntax-object? 309}# #{e 4100}#)
- (#{match-each-any 4035}#
- (#{syntax-object-expression 311}# #{e 4100}#)
++ (if (#{syntax-object? 309}# #{e 4113}#)
++ (#{match-each-any 4048}#
++ (#{syntax-object-expression 311}# #{e 4113}#)
+ (#{join-wraps 391}#
- #{w 4101}#
- (#{syntax-object-wrap 313}# #{e 4100}#))
- #{mod 4102}#)
++ #{w 4114}#
++ (#{syntax-object-wrap 313}# #{e 4113}#))
++ #{mod 4115}#)
+ #f)))))
- (#{match-empty 4037}#
- (lambda (#{p 4117}# #{r 4118}#)
- (if (null? #{p 4117}#)
- #{r 4118}#
- (if (eq? #{p 4117}# '_)
- #{r 4118}#
- (if (eq? #{p 4117}# 'any)
- (cons '() #{r 4118}#)
- (if (pair? #{p 4117}#)
- (#{match-empty 4037}#
- (car #{p 4117}#)
- (#{match-empty 4037}#
- (cdr #{p 4117}#)
- #{r 4118}#))
- (if (eq? #{p 4117}# 'each-any)
- (cons '() #{r 4118}#)
- (let ((#{atom-key 4134}# (vector-ref #{p 4117}# 0)))
- (if (memv #{atom-key 4134}# '(each))
- (#{match-empty 4037}#
- (vector-ref #{p 4117}# 1)
- #{r 4118}#)
- (if (memv #{atom-key 4134}# '(each+))
- (#{match-empty 4037}#
- (vector-ref #{p 4117}# 1)
- (#{match-empty 4037}#
- (reverse (vector-ref #{p 4117}# 2))
- (#{match-empty 4037}#
- (vector-ref #{p 4117}# 3)
- #{r 4118}#)))
- (if (memv #{atom-key 4134}# '(free-id atom))
- #{r 4118}#
- (if (memv #{atom-key 4134}# '(vector))
- (#{match-empty 4037}#
- (vector-ref #{p 4117}# 1)
- #{r 4118}#)))))))))))))
- (#{combine 4039}#
- (lambda (#{r* 4139}# #{r 4140}#)
- (if (null? (car #{r* 4139}#))
- #{r 4140}#
- (cons (map car #{r* 4139}#)
- (#{combine 4039}#
- (map cdr #{r* 4139}#)
- #{r 4140}#)))))
- (#{match* 4041}#
- (lambda (#{e 4143}#
- #{p 4144}#
- #{w 4145}#
- #{r 4146}#
- #{mod 4147}#)
- (if (null? #{p 4144}#)
- (if (null? #{e 4143}#) #{r 4146}# #f)
- (if (pair? #{p 4144}#)
- (if (pair? #{e 4143}#)
- (#{match 4043}#
- (car #{e 4143}#)
- (car #{p 4144}#)
- #{w 4145}#
- (#{match 4043}#
- (cdr #{e 4143}#)
- (cdr #{p 4144}#)
- #{w 4145}#
- #{r 4146}#
- #{mod 4147}#)
- #{mod 4147}#)
++ (#{match-empty 4050}#
++ (lambda (#{p 4130}# #{r 4131}#)
++ (if (null? #{p 4130}#)
++ #{r 4131}#
++ (if (eq? #{p 4130}# '_)
++ #{r 4131}#
++ (if (eq? #{p 4130}# 'any)
++ (cons '() #{r 4131}#)
++ (if (pair? #{p 4130}#)
++ (#{match-empty 4050}#
++ (car #{p 4130}#)
++ (#{match-empty 4050}#
++ (cdr #{p 4130}#)
++ #{r 4131}#))
++ (if (eq? #{p 4130}# 'each-any)
++ (cons '() #{r 4131}#)
++ (let ((#{atom-key 4147}# (vector-ref #{p 4130}# 0)))
++ (if (memv #{atom-key 4147}# '(each))
++ (#{match-empty 4050}#
++ (vector-ref #{p 4130}# 1)
++ #{r 4131}#)
++ (if (memv #{atom-key 4147}# '(each+))
++ (#{match-empty 4050}#
++ (vector-ref #{p 4130}# 1)
++ (#{match-empty 4050}#
++ (reverse (vector-ref #{p 4130}# 2))
++ (#{match-empty 4050}#
++ (vector-ref #{p 4130}# 3)
++ #{r 4131}#)))
++ (if (memv #{atom-key 4147}# '(free-id atom))
++ #{r 4131}#
++ (if (memv #{atom-key 4147}# '(vector))
++ (#{match-empty 4050}#
++ (vector-ref #{p 4130}# 1)
++ #{r 4131}#)))))))))))))
++ (#{combine 4052}#
++ (lambda (#{r* 4152}# #{r 4153}#)
++ (if (null? (car #{r* 4152}#))
++ #{r 4153}#
++ (cons (map car #{r* 4152}#)
++ (#{combine 4052}#
++ (map cdr #{r* 4152}#)
++ #{r 4153}#)))))
++ (#{match* 4054}#
++ (lambda (#{e 4156}#
++ #{p 4157}#
++ #{w 4158}#
++ #{r 4159}#
++ #{mod 4160}#)
++ (if (null? #{p 4157}#)
++ (if (null? #{e 4156}#) #{r 4159}# #f)
++ (if (pair? #{p 4157}#)
++ (if (pair? #{e 4156}#)
++ (#{match 4056}#
++ (car #{e 4156}#)
++ (car #{p 4157}#)
++ #{w 4158}#
++ (#{match 4056}#
++ (cdr #{e 4156}#)
++ (cdr #{p 4157}#)
++ #{w 4158}#
++ #{r 4159}#
++ #{mod 4160}#)
++ #{mod 4160}#)
+ #f)
- (if (eq? #{p 4144}# 'each-any)
- (let ((#{l 4164}#
- (#{match-each-any 4035}#
- #{e 4143}#
- #{w 4145}#
- #{mod 4147}#)))
- (if #{l 4164}# (cons #{l 4164}# #{r 4146}#) #f))
- (let ((#{atom-key 4170}# (vector-ref #{p 4144}# 0)))
- (if (memv #{atom-key 4170}# '(each))
- (if (null? #{e 4143}#)
- (#{match-empty 4037}#
- (vector-ref #{p 4144}# 1)
- #{r 4146}#)
- (let ((#{l 4173}#
- (#{match-each 4031}#
- #{e 4143}#
- (vector-ref #{p 4144}# 1)
- #{w 4145}#
- #{mod 4147}#)))
- (if #{l 4173}#
++ (if (eq? #{p 4157}# 'each-any)
++ (let ((#{l 4177}#
++ (#{match-each-any 4048}#
++ #{e 4156}#
++ #{w 4158}#
++ #{mod 4160}#)))
++ (if #{l 4177}# (cons #{l 4177}# #{r 4159}#) #f))
++ (let ((#{atom-key 4183}# (vector-ref #{p 4157}# 0)))
++ (if (memv #{atom-key 4183}# '(each))
++ (if (null? #{e 4156}#)
++ (#{match-empty 4050}#
++ (vector-ref #{p 4157}# 1)
++ #{r 4159}#)
++ (let ((#{l 4186}#
++ (#{match-each 4044}#
++ #{e 4156}#
++ (vector-ref #{p 4157}# 1)
++ #{w 4158}#
++ #{mod 4160}#)))
++ (if #{l 4186}#
+ (letrec*
- ((#{collect 4178}#
- (lambda (#{l 4179}#)
- (if (null? (car #{l 4179}#))
- #{r 4146}#
- (cons (map car #{l 4179}#)
- (#{collect 4178}#
- (map cdr #{l 4179}#)))))))
- (#{collect 4178}# #{l 4173}#))
++ ((#{collect 4191}#
++ (lambda (#{l 4192}#)
++ (if (null? (car #{l 4192}#))
++ #{r 4159}#
++ (cons (map car #{l 4192}#)
++ (#{collect 4191}#
++ (map cdr #{l 4192}#)))))))
++ (#{collect 4191}# #{l 4186}#))
+ #f)))
- (if (memv #{atom-key 4170}# '(each+))
++ (if (memv #{atom-key 4183}# '(each+))
+ (call-with-values
+ (lambda ()
- (#{match-each+ 4033}#
- #{e 4143}#
- (vector-ref #{p 4144}# 1)
- (vector-ref #{p 4144}# 2)
- (vector-ref #{p 4144}# 3)
- #{w 4145}#
- #{r 4146}#
- #{mod 4147}#))
- (lambda (#{xr* 4181}# #{y-pat 4182}# #{r 4183}#)
- (if #{r 4183}#
- (if (null? #{y-pat 4182}#)
- (if (null? #{xr* 4181}#)
- (#{match-empty 4037}#
- (vector-ref #{p 4144}# 1)
- #{r 4183}#)
- (#{combine 4039}# #{xr* 4181}# #{r 4183}#))
++ (#{match-each+ 4046}#
++ #{e 4156}#
++ (vector-ref #{p 4157}# 1)
++ (vector-ref #{p 4157}# 2)
++ (vector-ref #{p 4157}# 3)
++ #{w 4158}#
++ #{r 4159}#
++ #{mod 4160}#))
++ (lambda (#{xr* 4194}# #{y-pat 4195}# #{r 4196}#)
++ (if #{r 4196}#
++ (if (null? #{y-pat 4195}#)
++ (if (null? #{xr* 4194}#)
++ (#{match-empty 4050}#
++ (vector-ref #{p 4157}# 1)
++ #{r 4196}#)
++ (#{combine 4052}# #{xr* 4194}# #{r 4196}#))
#f)
- (if (eqv? #{atom-key 4171}# 'atom)
- (if (equal?
- (vector-ref #{p 4145}# 1)
- (#{strip 445}# #{e 4144}# #{w 4146}#))
- #{r 4147}#
- #f)
- (if (eqv? #{atom-key 4171}# 'vector)
- (if (vector? #{e 4144}#)
- (#{match 4044}#
- (vector->list #{e 4144}#)
- (vector-ref #{p 4145}# 1)
- #{w 4146}#
- #{r 4147}#
- #{mod 4148}#)
- #f)))))))))))))
- (#{match 4044}#
- (lambda (#{e 4201}#
- #{p 4202}#
- #{w 4203}#
- #{r 4204}#
- #{mod 4205}#)
- (if (not #{r 4204}#)
- #f
- (if (eq? #{p 4202}# '_)
- #{r 4204}#
- (if (eq? #{p 4202}# 'any)
- (cons (#{wrap 405}# #{e 4201}# #{w 4203}# #{mod 4205}#)
- #{r 4204}#)
- (if (#{syntax-object? 305}# #{e 4201}#)
- (#{match* 4042}#
- (#{syntax-object-expression 307}# #{e 4201}#)
- #{p 4202}#
- (#{join-wraps 387}#
- #{w 4203}#
- (#{syntax-object-wrap 309}# #{e 4201}#))
- #{r 4204}#
- (#{syntax-object-module 311}# #{e 4201}#))
- (#{match* 4042}#
- #{e 4201}#
- #{p 4202}#
- #{w 4203}#
- #{r 4204}#
- #{mod 4205}#))))))))
- (begin
- (set! $sc-dispatch
- (lambda (#{e 4220}# #{p 4221}#)
- (if (eq? #{p 4221}# 'any)
- (list #{e 4220}#)
- (if (eq? #{p 4221}# '_)
+ #f)))
- (if (memv #{atom-key 4170}# '(free-id))
- (if (#{id? 343}# #{e 4143}#)
++ (if (memv #{atom-key 4183}# '(free-id))
++ (if (#{id? 343}# #{e 4156}#)
+ (if (#{free-id=? 399}#
+ (#{wrap 409}#
- #{e 4143}#
- #{w 4145}#
- #{mod 4147}#)
- (vector-ref #{p 4144}# 1))
- #{r 4146}#
++ #{e 4156}#
++ #{w 4158}#
++ #{mod 4160}#)
++ (vector-ref #{p 4157}# 1))
++ #{r 4159}#
+ #f)
+ #f)
- (if (memv #{atom-key 4170}# '(atom))
++ (if (memv #{atom-key 4183}# '(atom))
+ (if (equal?
- (vector-ref #{p 4144}# 1)
- (#{strip 449}# #{e 4143}# #{w 4145}#))
- #{r 4146}#
++ (vector-ref #{p 4157}# 1)
++ (#{strip 449}# #{e 4156}# #{w 4158}#))
++ #{r 4159}#
+ #f)
- (if (memv #{atom-key 4170}# '(vector))
- (if (vector? #{e 4143}#)
- (#{match 4043}#
- (vector->list #{e 4143}#)
- (vector-ref #{p 4144}# 1)
- #{w 4145}#
- #{r 4146}#
- #{mod 4147}#)
++ (if (memv #{atom-key 4183}# '(vector))
++ (if (vector? #{e 4156}#)
++ (#{match 4056}#
++ (vector->list #{e 4156}#)
++ (vector-ref #{p 4157}# 1)
++ #{w 4158}#
++ #{r 4159}#
++ #{mod 4160}#)
+ #f))))))))))))
- (#{match 4043}#
- (lambda (#{e 4200}#
- #{p 4201}#
- #{w 4202}#
- #{r 4203}#
- #{mod 4204}#)
- (if (not #{r 4203}#)
++ (#{match 4056}#
++ (lambda (#{e 4213}#
++ #{p 4214}#
++ #{w 4215}#
++ #{r 4216}#
++ #{mod 4217}#)
++ (if (not #{r 4216}#)
+ #f
- (if (eq? #{p 4201}# '_)
- #{r 4203}#
- (if (eq? #{p 4201}# 'any)
- (cons (#{wrap 409}# #{e 4200}# #{w 4202}# #{mod 4204}#)
- #{r 4203}#)
- (if (#{syntax-object? 309}# #{e 4200}#)
- (#{match* 4041}#
- (#{syntax-object-expression 311}# #{e 4200}#)
- #{p 4201}#
++ (if (eq? #{p 4214}# '_)
++ #{r 4216}#
++ (if (eq? #{p 4214}# 'any)
++ (cons (#{wrap 409}# #{e 4213}# #{w 4215}# #{mod 4217}#)
++ #{r 4216}#)
++ (if (#{syntax-object? 309}# #{e 4213}#)
++ (#{match* 4054}#
++ (#{syntax-object-expression 311}# #{e 4213}#)
++ #{p 4214}#
+ (#{join-wraps 391}#
- #{w 4202}#
- (#{syntax-object-wrap 313}# #{e 4200}#))
- #{r 4203}#
- (#{syntax-object-module 315}# #{e 4200}#))
- (#{match* 4041}#
- #{e 4200}#
- #{p 4201}#
- #{w 4202}#
- #{r 4203}#
- #{mod 4204}#))))))))
++ #{w 4215}#
++ (#{syntax-object-wrap 313}# #{e 4213}#))
++ #{r 4216}#
++ (#{syntax-object-module 315}# #{e 4213}#))
++ (#{match* 4054}#
++ #{e 4213}#
++ #{p 4214}#
++ #{w 4215}#
++ #{r 4216}#
++ #{mod 4217}#))))))))
+ (set! $sc-dispatch
- (lambda (#{e 4219}# #{p 4220}#)
- (if (eq? #{p 4220}# 'any)
- (list #{e 4219}#)
- (if (eq? #{p 4220}# '_)
++ (lambda (#{e 4232}# #{p 4233}#)
++ (if (eq? #{p 4233}# 'any)
++ (list #{e 4232}#)
++ (if (eq? #{p 4233}# '_)
+ '()
- (if (#{syntax-object? 309}# #{e 4219}#)
- (#{match* 4041}#
- (#{syntax-object-expression 311}# #{e 4219}#)
- #{p 4220}#
- (#{syntax-object-wrap 313}# #{e 4219}#)
++ (if (#{syntax-object? 309}# #{e 4232}#)
++ (#{match* 4054}#
++ (#{syntax-object-expression 311}# #{e 4232}#)
++ #{p 4233}#
++ (#{syntax-object-wrap 313}# #{e 4232}#)
+ '()
- (#{syntax-object-module 315}# #{e 4219}#))
- (#{match* 4041}#
- #{e 4219}#
- #{p 4220}#
++ (#{syntax-object-module 315}# #{e 4232}#))
++ (#{match* 4054}#
++ #{e 4232}#
++ #{p 4233}#
+ '(())
'()
- (if (#{syntax-object? 305}# #{e 4220}#)
- (#{match* 4042}#
- (#{syntax-object-expression 307}# #{e 4220}#)
- #{p 4221}#
- (#{syntax-object-wrap 309}# #{e 4220}#)
- '()
- (#{syntax-object-module 311}# #{e 4220}#))
- (#{match* 4042}#
- #{e 4220}#
- #{p 4221}#
- '(())
- '()
- #f)))))))))))
+ #f)))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 4231}#)
- (let ((#{tmp 4233}# #{x 4231}#))
- (let ((#{tmp 4234}#
- (lambda (#{x 4232}#)
- (let ((#{tmp 4234}# #{x 4232}#))
- (let ((#{tmp 4235}#
++ (lambda (#{x 4244}#)
++ (let ((#{tmp 4246}# #{x 4244}#))
++ (let ((#{tmp 4247}#
($sc-dispatch
- #{tmp 4233}#
- #{tmp 4234}#
++ #{tmp 4246}#
'(_ () any . each-any))))
- (if #{tmp 4234}#
- (if #{tmp 4235}#
++ (if #{tmp 4247}#
(@apply
- (lambda (#{e1 4237}# #{e2 4238}#)
- (lambda (#{e1 4238}# #{e2 4239}#)
++ (lambda (#{e1 4250}# #{e2 4251}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4235" "i4236"))
- #("i4236" "i4237"))
++ #("i4248" "i4249"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4232")))
- #(ribcage #(x) #((top)) #("i4233")))
++ #(ribcage #(x) #((top)) #("i4245")))
(hygiene guile))
- (cons '() (cons #{e1 4237}# #{e2 4238}#))))
- #{tmp 4234}#)
- (let ((#{tmp 4240}#
- (cons '() (cons #{e1 4238}# #{e2 4239}#))))
- #{tmp 4235}#)
- (let ((#{tmp 4241}#
++ (cons '() (cons #{e1 4250}# #{e2 4251}#))))
++ #{tmp 4247}#)
++ (let ((#{tmp 4253}#
($sc-dispatch
- #{tmp 4233}#
- #{tmp 4234}#
++ #{tmp 4246}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 4240}#
- (if #{tmp 4241}#
++ (if #{tmp 4253}#
(@apply
- (lambda (#{out 4245}#
- #{in 4246}#
- #{e1 4247}#
- #{e2 4248}#)
- (lambda (#{out 4246}#
- #{in 4247}#
- #{e1 4248}#
- #{e2 4249}#)
++ (lambda (#{out 4258}#
++ #{in 4259}#
++ #{e1 4260}#
++ #{e2 4261}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4241" "i4242" "i4243" "i4244"))
- #("i4242" "i4243" "i4244" "i4245"))
++ #("i4254" "i4255" "i4256" "i4257"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4232")))
- #(ribcage #(x) #((top)) #("i4233")))
++ #(ribcage #(x) #((top)) #("i4245")))
(hygiene guile))
- #{in 4246}#
- #{in 4247}#
++ #{in 4259}#
'()
- (list #{out 4245}#
- (list #{out 4246}#
++ (list #{out 4258}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4241" "i4242" "i4243" "i4244"))
- #("i4242" "i4243" "i4244" "i4245"))
++ #("i4254" "i4255" "i4256" "i4257"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4232")))
- #(ribcage #(x) #((top)) #("i4233")))
++ #(ribcage #(x) #((top)) #("i4245")))
(hygiene guile))
(cons '()
- (cons #{e1 4247}# #{e2 4248}#))))))
- #{tmp 4240}#)
- (let ((#{tmp 4250}#
- (cons #{e1 4248}# #{e2 4249}#))))))
- #{tmp 4241}#)
- (let ((#{tmp 4251}#
++ (cons #{e1 4260}# #{e2 4261}#))))))
++ #{tmp 4253}#)
++ (let ((#{tmp 4263}#
($sc-dispatch
- #{tmp 4233}#
- #{tmp 4234}#
++ #{tmp 4246}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4250}#
- (if #{tmp 4251}#
++ (if #{tmp 4263}#
(@apply
- (lambda (#{out 4255}#
- #{in 4256}#
- #{e1 4257}#
- #{e2 4258}#)
- (lambda (#{out 4256}#
- #{in 4257}#
- #{e1 4258}#
- #{e2 4259}#)
++ (lambda (#{out 4268}#
++ #{in 4269}#
++ #{e1 4270}#
++ #{e2 4271}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4251" "i4252" "i4253" "i4254"))
- #("i4252" "i4253" "i4254" "i4255"))
++ #("i4264" "i4265" "i4266" "i4267"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4232")))
- #(ribcage #(x) #((top)) #("i4233")))
++ #(ribcage #(x) #((top)) #("i4245")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4251" "i4252" "i4253" "i4254"))
- #("i4252" "i4253" "i4254" "i4255"))
++ #("i4264" "i4265" "i4266" "i4267"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4232")))
- #(ribcage #(x) #((top)) #("i4233")))
++ #(ribcage #(x) #((top)) #("i4245")))
(hygiene guile))
- #{in 4256}#)
- #{in 4257}#)
++ #{in 4269}#)
'()
- (list #{out 4255}#
- (list #{out 4256}#
++ (list #{out 4268}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4251"
- "i4252"
- #("i4252"
-- "i4253"
- "i4254"))
- "i4254"
- "i4255"))
++ #("i4264"
++ "i4265"
++ "i4266"
++ "i4267"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4232")))
- #("i4233")))
++ #("i4245")))
(hygiene guile))
(cons '()
- (cons #{e1 4257}#
- #{e2 4258}#))))))
- #{tmp 4250}#)
- (cons #{e1 4258}#
- #{e2 4259}#))))))
- #{tmp 4251}#)
++ (cons #{e1 4270}#
++ #{e2 4271}#))))))
++ #{tmp 4263}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4233}#)))))))))))
- #{tmp 4234}#)))))))))))
++ #{tmp 4246}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 4262}#)
- (let ((#{tmp 4264}# #{x 4262}#))
- (let ((#{tmp 4265}#
- (lambda (#{x 4263}#)
- (let ((#{tmp 4265}# #{x 4263}#))
- (let ((#{tmp 4266}#
++ (lambda (#{x 4275}#)
++ (let ((#{tmp 4277}# #{x 4275}#))
++ (let ((#{tmp 4278}#
($sc-dispatch
- #{tmp 4264}#
- #{tmp 4265}#
++ #{tmp 4277}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4265}#
- (if #{tmp 4266}#
++ (if #{tmp 4278}#
(@apply
- (lambda (#{k 4270}#
- #{keyword 4271}#
- #{pattern 4272}#
- #{template 4273}#)
- (lambda (#{k 4271}#
- #{keyword 4272}#
- #{pattern 4273}#
- #{template 4274}#)
++ (lambda (#{k 4283}#
++ #{keyword 4284}#
++ #{pattern 4285}#
++ #{template 4286}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
- #{pattern 4272}#))
- #{pattern 4273}#))
++ #{pattern 4285}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4266" "i4267" "i4268" "i4269"))
- #("i4267" "i4268" "i4269" "i4270"))
++ #("i4279" "i4280" "i4281" "i4282"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
- (cons #{k 4270}#
- (map (lambda (#{tmp 4277}#
- #{tmp 4276}#)
- (cons #{k 4271}#
- (map (lambda (#{tmp 4278}#
- #{tmp 4277}#)
++ (cons #{k 4283}#
++ (map (lambda (#{tmp 4290}#
++ #{tmp 4289}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4266"
- "i4267"
- #("i4267"
-- "i4268"
- "i4269"))
- "i4269"
- "i4270"))
++ #("i4279"
++ "i4280"
++ "i4281"
++ "i4282"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4263")))
- #("i4264")))
++ #("i4276")))
(hygiene guile))
- #{tmp 4276}#)
- #{tmp 4277}#)
++ #{tmp 4289}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4266"
- "i4267"
- #("i4267"
-- "i4268"
- "i4269"))
- "i4269"
- "i4270"))
++ #("i4279"
++ "i4280"
++ "i4281"
++ "i4282"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4263")))
- #("i4264")))
++ #("i4276")))
(hygiene guile))
- #{tmp 4277}#)))
- #{template 4273}#
- #{pattern 4272}#))))))
- #{tmp 4265}#)
- (let ((#{tmp 4278}#
- #{tmp 4278}#)))
- #{template 4274}#
- #{pattern 4273}#))))))
- #{tmp 4266}#)
- (let ((#{tmp 4279}#
++ #{tmp 4290}#)))
++ #{template 4286}#
++ #{pattern 4285}#))))))
++ #{tmp 4278}#)
++ (let ((#{tmp 4291}#
($sc-dispatch
- #{tmp 4264}#
- #{tmp 4265}#
++ #{tmp 4277}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4278}#
- (if (if #{tmp 4279}#
++ (if (if #{tmp 4291}#
(@apply
- (lambda (#{k 4284}#
- #{docstring 4285}#
- #{keyword 4286}#
- #{pattern 4287}#
- #{template 4288}#)
- (string? (syntax->datum #{docstring 4285}#)))
- #{tmp 4278}#)
- (lambda (#{k 4285}#
- #{docstring 4286}#
- #{keyword 4287}#
- #{pattern 4288}#
- #{template 4289}#)
- (string? (syntax->datum #{docstring 4286}#)))
- #{tmp 4279}#)
++ (lambda (#{k 4297}#
++ #{docstring 4298}#
++ #{keyword 4299}#
++ #{pattern 4300}#
++ #{template 4301}#)
++ (string? (syntax->datum #{docstring 4298}#)))
++ #{tmp 4291}#)
#f)
(@apply
- (lambda (#{k 4294}#
- #{docstring 4295}#
- #{keyword 4296}#
- #{pattern 4297}#
- #{template 4298}#)
- (lambda (#{k 4295}#
- #{docstring 4296}#
- #{keyword 4297}#
- #{pattern 4298}#
- #{template 4299}#)
++ (lambda (#{k 4307}#
++ #{docstring 4308}#
++ #{keyword 4309}#
++ #{pattern 4310}#
++ #{template 4311}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289" "i4290" "i4291" "i4292" "i4293"))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
++ #("i4302" "i4303" "i4304" "i4305" "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289" "i4290" "i4291" "i4292" "i4293"))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
++ #("i4302" "i4303" "i4304" "i4305" "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile)))
- #{docstring 4295}#
- #{docstring 4296}#
++ #{docstring 4308}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289" "i4290" "i4291" "i4292" "i4293"))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
++ #("i4302" "i4303" "i4304" "i4305" "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289" "i4290" "i4291" "i4292" "i4293"))
- #("i4290" "i4291" "i4292" "i4293" "i4294"))
++ #("i4302" "i4303" "i4304" "i4305" "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289"
- "i4290"
- #("i4290"
-- "i4291"
-- "i4292"
- "i4293"))
- "i4293"
- "i4294"))
++ #("i4302"
++ "i4303"
++ "i4304"
++ "i4305"
++ "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
- #{pattern 4297}#))
- #{pattern 4298}#))
++ #{pattern 4310}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4289"
- "i4290"
- #("i4290"
-- "i4291"
-- "i4292"
- "i4293"))
- "i4293"
- "i4294"))
++ #("i4302"
++ "i4303"
++ "i4304"
++ "i4305"
++ "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4289"
- "i4290"
- #("i4290"
-- "i4291"
-- "i4292"
- "i4293"))
- "i4293"
- "i4294"))
++ #("i4302"
++ "i4303"
++ "i4304"
++ "i4305"
++ "i4306"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4263")))
- #(ribcage #(x) #((top)) #("i4264")))
++ #(ribcage #(x) #((top)) #("i4276")))
(hygiene guile))
- (cons #{k 4294}#
- (map (lambda (#{tmp 4302}#
- #{tmp 4301}#)
- (cons #{k 4295}#
- (map (lambda (#{tmp 4303}#
- #{tmp 4302}#)
++ (cons #{k 4307}#
++ (map (lambda (#{tmp 4315}#
++ #{tmp 4314}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4289"
- "i4290"
- #("i4290"
-- "i4291"
-- "i4292"
- "i4293"))
- "i4293"
- "i4294"))
++ #("i4302"
++ "i4303"
++ "i4304"
++ "i4305"
++ "i4306"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4263")))
- #("i4264")))
++ #("i4276")))
(hygiene
guile))
- #{tmp 4301}#)
- #{tmp 4302}#)
++ #{tmp 4314}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4289"
- "i4290"
- #("i4290"
-- "i4291"
-- "i4292"
- "i4293"))
- "i4293"
- "i4294"))
++ #("i4302"
++ "i4303"
++ "i4304"
++ "i4305"
++ "i4306"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4263")))
- #("i4264")))
++ #("i4276")))
(hygiene
guile))
- #{tmp 4302}#)))
- #{template 4298}#
- #{pattern 4297}#))))))
- #{tmp 4278}#)
- #{tmp 4303}#)))
- #{template 4299}#
- #{pattern 4298}#))))))
- #{tmp 4279}#)
++ #{tmp 4315}#)))
++ #{template 4311}#
++ #{pattern 4310}#))))))
++ #{tmp 4291}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4264}#)))))))))
- #{tmp 4265}#)))))))))
++ #{tmp 4277}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 4303}#)
- (let ((#{tmp 4305}# #{x 4303}#))
- (let ((#{tmp 4306}#
- (lambda (#{x 4304}#)
- (let ((#{tmp 4306}# #{x 4304}#))
- (let ((#{tmp 4307}#
++ (lambda (#{x 4316}#)
++ (let ((#{tmp 4318}# #{x 4316}#))
++ (let ((#{tmp 4319}#
($sc-dispatch
- #{tmp 4305}#
- #{tmp 4306}#
++ #{tmp 4318}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4306}#
- (if (if #{tmp 4307}#
++ (if (if #{tmp 4319}#
(@apply
- (lambda (#{let* 4312}#
- #{x 4313}#
- #{v 4314}#
- #{e1 4315}#
- #{e2 4316}#)
- (and-map identifier? #{x 4313}#))
- #{tmp 4306}#)
- (lambda (#{let* 4313}#
- #{x 4314}#
- #{v 4315}#
- #{e1 4316}#
- #{e2 4317}#)
- (and-map identifier? #{x 4314}#))
- #{tmp 4307}#)
++ (lambda (#{let* 4325}#
++ #{x 4326}#
++ #{v 4327}#
++ #{e1 4328}#
++ #{e2 4329}#)
++ (and-map identifier? #{x 4326}#))
++ #{tmp 4319}#)
#f)
(@apply
- (lambda (#{let* 4323}#
- #{x 4324}#
- #{v 4325}#
- #{e1 4326}#
- #{e2 4327}#)
- (lambda (#{let* 4324}#
- #{x 4325}#
- #{v 4326}#
- #{e1 4327}#
- #{e2 4328}#)
++ (lambda (#{let* 4336}#
++ #{x 4337}#
++ #{v 4338}#
++ #{e1 4339}#
++ #{e2 4340}#)
(letrec*
- ((#{f 4330}#
- (lambda (#{bindings 4331}#)
- (if (null? #{bindings 4331}#)
- ((#{f 4331}#
- (lambda (#{bindings 4332}#)
- (if (null? #{bindings 4332}#)
++ ((#{f 4343}#
++ (lambda (#{bindings 4344}#)
++ (if (null? #{bindings 4344}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4328" "i4329"))
- #("i4329" "i4330"))
++ #("i4341" "i4342"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4318"
- "i4319"
- #("i4319"
-- "i4320"
-- "i4321"
- "i4322"))
- "i4322"
- "i4323"))
++ #("i4331"
++ "i4332"
++ "i4333"
++ "i4334"
++ "i4335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4304")))
- #(ribcage #(x) #((top)) #("i4305")))
++ #(ribcage #(x) #((top)) #("i4317")))
(hygiene guile))
- (cons '() (cons #{e1 4326}# #{e2 4327}#)))
- (let ((#{tmp 4336}#
- (list (#{f 4330}# (cdr #{bindings 4331}#))
- (car #{bindings 4331}#))))
- (let ((#{tmp 4337}#
- ($sc-dispatch #{tmp 4336}# '(any any))))
- (if #{tmp 4337}#
- (cons '() (cons #{e1 4327}# #{e2 4328}#)))
- (let ((#{tmp 4337}#
- (list (#{f 4331}# (cdr #{bindings 4332}#))
- (car #{bindings 4332}#))))
- (let ((#{tmp 4338}#
- ($sc-dispatch #{tmp 4337}# '(any any))))
- (if #{tmp 4338}#
++ (cons '() (cons #{e1 4339}# #{e2 4340}#)))
++ (let ((#{tmp 4349}#
++ (list (#{f 4343}# (cdr #{bindings 4344}#))
++ (car #{bindings 4344}#))))
++ (let ((#{tmp 4350}#
++ ($sc-dispatch #{tmp 4349}# '(any any))))
++ (if #{tmp 4350}#
(@apply
- (lambda (#{body 4340}# #{binding 4341}#)
- (lambda (#{body 4341}# #{binding 4342}#)
++ (lambda (#{body 4353}# #{binding 4354}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4338" "i4339"))
- #("i4339" "i4340"))
++ #("i4351" "i4352"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4328" "i4329"))
- #("i4329" "i4330"))
++ #("i4341" "i4342"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4318"
- "i4319"
- #("i4319"
-- "i4320"
-- "i4321"
- "i4322"))
- "i4322"
- "i4323"))
++ #("i4331"
++ "i4332"
++ "i4333"
++ "i4334"
++ "i4335"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4304")))
- #("i4305")))
++ #("i4317")))
(hygiene guile))
- (list #{binding 4341}#)
- #{body 4340}#))
- #{tmp 4337}#)
- (list #{binding 4342}#)
- #{body 4341}#))
- #{tmp 4338}#)
++ (list #{binding 4354}#)
++ #{body 4353}#))
++ #{tmp 4350}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4336}#))))))))
- (#{f 4330}# (map list #{x 4324}# #{v 4325}#))))
- #{tmp 4306}#)
- #{tmp 4337}#))))))))
- (begin
- (#{f 4331}# (map list #{x 4325}# #{v 4326}#)))))
- #{tmp 4307}#)
++ #{tmp 4349}#))))))))
++ (#{f 4343}# (map list #{x 4337}# #{v 4338}#))))
++ #{tmp 4319}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4305}#)))))))
- #{tmp 4306}#)))))))
++ #{tmp 4318}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 4342}#)
- (let ((#{tmp 4344}# #{orig-x 4342}#))
- (let ((#{tmp 4345}#
- (lambda (#{orig-x 4343}#)
- (let ((#{tmp 4345}# #{orig-x 4343}#))
- (let ((#{tmp 4346}#
++ (lambda (#{orig-x 4355}#)
++ (let ((#{tmp 4357}# #{orig-x 4355}#))
++ (let ((#{tmp 4358}#
($sc-dispatch
- #{tmp 4344}#
- #{tmp 4345}#
++ #{tmp 4357}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 4345}#
- (if #{tmp 4346}#
++ (if #{tmp 4358}#
(@apply
- (lambda (#{var 4352}#
- #{init 4353}#
- #{step 4354}#
- #{e0 4355}#
- #{e1 4356}#
- #{c 4357}#)
- (let ((#{tmp 4359}#
- (map (lambda (#{v 4380}# #{s 4381}#)
- (let ((#{tmp 4384}# #{s 4381}#))
- (let ((#{tmp 4385}#
- ($sc-dispatch #{tmp 4384}# '())))
- (if #{tmp 4385}#
- (lambda (#{var 4353}#
- #{init 4354}#
- #{step 4355}#
- #{e0 4356}#
- #{e1 4357}#
- #{c 4358}#)
- (let ((#{tmp 4360}#
- (map (lambda (#{v 4381}# #{s 4382}#)
- (let ((#{tmp 4385}# #{s 4382}#))
- (let ((#{tmp 4386}#
- ($sc-dispatch #{tmp 4385}# '())))
- (if #{tmp 4386}#
++ (lambda (#{var 4365}#
++ #{init 4366}#
++ #{step 4367}#
++ #{e0 4368}#
++ #{e1 4369}#
++ #{c 4370}#)
++ (let ((#{tmp 4372}#
++ (map (lambda (#{v 4393}# #{s 4394}#)
++ (let ((#{tmp 4397}# #{s 4394}#))
++ (let ((#{tmp 4398}#
++ ($sc-dispatch #{tmp 4397}# '())))
++ (if #{tmp 4398}#
(@apply
- (lambda () #{v 4380}#)
- #{tmp 4385}#)
- (let ((#{tmp 4386}#
- (lambda () #{v 4381}#)
- #{tmp 4386}#)
- (let ((#{tmp 4387}#
++ (lambda () #{v 4393}#)
++ #{tmp 4398}#)
++ (let ((#{tmp 4399}#
($sc-dispatch
- #{tmp 4384}#
- #{tmp 4385}#
++ #{tmp 4397}#
'(any))))
- (if #{tmp 4386}#
- (if #{tmp 4387}#
++ (if #{tmp 4399}#
(@apply
- (lambda (#{e 4388}#) #{e 4388}#)
- #{tmp 4386}#)
- (let ((#{_ 4390}# #{tmp 4384}#))
- (lambda (#{e 4389}#) #{e 4389}#)
- #{tmp 4387}#)
- (let ((#{_ 4391}# #{tmp 4385}#))
++ (lambda (#{e 4401}#) #{e 4401}#)
++ #{tmp 4399}#)
++ (let ((#{_ 4403}# #{tmp 4397}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x 4342}#
- #{s 4381}#))))))))
- #{var 4352}#
- #{step 4354}#)))
- (let ((#{tmp 4360}#
- ($sc-dispatch #{tmp 4359}# 'each-any)))
- (if #{tmp 4360}#
- #{orig-x 4343}#
- #{s 4382}#))))))))
- #{var 4353}#
- #{step 4355}#)))
- (let ((#{tmp 4361}#
- ($sc-dispatch #{tmp 4360}# 'each-any)))
- (if #{tmp 4361}#
++ #{orig-x 4355}#
++ #{s 4394}#))))))))
++ #{var 4365}#
++ #{step 4367}#)))
++ (let ((#{tmp 4373}#
++ ($sc-dispatch #{tmp 4372}# 'each-any)))
++ (if #{tmp 4373}#
(@apply
- (lambda (#{step 4362}#)
- (let ((#{tmp 4363}# #{e1 4356}#))
- (let ((#{tmp 4364}#
- ($sc-dispatch #{tmp 4363}# '())))
- (if #{tmp 4364}#
- (lambda (#{step 4363}#)
- (let ((#{tmp 4364}# #{e1 4357}#))
- (let ((#{tmp 4365}#
- ($sc-dispatch #{tmp 4364}# '())))
- (if #{tmp 4365}#
++ (lambda (#{step 4375}#)
++ (let ((#{tmp 4376}# #{e1 4369}#))
++ (let ((#{tmp 4377}#
++ ($sc-dispatch #{tmp 4376}# '())))
++ (if #{tmp 4377}#
(@apply
(lambda ()
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
- (map list #{var 4352}# #{init 4353}#)
- (map list #{var 4353}# #{init 4354}#)
++ (map list #{var 4365}# #{init 4366}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
- #{e0 4355}#)
- #{e0 4356}#)
++ #{e0 4368}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
(append
- #{c 4357}#
- #{c 4358}#
++ #{c 4370}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene
guile))
- #{step 4362}#)))))))
- #{tmp 4364}#)
- (let ((#{tmp 4369}#
- #{step 4363}#)))))))
- #{tmp 4365}#)
- (let ((#{tmp 4370}#
++ #{step 4375}#)))))))
++ #{tmp 4377}#)
++ (let ((#{tmp 4382}#
($sc-dispatch
- #{tmp 4363}#
- #{tmp 4364}#
++ #{tmp 4376}#
'(any . each-any))))
- (if #{tmp 4369}#
- (if #{tmp 4370}#
++ (if #{tmp 4382}#
(@apply
- (lambda (#{e1 4372}# #{e2 4373}#)
- (lambda (#{e1 4373}# #{e2 4374}#)
++ (lambda (#{e1 4385}# #{e2 4386}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4370" "i4371"))
- #("i4371" "i4372"))
++ #("i4383" "i4384"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4370" "i4371"))
- #("i4371" "i4372"))
++ #("i4383" "i4384"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
(map list
- #{var 4352}#
- #{init 4353}#)
- #{var 4353}#
- #{init 4354}#)
++ #{var 4365}#
++ #{init 4366}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4370" "i4371"))
- #("i4371" "i4372"))
++ #("i4383" "i4384"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
- #{e0 4355}#
- #{e0 4356}#
++ #{e0 4368}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4370"
- "i4371"))
- #("i4371"
- "i4372"))
++ #("i4383"
++ "i4384"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
- (cons #{e1 4372}#
- #{e2 4373}#))
- (cons #{e1 4373}#
- #{e2 4374}#))
++ (cons #{e1 4385}#
++ #{e2 4386}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4370"
- "i4371"))
- #("i4371"
- "i4372"))
++ #("i4383"
++ "i4384"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene guile))
(append
- #{c 4357}#
- #{c 4358}#
++ #{c 4370}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4370"
- "i4371"))
- #("i4371"
- "i4372"))
++ #("i4383"
++ "i4384"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4361"))
- #("i4362"))
++ #("i4374"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4346"
- "i4347"
- #("i4347"
-- "i4348"
-- "i4349"
-- "i4350"
- "i4351"))
- "i4351"
- "i4352"))
++ #("i4359"
++ "i4360"
++ "i4361"
++ "i4362"
++ "i4363"
++ "i4364"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4343")))
- #("i4344")))
++ #("i4356")))
(hygiene
guile))
- #{step 4362}#)))))))
- #{tmp 4369}#)
- #{step 4363}#)))))))
- #{tmp 4370}#)
++ #{step 4375}#)))))))
++ #{tmp 4382}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4363}#)))))))
- #{tmp 4360}#)
- #{tmp 4364}#)))))))
- #{tmp 4361}#)
++ #{tmp 4376}#)))))))
++ #{tmp 4373}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4359}#)))))
- #{tmp 4345}#)
- #{tmp 4360}#)))))
- #{tmp 4346}#)
++ #{tmp 4372}#)))))
++ #{tmp 4358}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4344}#)))))))
- #{tmp 4345}#)))))))
++ #{tmp 4357}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 4394}#
- (lambda (#{p 4407}# #{lev 4408}#)
- (let ((#{tmp 4411}# #{p 4407}#))
- (let ((#{tmp 4412}#
- ((#{quasi 4395}#
- (lambda (#{p 4408}# #{lev 4409}#)
- (let ((#{tmp 4412}# #{p 4408}#))
- (let ((#{tmp 4413}#
++ ((#{quasi 4407}#
++ (lambda (#{p 4420}# #{lev 4421}#)
++ (let ((#{tmp 4424}# #{p 4420}#))
++ (let ((#{tmp 4425}#
($sc-dispatch
- #{tmp 4411}#
- #{tmp 4412}#
++ #{tmp 4424}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
any))))
- (if #{tmp 4412}#
- (if #{tmp 4413}#
++ (if #{tmp 4425}#
(@apply
- (lambda (#{p 4414}#)
- (if (= #{lev 4408}# 0)
- (lambda (#{p 4415}#)
- (if (= #{lev 4409}# 0)
++ (lambda (#{p 4427}#)
++ (if (= #{lev 4421}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4413"))
- #(ribcage #(p) #((top)) #("i4414"))
++ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{p 4414}#)
- (#{quasicons 4398}#
- #{p 4415}#)
- (#{quasicons 4399}#
++ #{p 4427}#)
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4413"))
- #(ribcage #(p) #((top)) #("i4414"))
++ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4413"))
- #(ribcage #(p) #((top)) #("i4414"))
++ #(ribcage #(p) #((top)) #("i4426"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- (list #{p 4414}#)
- (#{1-}# #{lev 4408}#)))))
- #{tmp 4412}#)
- (let ((#{tmp 4415}#
- (#{quasi 4395}#
- (list #{p 4415}#)
- (#{1-}# #{lev 4409}#)))))
- #{tmp 4413}#)
- (let ((#{tmp 4416}#
++ (#{quasi 4407}#
++ (list #{p 4427}#)
++ (#{1-}# #{lev 4421}#)))))
++ #{tmp 4425}#)
++ (let ((#{tmp 4428}#
($sc-dispatch
- #{tmp 4411}#
- #{tmp 4412}#
++ #{tmp 4424}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
any))))
- (if #{tmp 4415}#
- (if #{tmp 4416}#
++ (if #{tmp 4428}#
(@apply
- (lambda (#{p 4417}#)
- (#{quasicons 4398}#
- (lambda (#{p 4418}#)
- (#{quasicons 4399}#
++ (lambda (#{p 4430}#)
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4416"))
- #(ribcage #(p) #((top)) #("i4417"))
++ #(ribcage #(p) #((top)) #("i4429"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4416"))
- #(ribcage #(p) #((top)) #("i4417"))
++ #(ribcage #(p) #((top)) #("i4429"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- (list #{p 4417}#)
- (#{1+}# #{lev 4408}#))))
- #{tmp 4415}#)
- (let ((#{tmp 4418}#
- ($sc-dispatch #{tmp 4411}# '(any . any))))
- (if #{tmp 4418}#
- (#{quasi 4395}#
- (list #{p 4418}#)
- (#{1+}# #{lev 4409}#))))
- #{tmp 4416}#)
- (let ((#{tmp 4419}#
- ($sc-dispatch #{tmp 4412}# '(any . any))))
- (if #{tmp 4419}#
++ (#{quasi 4407}#
++ (list #{p 4430}#)
++ (#{1+}# #{lev 4421}#))))
++ #{tmp 4428}#)
++ (let ((#{tmp 4431}#
++ ($sc-dispatch #{tmp 4424}# '(any . any))))
++ (if #{tmp 4431}#
(@apply
- (lambda (#{p 4421}# #{q 4422}#)
- (let ((#{tmp 4423}# #{p 4421}#))
- (let ((#{tmp 4424}#
- (lambda (#{p 4422}# #{q 4423}#)
- (let ((#{tmp 4424}# #{p 4422}#))
- (let ((#{tmp 4425}#
++ (lambda (#{p 4434}# #{q 4435}#)
++ (let ((#{tmp 4436}# #{p 4434}#))
++ (let ((#{tmp 4437}#
($sc-dispatch
- #{tmp 4423}#
- #{tmp 4424}#
++ #{tmp 4436}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4424}#
- (if #{tmp 4425}#
++ (if #{tmp 4437}#
(@apply
- (lambda (#{p 4426}#)
- (if (= #{lev 4408}# 0)
- (#{quasilist* 4402}#
- (map (lambda (#{tmp 4427}#)
- (lambda (#{p 4427}#)
- (if (= #{lev 4409}# 0)
- (#{quasilist* 4403}#
- (map (lambda (#{tmp 4428}#)
++ (lambda (#{p 4439}#)
++ (if (= #{lev 4421}# 0)
++ (#{quasilist* 4415}#
++ (map (lambda (#{tmp 4440}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4425"))
- #("i4426"))
++ #("i4438"))
#(ribcage
#(p q)
#((top) (top))
- #("i4419"
- "i4420"))
- #("i4420"
- "i4421"))
++ #("i4432"
++ "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409"
- "i4410"))
- #("i4410"
- "i4411"))
++ #("i4422"
++ "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{tmp 4427}#))
- #{p 4426}#)
- (#{quasi 4394}#
- #{q 4422}#
- #{lev 4408}#))
- (#{quasicons 4398}#
- (#{quasicons 4398}#
- #{tmp 4428}#))
- #{p 4427}#)
- (#{quasi 4395}#
- #{q 4423}#
- #{lev 4409}#))
- (#{quasicons 4399}#
- (#{quasicons 4399}#
++ #{tmp 4440}#))
++ #{p 4439}#)
++ (#{quasi 4407}#
++ #{q 4435}#
++ #{lev 4421}#))
++ (#{quasicons 4411}#
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4425"))
- #("i4426"))
++ #("i4438"))
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i4425"))
- #("i4426"))
++ #("i4438"))
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- #{p 4426}#
- (#{1-}# #{lev 4408}#)))
- (#{quasi 4394}#
- #{q 4422}#
- #{lev 4408}#))))
- #{tmp 4424}#)
- (let ((#{tmp 4429}#
- (#{quasi 4395}#
- #{p 4427}#
- (#{1-}# #{lev 4409}#)))
- (#{quasi 4395}#
- #{q 4423}#
- #{lev 4409}#))))
- #{tmp 4425}#)
- (let ((#{tmp 4430}#
++ (#{quasi 4407}#
++ #{p 4439}#
++ (#{1-}# #{lev 4421}#)))
++ (#{quasi 4407}#
++ #{q 4435}#
++ #{lev 4421}#))))
++ #{tmp 4437}#)
++ (let ((#{tmp 4442}#
($sc-dispatch
- #{tmp 4423}#
- #{tmp 4424}#
++ #{tmp 4436}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4429}#
- (if #{tmp 4430}#
++ (if #{tmp 4442}#
(@apply
- (lambda (#{p 4431}#)
- (if (= #{lev 4408}# 0)
- (#{quasiappend 4400}#
- (map (lambda (#{tmp 4432}#)
- (lambda (#{p 4432}#)
- (if (= #{lev 4409}# 0)
- (#{quasiappend 4401}#
- (map (lambda (#{tmp 4433}#)
++ (lambda (#{p 4444}#)
++ (if (= #{lev 4421}# 0)
++ (#{quasiappend 4413}#
++ (map (lambda (#{tmp 4445}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4430"))
- #("i4431"))
++ #("i4443"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4419"
- "i4420"))
- #("i4420"
- "i4421"))
++ #("i4432"
++ "i4433"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4409"
- "i4410"))
- #("i4410"
- "i4411"))
++ #("i4422"
++ "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{tmp 4432}#))
- #{p 4431}#)
- (#{quasi 4394}#
- #{q 4422}#
- #{lev 4408}#))
- (#{quasicons 4398}#
- (#{quasicons 4398}#
- #{tmp 4433}#))
- #{p 4432}#)
- (#{quasi 4395}#
- #{q 4423}#
- #{lev 4409}#))
- (#{quasicons 4399}#
- (#{quasicons 4399}#
++ #{tmp 4445}#))
++ #{p 4444}#)
++ (#{quasi 4407}#
++ #{q 4435}#
++ #{lev 4421}#))
++ (#{quasicons 4411}#
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4430"))
- #("i4431"))
++ #("i4443"))
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4430"))
- #("i4431"))
++ #("i4443"))
#(ribcage
#(p q)
#((top) (top))
- #("i4419" "i4420"))
- #("i4420" "i4421"))
++ #("i4432" "i4433"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- #{p 4431}#
- (#{1-}# #{lev 4408}#)))
- (#{quasi 4394}#
- #{q 4422}#
- #{lev 4408}#))))
- #{tmp 4429}#)
- (let ((#{_ 4435}# #{tmp 4423}#))
- (#{quasicons 4398}#
- (#{quasi 4394}#
- #{p 4421}#
- #{lev 4408}#)
- (#{quasi 4394}#
- #{q 4422}#
- #{lev 4408}#)))))))))
- #{tmp 4418}#)
- (let ((#{tmp 4436}#
- (#{quasi 4395}#
- #{p 4432}#
- (#{1-}# #{lev 4409}#)))
- (#{quasi 4395}#
- #{q 4423}#
- #{lev 4409}#))))
- #{tmp 4430}#)
- (let ((#{_ 4436}# #{tmp 4424}#))
- (#{quasicons 4399}#
- (#{quasi 4395}#
- #{p 4422}#
- #{lev 4409}#)
- (#{quasi 4395}#
- #{q 4423}#
- #{lev 4409}#)))))))))
- #{tmp 4419}#)
- (let ((#{tmp 4437}#
++ (#{quasi 4407}#
++ #{p 4444}#
++ (#{1-}# #{lev 4421}#)))
++ (#{quasi 4407}#
++ #{q 4435}#
++ #{lev 4421}#))))
++ #{tmp 4442}#)
++ (let ((#{_ 4448}# #{tmp 4436}#))
++ (#{quasicons 4411}#
++ (#{quasi 4407}#
++ #{p 4434}#
++ #{lev 4421}#)
++ (#{quasi 4407}#
++ #{q 4435}#
++ #{lev 4421}#)))))))))
++ #{tmp 4431}#)
++ (let ((#{tmp 4449}#
($sc-dispatch
- #{tmp 4411}#
- #{tmp 4412}#
++ #{tmp 4424}#
'#(vector each-any))))
- (if #{tmp 4436}#
- (if #{tmp 4437}#
++ (if #{tmp 4449}#
(@apply
- (lambda (#{x 4438}#)
- (#{quasivector 4404}#
- (#{vquasi 4396}# #{x 4438}# #{lev 4408}#)))
- #{tmp 4436}#)
- (let ((#{p 4441}# #{tmp 4411}#))
- (lambda (#{x 4439}#)
- (#{quasivector 4405}#
- (#{vquasi 4397}# #{x 4439}# #{lev 4409}#)))
- #{tmp 4437}#)
- (let ((#{p 4442}# #{tmp 4412}#))
++ (lambda (#{x 4451}#)
++ (#{quasivector 4417}#
++ (#{vquasi 4409}# #{x 4451}# #{lev 4421}#)))
++ #{tmp 4449}#)
++ (let ((#{p 4454}# #{tmp 4424}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4440"))
- #(ribcage #(p) #((top)) #("i4441"))
++ #(ribcage #(p) #((top)) #("i4453"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4409" "i4410"))
- #("i4410" "i4411"))
++ #("i4422" "i4423"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{p 4441}#)))))))))))))
- (#{vquasi 4396}#
- (lambda (#{p 4442}# #{lev 4443}#)
- (let ((#{tmp 4446}# #{p 4442}#))
- (let ((#{tmp 4447}#
- ($sc-dispatch #{tmp 4446}# '(any . any))))
- (if #{tmp 4447}#
- #{p 4442}#)))))))))))))
- (#{vquasi 4397}#
- (lambda (#{p 4443}# #{lev 4444}#)
- (let ((#{tmp 4447}# #{p 4443}#))
- (let ((#{tmp 4448}#
- ($sc-dispatch #{tmp 4447}# '(any . any))))
- (if #{tmp 4448}#
++ #{p 4454}#)))))))))))))
++ (#{vquasi 4409}#
++ (lambda (#{p 4455}# #{lev 4456}#)
++ (let ((#{tmp 4459}# #{p 4455}#))
++ (let ((#{tmp 4460}#
++ ($sc-dispatch #{tmp 4459}# '(any . any))))
++ (if #{tmp 4460}#
(@apply
- (lambda (#{p 4450}# #{q 4451}#)
- (let ((#{tmp 4452}# #{p 4450}#))
- (let ((#{tmp 4453}#
- (lambda (#{p 4451}# #{q 4452}#)
- (let ((#{tmp 4453}# #{p 4451}#))
- (let ((#{tmp 4454}#
++ (lambda (#{p 4463}# #{q 4464}#)
++ (let ((#{tmp 4465}# #{p 4463}#))
++ (let ((#{tmp 4466}#
($sc-dispatch
- #{tmp 4452}#
- #{tmp 4453}#
++ #{tmp 4465}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4453}#
- (if #{tmp 4454}#
++ (if #{tmp 4466}#
(@apply
- (lambda (#{p 4455}#)
- (if (= #{lev 4443}# 0)
- (#{quasilist* 4402}#
- (map (lambda (#{tmp 4456}#)
- (lambda (#{p 4456}#)
- (if (= #{lev 4444}# 0)
- (#{quasilist* 4403}#
- (map (lambda (#{tmp 4457}#)
++ (lambda (#{p 4468}#)
++ (if (= #{lev 4456}# 0)
++ (#{quasilist* 4415}#
++ (map (lambda (#{tmp 4469}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4454"))
- #("i4455"))
++ #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{tmp 4456}#))
- #{p 4455}#)
- (#{vquasi 4396}# #{q 4451}# #{lev 4443}#))
- (#{quasicons 4398}#
- (#{quasicons 4398}#
- #{tmp 4457}#))
- #{p 4456}#)
- (#{vquasi 4397}# #{q 4452}# #{lev 4444}#))
- (#{quasicons 4399}#
- (#{quasicons 4399}#
++ #{tmp 4469}#))
++ #{p 4468}#)
++ (#{vquasi 4409}# #{q 4464}# #{lev 4456}#))
++ (#{quasicons 4411}#
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4454"))
- #(ribcage #(p) #((top)) #("i4455"))
++ #(ribcage #(p) #((top)) #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4454"))
- #(ribcage #(p) #((top)) #("i4455"))
++ #(ribcage #(p) #((top)) #("i4467"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- #{p 4455}#
- (#{1-}# #{lev 4443}#)))
- (#{vquasi 4396}# #{q 4451}# #{lev 4443}#))))
- #{tmp 4453}#)
- (let ((#{tmp 4458}#
- (#{quasi 4395}#
- #{p 4456}#
- (#{1-}# #{lev 4444}#)))
- (#{vquasi 4397}# #{q 4452}# #{lev 4444}#))))
- #{tmp 4454}#)
- (let ((#{tmp 4459}#
++ (#{quasi 4407}#
++ #{p 4468}#
++ (#{1-}# #{lev 4456}#)))
++ (#{vquasi 4409}# #{q 4464}# #{lev 4456}#))))
++ #{tmp 4466}#)
++ (let ((#{tmp 4471}#
($sc-dispatch
- #{tmp 4452}#
- #{tmp 4453}#
++ #{tmp 4465}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4458}#
- (if #{tmp 4459}#
++ (if #{tmp 4471}#
(@apply
- (lambda (#{p 4460}#)
- (if (= #{lev 4443}# 0)
- (#{quasiappend 4400}#
- (map (lambda (#{tmp 4461}#)
- (lambda (#{p 4461}#)
- (if (= #{lev 4444}# 0)
- (#{quasiappend 4401}#
- (map (lambda (#{tmp 4462}#)
++ (lambda (#{p 4473}#)
++ (if (= #{lev 4456}# 0)
++ (#{quasiappend 4413}#
++ (map (lambda (#{tmp 4474}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4459"))
- #("i4460"))
++ #("i4472"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{tmp 4461}#))
- #{p 4460}#)
- (#{vquasi 4396}#
- #{q 4451}#
- #{lev 4443}#))
- (#{quasicons 4398}#
- (#{quasicons 4398}#
- #{tmp 4462}#))
- #{p 4461}#)
- (#{vquasi 4397}#
- #{q 4452}#
- #{lev 4444}#))
- (#{quasicons 4399}#
- (#{quasicons 4399}#
++ #{tmp 4474}#))
++ #{p 4473}#)
++ (#{vquasi 4409}#
++ #{q 4464}#
++ #{lev 4456}#))
++ (#{quasicons 4411}#
++ (#{quasicons 4411}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4459"))
- #("i4460"))
++ #("i4472"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4459"))
- #("i4460"))
++ #("i4472"))
#(ribcage
#(p q)
#((top) (top))
- #("i4448" "i4449"))
- #("i4449" "i4450"))
++ #("i4461" "i4462"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile)))
- (#{quasi 4394}#
- #{p 4460}#
- (#{1-}# #{lev 4443}#)))
- (#{vquasi 4396}#
- #{q 4451}#
- #{lev 4443}#))))
- #{tmp 4458}#)
- (let ((#{_ 4464}# #{tmp 4452}#))
- (#{quasicons 4398}#
- (#{quasi 4394}# #{p 4450}# #{lev 4443}#)
- (#{vquasi 4396}#
- #{q 4451}#
- #{lev 4443}#)))))))))
- #{tmp 4447}#)
- (let ((#{tmp 4465}# ($sc-dispatch #{tmp 4446}# '())))
- (if #{tmp 4465}#
- (#{quasi 4395}#
- #{p 4461}#
- (#{1-}# #{lev 4444}#)))
- (#{vquasi 4397}#
- #{q 4452}#
- #{lev 4444}#))))
- #{tmp 4459}#)
- (let ((#{_ 4465}# #{tmp 4453}#))
- (#{quasicons 4399}#
- (#{quasi 4395}# #{p 4451}# #{lev 4444}#)
- (#{vquasi 4397}#
- #{q 4452}#
- #{lev 4444}#)))))))))
- #{tmp 4448}#)
- (let ((#{tmp 4466}# ($sc-dispatch #{tmp 4447}# '())))
- (if #{tmp 4466}#
++ (#{quasi 4407}#
++ #{p 4473}#
++ (#{1-}# #{lev 4456}#)))
++ (#{vquasi 4409}#
++ #{q 4464}#
++ #{lev 4456}#))))
++ #{tmp 4471}#)
++ (let ((#{_ 4477}# #{tmp 4465}#))
++ (#{quasicons 4411}#
++ (#{quasi 4407}# #{p 4463}# #{lev 4456}#)
++ (#{vquasi 4409}#
++ #{q 4464}#
++ #{lev 4456}#)))))))))
++ #{tmp 4460}#)
++ (let ((#{tmp 4478}# ($sc-dispatch #{tmp 4459}# '())))
++ (if #{tmp 4478}#
(@apply
(lambda ()
'(#(syntax-object
#(ribcage
#(p lev)
#((top) (top))
- #("i4444" "i4445"))
- #("i4445" "i4446"))
++ #("i4457" "i4458"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
()))
- #{tmp 4465}#)
- #{tmp 4466}#)
++ #{tmp 4478}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4446}#))))))))
- (#{quasicons 4398}#
- (lambda (#{x 4466}# #{y 4467}#)
- (let ((#{tmp 4471}# (list #{x 4466}# #{y 4467}#)))
- (let ((#{tmp 4472}#
- ($sc-dispatch #{tmp 4471}# '(any any))))
- (if #{tmp 4472}#
- #{tmp 4447}#))))))))
- (#{quasicons 4399}#
- (lambda (#{x 4467}# #{y 4468}#)
- (let ((#{tmp 4472}# (list #{x 4467}# #{y 4468}#)))
- (let ((#{tmp 4473}#
- ($sc-dispatch #{tmp 4472}# '(any any))))
- (if #{tmp 4473}#
++ #{tmp 4459}#))))))))
++ (#{quasicons 4411}#
++ (lambda (#{x 4479}# #{y 4480}#)
++ (let ((#{tmp 4484}# (list #{x 4479}# #{y 4480}#)))
++ (let ((#{tmp 4485}#
++ ($sc-dispatch #{tmp 4484}# '(any any))))
++ (if #{tmp 4485}#
(@apply
- (lambda (#{x 4475}# #{y 4476}#)
- (let ((#{tmp 4477}# #{y 4476}#))
- (let ((#{tmp 4478}#
- (lambda (#{x 4476}# #{y 4477}#)
- (let ((#{tmp 4478}# #{y 4477}#))
- (let ((#{tmp 4479}#
++ (lambda (#{x 4488}# #{y 4489}#)
++ (let ((#{tmp 4490}# #{y 4489}#))
++ (let ((#{tmp 4491}#
($sc-dispatch
- #{tmp 4477}#
- #{tmp 4478}#
++ #{tmp 4490}#
'(#(atom "quote") any))))
- (if #{tmp 4478}#
- (if #{tmp 4479}#
++ (if #{tmp 4491}#
(@apply
- (lambda (#{dy 4480}#)
- (let ((#{tmp 4481}# #{x 4475}#))
- (let ((#{tmp 4482}#
- (lambda (#{dy 4481}#)
- (let ((#{tmp 4482}# #{x 4476}#))
- (let ((#{tmp 4483}#
++ (lambda (#{dy 4493}#)
++ (let ((#{tmp 4494}# #{x 4488}#))
++ (let ((#{tmp 4495}#
($sc-dispatch
- #{tmp 4481}#
- #{tmp 4482}#
++ #{tmp 4494}#
'(#(atom "quote") any))))
- (if #{tmp 4482}#
- (if #{tmp 4483}#
++ (if #{tmp 4495}#
(@apply
- (lambda (#{dx 4484}#)
- (lambda (#{dx 4485}#)
++ (lambda (#{dx 4497}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4483"))
- #("i4484"))
++ #("i4496"))
#(ribcage
#(dy)
#((top))
- #("i4479"))
- #("i4480"))
++ #("i4492"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- (cons #{dx 4484}# #{dy 4480}#)))
- #{tmp 4482}#)
- (let ((#{_ 4486}# #{tmp 4481}#))
- (if (null? #{dy 4480}#)
- (cons #{dx 4485}# #{dy 4481}#)))
- #{tmp 4483}#)
- (let ((#{_ 4487}# #{tmp 4482}#))
- (if (null? #{dy 4481}#)
++ (cons #{dx 4497}# #{dy 4493}#)))
++ #{tmp 4495}#)
++ (let ((#{_ 4499}# #{tmp 4494}#))
++ (if (null? #{dy 4493}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4485"))
- #("i4486"))
++ #("i4498"))
#(ribcage
#(dy)
#((top))
- #("i4479"))
- #("i4480"))
++ #("i4492"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{x 4475}#)
- #{x 4476}#)
++ #{x 4488}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4485"))
- #("i4486"))
++ #("i4498"))
#(ribcage
#(dy)
#((top))
- #("i4479"))
- #("i4480"))
++ #("i4492"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{x 4475}#
- #{y 4476}#)))))))
- #{tmp 4478}#)
- (let ((#{tmp 4487}#
- #{x 4476}#
- #{y 4477}#)))))))
- #{tmp 4479}#)
- (let ((#{tmp 4488}#
++ #{x 4488}#
++ #{y 4489}#)))))))
++ #{tmp 4491}#)
++ (let ((#{tmp 4500}#
($sc-dispatch
- #{tmp 4477}#
- #{tmp 4478}#
++ #{tmp 4490}#
'(#(atom "list") . any))))
- (if #{tmp 4487}#
- (if #{tmp 4488}#
++ (if #{tmp 4500}#
(@apply
- (lambda (#{stuff 4489}#)
- (lambda (#{stuff 4490}#)
++ (lambda (#{stuff 4502}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4488"))
- #("i4489"))
++ #("i4501"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- (cons #{x 4475}# #{stuff 4489}#)))
- #{tmp 4487}#)
- (let ((#{tmp 4490}#
- (cons #{x 4476}# #{stuff 4490}#)))
- #{tmp 4488}#)
- (let ((#{tmp 4491}#
++ (cons #{x 4488}# #{stuff 4502}#)))
++ #{tmp 4500}#)
++ (let ((#{tmp 4503}#
($sc-dispatch
- #{tmp 4477}#
- #{tmp 4478}#
++ #{tmp 4490}#
'(#(atom "list*") . any))))
- (if #{tmp 4490}#
- (if #{tmp 4491}#
++ (if #{tmp 4503}#
(@apply
- (lambda (#{stuff 4492}#)
- (lambda (#{stuff 4493}#)
++ (lambda (#{stuff 4505}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4491"))
- #("i4492"))
++ #("i4504"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- (cons #{x 4475}# #{stuff 4492}#)))
- #{tmp 4490}#)
- (let ((#{_ 4494}# #{tmp 4477}#))
- (cons #{x 4476}# #{stuff 4493}#)))
- #{tmp 4491}#)
- (let ((#{_ 4495}# #{tmp 4478}#))
++ (cons #{x 4488}# #{stuff 4505}#)))
++ #{tmp 4503}#)
++ (let ((#{_ 4507}# #{tmp 4490}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4493"))
- #("i4494"))
++ #("i4506"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4473" "i4474"))
- #("i4474" "i4475"))
++ #("i4486" "i4487"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4468" "i4469"))
- #("i4469" "i4470"))
++ #("i4481" "i4482"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{x 4475}#
- #{y 4476}#))))))))))
- #{tmp 4472}#)
- #{x 4476}#
- #{y 4477}#))))))))))
- #{tmp 4473}#)
++ #{x 4488}#
++ #{y 4489}#))))))))))
++ #{tmp 4485}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4471}#))))))
- (#{quasiappend 4400}#
- (lambda (#{x 4495}# #{y 4496}#)
- (let ((#{tmp 4499}# #{y 4496}#))
- (let ((#{tmp 4500}#
- ($sc-dispatch #{tmp 4499}# '(#(atom "quote") ()))))
- (if #{tmp 4500}#
- #{tmp 4472}#))))))
- (#{quasiappend 4401}#
- (lambda (#{x 4496}# #{y 4497}#)
- (let ((#{tmp 4500}# #{y 4497}#))
- (let ((#{tmp 4501}#
- ($sc-dispatch #{tmp 4500}# '(#(atom "quote") ()))))
- (if #{tmp 4501}#
++ #{tmp 4484}#))))))
++ (#{quasiappend 4413}#
++ (lambda (#{x 4508}# #{y 4509}#)
++ (let ((#{tmp 4512}# #{y 4509}#))
++ (let ((#{tmp 4513}#
++ ($sc-dispatch #{tmp 4512}# '(#(atom "quote") ()))))
++ (if #{tmp 4513}#
(@apply
(lambda ()
- (if (null? #{x 4495}#)
- (if (null? #{x 4496}#)
++ (if (null? #{x 4508}#)
'(#(syntax-object
"quote"
((top)
#(ribcage
#(x y)
#((top) (top))
- #("i4497" "i4498"))
- #("i4498" "i4499"))
++ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
())
- (if (null? (cdr #{x 4495}#))
- (car #{x 4495}#)
- (let ((#{tmp 4507}# #{x 4495}#))
- (let ((#{tmp 4508}#
- ($sc-dispatch #{tmp 4507}# 'each-any)))
- (if #{tmp 4508}#
- (if (null? (cdr #{x 4496}#))
- (car #{x 4496}#)
- (let ((#{tmp 4508}# #{x 4496}#))
- (let ((#{tmp 4509}#
- ($sc-dispatch #{tmp 4508}# 'each-any)))
- (if #{tmp 4509}#
++ (if (null? (cdr #{x 4508}#))
++ (car #{x 4508}#)
++ (let ((#{tmp 4520}# #{x 4508}#))
++ (let ((#{tmp 4521}#
++ ($sc-dispatch #{tmp 4520}# 'each-any)))
++ (if #{tmp 4521}#
(@apply
- (lambda (#{p 4510}#)
- (lambda (#{p 4511}#)
++ (lambda (#{p 4523}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p)
#((top))
- #("i4509"))
- #("i4510"))
++ #("i4522"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4497" "i4498"))
- #("i4498" "i4499"))
++ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{p 4510}#))
- #{tmp 4508}#)
- #{p 4511}#))
- #{tmp 4509}#)
++ #{p 4523}#))
++ #{tmp 4521}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4507}#)))))))
- #{tmp 4500}#)
- (let ((#{_ 4513}# #{tmp 4499}#))
- (if (null? #{x 4495}#)
- #{y 4496}#
- (let ((#{tmp 4518}# (list #{x 4495}# #{y 4496}#)))
- (let ((#{tmp 4519}#
- ($sc-dispatch #{tmp 4518}# '(each-any any))))
- (if #{tmp 4519}#
- #{tmp 4508}#)))))))
- #{tmp 4501}#)
- (let ((#{_ 4514}# #{tmp 4500}#))
- (if (null? #{x 4496}#)
- #{y 4497}#
- (let ((#{tmp 4519}# (list #{x 4496}# #{y 4497}#)))
- (let ((#{tmp 4520}#
- ($sc-dispatch #{tmp 4519}# '(each-any any))))
- (if #{tmp 4520}#
++ #{tmp 4520}#)))))))
++ #{tmp 4513}#)
++ (let ((#{_ 4526}# #{tmp 4512}#))
++ (if (null? #{x 4508}#)
++ #{y 4509}#
++ (let ((#{tmp 4531}# (list #{x 4508}# #{y 4509}#)))
++ (let ((#{tmp 4532}#
++ ($sc-dispatch #{tmp 4531}# '(each-any any))))
++ (if #{tmp 4532}#
(@apply
- (lambda (#{p 4522}# #{y 4523}#)
- (lambda (#{p 4523}# #{y 4524}#)
++ (lambda (#{p 4535}# #{y 4536}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("i4520" "i4521"))
- #(ribcage #(_) #((top)) #("i4512"))
- #("i4521" "i4522"))
- #(ribcage #(_) #((top)) #("i4513"))
++ #("i4533" "i4534"))
++ #(ribcage #(_) #((top)) #("i4525"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4497" "i4498"))
- #("i4498" "i4499"))
++ #("i4510" "i4511"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- (append #{p 4522}# (list #{y 4523}#))))
- #{tmp 4519}#)
- (append #{p 4523}# (list #{y 4524}#))))
- #{tmp 4520}#)
++ (append #{p 4535}# (list #{y 4536}#))))
++ #{tmp 4532}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4518}#)))))))))))
- (#{quasilist* 4402}#
- (lambda (#{x 4525}# #{y 4526}#)
- #{tmp 4519}#)))))))))))
- (#{quasilist* 4403}#
- (lambda (#{x 4526}# #{y 4527}#)
++ #{tmp 4531}#)))))))))))
++ (#{quasilist* 4415}#
++ (lambda (#{x 4538}# #{y 4539}#)
(letrec*
- ((#{f 4531}#
- (lambda (#{x 4532}#)
- (if (null? #{x 4532}#)
- #{y 4526}#
- (#{quasicons 4398}#
- (car #{x 4532}#)
- (#{f 4531}# (cdr #{x 4532}#)))))))
- (#{f 4531}# #{x 4525}#))))
- (#{quasivector 4404}#
- (lambda (#{x 4533}#)
- (let ((#{tmp 4535}# #{x 4533}#))
- (let ((#{tmp 4536}#
- ((#{f 4532}#
- (lambda (#{x 4533}#)
- (if (null? #{x 4533}#)
- #{y 4527}#
- (#{quasicons 4399}#
- (car #{x 4533}#)
- (#{f 4532}# (cdr #{x 4533}#)))))))
- (begin (#{f 4532}# #{x 4526}#)))))
- (#{quasivector 4405}#
- (lambda (#{x 4534}#)
- (let ((#{tmp 4536}# #{x 4534}#))
- (let ((#{tmp 4537}#
++ ((#{f 4544}#
++ (lambda (#{x 4545}#)
++ (if (null? #{x 4545}#)
++ #{y 4539}#
++ (#{quasicons 4411}#
++ (car #{x 4545}#)
++ (#{f 4544}# (cdr #{x 4545}#)))))))
++ (#{f 4544}# #{x 4538}#))))
++ (#{quasivector 4417}#
++ (lambda (#{x 4546}#)
++ (let ((#{tmp 4548}# #{x 4546}#))
++ (let ((#{tmp 4549}#
($sc-dispatch
- #{tmp 4535}#
- #{tmp 4536}#
++ #{tmp 4548}#
'(#(atom "quote") each-any))))
- (if #{tmp 4536}#
- (if #{tmp 4537}#
++ (if #{tmp 4549}#
(@apply
- (lambda (#{x 4538}#)
- (lambda (#{x 4539}#)
++ (lambda (#{x 4551}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4537"))
- #(ribcage #(x) #((top)) #("i4538"))
++ #(ribcage #(x) #((top)) #("i4550"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4534"))
- #(ribcage #(x) #((top)) #("i4535"))
++ #(ribcage #(x) #((top)) #("i4547"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- (list->vector #{x 4538}#)))
- #{tmp 4536}#)
- (let ((#{_ 4541}# #{tmp 4535}#))
- (list->vector #{x 4539}#)))
- #{tmp 4537}#)
- (let ((#{_ 4542}# #{tmp 4536}#))
++ (list->vector #{x 4551}#)))
++ #{tmp 4549}#)
++ (let ((#{_ 4554}# #{tmp 4548}#))
(letrec*
- ((#{f 4545}#
- (lambda (#{y 4546}# #{k 4547}#)
- (let ((#{tmp 4558}# #{y 4546}#))
- (let ((#{tmp 4559}#
- ((#{f 4546}#
- (lambda (#{y 4547}# #{k 4548}#)
- (let ((#{tmp 4559}# #{y 4547}#))
- (let ((#{tmp 4560}#
++ ((#{f 4558}#
++ (lambda (#{y 4559}# #{k 4560}#)
++ (let ((#{tmp 4571}# #{y 4559}#))
++ (let ((#{tmp 4572}#
($sc-dispatch
- #{tmp 4558}#
- #{tmp 4559}#
++ #{tmp 4571}#
'(#(atom "quote") each-any))))
- (if #{tmp 4559}#
- (if #{tmp 4560}#
++ (if #{tmp 4572}#
(@apply
- (lambda (#{y 4561}#)
- (#{k 4547}#
- (map (lambda (#{tmp 4562}#)
- (lambda (#{y 4562}#)
- (#{k 4548}#
- (map (lambda (#{tmp 4563}#)
++ (lambda (#{y 4574}#)
++ (#{k 4560}#
++ (map (lambda (#{tmp 4575}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4560"))
- #("i4561"))
++ #("i4573"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4542"
- "i4543"
- "i4544"))
- #("i4543"
- "i4544"
- "i4545"))
++ #("i4555"
++ "i4556"
++ "i4557"))
#(ribcage
#(_)
#((top))
- #("i4540"))
- #("i4541"))
++ #("i4553"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4534"))
- #("i4535"))
++ #("i4547"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{tmp 4562}#))
- #{y 4561}#)))
- #{tmp 4559}#)
- (let ((#{tmp 4563}#
- #{tmp 4563}#))
- #{y 4562}#)))
- #{tmp 4560}#)
- (let ((#{tmp 4564}#
++ #{tmp 4575}#))
++ #{y 4574}#)))
++ #{tmp 4572}#)
++ (let ((#{tmp 4576}#
($sc-dispatch
- #{tmp 4558}#
- #{tmp 4559}#
++ #{tmp 4571}#
'(#(atom "list") . each-any))))
- (if #{tmp 4563}#
- (if #{tmp 4564}#
++ (if #{tmp 4576}#
(@apply
- (lambda (#{y 4565}#)
- (#{k 4547}# #{y 4565}#))
- #{tmp 4563}#)
- (let ((#{tmp 4567}#
- (lambda (#{y 4566}#)
- (#{k 4548}# #{y 4566}#))
- #{tmp 4564}#)
- (let ((#{tmp 4568}#
++ (lambda (#{y 4578}#)
++ (#{k 4560}# #{y 4578}#))
++ #{tmp 4576}#)
++ (let ((#{tmp 4580}#
($sc-dispatch
- #{tmp 4558}#
- #{tmp 4559}#
++ #{tmp 4571}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp 4567}#
- (if #{tmp 4568}#
++ (if #{tmp 4580}#
(@apply
- (lambda (#{y 4570}# #{z 4571}#)
- (#{f 4545}#
- #{z 4571}#
- (lambda (#{ls 4572}#)
- (#{k 4547}#
- (lambda (#{y 4571}# #{z 4572}#)
- (#{f 4546}#
- #{z 4572}#
- (lambda (#{ls 4573}#)
- (#{k 4548}#
++ (lambda (#{y 4583}# #{z 4584}#)
++ (#{f 4558}#
++ #{z 4584}#
++ (lambda (#{ls 4585}#)
++ (#{k 4560}#
(append
- #{y 4570}#
- #{ls 4572}#)))))
- #{tmp 4567}#)
- (let ((#{else 4576}# #{tmp 4558}#))
- (let ((#{tmp 4580}# #{x 4533}#))
- (let ((#{ g4577 4582}#
- #{tmp 4580}#))
- #{y 4571}#
- #{ls 4573}#)))))
- #{tmp 4568}#)
- (let ((#{else 4577}# #{tmp 4559}#))
- (let ((#{tmp 4581}# #{x 4534}#))
- (let ((#{ g4578 4583}#
- #{tmp 4581}#))
++ #{y 4583}#
++ #{ls 4585}#)))))
++ #{tmp 4580}#)
++ (let ((#{else 4589}# #{tmp 4571}#))
++ (let ((#{tmp 4593}# #{x 4546}#))
++ (let ((#{ g4590 4595}#
++ #{tmp 4593}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4577}#)
- #((m4578 top))
- #("i4581"))
- #(#{ g4578}#)
- #((m4579 top))
- #("i4582"))
++ #(#{ g4590}#)
++ #((m4591 top))
++ #("i4594"))
#(ribcage
#(else)
#((top))
- #("i4575"))
- #("i4576"))
++ #("i4588"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4542"
- "i4543"
- "i4544"))
- #("i4543"
- "i4544"
- "i4545"))
++ #("i4555"
++ "i4556"
++ "i4557"))
#(ribcage
#(_)
#((top))
- #("i4540"))
- #("i4541"))
++ #("i4553"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4534"))
- #("i4535"))
++ #("i4547"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4577 4582}#))))))))))))))
- (#{f 4545}#
- #{x 4533}#
- (lambda (#{ls 4548}#)
- (let ((#{tmp 4553}# #{ls 4548}#))
- (let ((#{tmp 4554}#
- ($sc-dispatch #{tmp 4553}# 'each-any)))
- (if #{tmp 4554}#
- #{ g4578 4583}#))))))))))))))
- (begin
- (#{f 4546}#
- #{x 4534}#
- (lambda (#{ls 4549}#)
- (let ((#{tmp 4554}# #{ls 4549}#))
- (let ((#{tmp 4555}#
- ($sc-dispatch #{tmp 4554}# 'each-any)))
- (if #{tmp 4555}#
- (@apply
- (lambda (#{ g4551 4557}#)
- (cons '#(syntax-object
- "vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4551}#)
- #((m4552 top))
- #("i4556"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ls)
- #((top))
- #("i4550"))
- #(ribcage
- #(_)
- #((top))
- #("i4541"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4535"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
- (hygiene guile))
- #{ g4551 4557}#))
- #{tmp 4555}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4554}#))))))))))))))
- (#{emit 4407}#
- (lambda (#{x 4584}#)
- (let ((#{tmp 4586}# #{x 4584}#))
- (let ((#{tmp 4587}#
++ #{ g4590 4595}#))))))))))))))
++ (#{f 4558}#
++ #{x 4546}#
++ (lambda (#{ls 4561}#)
++ (let ((#{tmp 4566}# #{ls 4561}#))
++ (let ((#{tmp 4567}#
++ ($sc-dispatch #{tmp 4566}# 'each-any)))
++ (if #{tmp 4567}#
+ (@apply
- (lambda (#{ g4550 4556}#)
++ (lambda (#{ g4563 4569}#)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
- #(#{ g4550}#)
- #((m4551 top))
- #("i4555"))
++ #(#{ g4563}#)
++ #((m4564 top))
++ #("i4568"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ls)
+ #((top))
- #("i4549"))
++ #("i4562"))
+ #(ribcage
+ #(_)
+ #((top))
- #("i4540"))
++ #("i4553"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
- #("i4534"))
++ #("i4547"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
+ (hygiene guile))
- #{ g4550 4556}#))
- #{tmp 4554}#)
++ #{ g4563 4569}#))
++ #{tmp 4567}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4553}#)))))))))))))
- (#{emit 4406}#
- (lambda (#{x 4583}#)
- (let ((#{tmp 4585}# #{x 4583}#))
- (let ((#{tmp 4586}#
++ #{tmp 4566}#)))))))))))))
++ (#{emit 4419}#
++ (lambda (#{x 4596}#)
++ (let ((#{tmp 4598}# #{x 4596}#))
++ (let ((#{tmp 4599}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "quote") any))))
- (if #{tmp 4586}#
- (if #{tmp 4587}#
++ (if #{tmp 4599}#
(@apply
- (lambda (#{x 4588}#)
- (lambda (#{x 4589}#)
++ (lambda (#{x 4601}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4587"))
- #(ribcage #(x) #((top)) #("i4588"))
++ #(ribcage #(x) #((top)) #("i4600"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4584"))
- #(ribcage #(x) #((top)) #("i4585"))
++ #(ribcage #(x) #((top)) #("i4597"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{x 4588}#))
- #{tmp 4586}#)
- (let ((#{tmp 4589}#
- #{x 4589}#))
- #{tmp 4587}#)
- (let ((#{tmp 4590}#
++ #{x 4601}#))
++ #{tmp 4599}#)
++ (let ((#{tmp 4602}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "list") . each-any))))
- (if #{tmp 4589}#
- (if #{tmp 4590}#
++ (if #{tmp 4602}#
(@apply
- (lambda (#{x 4591}#)
- (let ((#{tmp 4595}# (map #{emit 4406}# #{x 4591}#)))
- (let ((#{tmp 4596}#
- ($sc-dispatch #{tmp 4595}# 'each-any)))
- (if #{tmp 4596}#
- (lambda (#{x 4592}#)
- (let ((#{tmp 4596}# (map #{emit 4407}# #{x 4592}#)))
- (let ((#{tmp 4597}#
- ($sc-dispatch #{tmp 4596}# 'each-any)))
- (if #{tmp 4597}#
++ (lambda (#{x 4604}#)
++ (let ((#{tmp 4608}# (map #{emit 4419}# #{x 4604}#)))
++ (let ((#{tmp 4609}#
++ ($sc-dispatch #{tmp 4608}# 'each-any)))
++ (if #{tmp 4609}#
(@apply
- (lambda (#{ g4592 4598}#)
- (lambda (#{ g4593 4599}#)
++ (lambda (#{ g4605 4611}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4592}#)
- #((m4593 top))
- #("i4597"))
- #(#{ g4593}#)
- #((m4594 top))
- #("i4598"))
++ #(#{ g4605}#)
++ #((m4606 top))
++ #("i4610"))
#(ribcage
#(x)
#((top))
- #("i4590"))
- #("i4591"))
++ #("i4603"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4584"))
- #("i4585"))
++ #("i4597"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4592 4598}#))
- #{tmp 4596}#)
- #{ g4593 4599}#))
- #{tmp 4597}#)
++ #{ g4605 4611}#))
++ #{tmp 4609}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4595}#)))))
- #{tmp 4589}#)
- (let ((#{tmp 4601}#
- #{tmp 4596}#)))))
- #{tmp 4590}#)
- (let ((#{tmp 4602}#
++ #{tmp 4608}#)))))
++ #{tmp 4602}#)
++ (let ((#{tmp 4614}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4601}#
- (if #{tmp 4602}#
++ (if #{tmp 4614}#
(@apply
- (lambda (#{x 4604}# #{y 4605}#)
- (lambda (#{x 4605}# #{y 4606}#)
++ (lambda (#{x 4617}# #{y 4618}#)
(letrec*
- ((#{f 4608}#
- (lambda (#{x* 4609}#)
- (if (null? #{x* 4609}#)
- (#{emit 4406}# #{y 4605}#)
- (let ((#{tmp 4615}#
- (list (#{emit 4406}#
- (car #{x* 4609}#))
- (#{f 4608}#
- (cdr #{x* 4609}#)))))
- (let ((#{tmp 4616}#
- ((#{f 4609}#
- (lambda (#{x* 4610}#)
- (if (null? #{x* 4610}#)
- (#{emit 4407}# #{y 4606}#)
- (let ((#{tmp 4616}#
- (list (#{emit 4407}#
- (car #{x* 4610}#))
- (#{f 4609}#
- (cdr #{x* 4610}#)))))
- (let ((#{tmp 4617}#
++ ((#{f 4621}#
++ (lambda (#{x* 4622}#)
++ (if (null? #{x* 4622}#)
++ (#{emit 4419}# #{y 4618}#)
++ (let ((#{tmp 4628}#
++ (list (#{emit 4419}#
++ (car #{x* 4622}#))
++ (#{f 4621}#
++ (cdr #{x* 4622}#)))))
++ (let ((#{tmp 4629}#
($sc-dispatch
- #{tmp 4615}#
- #{tmp 4616}#
++ #{tmp 4628}#
'(any any))))
- (if #{tmp 4616}#
- (if #{tmp 4617}#
++ (if #{tmp 4629}#
(@apply
- (lambda (#{ g4612 4619}#
- #{ g4611 4620}#)
- (lambda (#{ g4613 4620}#
- #{ g4612 4621}#)
++ (lambda (#{ g4625 4632}#
++ #{ g4624 4633}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4612}#
- #{ g4611}#)
- #((m4613 top)
- (m4613 top))
- #("i4617" "i4618"))
- #(#{ g4613}#
- #{ g4612}#)
- #((m4614 top)
- (m4614 top))
- #("i4618" "i4619"))
++ #(#{ g4625}#
++ #{ g4624}#)
++ #((m4626 top)
++ (m4626 top))
++ #("i4630" "i4631"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4606" "i4607"))
- #("i4607" "i4608"))
++ #("i4619" "i4620"))
#(ribcage
#(x y)
#((top) (top))
- #("i4602" "i4603"))
- #("i4603" "i4604"))
++ #("i4615" "i4616"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4584"))
- #("i4585"))
++ #("i4597"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4612 4619}#
- #{ g4611 4620}#))
- #{tmp 4616}#)
- #{ g4613 4620}#
- #{ g4612 4621}#))
- #{tmp 4617}#)
++ #{ g4625 4632}#
++ #{ g4624 4633}#))
++ #{tmp 4629}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4615}#))))))))
- (#{f 4608}# #{x 4604}#)))
- #{tmp 4601}#)
- (let ((#{tmp 4621}#
- #{tmp 4616}#))))))))
- (begin (#{f 4609}# #{x 4605}#))))
- #{tmp 4602}#)
- (let ((#{tmp 4622}#
++ #{tmp 4628}#))))))))
++ (#{f 4621}# #{x 4617}#)))
++ #{tmp 4614}#)
++ (let ((#{tmp 4634}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "append") . each-any))))
- (if #{tmp 4621}#
- (if #{tmp 4622}#
++ (if #{tmp 4634}#
(@apply
- (lambda (#{x 4623}#)
- (let ((#{tmp 4627}#
- (map #{emit 4406}# #{x 4623}#)))
- (let ((#{tmp 4628}#
- (lambda (#{x 4624}#)
- (let ((#{tmp 4628}#
- (map #{emit 4407}# #{x 4624}#)))
- (let ((#{tmp 4629}#
++ (lambda (#{x 4636}#)
++ (let ((#{tmp 4640}#
++ (map #{emit 4419}# #{x 4636}#)))
++ (let ((#{tmp 4641}#
($sc-dispatch
- #{tmp 4627}#
- #{tmp 4628}#
++ #{tmp 4640}#
'each-any)))
- (if #{tmp 4628}#
- (if #{tmp 4629}#
++ (if #{tmp 4641}#
(@apply
- (lambda (#{ g4624 4630}#)
- (lambda (#{ g4625 4631}#)
++ (lambda (#{ g4637 4643}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4624}#)
- #((m4625 top))
- #("i4629"))
- #(#{ g4625}#)
- #((m4626 top))
- #("i4630"))
++ #(#{ g4637}#)
++ #((m4638 top))
++ #("i4642"))
#(ribcage
#(x)
#((top))
- #("i4622"))
- #("i4623"))
++ #("i4635"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4584"))
- #("i4585"))
++ #("i4597"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4624 4630}#))
- #{tmp 4628}#)
- #{ g4625 4631}#))
- #{tmp 4629}#)
++ #{ g4637 4643}#))
++ #{tmp 4641}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4627}#)))))
- #{tmp 4621}#)
- (let ((#{tmp 4633}#
- #{tmp 4628}#)))))
- #{tmp 4622}#)
- (let ((#{tmp 4634}#
++ #{tmp 4640}#)))))
++ #{tmp 4634}#)
++ (let ((#{tmp 4646}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "vector") . each-any))))
- (if #{tmp 4633}#
- (if #{tmp 4634}#
++ (if #{tmp 4646}#
(@apply
- (lambda (#{x 4635}#)
- (let ((#{tmp 4639}#
- (map #{emit 4406}# #{x 4635}#)))
- (let ((#{tmp 4640}#
- (lambda (#{x 4636}#)
- (let ((#{tmp 4640}#
- (map #{emit 4407}# #{x 4636}#)))
- (let ((#{tmp 4641}#
++ (lambda (#{x 4648}#)
++ (let ((#{tmp 4652}#
++ (map #{emit 4419}# #{x 4648}#)))
++ (let ((#{tmp 4653}#
($sc-dispatch
- #{tmp 4639}#
- #{tmp 4640}#
++ #{tmp 4652}#
'each-any)))
- (if #{tmp 4640}#
- (if #{tmp 4641}#
++ (if #{tmp 4653}#
(@apply
- (lambda (#{ g4636 4642}#)
- (lambda (#{ g4637 4643}#)
++ (lambda (#{ g4649 4655}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4636}#)
- #((m4637 top))
- #("i4641"))
- #(#{ g4637}#)
- #((m4638 top))
- #("i4642"))
++ #(#{ g4649}#)
++ #((m4650 top))
++ #("i4654"))
#(ribcage
#(x)
#((top))
- #("i4634"))
- #("i4635"))
++ #("i4647"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4584"))
- #("i4585"))
++ #("i4597"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4636 4642}#))
- #{tmp 4640}#)
- #{ g4637 4643}#))
- #{tmp 4641}#)
++ #{ g4649 4655}#))
++ #{tmp 4653}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4639}#)))))
- #{tmp 4633}#)
- (let ((#{tmp 4645}#
- #{tmp 4640}#)))))
- #{tmp 4634}#)
- (let ((#{tmp 4646}#
++ #{tmp 4652}#)))))
++ #{tmp 4646}#)
++ (let ((#{tmp 4658}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "list->vector") any))))
- (if #{tmp 4645}#
- (if #{tmp 4646}#
++ (if #{tmp 4658}#
(@apply
- (lambda (#{x 4647}#)
- (let ((#{tmp 4651}#
- (#{emit 4406}# #{x 4647}#)))
- (let ((#{ g4648 4653}#
- #{tmp 4651}#))
- (lambda (#{x 4648}#)
- (let ((#{tmp 4652}#
- (#{emit 4407}# #{x 4648}#)))
- (let ((#{ g4649 4654}#
- #{tmp 4652}#))
++ (lambda (#{x 4660}#)
++ (let ((#{tmp 4664}#
++ (#{emit 4419}# #{x 4660}#)))
++ (let ((#{ g4661 4666}#
++ #{tmp 4664}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4648}#)
- #((m4649 top))
- #("i4652"))
- #(#{ g4649}#)
- #((m4650 top))
- #("i4653"))
++ #(#{ g4661}#)
++ #((m4662 top))
++ #("i4665"))
#(ribcage
#(x)
#((top))
- #("i4646"))
- #("i4647"))
++ #("i4659"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4584"))
- #("i4585"))
++ #("i4597"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4405"
- "i4403"
- "i4401"
- "i4399"
- "i4397"
- "i4395"
- "i4393")))
- ("i4406"
- "i4404"
- "i4402"
- "i4400"
- "i4398"
- "i4396"
- "i4394")))
++ ("i4418"
++ "i4416"
++ "i4414"
++ "i4412"
++ "i4410"
++ "i4408"
++ "i4406")))
(hygiene guile))
- #{ g4648 4653}#))))
- #{tmp 4645}#)
- (let ((#{tmp 4654}#
- #{ g4649 4654}#))))
- #{tmp 4646}#)
- (let ((#{tmp 4655}#
++ #{ g4661 4666}#))))
++ #{tmp 4658}#)
++ (let ((#{tmp 4667}#
($sc-dispatch
- #{tmp 4585}#
- #{tmp 4586}#
++ #{tmp 4598}#
'(#(atom "value") any))))
- (if #{tmp 4654}#
- (if #{tmp 4655}#
++ (if #{tmp 4667}#
(@apply
- (lambda (#{x 4656}#) #{x 4656}#)
- #{tmp 4654}#)
- (lambda (#{x 4657}#) #{x 4657}#)
- #{tmp 4655}#)
++ (lambda (#{x 4669}#) #{x 4669}#)
++ #{tmp 4667}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4585}#)))))))))))))))))))
- (lambda (#{x 4657}#)
- (let ((#{tmp 4659}# #{x 4657}#))
- (let ((#{tmp 4660}#
- ($sc-dispatch #{tmp 4659}# '(_ any))))
- (if #{tmp 4660}#
- #{tmp 4586}#)))))))))))))))))))
- (begin
- (lambda (#{x 4658}#)
- (let ((#{tmp 4660}# #{x 4658}#))
- (let ((#{tmp 4661}#
- ($sc-dispatch #{tmp 4660}# '(_ any))))
- (if #{tmp 4661}#
- (@apply
- (lambda (#{e 4663}#)
- (#{emit 4407}# (#{quasi 4395}# #{e 4663}# 0)))
- #{tmp 4661}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4660}#)))))))))
++ #{tmp 4598}#)))))))))))))))))))
++ (lambda (#{x 4670}#)
++ (let ((#{tmp 4672}# #{x 4670}#))
++ (let ((#{tmp 4673}#
++ ($sc-dispatch #{tmp 4672}# '(_ any))))
++ (if #{tmp 4673}#
+ (@apply
- (lambda (#{e 4662}#)
- (#{emit 4406}# (#{quasi 4394}# #{e 4662}# 0)))
- #{tmp 4660}#)
++ (lambda (#{e 4675}#)
++ (#{emit 4419}# (#{quasi 4407}# #{e 4675}# 0)))
++ #{tmp 4673}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4659}#))))))))
++ #{tmp 4672}#))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 4663}#)
- (lambda (#{x 4664}#)
++ (lambda (#{x 4676}#)
(letrec*
- ((#{read-file 4666}#
- (lambda (#{fn 4667}# #{k 4668}#)
- (let ((#{p 4672}# (open-input-file #{fn 4667}#)))
- ((#{read-file 4667}#
- (lambda (#{fn 4668}# #{k 4669}#)
- (begin
- (let ((#{p 4673}# (open-input-file #{fn 4668}#)))
- (letrec*
- ((#{f 4677}#
- (lambda (#{x 4678}# #{result 4679}#)
- (if (eof-object? #{x 4678}#)
- (begin
- (close-input-port #{p 4673}#)
- (reverse #{result 4679}#))
- (#{f 4677}#
- (read #{p 4673}#)
- (cons (datum->syntax #{k 4669}# #{x 4678}#)
- #{result 4679}#))))))
- (begin (#{f 4677}# (read #{p 4673}#) '()))))))))
- (begin
- (let ((#{tmp 4680}# #{x 4664}#))
- (let ((#{tmp 4681}#
- ($sc-dispatch #{tmp 4680}# '(any any))))
- (if #{tmp 4681}#
- (@apply
- (lambda (#{k 4684}# #{filename 4685}#)
- (begin
- (let ((#{fn 4687}# (syntax->datum #{filename 4685}#)))
- (let ((#{tmp 4689}#
- (#{read-file 4667}#
- #{fn 4687}#
- #{filename 4685}#)))
- (let ((#{tmp 4690}#
- ($sc-dispatch #{tmp 4689}# 'each-any)))
- (if #{tmp 4690}#
- (@apply
- (lambda (#{exp 4692}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(exp)
- #((top))
- #("i4691"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(fn)
- #((top))
- #("i4686"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4682" "i4683"))
- #(ribcage
- (read-file)
- ((top))
- ("i4666"))
- #(ribcage
- #(x)
- #((top))
- #("i4665")))
- (hygiene guile))
- #{exp 4692}#))
- #{tmp 4690}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4689}#)))))))
- #{tmp 4681}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4680}#)))))))))
++ ((#{read-file 4679}#
++ (lambda (#{fn 4680}# #{k 4681}#)
++ (let ((#{p 4685}# (open-input-file #{fn 4680}#)))
+ (letrec*
- ((#{f 4676}#
- (lambda (#{x 4677}# #{result 4678}#)
- (if (eof-object? #{x 4677}#)
++ ((#{f 4689}#
++ (lambda (#{x 4690}# #{result 4691}#)
++ (if (eof-object? #{x 4690}#)
+ (begin
- (close-input-port #{p 4672}#)
- (reverse #{result 4678}#))
- (#{f 4676}#
- (read #{p 4672}#)
- (cons (datum->syntax #{k 4668}# #{x 4677}#)
- #{result 4678}#))))))
- (#{f 4676}# (read #{p 4672}#) '()))))))
- (let ((#{tmp 4679}# #{x 4663}#))
- (let ((#{tmp 4680}#
- ($sc-dispatch #{tmp 4679}# '(any any))))
- (if #{tmp 4680}#
++ (close-input-port #{p 4685}#)
++ (reverse #{result 4691}#))
++ (#{f 4689}#
++ (read #{p 4685}#)
++ (cons (datum->syntax #{k 4681}# #{x 4690}#)
++ #{result 4691}#))))))
++ (#{f 4689}# (read #{p 4685}#) '()))))))
++ (let ((#{tmp 4692}# #{x 4676}#))
++ (let ((#{tmp 4693}#
++ ($sc-dispatch #{tmp 4692}# '(any any))))
++ (if #{tmp 4693}#
+ (@apply
- (lambda (#{k 4683}# #{filename 4684}#)
- (let ((#{fn 4686}# (syntax->datum #{filename 4684}#)))
- (let ((#{tmp 4688}#
- (#{read-file 4666}#
- #{fn 4686}#
- #{filename 4684}#)))
- (let ((#{tmp 4689}#
- ($sc-dispatch #{tmp 4688}# 'each-any)))
- (if #{tmp 4689}#
++ (lambda (#{k 4696}# #{filename 4697}#)
++ (let ((#{fn 4699}# (syntax->datum #{filename 4697}#)))
++ (let ((#{tmp 4701}#
++ (#{read-file 4679}#
++ #{fn 4699}#
++ #{filename 4697}#)))
++ (let ((#{tmp 4702}#
++ ($sc-dispatch #{tmp 4701}# 'each-any)))
++ (if #{tmp 4702}#
+ (@apply
- (lambda (#{exp 4691}#)
++ (lambda (#{exp 4704}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i4690"))
++ #(ribcage #(exp) #((top)) #("i4703"))
+ #(ribcage () () ())
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4685"))
++ #(ribcage #(fn) #((top)) #("i4698"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
- #("i4681" "i4682"))
++ #("i4694" "i4695"))
+ #(ribcage
+ (read-file)
+ ((top))
- ("i4665"))
- #(ribcage #(x) #((top)) #("i4664")))
++ ("i4678"))
++ #(ribcage #(x) #((top)) #("i4677")))
+ (hygiene guile))
- #{exp 4691}#))
- #{tmp 4689}#)
++ #{exp 4704}#))
++ #{tmp 4702}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4688}#))))))
- #{tmp 4680}#)
++ #{tmp 4701}#))))))
++ #{tmp 4693}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4679}#))))))))
++ #{tmp 4692}#))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 4693}#)
- (let ((#{tmp 4695}# #{x 4693}#))
- (let ((#{tmp 4696}#
- ($sc-dispatch #{tmp 4695}# '(any any))))
- (if #{tmp 4696}#
- (lambda (#{x 4694}#)
- (let ((#{tmp 4696}# #{x 4694}#))
- (let ((#{tmp 4697}#
- ($sc-dispatch #{tmp 4696}# '(any any))))
- (if #{tmp 4697}#
++ (lambda (#{x 4706}#)
++ (let ((#{tmp 4708}# #{x 4706}#))
++ (let ((#{tmp 4709}#
++ ($sc-dispatch #{tmp 4708}# '(any any))))
++ (if #{tmp 4709}#
(@apply
- (lambda (#{k 4699}# #{filename 4700}#)
- (let ((#{fn 4702}# (syntax->datum #{filename 4700}#)))
- (let ((#{tmp 4704}#
- (lambda (#{k 4700}# #{filename 4701}#)
- (begin
- (let ((#{fn 4703}# (syntax->datum #{filename 4701}#)))
- (let ((#{tmp 4705}#
- (datum->syntax
- #{filename 4701}#
- (begin
- (let ((#{t 4710}#
- (%search-load-path #{fn 4703}#)))
- (if #{t 4710}#
- #{t 4710}#
- (syntax-violation
- 'include-from-path
- "file not found in path"
- #{x 4694}#
- #{filename 4701}#)))))))
- (let ((#{fn 4707}# #{tmp 4705}#))
- (list '#(syntax-object
- include
- ((top)
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4706"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4702"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4698" "i4699"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4695")))
- (hygiene guile))
- #{fn 4707}#))))))
- #{tmp 4697}#)
++ (lambda (#{k 4712}# #{filename 4713}#)
++ (let ((#{fn 4715}# (syntax->datum #{filename 4713}#)))
++ (let ((#{tmp 4717}#
+ (datum->syntax
- #{filename 4700}#
- (let ((#{t 4709}# (%search-load-path #{fn 4702}#)))
- (if #{t 4709}#
- #{t 4709}#
++ #{filename 4713}#
++ (let ((#{t 4722}# (%search-load-path #{fn 4715}#)))
++ (if #{t 4722}#
++ #{t 4722}#
+ (syntax-violation
+ 'include-from-path
+ "file not found in path"
- #{x 4693}#
- #{filename 4700}#))))))
- (let ((#{fn 4706}# #{tmp 4704}#))
++ #{x 4706}#
++ #{filename 4713}#))))))
++ (let ((#{fn 4719}# #{tmp 4717}#))
+ (list '#(syntax-object
+ include
+ ((top)
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4705"))
++ #(ribcage #(fn) #((top)) #("i4718"))
+ #(ribcage () () ())
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4701"))
++ #(ribcage #(fn) #((top)) #("i4714"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
- #("i4697" "i4698"))
++ #("i4710" "i4711"))
+ #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4694")))
++ #(ribcage #(x) #((top)) #("i4707")))
+ (hygiene guile))
- #{fn 4706}#)))))
- #{tmp 4696}#)
++ #{fn 4719}#)))))
++ #{tmp 4709}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4695}#)))))))
- #{tmp 4696}#)))))))
++ #{tmp 4708}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 4711}#)
- (lambda (#{x 4712}#)
++ (lambda (#{x 4724}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 4711}#))))
- #{x 4712}#))))
++ #{x 4724}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 4713}#)
- (lambda (#{x 4714}#)
++ (lambda (#{x 4726}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 4713}#))))
- #{x 4714}#))))
++ #{x 4726}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 4715}#)
- (let ((#{tmp 4717}# #{x 4715}#))
- (let ((#{tmp 4718}#
- (lambda (#{x 4716}#)
- (let ((#{tmp 4718}# #{x 4716}#))
- (let ((#{tmp 4719}#
++ (lambda (#{x 4728}#)
++ (let ((#{tmp 4730}# #{x 4728}#))
++ (let ((#{tmp 4731}#
($sc-dispatch
- #{tmp 4717}#
- #{tmp 4718}#
++ #{tmp 4730}#
'(_ any any . each-any))))
- (if #{tmp 4718}#
- (if #{tmp 4719}#
++ (if #{tmp 4731}#
(@apply
- (lambda (#{e 4722}# #{m1 4723}# #{m2 4724}#)
- (let ((#{tmp 4726}#
- (lambda (#{e 4723}# #{m1 4724}# #{m2 4725}#)
- (let ((#{tmp 4727}#
++ (lambda (#{e 4735}# #{m1 4736}# #{m2 4737}#)
++ (let ((#{tmp 4739}#
(letrec*
- ((#{f 4732}#
- (lambda (#{clause 4733}# #{clauses 4734}#)
- (if (null? #{clauses 4734}#)
- (let ((#{tmp 4736}# #{clause 4733}#))
- (let ((#{tmp 4737}#
- ((#{f 4733}#
- (lambda (#{clause 4734}# #{clauses 4735}#)
- (if (null? #{clauses 4735}#)
- (let ((#{tmp 4737}# #{clause 4734}#))
- (let ((#{tmp 4738}#
++ ((#{f 4745}#
++ (lambda (#{clause 4746}# #{clauses 4747}#)
++ (if (null? #{clauses 4747}#)
++ (let ((#{tmp 4749}# #{clause 4746}#))
++ (let ((#{tmp 4750}#
($sc-dispatch
- #{tmp 4736}#
- #{tmp 4737}#
++ #{tmp 4749}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 4737}#
- (if #{tmp 4738}#
++ (if #{tmp 4750}#
(@apply
- (lambda (#{e1 4740}# #{e2 4741}#)
- (lambda (#{e1 4741}# #{e2 4742}#)
++ (lambda (#{e1 4753}# #{e2 4754}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4738" "i4739"))
- #("i4739" "i4740"))
++ #("i4751" "i4752"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
- (cons #{e1 4740}#
- #{e2 4741}#)))
- #{tmp 4737}#)
- (let ((#{tmp 4743}#
- (cons #{e1 4741}#
- #{e2 4742}#)))
- #{tmp 4738}#)
- (let ((#{tmp 4744}#
++ (cons #{e1 4753}#
++ #{e2 4754}#)))
++ #{tmp 4750}#)
++ (let ((#{tmp 4756}#
($sc-dispatch
- #{tmp 4736}#
- #{tmp 4737}#
++ #{tmp 4749}#
'(each-any any . each-any))))
- (if #{tmp 4743}#
- (if #{tmp 4744}#
++ (if #{tmp 4756}#
(@apply
- (lambda (#{k 4747}#
- #{e1 4748}#
- #{e2 4749}#)
- (lambda (#{k 4748}#
- #{e1 4749}#
- #{e2 4750}#)
++ (lambda (#{k 4760}#
++ #{e1 4761}#
++ #{e2 4762}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4744"
- "i4745"
- "i4746"))
- #("i4745"
- "i4746"
- "i4747"))
++ #("i4757"
++ "i4758"
++ "i4759"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
- #("i4745"
- "i4746"
- "i4747"))
++ #("i4757"
++ "i4758"
++ "i4759"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
- #("i4745"
- "i4746"
- "i4747"))
++ #("i4757"
++ "i4758"
++ "i4759"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
- #("i4745"
- "i4746"
- "i4747"))
++ #("i4757"
++ "i4758"
++ "i4759"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene
guile))
- #{k 4747}#))
- #{k 4748}#))
++ #{k 4760}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4744"
- "i4745"
- "i4746"))
- #("i4745"
- "i4746"
- "i4747"))
++ #("i4757"
++ "i4758"
++ "i4759"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
- (cons #{e1 4748}#
- #{e2 4749}#))))
- #{tmp 4743}#)
- (let ((#{_ 4753}# #{tmp 4736}#))
- (cons #{e1 4749}#
- #{e2 4750}#))))
- #{tmp 4744}#)
- (let ((#{_ 4754}# #{tmp 4737}#))
++ (cons #{e1 4761}#
++ #{e2 4762}#))))
++ #{tmp 4756}#)
++ (let ((#{_ 4766}# #{tmp 4749}#))
(syntax-violation
'case
"bad clause"
- #{x 4715}#
- #{clause 4733}#)))))))
- (let ((#{tmp 4755}#
- (#{f 4732}#
- (car #{clauses 4734}#)
- (cdr #{clauses 4734}#))))
- (let ((#{rest 4757}# #{tmp 4755}#))
- (let ((#{tmp 4758}# #{clause 4733}#))
- (let ((#{tmp 4759}#
- #{x 4716}#
- #{clause 4734}#)))))))
- (let ((#{tmp 4756}#
- (#{f 4733}#
- (car #{clauses 4735}#)
- (cdr #{clauses 4735}#))))
- (let ((#{rest 4758}# #{tmp 4756}#))
- (let ((#{tmp 4759}# #{clause 4734}#))
- (let ((#{tmp 4760}#
++ #{x 4728}#
++ #{clause 4746}#)))))))
++ (let ((#{tmp 4768}#
++ (#{f 4745}#
++ (car #{clauses 4747}#)
++ (cdr #{clauses 4747}#))))
++ (let ((#{rest 4770}# #{tmp 4768}#))
++ (let ((#{tmp 4771}# #{clause 4746}#))
++ (let ((#{tmp 4772}#
($sc-dispatch
- #{tmp 4758}#
- #{tmp 4759}#
++ #{tmp 4771}#
'(each-any any . each-any))))
- (if #{tmp 4759}#
- (if #{tmp 4760}#
++ (if #{tmp 4772}#
(@apply
- (lambda (#{k 4763}#
- #{e1 4764}#
- #{e2 4765}#)
- (lambda (#{k 4764}#
- #{e1 4765}#
- #{e2 4766}#)
++ (lambda (#{k 4776}#
++ #{e1 4777}#
++ #{e2 4778}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4760"
- "i4761"
- "i4762"))
- #("i4761"
- "i4762"
- "i4763"))
++ #("i4773"
++ "i4774"
++ "i4775"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4756"))
- #("i4757"))
++ #("i4769"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4760"
- "i4761"
- "i4762"))
- #("i4761"
- "i4762"
- "i4763"))
++ #("i4773"
++ "i4774"
++ "i4775"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4756"))
- #("i4757"))
++ #("i4769"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4760"
- "i4761"
- "i4762"))
- #("i4761"
- "i4762"
- "i4763"))
++ #("i4773"
++ "i4774"
++ "i4775"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4756"))
- #("i4757"))
++ #("i4769"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4760"
- "i4761"
- "i4762"))
- #("i4761"
- "i4762"
- "i4763"))
++ #("i4773"
++ "i4774"
++ "i4775"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4756"))
- #("i4757"))
++ #("i4769"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene
guile))
- #{k 4763}#))
- #{k 4764}#))
++ #{k 4776}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4760"
- "i4761"
- "i4762"))
- #("i4761"
- "i4762"
- "i4763"))
++ #("i4773"
++ "i4774"
++ "i4775"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4756"))
- #("i4757"))
++ #("i4769"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4729"
- "i4730"
- "i4731"))
- #("i4730"
- "i4731"
- "i4732"))
++ #("i4742"
++ "i4743"
++ "i4744"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4719"
- "i4720"
- "i4721"))
- #("i4720"
- "i4721"
- "i4722"))
++ #("i4732"
++ "i4733"
++ "i4734"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4716")))
- #("i4717")))
++ #("i4729")))
(hygiene guile))
- (cons #{e1 4764}#
- #{e2 4765}#))
- #{rest 4757}#))
- #{tmp 4759}#)
- (let ((#{_ 4769}# #{tmp 4758}#))
- (cons #{e1 4765}#
- #{e2 4766}#))
- #{rest 4758}#))
- #{tmp 4760}#)
- (let ((#{_ 4770}# #{tmp 4759}#))
++ (cons #{e1 4777}#
++ #{e2 4778}#))
++ #{rest 4770}#))
++ #{tmp 4772}#)
++ (let ((#{_ 4782}# #{tmp 4771}#))
(syntax-violation
'case
"bad clause"
- #{x 4715}#
- #{clause 4733}#)))))))))))
- (#{f 4732}# #{m1 4723}# #{m2 4724}#))))
- (let ((#{body 4728}# #{tmp 4726}#))
- #{x 4716}#
- #{clause 4734}#)))))))))))
- (begin (#{f 4733}# #{m1 4724}# #{m2 4725}#)))))
- (let ((#{body 4729}# #{tmp 4727}#))
++ #{x 4728}#
++ #{clause 4746}#)))))))))))
++ (#{f 4745}# #{m1 4736}# #{m2 4737}#))))
++ (let ((#{body 4741}# #{tmp 4739}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4727"))
- #(ribcage #(body) #((top)) #("i4728"))
++ #(ribcage #(body) #((top)) #("i4740"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719" "i4720" "i4721"))
- #("i4720" "i4721" "i4722"))
++ #("i4732" "i4733" "i4734"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4716")))
- #(ribcage #(x) #((top)) #("i4717")))
++ #(ribcage #(x) #((top)) #("i4729")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4727"))
- #("i4728"))
++ #("i4740"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4719" "i4720" "i4721"))
- #("i4720" "i4721" "i4722"))
++ #("i4732" "i4733" "i4734"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4716")))
- #(ribcage #(x) #((top)) #("i4717")))
++ #(ribcage #(x) #((top)) #("i4729")))
(hygiene guile))
- #{e 4722}#))
- #{body 4728}#))))
- #{tmp 4718}#)
- #{e 4723}#))
- #{body 4729}#))))
- #{tmp 4719}#)
++ #{e 4735}#))
++ #{body 4741}#))))
++ #{tmp 4731}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4717}#)))))))
- #{tmp 4718}#)))))))
++ #{tmp 4730}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4770}#)
- (if (procedure? #{proc 4770}#)
- (lambda (#{proc 4771}#)
- (if (procedure? #{proc 4771}#)
- (begin
- (letrec*
- ((#{trans 4774}#
- (lambda (#{x 4775}#) (#{proc 4771}# #{x 4775}#))))
- (begin
- (set-procedure-property!
- #{trans 4774}#
- 'variable-transformer
- #t)
- #{trans 4774}#)))
++ (lambda (#{proc 4783}#)
++ (if (procedure? #{proc 4783}#)
+ (letrec*
- ((#{trans 4773}#
- (lambda (#{x 4774}#) (#{proc 4770}# #{x 4774}#))))
++ ((#{trans 4786}#
++ (lambda (#{x 4787}#) (#{proc 4783}# #{x 4787}#))))
+ (begin
+ (set-procedure-property!
- #{trans 4773}#
++ #{trans 4786}#
+ 'variable-transformer
+ #t)
- #{trans 4773}#))
++ #{trans 4786}#))
(error "variable transformer not a procedure"
- #{proc 4770}#))))
- #{proc 4771}#))))
++ #{proc 4783}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4776}#)
- (let ((#{tmp 4778}# #{x 4776}#))
- (let ((#{tmp 4779}#
- ($sc-dispatch #{tmp 4778}# '(_ any))))
- (if #{tmp 4779}#
- (lambda (#{x 4777}#)
- (let ((#{tmp 4779}# #{x 4777}#))
- (let ((#{tmp 4780}#
- ($sc-dispatch #{tmp 4779}# '(_ any))))
- (if #{tmp 4780}#
++ (lambda (#{x 4789}#)
++ (let ((#{tmp 4791}# #{x 4789}#))
++ (let ((#{tmp 4792}#
++ ($sc-dispatch #{tmp 4791}# '(_ any))))
++ (if #{tmp 4792}#
(@apply
- (lambda (#{e 4781}#)
- (lambda (#{e 4782}#)
++ (lambda (#{e 4794}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- #{e 4781}#))
- #{e 4782}#))
++ #{e 4794}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4780"))
- #(ribcage #(e) #((top)) #("i4781"))
++ #(ribcage #(e) #((top)) #("i4793"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- (cons #{e 4781}#
- (cons #{e 4782}#
++ (cons #{e 4794}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4780"))
- #("i4781"))
++ #("i4793"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("i4780"))
- #("i4781"))
++ #("i4793"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile)))))))))
- #{tmp 4779}#)
- (let ((#{tmp 4782}#
- #{tmp 4780}#)
- (let ((#{tmp 4783}#
++ #{tmp 4792}#)
++ (let ((#{tmp 4795}#
($sc-dispatch
- #{tmp 4778}#
- #{tmp 4779}#
++ #{tmp 4791}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 4782}#
- (if (if #{tmp 4783}#
++ (if (if #{tmp 4795}#
(@apply
- (lambda (#{id 4788}#
- #{exp1 4789}#
- #{var 4790}#
- #{val 4791}#
- #{exp2 4792}#)
- (if (identifier? #{id 4788}#)
- (identifier? #{var 4790}#)
- (lambda (#{id 4789}#
- #{exp1 4790}#
- #{var 4791}#
- #{val 4792}#
- #{exp2 4793}#)
- (if (identifier? #{id 4789}#)
- (identifier? #{var 4791}#)
++ (lambda (#{id 4801}#
++ #{exp1 4802}#
++ #{var 4803}#
++ #{val 4804}#
++ #{exp2 4805}#)
++ (if (identifier? #{id 4801}#)
++ (identifier? #{var 4803}#)
#f))
- #{tmp 4782}#)
- #{tmp 4783}#)
++ #{tmp 4795}#)
#f)
(@apply
- (lambda (#{id 4800}#
- #{exp1 4801}#
- #{var 4802}#
- #{val 4803}#
- #{exp2 4804}#)
- (lambda (#{id 4801}#
- #{exp1 4802}#
- #{var 4803}#
- #{val 4804}#
- #{exp2 4805}#)
++ (lambda (#{id 4813}#
++ #{exp1 4814}#
++ #{var 4815}#
++ #{val 4816}#
++ #{exp2 4817}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795" "i4796" "i4797" "i4798" "i4799"))
- #("i4796" "i4797" "i4798" "i4799" "i4800"))
++ #("i4808" "i4809" "i4810" "i4811" "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4777")))
- #(ribcage #(x) #((top)) #("i4778")))
++ #(ribcage #(x) #((top)) #("i4790")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- #{var 4802}#
- #{val 4803}#)
- #{var 4803}#
- #{val 4804}#)
++ #{var 4815}#
++ #{val 4816}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- #{exp2 4804}#))
- (list (cons #{id 4800}#
- #{exp2 4805}#))
- (list (cons #{id 4801}#
++ #{exp2 4817}#))
++ (list (cons #{id 4813}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- (cons #{exp1 4801}#
- (cons #{exp1 4802}#
++ (cons #{exp1 4814}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene
guile))))))
- (list #{id 4800}#
- (list #{id 4801}#
++ (list #{id 4813}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- #{id 4800}#))
- #{id 4801}#))
++ #{id 4813}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4795"
- "i4796"
- #("i4796"
-- "i4797"
-- "i4798"
- "i4799"))
- "i4799"
- "i4800"))
++ #("i4808"
++ "i4809"
++ "i4810"
++ "i4811"
++ "i4812"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4777")))
- #("i4778")))
++ #("i4790")))
(hygiene guile))
- #{exp1 4801}#))))))
- #{tmp 4782}#)
- #{exp1 4802}#))))))
- #{tmp 4783}#)
++ #{exp1 4814}#))))))
++ #{tmp 4795}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4778}#)))))))))
- #{tmp 4779}#)))))))))
++ #{tmp 4791}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4805}#)
- (let ((#{tmp 4807}# #{x 4805}#))
- (let ((#{tmp 4808}#
- (lambda (#{x 4806}#)
- (let ((#{tmp 4808}# #{x 4806}#))
- (let ((#{tmp 4809}#
++ (lambda (#{x 4818}#)
++ (let ((#{tmp 4820}# #{x 4818}#))
++ (let ((#{tmp 4821}#
($sc-dispatch
- #{tmp 4807}#
- #{tmp 4808}#
++ #{tmp 4820}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4808}#
- (if #{tmp 4809}#
++ (if #{tmp 4821}#
(@apply
- (lambda (#{id 4813}#
- #{args 4814}#
- #{b0 4815}#
- #{b1 4816}#)
- (lambda (#{id 4814}#
- #{args 4815}#
- #{b0 4816}#
- #{b1 4817}#)
++ (lambda (#{id 4826}#
++ #{args 4827}#
++ #{b0 4828}#
++ #{b1 4829}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4809" "i4810" "i4811" "i4812"))
- #("i4810" "i4811" "i4812" "i4813"))
++ #("i4822" "i4823" "i4824" "i4825"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4806")))
- #(ribcage #(x) #((top)) #("i4807")))
++ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
- #{id 4813}#
- #{id 4814}#
++ #{id 4826}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4809" "i4810" "i4811" "i4812"))
- #("i4810" "i4811" "i4812" "i4813"))
++ #("i4822" "i4823" "i4824" "i4825"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4806")))
- #(ribcage #(x) #((top)) #("i4807")))
++ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
- (cons #{args 4814}#
- (cons #{b0 4815}# #{b1 4816}#)))))
- #{tmp 4808}#)
- (let ((#{tmp 4818}#
- ($sc-dispatch #{tmp 4807}# '(_ any any))))
- (if (if #{tmp 4818}#
- (cons #{args 4815}#
- (cons #{b0 4816}# #{b1 4817}#)))))
- #{tmp 4809}#)
- (let ((#{tmp 4819}#
- ($sc-dispatch #{tmp 4808}# '(_ any any))))
- (if (if #{tmp 4819}#
++ (cons #{args 4827}#
++ (cons #{b0 4828}# #{b1 4829}#)))))
++ #{tmp 4821}#)
++ (let ((#{tmp 4831}#
++ ($sc-dispatch #{tmp 4820}# '(_ any any))))
++ (if (if #{tmp 4831}#
(@apply
- (lambda (#{id 4821}# #{val 4822}#)
- (lambda (#{id 4822}# #{val 4823}#)
++ (lambda (#{id 4834}# #{val 4835}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("i4819" "i4820"))
- #("i4820" "i4821"))
++ #("i4832" "i4833"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4806")))
- #(ribcage #(x) #((top)) #("i4807")))
++ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))))
- #{tmp 4818}#)
- #{tmp 4819}#)
++ #{tmp 4831}#)
#f)
(@apply
- (lambda (#{id 4825}# #{val 4826}#)
- (lambda (#{id 4826}# #{val 4827}#)
++ (lambda (#{id 4838}# #{val 4839}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4823" "i4824"))
- #("i4824" "i4825"))
++ #("i4836" "i4837"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4806")))
- #(ribcage #(x) #((top)) #("i4807")))
++ #(ribcage #(x) #((top)) #("i4819")))
(hygiene guile))
- #{id 4825}#
- #{val 4826}#))
- #{tmp 4818}#)
- #{id 4826}#
- #{val 4827}#))
- #{tmp 4819}#)
++ #{id 4838}#
++ #{val 4839}#))
++ #{tmp 4831}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4807}#)))))))))
- #{tmp 4808}#)))))))))
++ #{tmp 4820}#)))))))))
HCoop / bpt / guile.git / commitdiff