(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1608}#))))))
- (if (eqv? #{type 1595}# 'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#
- (lambda (#{body 1617}#
- #{r 1618}#
- #{w 1619}#
- #{s 1620}#
- #{mod 1621}#)
- (#{scan 1569}#
- #{body 1617}#
- #{r 1618}#
- #{w 1619}#
- #{s 1620}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1621}#
- #{exps 1577}#)))
- (if (eqv? #{type 1595}# 'eval-when-form)
- (let ((#{tmp 1628}# #{e 1597}#))
- (let ((#{tmp 1629}#
+ #{tmp 1626}#))))))
+ (if (memv #{type 1613}# '(local-syntax-form))
+ (#{chi-local-syntax 433}#
+ #{value 1614}#
+ #{e 1615}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ #{mod 1618}#
+ (lambda (#{body 1635}#
+ #{r 1636}#
+ #{w 1637}#
+ #{s 1638}#
+ #{mod 1639}#)
+ (#{scan 1587}#
+ #{body 1635}#
+ #{r 1636}#
+ #{w 1637}#
+ #{s 1638}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1639}#
+ #{exps 1595}#)))
+ (if (memv #{type 1613}# '(eval-when-form))
+ (let ((#{tmp 1646}# #{e 1615}#))
+ (let ((#{tmp 1647}#
($sc-dispatch
- #{tmp 1628}#
+ #{tmp 1646}#
'(_ each-any any . each-any))))
- (if #{tmp 1629}#
+ (if #{tmp 1647}#
(@apply
- (lambda (#{x 1633}#
- #{e1 1634}#
- #{e2 1635}#)
- (begin
- (let ((#{when-list 1638}#
- (#{chi-when-list 415}#
- #{e 1597}#
- #{x 1633}#
- #{w 1598}#))
- (#{body 1639}#
- (cons #{e1 1634}#
- #{e2 1635}#)))
- (if (eq? #{m 1574}# 'e)
- (if (memq 'eval
- #{when-list 1638}#)
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- (if (memq 'expand
- #{when-list 1638}#)
- 'c&e
- 'e)
- '(eval)
- #{mod 1600}#
- #{exps 1577}#)
+ (lambda (#{x 1651}#
+ #{e1 1652}#
+ #{e2 1653}#)
+ (let ((#{when-list 1656}#
+ (#{chi-when-list 419}#
+ #{e 1615}#
+ #{x 1651}#
+ #{w 1616}#))
+ (#{body 1657}#
+ (cons #{e1 1652}#
+ #{e2 1653}#)))
+ (if (eq? #{m 1592}# 'e)
+ (if (memq 'eval #{when-list 1656}#)
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ (if (memq 'expand
+ #{when-list 1656}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod 1618}#
+ #{exps 1595}#)
+ (begin
+ (if (memq 'expand
+ #{when-list 1656}#)
+ (#{top-level-eval-hook 252}#
+ (#{chi-top-sequence 415}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ 'e
+ '(eval)
+ #{mod 1618}#)
+ #{mod 1618}#))
- #{exps 1595}#))
++ (values #{exps 1595}#)))
+ (if (memq 'load #{when-list 1656}#)
+ (if (let ((#{t 1666}#
+ (memq 'compile
+ #{when-list 1656}#)))
+ (if #{t 1666}#
+ #{t 1666}#
+ (let ((#{t 1669}#
+ (memq 'expand
+ #{when-list 1656}#)))
+ (if #{t 1669}#
+ #{t 1669}#
+ (if (eq? #{m 1592}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 1656}#)
+ #f)))))
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ 'c&e
+ '(compile load)
+ #{mod 1618}#
+ #{exps 1595}#)
+ (if (memq #{m 1592}# '(c c&e))
+ (#{scan 1587}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ 'c
+ '(load)
+ #{mod 1618}#
+ #{exps 1595}#)
- #{exps 1595}#))
++ (values #{exps 1595}#)))
+ (if (let ((#{t 1677}#
+ (memq 'compile
+ #{when-list 1656}#)))
+ (if #{t 1677}#
+ #{t 1677}#
+ (let ((#{t 1680}#
+ (memq 'expand
+ #{when-list 1656}#)))
+ (if #{t 1680}#
+ #{t 1680}#
+ (if (eq? #{m 1592}#
+ 'c&e)
+ (memq 'eval
+ #{when-list 1656}#)
+ #f)))))
(begin
- (if (memq 'expand
- #{when-list 1638}#)
- (#{top-level-eval-hook 250}#
- (#{chi-top-sequence 411}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- 'e
- '(eval)
- #{mod 1600}#)
- #{mod 1600}#))
- #{exps 1577}#))
- (if (memq 'load
- #{when-list 1638}#)
- (if (begin
- (let ((#{t 1648}#
- (memq 'compile
- #{when-list 1638}#)))
- (if #{t 1648}#
- #{t 1648}#
- (begin
- (let ((#{t 1651}#
- (memq 'expand
- #{when-list 1638}#)))
- (if #{t 1651}#
- #{t 1651}#
- (if (eq? #{m 1574}#
- 'c&e)
- (memq 'eval
- #{when-list 1638}#)
- #f)))))))
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- 'c&e
- '(compile load)
- #{mod 1600}#
- #{exps 1577}#)
- (if (if (eq? #{m 1574}# 'c)
- #t
- (eq? #{m 1574}# 'c&e))
- (#{scan 1569}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- 'c
- '(load)
- #{mod 1600}#
- #{exps 1577}#)
- #{exps 1577}#))
- (if (begin
- (let ((#{t 1659}#
- (memq 'compile
- #{when-list 1638}#)))
- (if #{t 1659}#
- #{t 1659}#
- (begin
- (let ((#{t 1662}#
- (memq 'expand
- #{when-list 1638}#)))
- (if #{t 1662}#
- #{t 1662}#
- (if (eq? #{m 1574}#
- 'c&e)
- (memq 'eval
- #{when-list 1638}#)
- #f)))))))
- (begin
- (#{top-level-eval-hook 250}#
- (#{chi-top-sequence 411}#
- #{body 1639}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- 'e
- '(eval)
- #{mod 1600}#)
- #{mod 1600}#)
- #{exps 1577}#)
- #{exps 1577}#))))))
- #{tmp 1629}#)
+ (#{top-level-eval-hook 252}#
+ (#{chi-top-sequence 415}#
+ #{body 1657}#
+ #{r 1589}#
+ #{w 1616}#
+ #{s 1617}#
+ 'e
+ '(eval)
+ #{mod 1618}#)
+ #{mod 1618}#)
- #{exps 1595}#)
- #{exps 1595}#)))))
++ (values #{exps 1595}#))
++ (values #{exps 1595}#))))))
+ #{tmp 1647}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 1628}#))))
- (if (eqv? #{type 1595}# 'define-syntax-form)
- (begin
- (let ((#{n 1670}#
- (#{id-var-name 393}#
- #{value 1596}#
- #{w 1598}#))
- (#{r 1671}#
- (#{macros-only-env 331}#
- #{r 1571}#)))
- (if (eqv? #{m 1574}# 'c)
- (if (memq 'compile #{esew 1575}#)
+ #{tmp 1646}#))))
+ (if (memv #{type 1613}# '(define-syntax-form))
+ (let ((#{n 1688}#
+ (#{id-var-name 397}#
+ #{value 1614}#
+ #{w 1616}#))
+ (#{r 1689}#
+ (#{macros-only-env 335}# #{r 1589}#)))
+ (if (memv #{m 1592}# '(c))
+ (if (memq 'compile #{esew 1593}#)
+ (let ((#{e 1692}#
+ (#{chi-install-global 417}#
+ #{n 1688}#
+ (#{chi 423}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))))
(begin
- (let ((#{e 1674}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))))
- (begin
- (#{top-level-eval-hook 250}#
- #{e 1674}#
- #{mod 1600}#)
- (if (memq 'load #{esew 1575}#)
- (cons #{e 1674}# #{exps 1577}#)
- #{exps 1577}#))))
- (if (memq 'load #{esew 1575}#)
- (cons (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))
- #{exps 1577}#)
- #{exps 1577}#))
- (if (eqv? #{m 1574}# 'c&e)
+ (#{top-level-eval-hook 252}#
+ #{e 1692}#
+ #{mod 1618}#)
+ (if (memq 'load #{esew 1593}#)
- (cons #{e 1692}# #{exps 1595}#)
- #{exps 1595}#)))
++ (values
++ (cons #{e 1692}# #{exps 1595}#))
++ (values #{exps 1595}#))))
+ (if (memq 'load #{esew 1593}#)
- (cons (#{chi-install-global 417}#
- #{n 1688}#
- (#{chi 423}#
- #{e 1615}#
- #{r 1689}#
- #{w 1616}#
- #{mod 1618}#))
- #{exps 1595}#)
- #{exps 1595}#))
++ (values
++ (cons (#{chi-install-global 417}#
++ #{n 1688}#
++ (#{chi 423}#
++ #{e 1615}#
++ #{r 1689}#
++ #{w 1616}#
++ #{mod 1618}#))
++ #{exps 1595}#))
++ (values #{exps 1595}#)))
+ (if (memv #{m 1592}# '(c&e))
+ (let ((#{e 1695}#
+ (#{chi-install-global 417}#
+ #{n 1688}#
+ (#{chi 423}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))))
(begin
- (let ((#{e 1677}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))))
- (begin
- (#{top-level-eval-hook 250}#
- #{e 1677}#
- #{mod 1600}#)
- (cons #{e 1677}#
- #{exps 1577}#))))
- (begin
- (if (memq 'eval #{esew 1575}#)
- (#{top-level-eval-hook 250}#
- (#{chi-install-global 413}#
- #{n 1670}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1671}#
- #{w 1598}#
- #{mod 1600}#))
- #{mod 1600}#))
- #{exps 1577}#)))))
- (if (eqv? #{type 1595}# 'define-form)
- (begin
- (let ((#{n 1682}#
- (#{id-var-name 393}#
- #{value 1596}#
- #{w 1598}#)))
+ (#{top-level-eval-hook 252}#
+ #{e 1695}#
+ #{mod 1618}#)
- (cons #{e 1695}# #{exps 1595}#)))
++ (values
++ (cons #{e 1695}# #{exps 1595}#))))
(begin
- (let ((#{type 1684}#
- (car (#{lookup 333}#
- #{n 1682}#
- #{r 1571}#
- #{mod 1600}#))))
- (if (if (eqv? #{type 1684}# 'global)
- #t
- (if (eqv? #{type 1684}# 'core)
- #t
- (if (eqv? #{type 1684}#
- 'macro)
- #t
- (eqv? #{type 1684}#
- 'module-ref))))
- (begin
- (if (if (if (eq? #{m 1574}# 'c)
- #t
- (eq? #{m 1574}# 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n 1682}#))
+ (if (memq 'eval #{esew 1593}#)
+ (#{top-level-eval-hook 252}#
+ (#{chi-install-global 417}#
+ #{n 1688}#
+ (#{chi 423}#
+ #{e 1615}#
+ #{r 1689}#
+ #{w 1616}#
+ #{mod 1618}#))
+ #{mod 1618}#))
- #{exps 1595}#))))
++ (values #{exps 1595}#)))))
+ (if (memv #{type 1613}# '(define-form))
+ (let ((#{n 1700}#
+ (#{id-var-name 397}#
+ #{value 1614}#
+ #{w 1616}#)))
+ (let ((#{type 1702}#
+ (car (#{lookup 337}#
+ #{n 1700}#
+ #{r 1589}#
+ #{mod 1618}#))))
+ (if (memv #{type 1702}#
+ '(global
+ core
+ macro
+ module-ref))
+ (begin
+ (if (if (memq #{m 1592}# '(c c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n 1700}#))
+ (current-module)
+ #f)
+ #f)
+ (let ((#{old 1709}#
+ (module-variable
(current-module)
- #f)
+ #{n 1700}#)))
+ (if (if (variable? #{old 1709}#)
+ (variable-bound?
+ #{old 1709}#)
#f)
- (begin
- (let ((#{old 1691}#
- (module-variable
- (current-module)
- #{n 1682}#)))
- (if (if (variable?
- #{old 1691}#)
- (variable-bound?
- #{old 1691}#)
- #f)
- (module-define!
- (current-module)
- #{n 1682}#
- (variable-ref
- #{old 1691}#))
- (module-add!
- (current-module)
- #{n 1682}#
- (make-undefined-variable))))))
- (cons (if (eq? #{m 1574}# 'c&e)
+ (module-define!
+ (current-module)
+ #{n 1700}#
+ (variable-ref #{old 1709}#))
+ (module-add!
+ (current-module)
+ #{n 1700}#
+ (make-undefined-variable)))))
- (cons (if (eq? #{m 1592}# 'c&e)
- (let ((#{x 1713}#
- (#{build-global-definition 283}#
- #{s 1617}#
- #{n 1700}#
- (#{chi 423}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{mod 1618}#))))
- (begin
- (#{top-level-eval-hook 252}#
- #{x 1713}#
- #{mod 1618}#)
- #{x 1713}#))
- (lambda ()
- (#{build-global-definition 283}#
- #{s 1617}#
- #{n 1700}#
- (#{chi 423}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{mod 1618}#))))
- #{exps 1595}#))
++ (values
++ (cons (if (eq? #{m 1592}# 'c&e)
++ (let ((#{x 1713}#
++ (#{build-global-definition 283}#
++ #{s 1617}#
++ #{n 1700}#
++ (#{chi 423}#
++ #{e 1615}#
++ #{r 1589}#
++ #{w 1616}#
++ #{mod 1618}#))))
+ (begin
- (let ((#{x 1695}#
- (#{build-global-definition 281}#
- #{s 1599}#
- #{n 1682}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{mod 1600}#))))
- (begin
- (#{top-level-eval-hook 250}#
- #{x 1695}#
- #{mod 1600}#)
- #{x 1695}#)))
- (lambda ()
- (#{build-global-definition 281}#
- #{s 1599}#
- #{n 1682}#
- (#{chi 419}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{mod 1600}#))))
- #{exps 1577}#))
- (if (eqv? #{type 1684}#
- 'displaced-lexical)
- (syntax-violation
- #f
- "identifier out of context"
- #{e 1597}#
- (#{wrap 405}#
- #{value 1596}#
- #{w 1598}#
- #{mod 1600}#))
- (syntax-violation
- #f
- "cannot define keyword at top level"
- #{e 1597}#
- (#{wrap 405}#
- #{value 1596}#
- #{w 1598}#
- #{mod 1600}#))))))))
- (cons (if (eq? #{m 1574}# 'c&e)
- (begin
- (let ((#{x 1700}#
- (#{chi-expr 421}#
- #{type 1595}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#)))
++ (#{top-level-eval-hook 252}#
++ #{x 1713}#
++ #{mod 1618}#)
++ #{x 1713}#))
++ (lambda ()
++ (#{build-global-definition 283}#
++ #{s 1617}#
++ #{n 1700}#
++ (#{chi 423}#
++ #{e 1615}#
++ #{r 1589}#
++ #{w 1616}#
++ #{mod 1618}#))))
++ #{exps 1595}#)))
+ (if (memv #{type 1702}#
+ '(displaced-lexical))
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e 1615}#
+ (#{wrap 409}#
+ #{value 1614}#
+ #{w 1616}#
+ #{mod 1618}#))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e 1615}#
+ (#{wrap 409}#
+ #{value 1614}#
+ #{w 1616}#
+ #{mod 1618}#))))))
- (cons (if (eq? #{m 1592}# 'c&e)
- (let ((#{x 1718}#
- (#{chi-expr 425}#
- #{type 1613}#
- #{value 1614}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#)))
- (begin
- (#{top-level-eval-hook 252}#
- #{x 1718}#
- #{mod 1618}#)
- #{x 1718}#))
- (lambda ()
- (#{chi-expr 425}#
- #{type 1613}#
- #{value 1614}#
- #{e 1615}#
- #{r 1589}#
- #{w 1616}#
- #{s 1617}#
- #{mod 1618}#)))
- #{exps 1595}#)))))))))
++ (values
++ (cons (if (eq? #{m 1592}# 'c&e)
++ (let ((#{x 1718}#
++ (#{chi-expr 425}#
++ #{type 1613}#
++ #{value 1614}#
++ #{e 1615}#
++ #{r 1589}#
++ #{w 1616}#
++ #{s 1617}#
++ #{mod 1618}#)))
+ (begin
- (#{top-level-eval-hook 250}#
- #{x 1700}#
- #{mod 1600}#)
- #{x 1700}#)))
- (lambda ()
- (#{chi-expr 421}#
- #{type 1595}#
- #{value 1596}#
- #{e 1597}#
- #{r 1571}#
- #{w 1598}#
- #{s 1599}#
- #{mod 1600}#)))
- #{exps 1577}#)))))))))
- (lambda (#{exps 1701}#)
- (#{scan 1569}#
- (cdr #{body 1570}#)
- #{r 1571}#
- #{w 1572}#
- #{s 1573}#
- #{m 1574}#
- #{esew 1575}#
- #{mod 1576}#
- #{exps 1701}#)))))))
- (begin
- (call-with-values
- (lambda ()
- (#{scan 1569}#
- #{body 1554}#
- #{r 1555}#
- #{w 1556}#
- #{s 1557}#
- #{m 1558}#
- #{esew 1559}#
- #{mod 1560}#
- '()))
- (lambda (#{exps 1703}#)
- (if (null? #{exps 1703}#)
- (#{build-void 263}# #{s 1557}#)
- (#{build-sequence 293}#
- #{s 1557}#
- (letrec*
- ((#{lp 1708}#
- (lambda (#{in 1709}# #{out 1710}#)
- (if (null? #{in 1709}#)
- #{out 1710}#
- (begin
- (let ((#{e 1712}# (car #{in 1709}#)))
- (#{lp 1708}#
- (cdr #{in 1709}#)
- (cons (if (procedure? #{e 1712}#)
- (#{e 1712}#)
- #{e 1712}#)
- #{out 1710}#))))))))
- (begin (#{lp 1708}# #{exps 1703}# '())))))))))))
- (#{chi-install-global 413}#
- (lambda (#{name 1713}# #{e 1714}#)
- (#{build-global-definition 281}#
++ (#{top-level-eval-hook 252}#
++ #{x 1718}#
++ #{mod 1618}#)
++ #{x 1718}#))
++ (lambda ()
++ (#{chi-expr 425}#
++ #{type 1613}#
++ #{value 1614}#
++ #{e 1615}#
++ #{r 1589}#
++ #{w 1616}#
++ #{s 1617}#
++ #{mod 1618}#)))
++ #{exps 1595}#))))))))))
+ (lambda (#{exps 1719}#)
+ (#{scan 1587}#
+ (cdr #{body 1588}#)
+ #{r 1589}#
+ #{w 1590}#
+ #{s 1591}#
+ #{m 1592}#
+ #{esew 1593}#
+ #{mod 1594}#
+ #{exps 1719}#)))))))
+ (call-with-values
+ (lambda ()
+ (#{scan 1587}#
+ #{body 1572}#
+ #{r 1573}#
+ #{w 1574}#
+ #{s 1575}#
+ #{m 1576}#
+ #{esew 1577}#
+ #{mod 1578}#
+ '()))
+ (lambda (#{exps 1721}#)
+ (if (null? #{exps 1721}#)
+ (#{build-void 265}# #{s 1575}#)
+ (#{build-sequence 297}#
+ #{s 1575}#
+ (letrec*
+ ((#{lp 1726}#
+ (lambda (#{in 1727}# #{out 1728}#)
+ (if (null? #{in 1727}#)
+ #{out 1728}#
+ (let ((#{e 1730}# (car #{in 1727}#)))
+ (#{lp 1726}#
+ (cdr #{in 1727}#)
+ (cons (if (procedure? #{e 1730}#)
+ (#{e 1730}#)
+ #{e 1730}#)
+ #{out 1728}#)))))))
+ (#{lp 1726}# #{exps 1721}# '())))))))))
+ (#{chi-install-global 417}#
+ (lambda (#{name 1731}# #{e 1732}#)
+ (#{build-global-definition 283}#
#f
- #{name 1713}#
- (#{build-application 265}#
+ #{name 1731}#
+ (#{build-primcall 291}#
#f
- (#{build-primref 289}#
- #f
- 'make-syntax-transformer)
- (list (#{build-data 291}# #f #{name 1713}#)
- (#{build-data 291}# #f 'macro)
- #{e 1714}#)))))
- (#{chi-when-list 415}#
- (lambda (#{e 1722}# #{when-list 1723}# #{w 1724}#)
+ 'make-syntax-transformer
+ (list (#{build-data 295}# #f #{name 1731}#)
+ (#{build-data 295}# #f 'macro)
+ #{e 1732}#)))))
+ (#{chi-when-list 419}#
+ (lambda (#{e 1739}# #{when-list 1740}# #{w 1741}#)
(letrec*
- ((#{f 1731}#
- (lambda (#{when-list 1732}# #{situations 1733}#)
- (if (null? #{when-list 1732}#)
- #{situations 1733}#
- (#{f 1731}#
- (cdr #{when-list 1732}#)
- (cons (begin
- (let ((#{x 1735}# (car #{when-list 1732}#)))
- (if (#{free-id=? 395}#
- #{x 1735}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1728" "i1729" "i1730"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1725" "i1726" "i1727"))
- #(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)))
- 'compile
- (if (#{free-id=? 395}#
- #{x 1735}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1728" "i1729" "i1730"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1725" "i1726" "i1727"))
- #(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)))
- 'load
- (if (#{free-id=? 395}#
- #{x 1735}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1728" "i1729" "i1730"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1725" "i1726" "i1727"))
- #(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)))
- 'eval
- (if (#{free-id=? 395}#
- #{x 1735}#
- '#(syntax-object
- expand
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1734"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i1728" "i1729" "i1730"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i1725" "i1726" "i1727"))
- #(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)))
- 'expand
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e 1722}#
- (#{wrap 405}#
- #{x 1735}#
- #{w 1724}#
- #f))))))))
- #{situations 1733}#))))))
- (begin (#{f 1731}# #{when-list 1723}# '())))))
- (#{syntax-type 417}#
- (lambda (#{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #{for-car? 1751}#)
- (if (symbol? #{e 1745}#)
- (begin
- (let ((#{n 1763}#
- (#{id-var-name 393}# #{e 1745}# #{w 1747}#)))
- (begin
- (let ((#{b 1765}#
- (#{lookup 333}#
- #{n 1763}#
- #{r 1746}#
- #{mod 1750}#)))
- (begin
- (let ((#{type 1767}# (car #{b 1765}#)))
- (if (eqv? #{type 1767}# 'lexical)
- (values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{type 1767}# 'global)
- (values
- #{type 1767}#
- #{n 1763}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{type 1767}# 'macro)
- (if #{for-car? 1751}#
- (values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (#{syntax-type 417}#
- (#{chi-macro 425}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#)
- #{r 1746}#
- '(())
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #f))
- (values
- #{type 1767}#
- (cdr #{b 1765}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))))))))))
- (if (pair? #{e 1745}#)
- (begin
- (let ((#{first 1781}# (car #{e 1745}#)))
- (call-with-values
- (lambda ()
- (#{syntax-type 417}#
- #{first 1781}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #t))
- (lambda (#{ftype 1782}#
- #{fval 1783}#
- #{fe 1784}#
- #{fw 1785}#
- #{fs 1786}#
- #{fmod 1787}#)
- (if (eqv? #{ftype 1782}# 'lexical)
- (values
- 'lexical-call
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'global)
- (values
- 'global-call
- (#{make-syntax-object 303}#
- #{fval 1783}#
- #{w 1747}#
- #{fmod 1787}#)
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'macro)
- (#{syntax-type 417}#
- (#{chi-macro 425}#
- #{fval 1783}#
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#)
- #{r 1746}#
- '(())
- #{s 1748}#
- #{rib 1749}#
- #{mod 1750}#
- #{for-car? 1751}#)
- (if (eqv? #{ftype 1782}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{fval 1783}#
- #{e 1745}#
- #{r 1746}#
- #{w 1747}#))
- (lambda (#{e 1799}#
- #{r 1800}#
- #{w 1801}#
- #{s 1802}#
- #{mod 1803}#)
- (#{syntax-type 417}#
- #{e 1799}#
- #{r 1800}#
- #{w 1801}#
- #{s 1802}#
- #{rib 1749}#
- #{mod 1803}#
- #{for-car? 1751}#)))
- (if (eqv? #{ftype 1782}# 'core)
- (values
- 'core-form
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'local-syntax)
- (values
- 'local-syntax-form
- #{fval 1783}#
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'begin)
- (values
- 'begin-form
- #f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'eval-when)
- (values
- 'eval-when-form
- #f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (if (eqv? #{ftype 1782}# 'define)
- (let ((#{tmp 1814}# #{e 1745}#))
- (let ((#{tmp 1815}#
- ($sc-dispatch
- #{tmp 1814}#
- '(_ any any))))
- (if (if #{tmp 1815}#
- (@apply
- (lambda (#{name 1818}#
- #{val 1819}#)
- (#{id? 339}# #{name 1818}#))
- #{tmp 1815}#)
- #f)
- (@apply
- (lambda (#{name 1822}#
- #{val 1823}#)
- (values
- 'define-form
- #{name 1822}#
- #{val 1823}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1815}#)
- (let ((#{tmp 1824}#
- ($sc-dispatch
- #{tmp 1814}#
- '(_ (any . any)
- any
- .
- each-any))))
- (if (if #{tmp 1824}#
- (@apply
- (lambda (#{name 1829}#
- #{args 1830}#
- #{e1 1831}#
- #{e2 1832}#)
- (if (#{id? 339}#
- #{name 1829}#)
- (#{valid-bound-ids? 399}#
- (#{lambda-var-list 449}#
- #{args 1830}#))
- #f))
- #{tmp 1824}#)
- #f)
- (@apply
- (lambda (#{name 1839}#
- #{args 1840}#
- #{e1 1841}#
- #{e2 1842}#)
- (values
- 'define-form
- (#{wrap 405}#
- #{name 1839}#
- #{w 1747}#
- #{mod 1750}#)
- (#{decorate-source 259}#
- (cons '#(syntax-object
- lambda
- ((top)
- #(ribcage
- #(name
- args
- e1
- e2)
- #((top)
- (top)
- (top)
- (top))
- #("i1835"
- "i1836"
- "i1837"
- "i1838"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1780"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
- #(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))
- (#{wrap 405}#
- (cons #{args 1840}#
- (cons #{e1 1841}#
- #{e2 1842}#))
- #{w 1747}#
- #{mod 1750}#))
- #{s 1748}#)
- '(())
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1824}#)
- (let ((#{tmp 1845}#
- ($sc-dispatch
- #{tmp 1814}#
- '(_ any))))
- (if (if #{tmp 1845}#
- (@apply
- (lambda (#{name 1847}#)
- (#{id? 339}#
- #{name 1847}#))
- #{tmp 1845}#)
- #f)
- (@apply
- (lambda (#{name 1849}#)
- (values
- 'define-form
- (#{wrap 405}#
- #{name 1849}#
- #{w 1747}#
- #{mod 1750}#)
- '(#(syntax-object
- if
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1848"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1780"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
- #(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
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1848"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1780"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
- #(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
- #f
- ((top)
- #(ribcage
- #(name)
- #((top))
- #("i1848"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(ftype
- fval
- fe
- fw
- fs
- fmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1788"
- "i1789"
- "i1790"
- "i1791"
- "i1792"
- "i1793"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(first)
- #((top))
- #("i1780"))
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- ()
- ()
- ())
- #(ribcage
- #(e
- r
- w
- s
- rib
- mod
- for-car?)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i1752"
- "i1753"
- "i1754"
- "i1755"
- "i1756"
- "i1757"
- "i1758"))
- #(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)))
- '(())
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1845}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1814}#))))))))
- (if (eqv? #{ftype 1782}# 'define-syntax)
- (let ((#{tmp 1852}# #{e 1745}#))
- (let ((#{tmp 1853}#
- ($sc-dispatch
- #{tmp 1852}#
- '(_ any any))))
- (if (if #{tmp 1853}#
- (@apply
- (lambda (#{name 1856}#
- #{val 1857}#)
- (#{id? 339}#
- #{name 1856}#))
- #{tmp 1853}#)
- #f)
- (@apply
- (lambda (#{name 1860}#
- #{val 1861}#)
- (values
- 'define-syntax-form
- #{name 1860}#
- #{val 1861}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#))
- #{tmp 1853}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1852}#))))
- (values
- 'call
- #f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)))))))))))))))
- (if (#{syntax-object? 305}# #{e 1745}#)
- (#{syntax-type 417}#
- (#{syntax-object-expression 307}# #{e 1745}#)
- #{r 1746}#
- (#{join-wraps 387}#
- #{w 1747}#
- (#{syntax-object-wrap 309}# #{e 1745}#))
- (begin
- (let ((#{t 1867}#
- (#{source-annotation 320}# #{e 1745}#)))
- (if #{t 1867}# #{t 1867}# #{s 1748}#)))
- #{rib 1749}#
- (begin
- (let ((#{t 1871}#
- (#{syntax-object-module 311}# #{e 1745}#)))
- (if #{t 1871}# #{t 1871}# #{mod 1750}#)))
- #{for-car? 1751}#)
- (if (self-evaluating? #{e 1745}#)
- (values
- 'constant
- #f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)
- (values
- 'other
- #f
- #{e 1745}#
- #{w 1747}#
- #{s 1748}#
- #{mod 1750}#)))))))
- (#{chi 419}#
- (lambda (#{e 1876}# #{r 1877}# #{w 1878}# #{mod 1879}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 417}#
- #{e 1876}#
- #{r 1877}#
- #{w 1878}#
- (#{source-annotation 320}# #{e 1876}#)
- #f
- #{mod 1879}#
- #f))
- (lambda (#{type 1884}#
- #{value 1885}#
- #{e 1886}#
- #{w 1887}#
- #{s 1888}#
- #{mod 1889}#)
- (#{chi-expr 421}#
- #{type 1884}#
- #{value 1885}#
- #{e 1886}#
- #{r 1877}#
- #{w 1887}#
- #{s 1888}#
- #{mod 1889}#)))))
- (#{chi-expr 421}#
- (lambda (#{type 1896}#
- #{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'lexical)
- (#{build-lexical-reference 271}#
- 'value
- #{s 1901}#
- #{e 1898}#
- #{value 1897}#)
- (if (if (eqv? #{type 1896}# 'core)
- #t
- (eqv? #{type 1896}# 'core-form))
- (#{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'module-ref)
- (call-with-values
- (lambda ()
- (#{value 1897}# #{e 1898}# #{r 1899}# #{w 1900}#))
- (lambda (#{e 1913}#
- #{r 1914}#
- #{w 1915}#
- #{s 1916}#
- #{mod 1917}#)
- (#{chi 419}#
- #{e 1913}#
- #{r 1914}#
- #{w 1915}#
- #{mod 1917}#)))
- (if (eqv? #{type 1896}# 'lexical-call)
- (#{chi-application 423}#
- (begin
- (let ((#{id 1925}# (car #{e 1898}#)))
- (#{build-lexical-reference 271}#
- 'fun
- (#{source-annotation 320}# #{id 1925}#)
- (if (#{syntax-object? 305}# #{id 1925}#)
- (syntax->datum #{id 1925}#)
- #{id 1925}#)
- #{value 1897}#)))
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'global-call)
- (#{chi-application 423}#
- (#{build-global-reference 277}#
- (#{source-annotation 320}# (car #{e 1898}#))
- (if (#{syntax-object? 305}# #{value 1897}#)
- (#{syntax-object-expression 307}# #{value 1897}#)
- #{value 1897}#)
- (if (#{syntax-object? 305}# #{value 1897}#)
- (#{syntax-object-module 311}# #{value 1897}#)
- #{mod 1902}#))
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'constant)
- (#{build-data 291}#
- #{s 1901}#
- (#{strip 445}#
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- '(())))
- (if (eqv? #{type 1896}# 'global)
- (#{build-global-reference 277}#
- #{s 1901}#
- #{value 1897}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'call)
- (#{chi-application 423}#
- (#{chi 419}#
- (car #{e 1898}#)
- #{r 1899}#
- #{w 1900}#
- #{mod 1902}#)
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (if (eqv? #{type 1896}# 'begin-form)
- (let ((#{tmp 1932}# #{e 1898}#))
- (let ((#{tmp 1933}#
- ($sc-dispatch
- #{tmp 1932}#
- '(_ any . each-any))))
- (if #{tmp 1933}#
- (@apply
- (lambda (#{e1 1936}# #{e2 1937}#)
- (#{chi-sequence 409}#
- (cons #{e1 1936}# #{e2 1937}#)
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
- #{tmp 1933}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1932}#))))
- (if (eqv? #{type 1896}# 'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 1897}#
- #{e 1898}#
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#
- #{chi-sequence 409}#)
- (if (eqv? #{type 1896}# 'eval-when-form)
- (let ((#{tmp 1941}# #{e 1898}#))
- (let ((#{tmp 1942}#
- ($sc-dispatch
- #{tmp 1941}#
- '(_ each-any any . each-any))))
- (if #{tmp 1942}#
- (@apply
- (lambda (#{x 1946}#
- #{e1 1947}#
- #{e2 1948}#)
- (begin
- (let ((#{when-list 1950}#
- (#{chi-when-list 415}#
- #{e 1898}#
- #{x 1946}#
- #{w 1900}#)))
- (if (memq 'eval #{when-list 1950}#)
- (#{chi-sequence 409}#
- (cons #{e1 1947}# #{e2 1948}#)
- #{r 1899}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#)
- (#{chi-void 433}#)))))
- #{tmp 1942}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1941}#))))
- (if (if (eqv? #{type 1896}# 'define-form)
- #t
- (eqv? #{type 1896}# 'define-syntax-form))
- (syntax-violation
- #f
- "definition in expression context"
- #{e 1898}#
- (#{wrap 405}#
- #{value 1897}#
- #{w 1900}#
- #{mod 1902}#))
- (if (eqv? #{type 1896}# 'syntax)
- (syntax-violation
- #f
- "reference to pattern variable outside syntax form"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
- (if (eqv? #{type 1896}# 'displaced-lexical)
- (syntax-violation
- #f
- "reference to identifier outside its scope"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))
- (syntax-violation
- #f
- "unexpected syntax"
- (#{source-wrap 407}#
- #{e 1898}#
- #{w 1900}#
- #{s 1901}#
- #{mod 1902}#))))))))))))))))))
- (#{chi-application 423}#
- (lambda (#{x 1957}#
- #{e 1958}#
- #{r 1959}#
- #{w 1960}#
- #{s 1961}#
- #{mod 1962}#)
- (let ((#{tmp 1969}# #{e 1958}#))
- (let ((#{tmp 1970}#
- ($sc-dispatch #{tmp 1969}# '(any . each-any))))
- (if #{tmp 1970}#
- (@apply
- (lambda (#{e0 1973}# #{e1 1974}#)
- (#{build-application 265}#
- #{s 1961}#
- #{x 1957}#
- (map (lambda (#{e 1975}#)
- (#{chi 419}#
- #{e 1975}#
- #{r 1959}#
- #{w 1960}#
- #{mod 1962}#))
- #{e1 1974}#)))
- #{tmp 1970}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 1969}#))))))
- (#{chi-macro 425}#
- (lambda (#{p 1978}#
- #{e 1979}#
- #{r 1980}#
- #{w 1981}#
- #{s 1982}#
- #{rib 1983}#
- #{mod 1984}#)
- (letrec*
- ((#{rebuild-macro-output 1993}#
- (lambda (#{x 1994}# #{m 1995}#)
- (if (pair? #{x 1994}#)
- (#{decorate-source 259}#
- (cons (#{rebuild-macro-output 1993}#
- (car #{x 1994}#)
- #{m 1995}#)
- (#{rebuild-macro-output 1993}#
- (cdr #{x 1994}#)
- #{m 1995}#))
- #{s 1982}#)
- (if (#{syntax-object? 305}# #{x 1994}#)
- (begin
- (let ((#{w 2003}#
- (#{syntax-object-wrap 309}# #{x 1994}#)))
- (begin
- (let ((#{ms 2006}# (car #{w 2003}#))
- (#{s 2007}# (cdr #{w 2003}#)))
- (if (if (pair? #{ms 2006}#)
- (eq? (car #{ms 2006}#) #f)
- #f)
- (#{make-syntax-object 303}#
- (#{syntax-object-expression 307}# #{x 1994}#)
- (cons (cdr #{ms 2006}#)
- (if #{rib 1983}#
- (cons #{rib 1983}# (cdr #{s 2007}#))
- (cdr #{s 2007}#)))
- (#{syntax-object-module 311}# #{x 1994}#))
- (#{make-syntax-object 303}#
- (#{decorate-source 259}#
- (#{syntax-object-expression 307}# #{x 1994}#)
- #{s 2007}#)
- (cons (cons #{m 1995}# #{ms 2006}#)
- (if #{rib 1983}#
- (cons #{rib 1983}#
- (cons 'shift #{s 2007}#))
- (cons 'shift #{s 2007}#)))
- (#{syntax-object-module 311}# #{x 1994}#)))))))
- (if (vector? #{x 1994}#)
- (begin
- (let ((#{n 2019}# (vector-length #{x 1994}#)))
- (begin
- (let ((#{v 2021}#
- (#{decorate-source 259}#
- (make-vector #{n 2019}#)
- #{x 1994}#)))
- (letrec*
- ((#{loop 2024}#
- (lambda (#{i 2025}#)
- (if (= #{i 2025}# #{n 2019}#)
- (begin (if #f #f) #{v 2021}#)
- (begin
- (vector-set!
- #{v 2021}#
- #{i 2025}#
- (#{rebuild-macro-output 1993}#
- (vector-ref #{x 1994}# #{i 2025}#)
- #{m 1995}#))
- (#{loop 2024}# (#{1+}# #{i 2025}#)))))))
- (begin (#{loop 2024}# 0)))))))
- (if (symbol? #{x 1994}#)
- (syntax-violation
- #f
- "encountered raw symbol in macro output"
- (#{source-wrap 407}#
- #{e 1979}#
- #{w 1981}#
- (cdr #{w 1981}#)
- #{mod 1984}#)
- #{x 1994}#)
- (#{decorate-source 259}# #{x 1994}# #{s 1982}#))))))))
- (begin
- (#{rebuild-macro-output 1993}#
- (#{p 1978}#
- (#{source-wrap 407}#
- #{e 1979}#
- (#{anti-mark 377}# #{w 1981}#)
- #{s 1982}#
- #{mod 1984}#))
- (gensym "m"))))))
- (#{chi-body 427}#
- (lambda (#{body 2035}#
- #{outer-form 2036}#
- #{r 2037}#
- #{w 2038}#
- #{mod 2039}#)
- (begin
- (let ((#{r 2047}#
- (cons '("placeholder" placeholder) #{r 2037}#)))
- (begin
- (let ((#{ribcage 2049}#
- (#{make-ribcage 357}# '() '() '())))
- (begin
- (let ((#{w 2052}#
- (cons (car #{w 2038}#)
- (cons #{ribcage 2049}# (cdr #{w 2038}#)))))
- (letrec*
- ((#{parse 2064}#
- (lambda (#{body 2065}#
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#)
- (if (null? #{body 2065}#)
- (syntax-violation
- #f
- "no expressions in body"
- #{outer-form 2036}#)
- (begin
- (let ((#{e 2076}# (cdr (car #{body 2065}#)))
- (#{er 2077}# (car (car #{body 2065}#))))
- (call-with-values
- (lambda ()
- (#{syntax-type 417}#
- #{e 2076}#
- #{er 2077}#
- '(())
- (#{source-annotation 320}# #{er 2077}#)
- #{ribcage 2049}#
- #{mod 2039}#
- #f))
- (lambda (#{type 2079}#
- #{value 2080}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#)
- (if (eqv? #{type 2079}# 'define-form)
- (begin
- (let ((#{id 2094}#
- (#{wrap 405}#
- #{value 2080}#
- #{w 2082}#
- #{mod 2084}#))
- (#{label 2095}#
- (#{gen-label 352}#)))
- (begin
- (let ((#{var 2097}#
- (#{gen-var 447}#
- #{id 2094}#)))
- (begin
- (#{extend-ribcage! 381}#
- #{ribcage 2049}#
- #{id 2094}#
- #{label 2095}#)
- (#{parse 2064}#
- (cdr #{body 2065}#)
- (cons #{id 2094}#
- #{ids 2066}#)
- (cons #{label 2095}#
- #{labels 2067}#)
- (cons #{id 2094}#
- #{var-ids 2068}#)
- (cons #{var 2097}#
- #{vars 2069}#)
- (cons (cons #{er 2077}#
- (#{wrap 405}#
- #{e 2081}#
- #{w 2082}#
- #{mod 2084}#))
- #{vals 2070}#)
- (cons (cons 'lexical
- #{var 2097}#)
- #{bindings 2071}#)))))))
- (if (eqv? #{type 2079}#
- 'define-syntax-form)
- (begin
- (let ((#{id 2102}#
- (#{wrap 405}#
- #{value 2080}#
- #{w 2082}#
- #{mod 2084}#))
- (#{label 2103}#
- (#{gen-label 352}#)))
- (begin
- (#{extend-ribcage! 381}#
- #{ribcage 2049}#
- #{id 2102}#
- #{label 2103}#)
- (#{parse 2064}#
- (cdr #{body 2065}#)
- (cons #{id 2102}# #{ids 2066}#)
- (cons #{label 2103}#
- #{labels 2067}#)
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- (cons (cons 'macro
- (cons #{er 2077}#
- (#{wrap 405}#
- #{e 2081}#
- #{w 2082}#
- #{mod 2084}#)))
- #{bindings 2071}#)))))
- (if (eqv? #{type 2079}# 'begin-form)
- (let ((#{tmp 2106}# #{e 2081}#))
- (let ((#{tmp 2107}#
- ($sc-dispatch
- #{tmp 2106}#
- '(_ . each-any))))
- (if #{tmp 2107}#
- (@apply
- (lambda (#{e1 2109}#)
- (#{parse 2064}#
- (letrec*
- ((#{f 2112}#
- (lambda (#{forms 2113}#)
- (if (null? #{forms 2113}#)
- (cdr #{body 2065}#)
- (cons (cons #{er 2077}#
- (#{wrap 405}#
- (car #{forms 2113}#)
- #{w 2082}#
- #{mod 2084}#))
- (#{f 2112}#
- (cdr #{forms 2113}#)))))))
- (begin
- (#{f 2112}#
- #{e1 2109}#)))
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#))
- #{tmp 2107}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2106}#))))
- (if (eqv? #{type 2079}#
- 'local-syntax-form)
- (#{chi-local-syntax 429}#
- #{value 2080}#
- #{e 2081}#
- #{er 2077}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#
- (lambda (#{forms 2116}#
- #{er 2117}#
- #{w 2118}#
- #{s 2119}#
- #{mod 2120}#)
- (#{parse 2064}#
- (letrec*
- ((#{f 2128}#
- (lambda (#{forms 2129}#)
- (if (null? #{forms 2129}#)
- (cdr #{body 2065}#)
- (cons (cons #{er 2117}#
- (#{wrap 405}#
- (car #{forms 2129}#)
- #{w 2118}#
- #{mod 2120}#))
- (#{f 2128}#
- (cdr #{forms 2129}#)))))))
- (begin
- (#{f 2128}#
- #{forms 2116}#)))
- #{ids 2066}#
- #{labels 2067}#
- #{var-ids 2068}#
- #{vars 2069}#
- #{vals 2070}#
- #{bindings 2071}#)))
- (if (null? #{ids 2066}#)
- (#{build-sequence 293}#
- #f
- (map (lambda (#{x 2132}#)
- (#{chi 419}#
- (cdr #{x 2132}#)
- (car #{x 2132}#)
- '(())
- #{mod 2084}#))
- (cons (cons #{er 2077}#
- (#{source-wrap 407}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#))
- (cdr #{body 2065}#))))
- (begin
- (if (not (#{valid-bound-ids? 399}#
- #{ids 2066}#))
- (syntax-violation
- #f
- "invalid or duplicate identifier in definition"
- #{outer-form 2036}#))
- (letrec*
- ((#{loop 2139}#
- (lambda (#{bs 2140}#
- #{er-cache 2141}#
- #{r-cache 2142}#)
- (if (not (null? #{bs 2140}#))
- (begin
- (let ((#{b 2145}#
- (car #{bs 2140}#)))
- (if (eq? (car #{b 2145}#)
- 'macro)
- (begin
- (let ((#{er 2148}#
- (car (cdr #{b 2145}#))))
- (begin
- (let ((#{r-cache 2150}#
- (if (eq? #{er 2148}#
- #{er-cache 2141}#)
- #{r-cache 2142}#
- (#{macros-only-env 331}#
- #{er 2148}#))))
- (begin
- (set-cdr!
- #{b 2145}#
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- (cdr (cdr #{b 2145}#))
- #{r-cache 2150}#
- '(())
- #{mod 2084}#)
- #{mod 2084}#))
- (#{loop 2139}#
- (cdr #{bs 2140}#)
- #{er 2148}#
- #{r-cache 2150}#))))))
- (#{loop 2139}#
- (cdr #{bs 2140}#)
- #{er-cache 2141}#
- #{r-cache 2142}#))))))))
- (begin
- (#{loop 2139}#
- #{bindings 2071}#
- #f
- #f)))
- (set-cdr!
- #{r 2047}#
- (#{extend-env 327}#
- #{labels 2067}#
- #{bindings 2071}#
- (cdr #{r 2047}#)))
- (#{build-letrec 299}#
- #f
- #t
- (reverse
- (map syntax->datum
- #{var-ids 2068}#))
- (reverse #{vars 2069}#)
- (map (lambda (#{x 2153}#)
- (#{chi 419}#
- (cdr #{x 2153}#)
- (car #{x 2153}#)
- '(())
- #{mod 2084}#))
- (reverse #{vals 2070}#))
- (#{build-sequence 293}#
- #f
- (map (lambda (#{x 2157}#)
- (#{chi 419}#
- (cdr #{x 2157}#)
- (car #{x 2157}#)
- '(())
- #{mod 2084}#))
- (cons (cons #{er 2077}#
- (#{source-wrap 407}#
- #{e 2081}#
- #{w 2082}#
- #{s 2083}#
- #{mod 2084}#))
- (cdr #{body 2065}#)))))))))))))))))))
- (begin
- (#{parse 2064}#
- (map (lambda (#{x 2072}#)
- (cons #{r 2047}#
- (#{wrap 405}#
- #{x 2072}#
- #{w 2052}#
- #{mod 2039}#)))
- #{body 2035}#)
- '()
- '()
- '()
- '()
- '()
- '())))))))))))
- (#{chi-local-syntax 429}#
- (lambda (#{rec? 2160}#
- #{e 2161}#
- #{r 2162}#
- #{w 2163}#
- #{s 2164}#
- #{mod 2165}#
- #{k 2166}#)
- (let ((#{tmp 2174}# #{e 2161}#))
- (let ((#{tmp 2175}#
- ($sc-dispatch
- #{tmp 2174}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 2175}#
- (@apply
- (lambda (#{id 2180}#
- #{val 2181}#
- #{e1 2182}#
- #{e2 2183}#)
- (begin
- (let ((#{ids 2185}# #{id 2180}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 2185}#))
- (syntax-violation
- #f
- "duplicate bound keyword"
- #{e 2161}#)
- (begin
- (let ((#{labels 2188}#
- (#{gen-labels 354}# #{ids 2185}#)))
- (begin
- (let ((#{new-w 2190}#
- (#{make-binding-wrap 383}#
- #{ids 2185}#
- #{labels 2188}#
- #{w 2163}#)))
- (#{k 2166}#
- (cons #{e1 2182}# #{e2 2183}#)
- (#{extend-env 327}#
- #{labels 2188}#
- (begin
- (let ((#{w 2194}#
- (if #{rec? 2160}#
- #{new-w 2190}#
- #{w 2163}#))
- (#{trans-r 2195}#
- (#{macros-only-env 331}#
- #{r 2162}#)))
- (map (lambda (#{x 2196}#)
- (cons 'macro
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- #{x 2196}#
- #{trans-r 2195}#
- #{w 2194}#
- #{mod 2165}#)
- #{mod 2165}#)))
- #{val 2181}#)))
- #{r 2162}#)
- #{new-w 2190}#
- #{s 2164}#
- #{mod 2165}#)))))))))
- #{tmp 2175}#)
- (let ((#{_ 2201}# #{tmp 2174}#))
- (syntax-violation
- #f
- "bad local syntax definition"
- (#{source-wrap 407}#
- #{e 2161}#
- #{w 2163}#
- #{s 2164}#
- #{mod 2165}#))))))))
- (#{eval-local-transformer 431}#
- (lambda (#{expanded 2202}# #{mod 2203}#)
- (begin
- (let ((#{p 2207}#
- (#{local-eval-hook 252}#
- #{expanded 2202}#
- #{mod 2203}#)))
- (if (procedure? #{p 2207}#)
- #{p 2207}#
- (syntax-violation
- #f
- "nonprocedure transformer"
- #{p 2207}#))))))
- (#{chi-void 433}#
- (lambda () (#{build-void 263}# #f)))
- (#{ellipsis? 435}#
- (lambda (#{x 2209}#)
- (if (#{nonsymbol-id? 337}# #{x 2209}#)
- (#{free-id=? 395}#
- #{x 2209}#
- '#(syntax-object
- ...
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2210"))
- #(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)))
- #f)))
- (#{lambda-formals 437}#
- (lambda (#{orig-args 2213}#)
- (letrec*
- ((#{req 2216}#
- (lambda (#{args 2219}# #{rreq 2220}#)
- (let ((#{tmp 2223}# #{args 2219}#))
- (let ((#{tmp 2224}# ($sc-dispatch #{tmp 2223}# '())))
- (if #{tmp 2224}#
- (@apply
- (lambda ()
- (#{check 2218}# (reverse #{rreq 2220}#) #f))
- #{tmp 2224}#)
- (let ((#{tmp 2225}#
- ($sc-dispatch #{tmp 2223}# '(any . any))))
- (if (if #{tmp 2225}#
- (@apply
- (lambda (#{a 2228}# #{b 2229}#)
- (#{id? 339}# #{a 2228}#))
- #{tmp 2225}#)
- #f)
- (@apply
- (lambda (#{a 2232}# #{b 2233}#)
- (#{req 2216}#
- #{b 2233}#
- (cons #{a 2232}# #{rreq 2220}#)))
- #{tmp 2225}#)
- (let ((#{tmp 2234}# (list #{tmp 2223}#)))
- (if (if #{tmp 2234}#
- (@apply
- (lambda (#{r 2236}#)
- (#{id? 339}# #{r 2236}#))
- #{tmp 2234}#)
- #f)
- (@apply
- (lambda (#{r 2238}#)
- (#{check 2218}#
- (reverse #{rreq 2220}#)
- #{r 2238}#))
- #{tmp 2234}#)
- (let ((#{else 2240}# #{tmp 2223}#))
- (syntax-violation
- 'lambda
- "invalid argument list"
- #{orig-args 2213}#
- #{args 2219}#)))))))))))
- (#{check 2218}#
- (lambda (#{req 2241}# #{rest 2242}#)
- (if (#{distinct-bound-ids? 401}#
- (if #{rest 2242}#
- (cons #{rest 2242}# #{req 2241}#)
- #{req 2241}#))
- (values #{req 2241}# #f #{rest 2242}# #f)
- (syntax-violation
- 'lambda
- "duplicate identifier in argument list"
- #{orig-args 2213}#)))))
- (begin (#{req 2216}# #{orig-args 2213}# '())))))
- (#{chi-simple-lambda 439}#
- (lambda (#{e 2248}#
- #{r 2249}#
- #{w 2250}#
- #{s 2251}#
- #{mod 2252}#
- #{req 2253}#
- #{rest 2254}#
- #{meta 2255}#
- #{body 2256}#)
- (begin
- (let ((#{ids 2268}#
- (if #{rest 2254}#
- (append #{req 2253}# (list #{rest 2254}#))
- #{req 2253}#)))
- (begin
- (let ((#{vars 2270}#
- (map #{gen-var 447}# #{ids 2268}#)))
- (begin
- (let ((#{labels 2272}#
- (#{gen-labels 354}# #{ids 2268}#)))
- (#{build-simple-lambda 283}#
- #{s 2251}#
- (map syntax->datum #{req 2253}#)
- (if #{rest 2254}#
- (syntax->datum #{rest 2254}#)
- #f)
- #{vars 2270}#
- #{meta 2255}#
- (#{chi-body 427}#
- #{body 2256}#
- (#{source-wrap 407}#
- #{e 2248}#
- #{w 2250}#
- #{s 2251}#
- #{mod 2252}#)
- (#{extend-var-env 329}#
- #{labels 2272}#
- #{vars 2270}#
- #{r 2249}#)
- (#{make-binding-wrap 383}#
- #{ids 2268}#
- #{labels 2272}#
- #{w 2250}#)
- #{mod 2252}#))))))))))
- (#{lambda*-formals 441}#
- (lambda (#{orig-args 2275}#)
- (letrec*
- ((#{req 2278}#
- (lambda (#{args 2287}# #{rreq 2288}#)
- (let ((#{tmp 2291}# #{args 2287}#))
- (let ((#{tmp 2292}# ($sc-dispatch #{tmp 2291}# '())))
- (if #{tmp 2292}#
- (@apply
- (lambda ()
- (#{check 2286}#
- (reverse #{rreq 2288}#)
- '()
- #f
- '()))
- #{tmp 2292}#)
- (let ((#{tmp 2293}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2293}#
- (@apply
- (lambda (#{a 2296}# #{b 2297}#)
- (#{id? 339}# #{a 2296}#))
- #{tmp 2293}#)
- #f)
- (@apply
- (lambda (#{a 2300}# #{b 2301}#)
- (#{req 2278}#
- #{b 2301}#
- (cons #{a 2300}# #{rreq 2288}#)))
- #{tmp 2293}#)
- (let ((#{tmp 2302}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2302}#
- (@apply
- (lambda (#{a 2305}# #{b 2306}#)
- (eq? (syntax->datum #{a 2305}#)
- #:optional))
- #{tmp 2302}#)
- #f)
- (@apply
- (lambda (#{a 2309}# #{b 2310}#)
- (#{opt 2280}#
- #{b 2310}#
- (reverse #{rreq 2288}#)
- '()))
- #{tmp 2302}#)
- (let ((#{tmp 2311}#
- ($sc-dispatch #{tmp 2291}# '(any . any))))
- (if (if #{tmp 2311}#
- (@apply
- (lambda (#{a 2314}# #{b 2315}#)
- (eq? (syntax->datum #{a 2314}#) #:key))
- #{tmp 2311}#)
- #f)
- (@apply
- (lambda (#{a 2318}# #{b 2319}#)
- (#{key 2282}#
- #{b 2319}#
- (reverse #{rreq 2288}#)
- '()
- '()))
- #{tmp 2311}#)
- (let ((#{tmp 2320}#
- ($sc-dispatch
- #{tmp 2291}#
- '(any any))))
- (if (if #{tmp 2320}#
- (@apply
- (lambda (#{a 2323}# #{b 2324}#)
- (eq? (syntax->datum #{a 2323}#)
- #:rest))
- #{tmp 2320}#)
- #f)
- (@apply
- (lambda (#{a 2327}# #{b 2328}#)
- (#{rest 2284}#
- #{b 2328}#
- (reverse #{rreq 2288}#)
- '()
- '()))
- #{tmp 2320}#)
- (let ((#{tmp 2329}# (list #{tmp 2291}#)))
- (if (if #{tmp 2329}#
- (@apply
- (lambda (#{r 2331}#)
- (#{id? 339}# #{r 2331}#))
- #{tmp 2329}#)
- #f)
- (@apply
- (lambda (#{r 2333}#)
- (#{rest 2284}#
- #{r 2333}#
- (reverse #{rreq 2288}#)
- '()
- '()))
- #{tmp 2329}#)
- (let ((#{else 2335}# #{tmp 2291}#))
- (syntax-violation
- 'lambda*
- "invalid argument list"
- #{orig-args 2275}#
- #{args 2287}#)))))))))))))))))
- (#{opt 2280}#
- (lambda (#{args 2336}# #{req 2337}# #{ropt 2338}#)
- (let ((#{tmp 2342}# #{args 2336}#))
- (let ((#{tmp 2343}# ($sc-dispatch #{tmp 2342}# '())))
- (if #{tmp 2343}#
- (@apply
- (lambda ()
- (#{check 2286}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
- #f
- '()))
- #{tmp 2343}#)
- (let ((#{tmp 2344}#
- ($sc-dispatch #{tmp 2342}# '(any . any))))
- (if (if #{tmp 2344}#
- (@apply
- (lambda (#{a 2347}# #{b 2348}#)
- (#{id? 339}# #{a 2347}#))
- #{tmp 2344}#)
- #f)
- (@apply
- (lambda (#{a 2351}# #{b 2352}#)
- (#{opt 2280}#
- #{b 2352}#
- #{req 2337}#
- (cons (cons #{a 2351}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2349" "i2350"))
- #(ribcage () () ())
- #(ribcage
- #(args req ropt)
- #((top) (top) (top))
- #("i2339" "i2340" "i2341"))
- #(ribcage
- (check rest key opt req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2285"
- "i2283"
- "i2281"
- "i2279"
- "i2277"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2276"))
- #(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))))
- #{ropt 2338}#)))
- #{tmp 2344}#)
- (let ((#{tmp 2353}#
- ($sc-dispatch
- #{tmp 2342}#
- '((any any) . any))))
- (if (if #{tmp 2353}#
- (@apply
- (lambda (#{a 2357}# #{init 2358}# #{b 2359}#)
- (#{id? 339}# #{a 2357}#))
- #{tmp 2353}#)
- #f)
- (@apply
- (lambda (#{a 2363}# #{init 2364}# #{b 2365}#)
- (#{opt 2280}#
- #{b 2365}#
- #{req 2337}#
- (cons (list #{a 2363}# #{init 2364}#)
- #{ropt 2338}#)))
- #{tmp 2353}#)
- (let ((#{tmp 2366}#
- ($sc-dispatch #{tmp 2342}# '(any . any))))
- (if (if #{tmp 2366}#
- (@apply
- (lambda (#{a 2369}# #{b 2370}#)
- (eq? (syntax->datum #{a 2369}#) #:key))
- #{tmp 2366}#)
- #f)
- (@apply
- (lambda (#{a 2373}# #{b 2374}#)
- (#{key 2282}#
- #{b 2374}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
- '()))
- #{tmp 2366}#)
- (let ((#{tmp 2375}#
- ($sc-dispatch
- #{tmp 2342}#
- '(any any))))
- (if (if #{tmp 2375}#
- (@apply
- (lambda (#{a 2378}# #{b 2379}#)
- (eq? (syntax->datum #{a 2378}#)
- #:rest))
- #{tmp 2375}#)
- #f)
- (@apply
- (lambda (#{a 2382}# #{b 2383}#)
- (#{rest 2284}#
- #{b 2383}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
- '()))
- #{tmp 2375}#)
- (let ((#{tmp 2384}# (list #{tmp 2342}#)))
- (if (if #{tmp 2384}#
- (@apply
- (lambda (#{r 2386}#)
- (#{id? 339}# #{r 2386}#))
- #{tmp 2384}#)
- #f)
- (@apply
- (lambda (#{r 2388}#)
- (#{rest 2284}#
- #{r 2388}#
- #{req 2337}#
- (reverse #{ropt 2338}#)
- '()))
- #{tmp 2384}#)
- (let ((#{else 2390}# #{tmp 2342}#))
- (syntax-violation
- 'lambda*
- "invalid optional argument list"
- #{orig-args 2275}#
- #{args 2336}#)))))))))))))))))
- (#{key 2282}#
- (lambda (#{args 2391}#
- #{req 2392}#
- #{opt 2393}#
- #{rkey 2394}#)
- (let ((#{tmp 2399}# #{args 2391}#))
- (let ((#{tmp 2400}# ($sc-dispatch #{tmp 2399}# '())))
- (if #{tmp 2400}#
- (@apply
- (lambda ()
- (#{check 2286}#
- #{req 2392}#
- #{opt 2393}#
- #f
- (cons #f (reverse #{rkey 2394}#))))
- #{tmp 2400}#)
- (let ((#{tmp 2401}#
- ($sc-dispatch #{tmp 2399}# '(any . any))))
- (if (if #{tmp 2401}#
- (@apply
- (lambda (#{a 2404}# #{b 2405}#)
- (#{id? 339}# #{a 2404}#))
- #{tmp 2401}#)
- #f)
- (@apply
- (lambda (#{a 2408}# #{b 2409}#)
- (let ((#{tmp 2411}#
- (symbol->keyword
- (syntax->datum #{a 2408}#))))
- (let ((#{k 2413}# #{tmp 2411}#))
- (#{key 2282}#
- #{b 2409}#
- #{req 2392}#
- #{opt 2393}#
- (cons (cons #{k 2413}#
- (cons #{a 2408}#
- '(#(syntax-object
- #f
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(k)
- #((top))
- #("i2412"))
- #(ribcage
- #(a b)
- #((top) (top))
- #("i2406" "i2407"))
- #(ribcage () () ())
- #(ribcage
- #(args req opt rkey)
- #((top)
- (top)
- (top)
- (top))
- #("i2395"
- "i2396"
- "i2397"
- "i2398"))
- #(ribcage
- (check rest
- key
- opt
- req)
- ((top)
- (top)
- (top)
- (top)
- (top))
- ("i2285"
- "i2283"
- "i2281"
- "i2279"
- "i2277"))
- #(ribcage
- #(orig-args)
- #((top))
- #("i2276"))
- #(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)))))
- #{rkey 2394}#)))))
- #{tmp 2401}#)
- (let ((#{tmp 2414}#
- ($sc-dispatch
- #{tmp 2399}#
- '((any any) . any))))
- (if (if #{tmp 2414}#
- (@apply
- (lambda (#{a 2418}# #{init 2419}# #{b 2420}#)
- (#{id? 339}# #{a 2418}#))
- #{tmp 2414}#)
- #f)
- (@apply
- (lambda (#{a 2424}# #{init 2425}# #{b 2426}#)
- (let ((#{tmp 2428}#
- (symbol->keyword
- (syntax->datum #{a 2424}#))))
- (let ((#{k 2430}# #{tmp 2428}#))
- (#{key 2282}#
- #{b 2426}#
- #{req 2392}#
- #{opt 2393}#
- (cons (list #{k 2430}#
- #{a 2424}#
- #{init 2425}#)
- #{rkey 2394}#)))))
- #{tmp 2414}#)
- (let ((#{tmp 2431}#
- ($sc-dispatch
- #{tmp 2399}#
- '((any any any) . any))))
- (if (if #{tmp 2431}#
- (@apply
- (lambda (#{a 2436}#
- #{init 2437}#
- #{k 2438}#
- #{b 2439}#)
- (if (#{id? 339}# #{a 2436}#)
- (keyword? (syntax->datum #{k 2438}#))
- #f))
- #{tmp 2431}#)
- #f)
- (@apply
- (lambda (#{a 2446}#
- #{init 2447}#
- #{k 2448}#
- #{b 2449}#)
- (#{key 2282}#
- #{b 2449}#
- #{req 2392}#
- #{opt 2393}#
- (cons (list #{k 2448}#
- #{a 2446}#
- #{init 2447}#)
- #{rkey 2394}#)))
- #{tmp 2431}#)
- (let ((#{tmp 2450}#
- ($sc-dispatch #{tmp 2399}# '(any))))
- (if (if #{tmp 2450}#
- (@apply
- (lambda (#{aok 2452}#)
- (eq? (syntax->datum #{aok 2452}#)
- #:allow-other-keys))
- #{tmp 2450}#)
- #f)
- (@apply
- (lambda (#{aok 2454}#)
- (#{check 2286}#
- #{req 2392}#
- #{opt 2393}#
- #f
- (cons #t (reverse #{rkey 2394}#))))
- #{tmp 2450}#)
- (let ((#{tmp 2455}#
- ($sc-dispatch
- #{tmp 2399}#
- '(any any any))))
- (if (if #{tmp 2455}#
- (@apply
- (lambda (#{aok 2459}#
- #{a 2460}#
- #{b 2461}#)
- (if (eq? (syntax->datum
- #{aok 2459}#)
- #:allow-other-keys)
- (eq? (syntax->datum
- #{a 2460}#)
- #:rest)
- #f))
- #{tmp 2455}#)
- #f)
- (@apply
- (lambda (#{aok 2467}#
- #{a 2468}#
- #{b 2469}#)
- (#{rest 2284}#
- #{b 2469}#
- #{req 2392}#
- #{opt 2393}#
- (cons #t
- (reverse #{rkey 2394}#))))
- #{tmp 2455}#)
- (let ((#{tmp 2470}#
- ($sc-dispatch
- #{tmp 2399}#
- '(any . any))))
- (if (if #{tmp 2470}#
- (@apply
- (lambda (#{aok 2473}#
- #{r 2474}#)
- (if (eq? (syntax->datum
- #{aok 2473}#)
- #:allow-other-keys)
- (#{id? 339}# #{r 2474}#)
- #f))
- #{tmp 2470}#)
- #f)
- (@apply
- (lambda (#{aok 2479}# #{r 2480}#)
- (#{rest 2284}#
- #{r 2480}#
- #{req 2392}#
- #{opt 2393}#
- (cons #t
- (reverse
- #{rkey 2394}#))))
- #{tmp 2470}#)
- (let ((#{tmp 2481}#
- ($sc-dispatch
- #{tmp 2399}#
- '(any any))))
- (if (if #{tmp 2481}#
- (@apply
- (lambda (#{a 2484}#
- #{b 2485}#)
- (eq? (syntax->datum
- #{a 2484}#)
- #:rest))
- #{tmp 2481}#)
- #f)
- (@apply
- (lambda (#{a 2488}#
- #{b 2489}#)
- (#{rest 2284}#
- #{b 2489}#
- #{req 2392}#
- #{opt 2393}#
- (cons #f
- (reverse
- #{rkey 2394}#))))
- #{tmp 2481}#)
- (let ((#{tmp 2490}#
- (list #{tmp 2399}#)))
- (if (if #{tmp 2490}#
- (@apply
- (lambda (#{r 2492}#)
- (#{id? 339}#
- #{r 2492}#))
- #{tmp 2490}#)
- #f)
- (@apply
- (lambda (#{r 2494}#)
- (#{rest 2284}#
- #{r 2494}#
- #{req 2392}#
- #{opt 2393}#
- (cons #f
- (reverse
- #{rkey 2394}#))))
- #{tmp 2490}#)
- (let ((#{else 2496}#
- #{tmp 2399}#))
- (syntax-violation
- 'lambda*
- "invalid keyword argument list"
- #{orig-args 2275}#
- #{args 2391}#)))))))))))))))))))))))
- (#{rest 2284}#
- (lambda (#{args 2497}#
- #{req 2498}#
- #{opt 2499}#
- #{kw 2500}#)
- (let ((#{tmp 2505}# #{args 2497}#))
- (let ((#{tmp 2506}# (list #{tmp 2505}#)))
- (if (if #{tmp 2506}#
- (@apply
- (lambda (#{r 2508}#) (#{id? 339}# #{r 2508}#))
- #{tmp 2506}#)
- #f)
- (@apply
- (lambda (#{r 2510}#)
- (#{check 2286}#
- #{req 2498}#
- #{opt 2499}#
- #{r 2510}#
- #{kw 2500}#))
- #{tmp 2506}#)
- (let ((#{else 2512}# #{tmp 2505}#))
- (syntax-violation
- 'lambda*
- "invalid rest argument"
- #{orig-args 2275}#
- #{args 2497}#)))))))
- (#{check 2286}#
- (lambda (#{req 2513}#
- #{opt 2514}#
- #{rest 2515}#
- #{kw 2516}#)
- (if (#{distinct-bound-ids? 401}#
- (append
- #{req 2513}#
- (map car #{opt 2514}#)
- (if #{rest 2515}# (list #{rest 2515}#) '())
- (if (pair? #{kw 2516}#)
- (map cadr (cdr #{kw 2516}#))
- '())))
- (values
- #{req 2513}#
- #{opt 2514}#
- #{rest 2515}#
- #{kw 2516}#)
- (syntax-violation
- 'lambda*
- "duplicate identifier in argument list"
- #{orig-args 2275}#)))))
- (begin (#{req 2278}# #{orig-args 2275}# '())))))
- (#{chi-lambda-case 443}#
- (lambda (#{e 2524}#
- #{r 2525}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#
- #{get-formals 2529}#
- #{clauses 2530}#)
- (letrec*
- ((#{expand-req 2539}#
- (lambda (#{req 2546}#
- #{opt 2547}#
- #{rest 2548}#
- #{kw 2549}#
- #{body 2550}#)
- (begin
- (let ((#{vars 2558}#
- (map #{gen-var 447}# #{req 2546}#))
- (#{labels 2559}#
- (#{gen-labels 354}# #{req 2546}#)))
- (begin
- (let ((#{r* 2562}#
- (#{extend-var-env 329}#
- #{labels 2559}#
- #{vars 2558}#
- #{r 2525}#))
- (#{w* 2563}#
- (#{make-binding-wrap 383}#
- #{req 2546}#
- #{labels 2559}#
- #{w 2526}#)))
- (#{expand-opt 2541}#
- (map syntax->datum #{req 2546}#)
- #{opt 2547}#
- #{rest 2548}#
- #{kw 2549}#
- #{body 2550}#
- (reverse #{vars 2558}#)
- #{r* 2562}#
- #{w* 2563}#
- '()
- '())))))))
- (#{expand-opt 2541}#
- (lambda (#{req 2564}#
- #{opt 2565}#
- #{rest 2566}#
- #{kw 2567}#
- #{body 2568}#
- #{vars 2569}#
- #{r* 2570}#
- #{w* 2571}#
- #{out 2572}#
- #{inits 2573}#)
- (if (pair? #{opt 2565}#)
- (let ((#{tmp 2586}# (car #{opt 2565}#)))
- (let ((#{tmp 2587}#
- ($sc-dispatch #{tmp 2586}# '(any any))))
- (if #{tmp 2587}#
- (@apply
- (lambda (#{id 2590}# #{i 2591}#)
- (begin
- (let ((#{v 2594}# (#{gen-var 447}# #{id 2590}#)))
- (begin
- (let ((#{l 2596}#
- (#{gen-labels 354}#
- (list #{v 2594}#))))
- (begin
- (let ((#{r** 2598}#
- (#{extend-var-env 329}#
- #{l 2596}#
- (list #{v 2594}#)
- #{r* 2570}#)))
- (begin
- (let ((#{w** 2600}#
- (#{make-binding-wrap 383}#
- (list #{id 2590}#)
- #{l 2596}#
- #{w* 2571}#)))
- (#{expand-opt 2541}#
- #{req 2564}#
- (cdr #{opt 2565}#)
- #{rest 2566}#
- #{kw 2567}#
- #{body 2568}#
- (cons #{v 2594}# #{vars 2569}#)
- #{r** 2598}#
- #{w** 2600}#
- (cons (syntax->datum #{id 2590}#)
- #{out 2572}#)
- (cons (#{chi 419}#
- #{i 2591}#
- #{r* 2570}#
- #{w* 2571}#
- #{mod 2528}#)
- #{inits 2573}#)))))))))))
- #{tmp 2587}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2586}#))))
- (if #{rest 2566}#
- (begin
- (let ((#{v 2605}# (#{gen-var 447}# #{rest 2566}#)))
- (begin
- (let ((#{l 2607}#
- (#{gen-labels 354}# (list #{v 2605}#))))
- (begin
- (let ((#{r* 2609}#
- (#{extend-var-env 329}#
- #{l 2607}#
- (list #{v 2605}#)
- #{r* 2570}#)))
- (begin
- (let ((#{w* 2611}#
- (#{make-binding-wrap 383}#
- (list #{rest 2566}#)
- #{l 2607}#
- #{w* 2571}#)))
- (#{expand-kw 2543}#
- #{req 2564}#
- (if (pair? #{out 2572}#)
- (reverse #{out 2572}#)
- #f)
- (syntax->datum #{rest 2566}#)
- (if (pair? #{kw 2567}#)
- (cdr #{kw 2567}#)
- #{kw 2567}#)
- #{body 2568}#
- (cons #{v 2605}# #{vars 2569}#)
- #{r* 2609}#
- #{w* 2611}#
- (if (pair? #{kw 2567}#)
- (car #{kw 2567}#)
- #f)
- '()
- #{inits 2573}#)))))))))
- (#{expand-kw 2543}#
- #{req 2564}#
- (if (pair? #{out 2572}#)
- (reverse #{out 2572}#)
- #f)
- #f
- (if (pair? #{kw 2567}#)
- (cdr #{kw 2567}#)
- #{kw 2567}#)
- #{body 2568}#
- #{vars 2569}#
- #{r* 2570}#
- #{w* 2571}#
- (if (pair? #{kw 2567}#) (car #{kw 2567}#) #f)
- '()
- #{inits 2573}#)))))
- (#{expand-kw 2543}#
- (lambda (#{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
- #{kw 2616}#
- #{body 2617}#
- #{vars 2618}#
- #{r* 2619}#
- #{w* 2620}#
- #{aok 2621}#
- #{out 2622}#
- #{inits 2623}#)
- (if (pair? #{kw 2616}#)
- (let ((#{tmp 2637}# (car #{kw 2616}#)))
- (let ((#{tmp 2638}#
- ($sc-dispatch #{tmp 2637}# '(any any any))))
- (if #{tmp 2638}#
- (@apply
- (lambda (#{k 2642}# #{id 2643}# #{i 2644}#)
- (begin
- (let ((#{v 2647}# (#{gen-var 447}# #{id 2643}#)))
- (begin
- (let ((#{l 2649}#
- (#{gen-labels 354}#
- (list #{v 2647}#))))
- (begin
- (let ((#{r** 2651}#
- (#{extend-var-env 329}#
- #{l 2649}#
- (list #{v 2647}#)
- #{r* 2619}#)))
- (begin
- (let ((#{w** 2653}#
- (#{make-binding-wrap 383}#
- (list #{id 2643}#)
- #{l 2649}#
- #{w* 2620}#)))
- (#{expand-kw 2543}#
- #{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
- (cdr #{kw 2616}#)
- #{body 2617}#
- (cons #{v 2647}# #{vars 2618}#)
- #{r** 2651}#
- #{w** 2653}#
- #{aok 2621}#
- (cons (list (syntax->datum
- #{k 2642}#)
- (syntax->datum
- #{id 2643}#)
- #{v 2647}#)
- #{out 2622}#)
- (cons (#{chi 419}#
- #{i 2644}#
- #{r* 2619}#
- #{w* 2620}#
- #{mod 2528}#)
- #{inits 2623}#)))))))))))
- #{tmp 2638}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2637}#))))
- (#{expand-body 2545}#
- #{req 2613}#
- #{opt 2614}#
- #{rest 2615}#
- (if (begin
- (let ((#{t 2657}# #{aok 2621}#))
- (if #{t 2657}# #{t 2657}# (pair? #{out 2622}#))))
- (cons #{aok 2621}# (reverse #{out 2622}#))
- #f)
- #{body 2617}#
- (reverse #{vars 2618}#)
- #{r* 2619}#
- #{w* 2620}#
- (reverse #{inits 2623}#)
- '()))))
- (#{expand-body 2545}#
- (lambda (#{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- #{body 2663}#
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
- #{meta 2668}#)
- (let ((#{tmp 2679}# #{body 2663}#))
- (let ((#{tmp 2680}#
- ($sc-dispatch #{tmp 2679}# '(any any . each-any))))
- (if (if #{tmp 2680}#
- (@apply
- (lambda (#{docstring 2684}# #{e1 2685}# #{e2 2686}#)
- (string? (syntax->datum #{docstring 2684}#)))
- #{tmp 2680}#)
- #f)
- (@apply
- (lambda (#{docstring 2690}# #{e1 2691}# #{e2 2692}#)
- (#{expand-body 2545}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- (cons #{e1 2691}# #{e2 2692}#)
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
- (append
- #{meta 2668}#
- (list (cons 'documentation
- (syntax->datum #{docstring 2690}#))))))
- #{tmp 2680}#)
- (let ((#{tmp 2695}#
- ($sc-dispatch
- #{tmp 2679}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 2695}#
- (@apply
- (lambda (#{k 2700}#
- #{v 2701}#
- #{e1 2702}#
- #{e2 2703}#)
- (#{expand-body 2545}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- (cons #{e1 2702}# #{e2 2703}#)
- #{vars 2664}#
- #{r* 2665}#
- #{w* 2666}#
- #{inits 2667}#
- (append
- #{meta 2668}#
- (syntax->datum
- (map cons #{k 2700}# #{v 2701}#)))))
- #{tmp 2695}#)
- (let ((#{tmp 2707}#
- ($sc-dispatch #{tmp 2679}# '(any . each-any))))
- (if #{tmp 2707}#
- (@apply
- (lambda (#{e1 2710}# #{e2 2711}#)
- (values
- #{meta 2668}#
- #{req 2659}#
- #{opt 2660}#
- #{rest 2661}#
- #{kw 2662}#
- #{inits 2667}#
- #{vars 2664}#
- (#{chi-body 427}#
- (cons #{e1 2710}# #{e2 2711}#)
- (#{source-wrap 407}#
- #{e 2524}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#)
- #{r* 2665}#
- #{w* 2666}#
- #{mod 2528}#)))
- #{tmp 2707}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2679}#)))))))))))
- (begin
- (let ((#{tmp 2713}# #{clauses 2530}#))
- (let ((#{tmp 2714}# ($sc-dispatch #{tmp 2713}# '())))
- (if #{tmp 2714}#
- (@apply (lambda () (values '() #f)) #{tmp 2714}#)
- (let ((#{tmp 2715}#
- ($sc-dispatch
- #{tmp 2713}#
- '((any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 2715}#
- (@apply
- (lambda (#{args 2722}#
- #{e1 2723}#
- #{e2 2724}#
- #{args* 2725}#
- #{e1* 2726}#
- #{e2* 2727}#)
- (call-with-values
- (lambda () (#{get-formals 2529}# #{args 2722}#))
- (lambda (#{req 2728}#
- #{opt 2729}#
- #{rest 2730}#
- #{kw 2731}#)
- (call-with-values
- (lambda ()
- (#{expand-req 2539}#
- #{req 2728}#
- #{opt 2729}#
- #{rest 2730}#
- #{kw 2731}#
- (cons #{e1 2723}# #{e2 2724}#)))
- (lambda (#{meta 2737}#
- #{req 2738}#
- #{opt 2739}#
- #{rest 2740}#
- #{kw 2741}#
- #{inits 2742}#
- #{vars 2743}#
- #{body 2744}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 443}#
- #{e 2524}#
- #{r 2525}#
- #{w 2526}#
- #{s 2527}#
- #{mod 2528}#
- #{get-formals 2529}#
- (map (lambda (#{tmp 2755}#
- #{tmp 2754}#
- #{tmp 2753}#)
- (cons #{tmp 2753}#
- (cons #{tmp 2754}#
- #{tmp 2755}#)))
- #{e2* 2727}#
- #{e1* 2726}#
- #{args* 2725}#)))
- (lambda (#{meta* 2757}# #{else* 2758}#)
- (values
- (append #{meta 2737}# #{meta* 2757}#)
- (#{build-lambda-case 287}#
- #{s 2527}#
- #{req 2738}#
- #{opt 2739}#
- #{rest 2740}#
- #{kw 2741}#
- #{inits 2742}#
- #{vars 2743}#
- #{body 2744}#
- #{else* 2758}#)))))))))
- #{tmp 2715}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 2713}#))))))))))
- (#{strip 445}#
- (lambda (#{x 2761}# #{w 2762}#)
- (if (memq 'top (car #{w 2762}#))
- #{x 2761}#
- (letrec*
- ((#{f 2769}#
- (lambda (#{x 2770}#)
- (if (#{syntax-object? 305}# #{x 2770}#)
- (#{strip 445}#
- (#{syntax-object-expression 307}# #{x 2770}#)
- (#{syntax-object-wrap 309}# #{x 2770}#))
- (if (pair? #{x 2770}#)
- (begin
- (let ((#{a 2777}# (#{f 2769}# (car #{x 2770}#)))
- (#{d 2778}# (#{f 2769}# (cdr #{x 2770}#))))
- (if (if (eq? #{a 2777}# (car #{x 2770}#))
- (eq? #{d 2778}# (cdr #{x 2770}#))
- #f)
- #{x 2770}#
- (cons #{a 2777}# #{d 2778}#))))
- (if (vector? #{x 2770}#)
- (begin
- (let ((#{old 2784}# (vector->list #{x 2770}#)))
- (begin
- (let ((#{new 2786}# (map #{f 2769}# #{old 2784}#)))
- (letrec*
- ((#{lp 2790}#
- (lambda (#{l1 2791}# #{l2 2792}#)
- (if (null? #{l1 2791}#)
- #{x 2770}#
- (if (eq? (car #{l1 2791}#)
- (car #{l2 2792}#))
- (#{lp 2790}#
- (cdr #{l1 2791}#)
- (cdr #{l2 2792}#))
- (list->vector #{new 2786}#))))))
- (begin
- (#{lp 2790}# #{old 2784}# #{new 2786}#)))))))
- #{x 2770}#))))))
- (begin (#{f 2769}# #{x 2761}#))))))
- (#{gen-var 447}#
- (lambda (#{id 2794}#)
- (begin
- (let ((#{id 2797}#
- (if (#{syntax-object? 305}# #{id 2794}#)
- (#{syntax-object-expression 307}# #{id 2794}#)
- #{id 2794}#)))
- (gensym
- (string-append (symbol->string #{id 2797}#) " "))))))
- (#{lambda-var-list 449}#
- (lambda (#{vars 2799}#)
- (letrec*
- ((#{lvl 2805}#
- (lambda (#{vars 2806}# #{ls 2807}# #{w 2808}#)
- (if (pair? #{vars 2806}#)
- (#{lvl 2805}#
- (cdr #{vars 2806}#)
- (cons (#{wrap 405}# (car #{vars 2806}#) #{w 2808}# #f)
- #{ls 2807}#)
- #{w 2808}#)
- (if (#{id? 339}# #{vars 2806}#)
- (cons (#{wrap 405}# #{vars 2806}# #{w 2808}# #f)
- #{ls 2807}#)
- (if (null? #{vars 2806}#)
- #{ls 2807}#
- (if (#{syntax-object? 305}# #{vars 2806}#)
- (#{lvl 2805}#
- (#{syntax-object-expression 307}# #{vars 2806}#)
- #{ls 2807}#
- (#{join-wraps 387}#
- #{w 2808}#
- (#{syntax-object-wrap 309}# #{vars 2806}#)))
- (cons #{vars 2806}# #{ls 2807}#))))))))
- (begin (#{lvl 2805}# #{vars 2799}# '() '(())))))))
- (begin
- (lambda (#{src 767}# #{name 768}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 2)
- #{src 767}#
- #{name 768}#))
- (lambda (#{x 1145}# #{update 1146}#)
- (vector-set! #{x 1145}# 1 #{update 1146}#))
- (lambda (#{x 1149}# #{update 1150}#)
- (vector-set! #{x 1149}# 2 #{update 1150}#))
- (lambda (#{x 1153}# #{update 1154}#)
- (vector-set! #{x 1153}# 3 #{update 1154}#))
- (lambda (#{x 1234}#)
- (if (vector? #{x 1234}#)
- (if (= (vector-length #{x 1234}#) 4)
- (eq? (vector-ref #{x 1234}# 0) 'ribcage)
- #f)
- #f))
- (begin
- (#{global-extend 335}#
- 'local-syntax
- 'letrec-syntax
- #t)
- (#{global-extend 335}#
- 'local-syntax
- 'let-syntax
- #f)
- (#{global-extend 335}#
- 'core
- 'fluid-let-syntax
- (lambda (#{e 2819}#
- #{r 2820}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#)
- (let ((#{tmp 2829}# #{e 2819}#))
- (let ((#{tmp 2830}#
- ($sc-dispatch
- #{tmp 2829}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2830}#
- (@apply
- (lambda (#{var 2835}#
- #{val 2836}#
- #{e1 2837}#
- #{e2 2838}#)
- (#{valid-bound-ids? 399}# #{var 2835}#))
- #{tmp 2830}#)
- #f)
- (@apply
- (lambda (#{var 2844}#
- #{val 2845}#
- #{e1 2846}#
- #{e2 2847}#)
- (begin
- (let ((#{names 2849}#
- (map (lambda (#{x 2850}#)
- (#{id-var-name 393}#
- #{x 2850}#
- #{w 2821}#))
- #{var 2844}#)))
- (begin
- (for-each
- (lambda (#{id 2853}# #{n 2854}#)
- (begin
- (let ((#{atom-key 2859}#
- (car (#{lookup 333}#
- #{n 2854}#
- #{r 2820}#
- #{mod 2823}#))))
- (if (eqv? #{atom-key 2859}#
- 'displaced-lexical)
- (syntax-violation
- 'fluid-let-syntax
- "identifier out of context"
- #{e 2819}#
- (#{source-wrap 407}#
- #{id 2853}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#))))))
- #{var 2844}#
- #{names 2849}#)
- (#{chi-body 427}#
- (cons #{e1 2846}# #{e2 2847}#)
- (#{source-wrap 407}#
- #{e 2819}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#)
- (#{extend-env 327}#
- #{names 2849}#
- (begin
- (let ((#{trans-r 2865}#
- (#{macros-only-env 331}# #{r 2820}#)))
- (map (lambda (#{x 2866}#)
- (cons 'macro
- (#{eval-local-transformer 431}#
- (#{chi 419}#
- #{x 2866}#
- #{trans-r 2865}#
- #{w 2821}#
- #{mod 2823}#)
- #{mod 2823}#)))
- #{val 2845}#)))
- #{r 2820}#)
- #{w 2821}#
- #{mod 2823}#)))))
- #{tmp 2830}#)
- (let ((#{_ 2871}# #{tmp 2829}#))
- (syntax-violation
- 'fluid-let-syntax
- "bad syntax"
- (#{source-wrap 407}#
- #{e 2819}#
- #{w 2821}#
- #{s 2822}#
- #{mod 2823}#))))))))
- (#{global-extend 335}#
- 'core
- 'quote
- (lambda (#{e 2872}#
- #{r 2873}#
- #{w 2874}#
- #{s 2875}#
- #{mod 2876}#)
- (let ((#{tmp 2882}# #{e 2872}#))
- (let ((#{tmp 2883}#
- ($sc-dispatch #{tmp 2882}# '(_ any))))
- (if #{tmp 2883}#
- (@apply
- (lambda (#{e 2885}#)
- (#{build-data 291}#
- #{s 2875}#
- (#{strip 445}# #{e 2885}# #{w 2874}#)))
- #{tmp 2883}#)
- (let ((#{_ 2887}# #{tmp 2882}#))
- (syntax-violation
- 'quote
- "bad syntax"
- (#{source-wrap 407}#
- #{e 2872}#
- #{w 2874}#
- #{s 2875}#
- #{mod 2876}#))))))))
- (#{global-extend 335}#
- 'core
- 'syntax
- (letrec*
- ((#{gen-syntax 2889}#
- (lambda (#{src 2904}#
- #{e 2905}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#)
- (if (#{id? 339}# #{e 2905}#)
- (begin
- (let ((#{label 2917}#
- (#{id-var-name 393}# #{e 2905}# '(()))))
- (begin
- (let ((#{b 2920}#
- (#{lookup 333}#
- #{label 2917}#
- #{r 2906}#
- #{mod 2909}#)))
- (if (eq? (car #{b 2920}#) 'syntax)
- (call-with-values
- (lambda ()
- (begin
- (let ((#{var.lev 2923}# (cdr #{b 2920}#)))
- (#{gen-ref 2891}#
- #{src 2904}#
- (car #{var.lev 2923}#)
- (cdr #{var.lev 2923}#)
- #{maps 2907}#))))
- (lambda (#{var 2925}# #{maps 2926}#)
- (values
- (list 'ref #{var 2925}#)
- #{maps 2926}#)))
- (if (#{ellipsis? 2908}# #{e 2905}#)
- (syntax-violation
- 'syntax
- "misplaced ellipsis"
- #{src 2904}#)
- (values
- (list 'quote #{e 2905}#)
- #{maps 2907}#)))))))
- (let ((#{tmp 2931}# #{e 2905}#))
- (let ((#{tmp 2932}#
- ($sc-dispatch #{tmp 2931}# '(any any))))
- (if (if #{tmp 2932}#
- (@apply
- (lambda (#{dots 2935}# #{e 2936}#)
- (#{ellipsis? 2908}# #{dots 2935}#))
- #{tmp 2932}#)
- #f)
- (@apply
- (lambda (#{dots 2939}# #{e 2940}#)
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{e 2940}#
- #{r 2906}#
- #{maps 2907}#
- (lambda (#{x 2941}#) #f)
- #{mod 2909}#))
- #{tmp 2932}#)
- (let ((#{tmp 2943}#
- ($sc-dispatch #{tmp 2931}# '(any any . any))))
- (if (if #{tmp 2943}#
- (@apply
- (lambda (#{x 2947}# #{dots 2948}# #{y 2949}#)
- (#{ellipsis? 2908}# #{dots 2948}#))
- #{tmp 2943}#)
- #f)
- (@apply
- (lambda (#{x 2953}# #{dots 2954}# #{y 2955}#)
- (letrec*
- ((#{f 2959}#
- (lambda (#{y 2960}# #{k 2961}#)
- (let ((#{tmp 2968}# #{y 2960}#))
- (let ((#{tmp 2969}#
- ($sc-dispatch
- #{tmp 2968}#
- '(any . any))))
- (if (if #{tmp 2969}#
- (@apply
- (lambda (#{dots 2972}#
- #{y 2973}#)
- (#{ellipsis? 2908}#
- #{dots 2972}#))
- #{tmp 2969}#)
- #f)
- (@apply
- (lambda (#{dots 2976}#
- #{y 2977}#)
- (#{f 2959}#
- #{y 2977}#
- (lambda (#{maps 2978}#)
- (call-with-values
- (lambda ()
- (#{k 2961}#
- (cons '()
- #{maps 2978}#)))
- (lambda (#{x 2980}#
- #{maps 2981}#)
- (if (null? (car #{maps 2981}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2904}#)
- (values
- (#{gen-mappend 2893}#
- #{x 2980}#
- (car #{maps 2981}#))
- (cdr #{maps 2981}#))))))))
- #{tmp 2969}#)
- (let ((#{_ 2985}# #{tmp 2968}#))
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{y 2960}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{y 2986}#
- #{maps 2987}#)
- (call-with-values
- (lambda ()
- (#{k 2961}#
- #{maps 2987}#))
- (lambda (#{x 2990}#
- #{maps 2991}#)
- (values
- (#{gen-append 2899}#
- #{x 2990}#
- #{y 2986}#)
- #{maps 2991}#))))))))))))
- (begin
- (#{f 2959}#
- #{y 2955}#
- (lambda (#{maps 2962}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{x 2953}#
- #{r 2906}#
- (cons '() #{maps 2962}#)
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{x 2964}# #{maps 2965}#)
- (if (null? (car #{maps 2965}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src 2904}#)
- (values
- (#{gen-map 2895}#
- #{x 2964}#
- (car #{maps 2965}#))
- (cdr #{maps 2965}#))))))))))
- #{tmp 2943}#)
- (let ((#{tmp 2994}#
- ($sc-dispatch #{tmp 2931}# '(any . any))))
- (if #{tmp 2994}#
- (@apply
- (lambda (#{x 2997}# #{y 2998}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{x 2997}#
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{x 2999}# #{maps 3000}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- #{y 2998}#
- #{r 2906}#
- #{maps 3000}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{y 3003}# #{maps 3004}#)
- (values
- (#{gen-cons 2897}#
- #{x 2999}#
- #{y 3003}#)
- #{maps 3004}#))))))
- #{tmp 2994}#)
- (let ((#{tmp 3007}#
- ($sc-dispatch
- #{tmp 2931}#
- '#(vector (any . each-any)))))
- (if #{tmp 3007}#
- (@apply
- (lambda (#{e1 3010}# #{e2 3011}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{src 2904}#
- (cons #{e1 3010}# #{e2 3011}#)
- #{r 2906}#
- #{maps 2907}#
- #{ellipsis? 2908}#
- #{mod 2909}#))
- (lambda (#{e 3013}# #{maps 3014}#)
- (values
- (#{gen-vector 2901}# #{e 3013}#)
- #{maps 3014}#))))
- #{tmp 3007}#)
- (let ((#{_ 3018}# #{tmp 2931}#))
- (values
- (list 'quote #{e 2905}#)
- #{maps 2907}#))))))))))))))
- (#{gen-ref 2891}#
- (lambda (#{src 3020}#
- #{var 3021}#
- #{level 3022}#
- #{maps 3023}#)
- (if (= #{level 3022}# 0)
- (values #{var 3021}# #{maps 3023}#)
- (if (null? #{maps 3023}#)
- (syntax-violation
- 'syntax
- "missing ellipsis"
- #{src 3020}#)
- (call-with-values
- (lambda ()
- (#{gen-ref 2891}#
- #{src 3020}#
- #{var 3021}#
- (#{1-}# #{level 3022}#)
- (cdr #{maps 3023}#)))
- (lambda (#{outer-var 3030}# #{outer-maps 3031}#)
- (begin
- (let ((#{b 3035}#
- (assq #{outer-var 3030}#
- (car #{maps 3023}#))))
- (if #{b 3035}#
- (values (cdr #{b 3035}#) #{maps 3023}#)
- (begin
- (let ((#{inner-var 3037}#
- (#{gen-var 447}# 'tmp)))
- (values
- #{inner-var 3037}#
- (cons (cons (cons #{outer-var 3030}#
- #{inner-var 3037}#)
- (car #{maps 3023}#))
- #{outer-maps 3031}#)))))))))))))
- (#{gen-mappend 2893}#
- (lambda (#{e 3038}# #{map-env 3039}#)
- (list 'apply
- '(primitive append)
- (#{gen-map 2895}# #{e 3038}# #{map-env 3039}#))))
- (#{gen-map 2895}#
- (lambda (#{e 3043}# #{map-env 3044}#)
- (begin
- (let ((#{formals 3049}# (map cdr #{map-env 3044}#))
- (#{actuals 3050}#
- (map (lambda (#{x 3051}#)
- (list 'ref (car #{x 3051}#)))
- #{map-env 3044}#)))
- (if (eq? (car #{e 3043}#) 'ref)
- (car #{actuals 3050}#)
- (if (and-map
- (lambda (#{x 3058}#)
- (if (eq? (car #{x 3058}#) 'ref)
- (memq (car (cdr #{x 3058}#)) #{formals 3049}#)
- #f))
- (cdr #{e 3043}#))
- (cons 'map
- (cons (list 'primitive (car #{e 3043}#))
- (map (begin
- (let ((#{r 3064}#
- (map cons
- #{formals 3049}#
- #{actuals 3050}#)))
- (lambda (#{x 3065}#)
- (cdr (assq (car (cdr #{x 3065}#))
- #{r 3064}#)))))
- (cdr #{e 3043}#))))
- (cons 'map
- (cons (list 'lambda #{formals 3049}# #{e 3043}#)
- #{actuals 3050}#))))))))
- (#{gen-cons 2897}#
- (lambda (#{x 3069}# #{y 3070}#)
- (begin
- (let ((#{atom-key 3075}# (car #{y 3070}#)))
- (if (eqv? #{atom-key 3075}# 'quote)
- (if (eq? (car #{x 3069}#) 'quote)
- (list 'quote
- (cons (car (cdr #{x 3069}#))
- (car (cdr #{y 3070}#))))
- (if (eq? (car (cdr #{y 3070}#)) '())
- (list 'list #{x 3069}#)
- (list 'cons #{x 3069}# #{y 3070}#)))
- (if (eqv? #{atom-key 3075}# 'list)
- (cons 'list (cons #{x 3069}# (cdr #{y 3070}#)))
- (list 'cons #{x 3069}# #{y 3070}#)))))))
- (#{gen-append 2899}#
- (lambda (#{x 3084}# #{y 3085}#)
- (if (equal? #{y 3085}# ''())
- #{x 3084}#
- (list 'append #{x 3084}# #{y 3085}#))))
- (#{gen-vector 2901}#
- (lambda (#{x 3089}#)
- (if (eq? (car #{x 3089}#) 'list)
- (cons 'vector (cdr #{x 3089}#))
- (if (eq? (car #{x 3089}#) 'quote)
- (list 'quote
- (list->vector (car (cdr #{x 3089}#))))
- (list 'list->vector #{x 3089}#)))))
- (#{regen 2903}#
- (lambda (#{x 3099}#)
- (begin
- (let ((#{atom-key 3103}# (car #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'ref)
- (#{build-lexical-reference 271}#
- 'value
- #f
- (car (cdr #{x 3099}#))
- (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'primitive)
- (#{build-primref 289}# #f (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'quote)
- (#{build-data 291}# #f (car (cdr #{x 3099}#)))
- (if (eqv? #{atom-key 3103}# 'lambda)
- (if (list? (car (cdr #{x 3099}#)))
- (#{build-simple-lambda 283}#
- #f
- (car (cdr #{x 3099}#))
- #f
- (car (cdr #{x 3099}#))
- '()
- (#{regen 2903}# (car (cdr (cdr #{x 3099}#)))))
- (error "how did we get here" #{x 3099}#))
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f (car #{x 3099}#))
- (map #{regen 2903}# (cdr #{x 3099}#))))))))))))
- (begin
- (lambda (#{e 3115}#
- #{r 3116}#
- #{w 3117}#
- #{s 3118}#
- #{mod 3119}#)
- (begin
- (let ((#{e 3126}#
- (#{source-wrap 407}#
- #{e 3115}#
- #{w 3117}#
- #{s 3118}#
- #{mod 3119}#)))
- (let ((#{tmp 3127}# #{e 3126}#))
- (let ((#{tmp 3128}#
- ($sc-dispatch #{tmp 3127}# '(_ any))))
- (if #{tmp 3128}#
- (@apply
- (lambda (#{x 3130}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax 2889}#
- #{e 3126}#
- #{x 3130}#
- #{r 3116}#
- '()
- #{ellipsis? 435}#
- #{mod 3119}#))
- (lambda (#{e 3131}# #{maps 3132}#)
- (#{regen 2903}# #{e 3131}#))))
- #{tmp 3128}#)
- (let ((#{_ 3136}# #{tmp 3127}#))
- (syntax-violation
- 'syntax
- "bad `syntax' form"
- #{e 3126}#)))))))))))
- (#{global-extend 335}#
- 'core
- 'lambda
- (lambda (#{e 3137}#
- #{r 3138}#
- #{w 3139}#
- #{s 3140}#
- #{mod 3141}#)
- (let ((#{tmp 3147}# #{e 3137}#))
- (let ((#{tmp 3148}#
- ($sc-dispatch
- #{tmp 3147}#
- '(_ any any . each-any))))
- (if #{tmp 3148}#
- (@apply
- (lambda (#{args 3152}# #{e1 3153}# #{e2 3154}#)
- (call-with-values
- (lambda ()
- (#{lambda-formals 437}# #{args 3152}#))
- (lambda (#{req 3155}#
- #{opt 3156}#
- #{rest 3157}#
- #{kw 3158}#)
- (letrec*
- ((#{lp 3166}#
- (lambda (#{body 3167}# #{meta 3168}#)
- (let ((#{tmp 3170}# #{body 3167}#))
- (let ((#{tmp 3171}#
- ($sc-dispatch
- #{tmp 3170}#
- '(any any . each-any))))
- (if (if #{tmp 3171}#
- (@apply
- (lambda (#{docstring 3175}#
- #{e1 3176}#
- #{e2 3177}#)
- (string?
- (syntax->datum
- #{docstring 3175}#)))
- #{tmp 3171}#)
- #f)
- (@apply
- (lambda (#{docstring 3181}#
- #{e1 3182}#
- #{e2 3183}#)
- (#{lp 3166}#
- (cons #{e1 3182}# #{e2 3183}#)
- (append
- #{meta 3168}#
- (list (cons 'documentation
- (syntax->datum
- #{docstring 3181}#))))))
- #{tmp 3171}#)
- (let ((#{tmp 3186}#
- ($sc-dispatch
- #{tmp 3170}#
- '(#(vector #(each (any . any)))
- any
- .
- each-any))))
- (if #{tmp 3186}#
- (@apply
- (lambda (#{k 3191}#
- #{v 3192}#
- #{e1 3193}#
- #{e2 3194}#)
- (#{lp 3166}#
- (cons #{e1 3193}# #{e2 3194}#)
- (append
- #{meta 3168}#
- (syntax->datum
- (map cons
- #{k 3191}#
- #{v 3192}#)))))
- #{tmp 3186}#)
- (let ((#{_ 3199}# #{tmp 3170}#))
- (#{chi-simple-lambda 439}#
- #{e 3137}#
- #{r 3138}#
- #{w 3139}#
- #{s 3140}#
- #{mod 3141}#
- #{req 3155}#
- #{rest 3157}#
- #{meta 3168}#
- #{body 3167}#))))))))))
- (begin
- (#{lp 3166}#
- (cons #{e1 3153}# #{e2 3154}#)
- '()))))))
- #{tmp 3148}#)
- (let ((#{_ 3201}# #{tmp 3147}#))
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e 3137}#)))))))
- (#{global-extend 335}#
- 'core
- 'lambda*
- (lambda (#{e 3202}#
- #{r 3203}#
- #{w 3204}#
- #{s 3205}#
- #{mod 3206}#)
- (let ((#{tmp 3212}# #{e 3202}#))
- (let ((#{tmp 3213}#
- ($sc-dispatch
- #{tmp 3212}#
- '(_ any any . each-any))))
- (if #{tmp 3213}#
- (@apply
- (lambda (#{args 3217}# #{e1 3218}# #{e2 3219}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 443}#
- #{e 3202}#
- #{r 3203}#
- #{w 3204}#
- #{s 3205}#
- #{mod 3206}#
- #{lambda*-formals 441}#
- (list (cons #{args 3217}#
- (cons #{e1 3218}# #{e2 3219}#)))))
- (lambda (#{meta 3221}# #{lcase 3222}#)
- (#{build-case-lambda 285}#
- #{s 3205}#
- #{meta 3221}#
- #{lcase 3222}#))))
- #{tmp 3213}#)
- (let ((#{_ 3226}# #{tmp 3212}#))
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e 3202}#)))))))
- (#{global-extend 335}#
- 'core
- 'case-lambda
- (lambda (#{e 3227}#
- #{r 3228}#
- #{w 3229}#
- #{s 3230}#
- #{mod 3231}#)
- (let ((#{tmp 3237}# #{e 3227}#))
- (let ((#{tmp 3238}#
- ($sc-dispatch
- #{tmp 3237}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3238}#
- (@apply
- (lambda (#{args 3245}#
- #{e1 3246}#
- #{e2 3247}#
- #{args* 3248}#
- #{e1* 3249}#
- #{e2* 3250}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 443}#
- #{e 3227}#
- #{r 3228}#
- #{w 3229}#
- #{s 3230}#
- #{mod 3231}#
- #{lambda-formals 437}#
- (cons (cons #{args 3245}#
- (cons #{e1 3246}# #{e2 3247}#))
- (map (lambda (#{tmp 3254}#
- #{tmp 3253}#
- #{tmp 3252}#)
- (cons #{tmp 3252}#
- (cons #{tmp 3253}# #{tmp 3254}#)))
- #{e2* 3250}#
- #{e1* 3249}#
- #{args* 3248}#))))
- (lambda (#{meta 3256}# #{lcase 3257}#)
- (#{build-case-lambda 285}#
- #{s 3230}#
- #{meta 3256}#
- #{lcase 3257}#))))
- #{tmp 3238}#)
- (let ((#{_ 3261}# #{tmp 3237}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda"
- #{e 3227}#)))))))
- (#{global-extend 335}#
- 'core
- 'case-lambda*
- (lambda (#{e 3262}#
- #{r 3263}#
- #{w 3264}#
- #{s 3265}#
- #{mod 3266}#)
- (let ((#{tmp 3272}# #{e 3262}#))
- (let ((#{tmp 3273}#
- ($sc-dispatch
- #{tmp 3272}#
- '(_ (any any . each-any)
- .
- #(each (any any . each-any))))))
- (if #{tmp 3273}#
- (@apply
- (lambda (#{args 3280}#
- #{e1 3281}#
- #{e2 3282}#
- #{args* 3283}#
- #{e1* 3284}#
- #{e2* 3285}#)
- (call-with-values
- (lambda ()
- (#{chi-lambda-case 443}#
- #{e 3262}#
- #{r 3263}#
- #{w 3264}#
- #{s 3265}#
- #{mod 3266}#
- #{lambda*-formals 441}#
- (cons (cons #{args 3280}#
- (cons #{e1 3281}# #{e2 3282}#))
- (map (lambda (#{tmp 3289}#
- #{tmp 3288}#
- #{tmp 3287}#)
- (cons #{tmp 3287}#
- (cons #{tmp 3288}# #{tmp 3289}#)))
- #{e2* 3285}#
- #{e1* 3284}#
- #{args* 3283}#))))
- (lambda (#{meta 3291}# #{lcase 3292}#)
- (#{build-case-lambda 285}#
- #{s 3265}#
- #{meta 3291}#
- #{lcase 3292}#))))
- #{tmp 3273}#)
- (let ((#{_ 3296}# #{tmp 3272}#))
- (syntax-violation
- 'case-lambda
- "bad case-lambda*"
- #{e 3262}#)))))))
- (#{global-extend 335}#
- 'core
- 'let
- (letrec*
- ((#{chi-let 3298}#
- (lambda (#{e 3299}#
- #{r 3300}#
- #{w 3301}#
- #{s 3302}#
- #{mod 3303}#
- #{constructor 3304}#
- #{ids 3305}#
- #{vals 3306}#
- #{exps 3307}#)
- (if (not (#{valid-bound-ids? 399}# #{ids 3305}#))
- (syntax-violation
- 'let
- "duplicate bound variable"
- #{e 3299}#)
- (begin
- (let ((#{labels 3319}#
- (#{gen-labels 354}# #{ids 3305}#))
- (#{new-vars 3320}#
- (map #{gen-var 447}# #{ids 3305}#)))
- (begin
- (let ((#{nw 3323}#
- (#{make-binding-wrap 383}#
- #{ids 3305}#
- #{labels 3319}#
- #{w 3301}#))
- (#{nr 3324}#
- (#{extend-var-env 329}#
- #{labels 3319}#
- #{new-vars 3320}#
- #{r 3300}#)))
- (#{constructor 3304}#
- #{s 3302}#
- (map syntax->datum #{ids 3305}#)
- #{new-vars 3320}#
- (map (lambda (#{x 3325}#)
- (#{chi 419}#
- #{x 3325}#
- #{r 3300}#
- #{w 3301}#
- #{mod 3303}#))
- #{vals 3306}#)
- (#{chi-body 427}#
- #{exps 3307}#
- (#{source-wrap 407}#
- #{e 3299}#
- #{nw 3323}#
- #{s 3302}#
- #{mod 3303}#)
- #{nr 3324}#
- #{nw 3323}#
- #{mod 3303}#))))))))))
- (begin
- (lambda (#{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#)
- (let ((#{tmp 3337}# #{e 3327}#))
- (let ((#{tmp 3338}#
- ($sc-dispatch
- #{tmp 3337}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3338}#
- (@apply
- (lambda (#{id 3343}#
- #{val 3344}#
- #{e1 3345}#
- #{e2 3346}#)
- (and-map #{id? 339}# #{id 3343}#))
- #{tmp 3338}#)
- #f)
- (@apply
- (lambda (#{id 3352}#
- #{val 3353}#
- #{e1 3354}#
- #{e2 3355}#)
- (#{chi-let 3298}#
- #{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#
- #{build-let 295}#
- #{id 3352}#
- #{val 3353}#
- (cons #{e1 3354}# #{e2 3355}#)))
- #{tmp 3338}#)
- (let ((#{tmp 3359}#
- ($sc-dispatch
- #{tmp 3337}#
- '(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 3359}#
- (@apply
- (lambda (#{f 3365}#
- #{id 3366}#
- #{val 3367}#
- #{e1 3368}#
- #{e2 3369}#)
- (if (#{id? 339}# #{f 3365}#)
- (and-map #{id? 339}# #{id 3366}#)
- #f))
- #{tmp 3359}#)
- #f)
- (@apply
- (lambda (#{f 3378}#
- #{id 3379}#
- #{val 3380}#
- #{e1 3381}#
- #{e2 3382}#)
- (#{chi-let 3298}#
- #{e 3327}#
- #{r 3328}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#
- #{build-named-let 297}#
- (cons #{f 3378}# #{id 3379}#)
- #{val 3380}#
- (cons #{e1 3381}# #{e2 3382}#)))
- #{tmp 3359}#)
- (let ((#{_ 3387}# #{tmp 3337}#))
- (syntax-violation
- 'let
- "bad let"
- (#{source-wrap 407}#
- #{e 3327}#
- #{w 3329}#
- #{s 3330}#
- #{mod 3331}#))))))))))))
- (#{global-extend 335}#
- 'core
- 'letrec
- (lambda (#{e 3388}#
- #{r 3389}#
- #{w 3390}#
- #{s 3391}#
- #{mod 3392}#)
- (let ((#{tmp 3398}# #{e 3388}#))
- (let ((#{tmp 3399}#
- ($sc-dispatch
- #{tmp 3398}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3399}#
- (@apply
- (lambda (#{id 3404}#
- #{val 3405}#
- #{e1 3406}#
- #{e2 3407}#)
- (and-map #{id? 339}# #{id 3404}#))
- #{tmp 3399}#)
- #f)
- (@apply
- (lambda (#{id 3413}#
- #{val 3414}#
- #{e1 3415}#
- #{e2 3416}#)
- (begin
- (let ((#{ids 3418}# #{id 3413}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 3418}#))
- (syntax-violation
- 'letrec
- "duplicate bound variable"
- #{e 3388}#)
- (begin
- (let ((#{labels 3422}#
- (#{gen-labels 354}# #{ids 3418}#))
- (#{new-vars 3423}#
- (map #{gen-var 447}# #{ids 3418}#)))
- (begin
- (let ((#{w 3426}#
- (#{make-binding-wrap 383}#
- #{ids 3418}#
- #{labels 3422}#
- #{w 3390}#))
- (#{r 3427}#
- (#{extend-var-env 329}#
- #{labels 3422}#
- #{new-vars 3423}#
- #{r 3389}#)))
- (#{build-letrec 299}#
- #{s 3391}#
- #f
- (map syntax->datum #{ids 3418}#)
- #{new-vars 3423}#
- (map (lambda (#{x 3428}#)
- (#{chi 419}#
- #{x 3428}#
- #{r 3427}#
- #{w 3426}#
- #{mod 3392}#))
- #{val 3414}#)
- (#{chi-body 427}#
- (cons #{e1 3415}# #{e2 3416}#)
- (#{source-wrap 407}#
- #{e 3388}#
- #{w 3426}#
- #{s 3391}#
- #{mod 3392}#)
- #{r 3427}#
- #{w 3426}#
- #{mod 3392}#))))))))))
- #{tmp 3399}#)
- (let ((#{_ 3433}# #{tmp 3398}#))
- (syntax-violation
- 'letrec
- "bad letrec"
- (#{source-wrap 407}#
- #{e 3388}#
- #{w 3390}#
- #{s 3391}#
- #{mod 3392}#))))))))
- (#{global-extend 335}#
- 'core
- 'letrec*
- (lambda (#{e 3434}#
- #{r 3435}#
- #{w 3436}#
- #{s 3437}#
- #{mod 3438}#)
- (let ((#{tmp 3444}# #{e 3434}#))
- (let ((#{tmp 3445}#
- ($sc-dispatch
- #{tmp 3444}#
- '(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 3445}#
- (@apply
- (lambda (#{id 3450}#
- #{val 3451}#
- #{e1 3452}#
- #{e2 3453}#)
- (and-map #{id? 339}# #{id 3450}#))
- #{tmp 3445}#)
- #f)
- (@apply
- (lambda (#{id 3459}#
- #{val 3460}#
- #{e1 3461}#
- #{e2 3462}#)
- (begin
- (let ((#{ids 3464}# #{id 3459}#))
- (if (not (#{valid-bound-ids? 399}# #{ids 3464}#))
- (syntax-violation
- 'letrec*
- "duplicate bound variable"
- #{e 3434}#)
- (begin
- (let ((#{labels 3468}#
- (#{gen-labels 354}# #{ids 3464}#))
- (#{new-vars 3469}#
- (map #{gen-var 447}# #{ids 3464}#)))
- (begin
- (let ((#{w 3472}#
- (#{make-binding-wrap 383}#
- #{ids 3464}#
- #{labels 3468}#
- #{w 3436}#))
- (#{r 3473}#
- (#{extend-var-env 329}#
- #{labels 3468}#
- #{new-vars 3469}#
- #{r 3435}#)))
- (#{build-letrec 299}#
- #{s 3437}#
- #t
- (map syntax->datum #{ids 3464}#)
- #{new-vars 3469}#
- (map (lambda (#{x 3474}#)
- (#{chi 419}#
- #{x 3474}#
- #{r 3473}#
- #{w 3472}#
- #{mod 3438}#))
- #{val 3460}#)
- (#{chi-body 427}#
- (cons #{e1 3461}# #{e2 3462}#)
- (#{source-wrap 407}#
- #{e 3434}#
- #{w 3472}#
- #{s 3437}#
- #{mod 3438}#)
- #{r 3473}#
- #{w 3472}#
- #{mod 3438}#))))))))))
- #{tmp 3445}#)
- (let ((#{_ 3479}# #{tmp 3444}#))
- (syntax-violation
- 'letrec*
- "bad letrec*"
- (#{source-wrap 407}#
- #{e 3434}#
- #{w 3436}#
- #{s 3437}#
- #{mod 3438}#))))))))
- (#{global-extend 335}#
- 'core
- 'set!
- (lambda (#{e 3480}#
- #{r 3481}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#)
- (let ((#{tmp 3490}# #{e 3480}#))
- (let ((#{tmp 3491}#
- ($sc-dispatch #{tmp 3490}# '(_ any any))))
- (if (if #{tmp 3491}#
- (@apply
- (lambda (#{id 3494}# #{val 3495}#)
- (#{id? 339}# #{id 3494}#))
- #{tmp 3491}#)
- #f)
- (@apply
- (lambda (#{id 3498}# #{val 3499}#)
- (begin
- (let ((#{n 3502}#
- (#{id-var-name 393}# #{id 3498}# #{w 3482}#))
- (#{id-mod 3503}#
- (if (#{syntax-object? 305}# #{id 3498}#)
- (#{syntax-object-module 311}# #{id 3498}#)
- #{mod 3484}#)))
- (begin
- (let ((#{b 3505}#
- (#{lookup 333}#
- #{n 3502}#
- #{r 3481}#
- #{id-mod 3503}#)))
- (begin
- (let ((#{atom-key 3508}# (car #{b 3505}#)))
- (if (eqv? #{atom-key 3508}# 'lexical)
- (#{build-lexical-assignment 273}#
- #{s 3483}#
- (syntax->datum #{id 3498}#)
- (cdr #{b 3505}#)
- (#{chi 419}#
- #{val 3499}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#))
- (if (eqv? #{atom-key 3508}# 'global)
- (#{build-global-assignment 279}#
- #{s 3483}#
- #{n 3502}#
- (#{chi 419}#
- #{val 3499}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)
- #{id-mod 3503}#)
- (if (eqv? #{atom-key 3508}# 'macro)
- (begin
- (let ((#{p 3515}# (cdr #{b 3505}#)))
- (if (procedure-property
- #{p 3515}#
- 'variable-transformer)
- (#{chi 419}#
- (#{chi-macro 425}#
- #{p 3515}#
- #{e 3480}#
- #{r 3481}#
- #{w 3482}#
- #{s 3483}#
- #f
- #{mod 3484}#)
- #{r 3481}#
- '(())
- #{mod 3484}#)
- (syntax-violation
- 'set!
- "not a variable transformer"
- (#{wrap 405}#
- #{e 3480}#
- #{w 3482}#
- #{mod 3484}#)
- (#{wrap 405}#
- #{id 3498}#
- #{w 3482}#
- #{id-mod 3503}#)))))
- (if (eqv? #{atom-key 3508}#
- 'displaced-lexical)
- (syntax-violation
- 'set!
- "identifier out of context"
- (#{wrap 405}#
- #{id 3498}#
- #{w 3482}#
- #{mod 3484}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 407}#
- #{e 3480}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#)))))))))))))
- #{tmp 3491}#)
- (let ((#{tmp 3520}#
- ($sc-dispatch
- #{tmp 3490}#
- '(_ (any . each-any) any))))
- (if #{tmp 3520}#
- (@apply
- (lambda (#{head 3524}# #{tail 3525}# #{val 3526}#)
- (call-with-values
- (lambda ()
- (#{syntax-type 417}#
- #{head 3524}#
- #{r 3481}#
- '(())
- #f
- #f
- #{mod 3484}#
- #t))
- (lambda (#{type 3529}#
- #{value 3530}#
- #{ee 3531}#
- #{ww 3532}#
- #{ss 3533}#
- #{modmod 3534}#)
- (if (eqv? #{type 3529}# 'module-ref)
- (begin
- (let ((#{val 3543}#
- (#{chi 419}#
- #{val 3526}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)))
- (call-with-values
- (lambda ()
- (#{value 3530}#
- (cons #{head 3524}# #{tail 3525}#)
- #{r 3481}#
- #{w 3482}#))
- (lambda (#{e 3545}#
- #{r 3546}#
- #{w 3547}#
- #{s* 3548}#
- #{mod 3549}#)
- (let ((#{tmp 3555}# #{e 3545}#))
- (let ((#{tmp 3556}#
- (list #{tmp 3555}#)))
- (if (if #{tmp 3556}#
- (@apply
- (lambda (#{e 3558}#)
- (#{id? 339}# #{e 3558}#))
- #{tmp 3556}#)
- #f)
- (@apply
- (lambda (#{e 3560}#)
- (#{build-global-assignment 279}#
- #{s 3483}#
- (syntax->datum #{e 3560}#)
- #{val 3543}#
- #{mod 3549}#))
- #{tmp 3556}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3555}#))))))))
- (#{build-application 265}#
- #{s 3483}#
- (#{chi 419}#
- (list '#(syntax-object
- setter
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(type value ee ww ss modmod)
- #((top)
- (top)
- (top)
- (top)
- (top)
- (top))
- #("i3535"
- "i3536"
- "i3537"
- "i3538"
- "i3539"
- "i3540"))
- #(ribcage
- #(head tail val)
- #((top) (top) (top))
- #("i3521" "i3522" "i3523"))
- #(ribcage () () ())
- #(ribcage
- #(e r w s mod)
- #((top) (top) (top) (top) (top))
- #("i3485"
- "i3486"
- "i3487"
- "i3488"
- "i3489"))
- #(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))
- #{head 3524}#)
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#)
- (map (lambda (#{e 3562}#)
- (#{chi 419}#
- #{e 3562}#
- #{r 3481}#
- #{w 3482}#
- #{mod 3484}#))
- (append
- #{tail 3525}#
- (list #{val 3526}#))))))))
- #{tmp 3520}#)
- (let ((#{_ 3566}# #{tmp 3490}#))
- (syntax-violation
- 'set!
- "bad set!"
- (#{source-wrap 407}#
- #{e 3480}#
- #{w 3482}#
- #{s 3483}#
- #{mod 3484}#))))))))))
- (#{global-extend 335}#
- 'module-ref
- '@
- (lambda (#{e 3567}# #{r 3568}# #{w 3569}#)
- (let ((#{tmp 3573}# #{e 3567}#))
- (let ((#{tmp 3574}#
- ($sc-dispatch #{tmp 3573}# '(_ each-any any))))
- (if (if #{tmp 3574}#
- (@apply
- (lambda (#{mod 3577}# #{id 3578}#)
- (if (and-map #{id? 339}# #{mod 3577}#)
- (#{id? 339}# #{id 3578}#)
- #f))
- #{tmp 3574}#)
- #f)
- (@apply
- (lambda (#{mod 3584}# #{id 3585}#)
- (values
- (syntax->datum #{id 3585}#)
- #{r 3568}#
- #{w 3569}#
- #f
- (syntax->datum
- (cons '#(syntax-object
- public
- ((top)
- #(ribcage
- #(mod id)
- #((top) (top))
- #("i3582" "i3583"))
- #(ribcage () () ())
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3570" "i3571" "i3572"))
- #(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))
- #{mod 3584}#))))
- #{tmp 3574}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3573}#))))))
- (#{global-extend 335}#
- 'module-ref
- '@@
- (lambda (#{e 3587}# #{r 3588}# #{w 3589}#)
- (letrec*
- ((#{remodulate 3594}#
- (lambda (#{x 3595}# #{mod 3596}#)
- (if (pair? #{x 3595}#)
- (cons (#{remodulate 3594}#
- (car #{x 3595}#)
- #{mod 3596}#)
- (#{remodulate 3594}#
- (cdr #{x 3595}#)
- #{mod 3596}#))
- (if (#{syntax-object? 305}# #{x 3595}#)
- (#{make-syntax-object 303}#
- (#{remodulate 3594}#
- (#{syntax-object-expression 307}# #{x 3595}#)
- #{mod 3596}#)
- (#{syntax-object-wrap 309}# #{x 3595}#)
- #{mod 3596}#)
- (if (vector? #{x 3595}#)
- (begin
- (let ((#{n 3607}# (vector-length #{x 3595}#)))
- (begin
- (let ((#{v 3609}# (make-vector #{n 3607}#)))
- (letrec*
- ((#{loop 3612}#
- (lambda (#{i 3613}#)
- (if (= #{i 3613}# #{n 3607}#)
- (begin (if #f #f) #{v 3609}#)
- (begin
- (vector-set!
- #{v 3609}#
- #{i 3613}#
- (#{remodulate 3594}#
- (vector-ref
- #{x 3595}#
- #{i 3613}#)
- #{mod 3596}#))
- (#{loop 3612}#
- (#{1+}# #{i 3613}#)))))))
- (begin (#{loop 3612}# 0)))))))
- #{x 3595}#))))))
- (begin
- (let ((#{tmp 3619}# #{e 3587}#))
- (let ((#{tmp 3620}#
- ($sc-dispatch #{tmp 3619}# '(_ each-any any))))
- (if (if #{tmp 3620}#
- (@apply
- (lambda (#{mod 3623}# #{exp 3624}#)
- (and-map #{id? 339}# #{mod 3623}#))
- #{tmp 3620}#)
- #f)
- (@apply
- (lambda (#{mod 3628}# #{exp 3629}#)
- (begin
- (let ((#{mod 3631}#
- (syntax->datum
- (cons '#(syntax-object
- private
- ((top)
- #(ribcage
- #(mod exp)
- #((top) (top))
- #("i3626" "i3627"))
- #(ribcage
- (remodulate)
- ((top))
- ("i3593"))
- #(ribcage
- #(e r w)
- #((top) (top) (top))
- #("i3590" "i3591" "i3592"))
- #(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))
- #{mod 3628}#))))
- (values
- (#{remodulate 3594}# #{exp 3629}# #{mod 3631}#)
- #{r 3588}#
- #{w 3589}#
- (#{source-annotation 320}# #{exp 3629}#)
- #{mod 3631}#))))
- #{tmp 3620}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3619}#))))))))
- (#{global-extend 335}#
- 'core
- 'if
- (lambda (#{e 3633}#
- #{r 3634}#
- #{w 3635}#
- #{s 3636}#
- #{mod 3637}#)
- (let ((#{tmp 3643}# #{e 3633}#))
- (let ((#{tmp 3644}#
- ($sc-dispatch #{tmp 3643}# '(_ any any))))
- (if #{tmp 3644}#
- (@apply
- (lambda (#{test 3647}# #{then 3648}#)
- (#{build-conditional 267}#
- #{s 3636}#
- (#{chi 419}#
- #{test 3647}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{then 3648}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{build-void 263}# #f)))
- #{tmp 3644}#)
- (let ((#{tmp 3650}#
- ($sc-dispatch #{tmp 3643}# '(_ any any any))))
- (if #{tmp 3650}#
- (@apply
- (lambda (#{test 3654}# #{then 3655}# #{else 3656}#)
- (#{build-conditional 267}#
- #{s 3636}#
- (#{chi 419}#
- #{test 3654}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{then 3655}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)
- (#{chi 419}#
- #{else 3656}#
- #{r 3634}#
- #{w 3635}#
- #{mod 3637}#)))
- #{tmp 3650}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3643}#))))))))
- (#{global-extend 335}#
- 'core
- 'with-fluids
- (lambda (#{e 3657}#
- #{r 3658}#
- #{w 3659}#
- #{s 3660}#
- #{mod 3661}#)
- (let ((#{tmp 3667}# #{e 3657}#))
- (let ((#{tmp 3668}#
- ($sc-dispatch
- #{tmp 3667}#
- '(_ #(each (any any)) any . each-any))))
- (if #{tmp 3668}#
- (@apply
- (lambda (#{fluid 3673}#
- #{val 3674}#
- #{b 3675}#
- #{b* 3676}#)
- (#{build-dynlet 269}#
- #{s 3660}#
- (map (lambda (#{x 3677}#)
- (#{chi 419}#
- #{x 3677}#
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#))
- #{fluid 3673}#)
- (map (lambda (#{x 3680}#)
- (#{chi 419}#
- #{x 3680}#
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#))
- #{val 3674}#)
- (#{chi-body 427}#
- (cons #{b 3675}# #{b* 3676}#)
- (#{source-wrap 407}#
- #{e 3657}#
- #{w 3659}#
- #{s 3660}#
- #{mod 3661}#)
- #{r 3658}#
- #{w 3659}#
- #{mod 3661}#)))
- #{tmp 3668}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3667}#))))))
- (#{global-extend 335}# 'begin 'begin '())
- (#{global-extend 335}# 'define 'define '())
- (#{global-extend 335}#
- 'define-syntax
- 'define-syntax
- '())
- (#{global-extend 335}# 'eval-when 'eval-when '())
- (#{global-extend 335}#
- 'core
- 'syntax-case
- (letrec*
- ((#{convert-pattern 3685}#
- (lambda (#{pattern 3692}# #{keys 3693}#)
- (letrec*
- ((#{cvt* 3697}#
- (lambda (#{p* 3700}# #{n 3701}# #{ids 3702}#)
- (if (null? #{p* 3700}#)
- (values '() #{ids 3702}#)
- (call-with-values
- (lambda ()
- (#{cvt* 3697}#
- (cdr #{p* 3700}#)
- #{n 3701}#
- #{ids 3702}#))
- (lambda (#{y 3706}# #{ids 3707}#)
- (call-with-values
- (lambda ()
- (#{cvt 3699}#
- (car #{p* 3700}#)
- #{n 3701}#
- #{ids 3707}#))
- (lambda (#{x 3710}# #{ids 3711}#)
- (values
- (cons #{x 3710}# #{y 3706}#)
- #{ids 3711}#))))))))
- (#{cvt 3699}#
- (lambda (#{p 3714}# #{n 3715}# #{ids 3716}#)
- (if (#{id? 339}# #{p 3714}#)
- (if (#{bound-id-member? 403}#
- #{p 3714}#
- #{keys 3693}#)
- (values
- (vector 'free-id #{p 3714}#)
- #{ids 3716}#)
- (if (#{free-id=? 395}#
- #{p 3714}#
+ ((#{f 1748}#
+ (lambda (#{when-list 1749}# #{situations 1750}#)
+ (if (null? #{when-list 1749}#)
+ #{situations 1750}#
+ (#{f 1748}#
+ (cdr #{when-list 1749}#)
+ (cons (let ((#{x 1752}# (car #{when-list 1749}#)))
+ (if (#{free-id=? 399}#
+ #{x 1752}#
'#(syntax-object
- _
+ compile
((top)
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage #(x) #((top)) #("i1751"))
#(ribcage () () ())
#(ribcage
- #(p n ids)
+ #(f when-list situations)
#((top) (top) (top))
- #("i3717" "i3718" "i3719"))
- #(ribcage
- (cvt cvt*)
- ((top) (top))
- ("i3698" "i3696"))
- #(ribcage
- #(pattern keys)
- #((top) (top))
- #("i3694" "i3695"))
+ #("i1745" "i1746" "i1747"))
+ #(ribcage () () ())
#(ribcage
- (gen-syntax-case
- gen-clause
- build-dispatch-call
- convert-pattern)
- ((top) (top) (top) (top))
- ("i3690" "i3688" "i3686" "i3684"))
+ #(e when-list w)
+ #((top) (top) (top))
+ #("i1742" "i1743" "i1744"))
#(ribcage
(lambda-var-list
gen-var
((top) (top) (top))
("i40" "i39" "i38")))
(hygiene guile)))
- (values '_ #{ids 3716}#)
- (values
- 'any
- (cons (cons #{p 3714}# #{n 3715}#)
- #{ids 3716}#))))
- (let ((#{tmp 3725}# #{p 3714}#))
- (let ((#{tmp 3726}#
- ($sc-dispatch #{tmp 3725}# '(any any))))
- (if (if #{tmp 3726}#
- (@apply
- (lambda (#{x 3729}# #{dots 3730}#)
- (#{ellipsis? 435}# #{dots 3730}#))
- #{tmp 3726}#)
- #f)
- (@apply
- (lambda (#{x 3733}# #{dots 3734}#)
- (call-with-values
- (lambda ()
- (#{cvt 3699}#
- #{x 3733}#
- (#{1+}# #{n 3715}#)
- #{ids 3716}#))
- (lambda (#{p 3736}# #{ids 3737}#)
- (values
- (if (eq? #{p 3736}# 'any)
- 'each-any
- (vector 'each #{p 3736}#))
- #{ids 3737}#))))
- #{tmp 3726}#)
- (let ((#{tmp 3740}#
- ($sc-dispatch
- #{tmp 3725}#
- '(any any . each-any))))
- (if (if #{tmp 3740}#
- (@apply
- (lambda (#{x 3744}#
- #{dots 3745}#
- #{ys 3746}#)
- (#{ellipsis? 435}# #{dots 3745}#))
- #{tmp 3740}#)
- #f)
- (@apply
- (lambda (#{x 3750}#
- #{dots 3751}#
- #{ys 3752}#)
- (call-with-values
- (lambda ()
- (#{cvt* 3697}#
- #{ys 3752}#
- #{n 3715}#
- #{ids 3716}#))
- (lambda (#{ys 3754}# #{ids 3755}#)
- (call-with-values
- (lambda ()
- (#{cvt 3699}#
- #{x 3750}#
- (#{1+}# #{n 3715}#)
- #{ids 3755}#))
- (lambda (#{x 3758}# #{ids 3759}#)
- (values
- (vector
- 'each+
- #{x 3758}#
- (reverse #{ys 3754}#)
- '())
- #{ids 3759}#))))))
- #{tmp 3740}#)
- (let ((#{tmp 3763}#
- ($sc-dispatch
- #{tmp 3725}#
- '(any . any))))
- (if #{tmp 3763}#
- (@apply
- (lambda (#{x 3766}# #{y 3767}#)
- (call-with-values
- (lambda ()
- (#{cvt 3699}#
- #{y 3767}#
- #{n 3715}#
- #{ids 3716}#))
- (lambda (#{y 3768}# #{ids 3769}#)
- (call-with-values
- (lambda ()
- (#{cvt 3699}#
- #{x 3766}#
- #{n 3715}#
- #{ids 3769}#))
- (lambda (#{x 3772}#
- #{ids 3773}#)
- (values
- (cons #{x 3772}#
- #{y 3768}#)
- #{ids 3773}#))))))
- #{tmp 3763}#)
- (let ((#{tmp 3776}#
- ($sc-dispatch #{tmp 3725}# '())))
- (if #{tmp 3776}#
- (@apply
- (lambda ()
- (values '() #{ids 3716}#))
- #{tmp 3776}#)
- (let ((#{tmp 3777}#
- ($sc-dispatch
- #{tmp 3725}#
- '#(vector each-any))))
- (if #{tmp 3777}#
+ '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 3779}#)
+ (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 3699}#
- #{x 3779}#
- #{n 3715}#
- #{ids 3716}#))
- (lambda (#{p 3781}#
- #{ids 3782}#)
- (values
- (vector
- 'vector
- #{p 3781}#)
- #{ids 3782}#))))
- #{tmp 3777}#)
- (let ((#{x 3786}# #{tmp 3725}#))
- (values
- (vector
- 'atom
- (#{strip 445}#
- #{p 3714}#
- '(())))
- #{ids 3716}#)))))))))))))))))
- (begin (#{cvt 3699}# #{pattern 3692}# 0 '())))))
- (#{build-dispatch-call 3687}#
- (lambda (#{pvars 3788}#
- #{exp 3789}#
- #{y 3790}#
- #{r 3791}#
- #{mod 3792}#)
- (begin
- (map cdr #{pvars 3788}#)
- (let ((#{ids 3800}# (map car #{pvars 3788}#)))
- (begin
- (let ((#{labels 3804}#
- (#{gen-labels 354}# #{ids 3800}#))
- (#{new-vars 3805}#
- (map #{gen-var 447}# #{ids 3800}#)))
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f 'apply)
- (list (#{build-simple-lambda 283}#
- #f
- (map syntax->datum #{ids 3800}#)
- #f
- #{new-vars 3805}#
- '()
- (#{chi 419}#
- #{exp 3789}#
- (#{extend-env 327}#
- #{labels 3804}#
- (map (lambda (#{var 3809}# #{level 3810}#)
- (cons 'syntax
- (cons #{var 3809}#
- #{level 3810}#)))
- #{new-vars 3805}#
- (map cdr #{pvars 3788}#))
- #{r 3791}#)
- (#{make-binding-wrap 383}#
- #{ids 3800}#
- #{labels 3804}#
- '(()))
- #{mod 3792}#))
- #{y 3790}#))))))))
- (#{gen-clause 3689}#
- (lambda (#{x 3816}#
- #{keys 3817}#
- #{clauses 3818}#
- #{r 3819}#
- #{pat 3820}#
- #{fender 3821}#
- #{exp 3822}#
- #{mod 3823}#)
- (call-with-values
- (lambda ()
- (#{convert-pattern 3685}#
- #{pat 3820}#
- #{keys 3817}#))
- (lambda (#{p 3832}# #{pvars 3833}#)
- (if (not (#{distinct-bound-ids? 401}#
- (map car #{pvars 3833}#)))
- (syntax-violation
- 'syntax-case
- "duplicate pattern variable"
- #{pat 3820}#)
- (if (not (and-map
- (lambda (#{x 3840}#)
- (not (#{ellipsis? 435}# (car #{x 3840}#))))
- #{pvars 3833}#))
- (syntax-violation
- 'syntax-case
- "misplaced ellipsis"
- #{pat 3820}#)
- (begin
- (let ((#{y 3844}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
- #f
- (#{build-simple-lambda 283}#
- #f
- (list 'tmp)
- #f
- (list #{y 3844}#)
- '()
- (begin
- (let ((#{y 3848}#
- (#{build-lexical-reference 271}#
- 'value
- #f
- 'tmp
- #{y 3844}#)))
- (#{build-conditional 267}#
- #f
- (let ((#{tmp 3851}# #{fender 3821}#))
- (let ((#{tmp 3852}#
- ($sc-dispatch
- #{tmp 3851}#
- '#(atom #t))))
- (if #{tmp 3852}#
- (@apply
- (lambda () #{y 3848}#)
- #{tmp 3852}#)
- (let ((#{_ 3854}# #{tmp 3851}#))
- (#{build-conditional 267}#
- #f
- #{y 3848}#
- (#{build-dispatch-call 3687}#
- #{pvars 3833}#
- #{fender 3821}#
- #{y 3848}#
- #{r 3819}#
- #{mod 3823}#)
- (#{build-data 291}# #f #f))))))
- (#{build-dispatch-call 3687}#
- #{pvars 3833}#
- #{exp 3822}#
- #{y 3848}#
- #{r 3819}#
- #{mod 3823}#)
- (#{gen-syntax-case 3691}#
- #{x 3816}#
- #{keys 3817}#
- #{clauses 3818}#
- #{r 3819}#
- #{mod 3823}#)))))
- (list (if (eq? #{p 3832}# 'any)
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f 'list)
- (list #{x 3816}#))
- (#{build-application 265}#
- #f
- (#{build-primref 289}# #f '$sc-dispatch)
- (list #{x 3816}#
- (#{build-data 291}#
- #f
- #{p 3832}#))))))))))))))
- (#{gen-syntax-case 3691}#
- (lambda (#{x 3862}#
- #{keys 3863}#
- #{clauses 3864}#
- #{r 3865}#
- #{mod 3866}#)
- (if (null? #{clauses 3864}#)
- (#{build-application 265}#
+ (#{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
- (#{build-primref 289}# #f 'syntax-violation)
- (list (#{build-data 291}# #f #f)
- (#{build-data 291}#
+ (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
- "source expression failed to match any pattern")
- #{x 3862}#))
- (let ((#{tmp 3876}# (car #{clauses 3864}#)))
- (let ((#{tmp 3877}#
- ($sc-dispatch #{tmp 3876}# '(any any))))
- (if #{tmp 3877}#
- (@apply
- (lambda (#{pat 3880}# #{exp 3881}#)
- (if (if (#{id? 339}# #{pat 3880}#)
- (and-map
- (lambda (#{x 3884}#)
- (not (#{free-id=? 395}#
- #{pat 3880}#
- #{x 3884}#)))
- (cons '#(syntax-object
- ...
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3878" "i3879"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3867"
- "i3868"
- "i3869"
- "i3870"
- "i3871"))
- #(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 3863}#))
- #f)
- (if (#{free-id=? 395}#
- '#(syntax-object
- pad
- ((top)
- #(ribcage
- #(pat exp)
- #((top) (top))
- #("i3878" "i3879"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3867"
- "i3868"
- "i3869"
- "i3870"
- "i3871"))
- #(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))
- #("i3878" "i3879"))
- #(ribcage () () ())
- #(ribcage
- #(x keys clauses r mod)
- #((top) (top) (top) (top) (top))
- #("i3867"
- "i3868"
- "i3869"
- "i3870"
- "i3871"))
- #(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)
+ (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)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (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 3881}#
- #{r 3865}#
- '(())
- #{mod 3866}#)
- (begin
- (let ((#{labels 3889}#
- (list (#{gen-label 352}#)))
- (#{var 3890}#
- (#{gen-var 447}# #{pat 3880}#)))
- (#{build-application 265}#
+ #(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}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3713}#
+ (cdr #{p* 3716}#)
+ #{n 3717}#
+ #{ids 3718}#))
+ (lambda (#{y 3722}# #{ids 3723}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3715}#
+ (car #{p* 3716}#)
+ #{n 3717}#
+ #{ids 3723}#))
+ (lambda (#{x 3726}# #{ids 3727}#)
+ (values
+ (cons #{x 3726}# #{y 3722}#)
+ #{ids 3727}#))))))))
+ (#{cvt 3715}#
+ (lambda (#{p 3730}# #{n 3731}# #{ids 3732}#)
+ (if (#{id? 343}# #{p 3730}#)
+ (if (#{bound-id-member? 407}#
+ #{p 3730}#
+ #{keys 3709}#)
+ (values
+ (vector 'free-id #{p 3730}#)
+ #{ids 3732}#)
+ (if (#{free-id=? 399}#
+ #{p 3730}#
+ '#(syntax-object
+ _
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
+ #(p n ids)
+ #((top) (top) (top))
+ #("i3733" "i3734" "i3735"))
+ #(ribcage
+ (cvt cvt*)
+ ((top) (top))
+ ("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
+ '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}#
+ (@apply
+ (lambda (#{x 3745}# #{dots 3746}#)
+ (#{ellipsis? 439}# #{dots 3746}#))
+ #{tmp 3742}#)
+ #f)
+ (@apply
+ (lambda (#{x 3749}# #{dots 3750}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3715}#
+ #{x 3749}#
+ (#{1+}# #{n 3731}#)
+ #{ids 3732}#))
+ (lambda (#{p 3752}# #{ids 3753}#)
+ (values
+ (if (eq? #{p 3752}# 'any)
+ 'each-any
+ (vector 'each #{p 3752}#))
+ #{ids 3753}#))))
+ #{tmp 3742}#)
+ (let ((#{tmp 3756}#
+ ($sc-dispatch
+ #{tmp 3741}#
+ '(any any . each-any))))
+ (if (if #{tmp 3756}#
+ (@apply
+ (lambda (#{x 3760}#
+ #{dots 3761}#
+ #{ys 3762}#)
+ (#{ellipsis? 439}# #{dots 3761}#))
+ #{tmp 3756}#)
+ #f)
+ (@apply
+ (lambda (#{x 3766}#
+ #{dots 3767}#
+ #{ys 3768}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt* 3713}#
+ #{ys 3768}#
+ #{n 3731}#
+ #{ids 3732}#))
+ (lambda (#{ys 3770}# #{ids 3771}#)
+ (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}#
+ ($sc-dispatch
+ #{tmp 3741}#
+ '(any . any))))
+ (if #{tmp 3779}#
+ (@apply
+ (lambda (#{x 3782}# #{y 3783}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3715}#
+ #{y 3783}#
+ #{n 3731}#
+ #{ids 3732}#))
+ (lambda (#{y 3784}# #{ids 3785}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3715}#
+ #{x 3782}#
+ #{n 3731}#
+ #{ids 3785}#))
+ (lambda (#{x 3788}# #{ids 3789}#)
+ (values
+ (cons #{x 3788}# #{y 3784}#)
+ #{ids 3789}#))))))
+ #{tmp 3779}#)
+ (let ((#{tmp 3792}#
+ ($sc-dispatch #{tmp 3741}# '())))
+ (if #{tmp 3792}#
+ (@apply
+ (lambda () (values '() #{ids 3732}#))
+ #{tmp 3792}#)
+ (let ((#{tmp 3793}#
+ ($sc-dispatch
+ #{tmp 3741}#
+ '#(vector each-any))))
+ (if #{tmp 3793}#
+ (@apply
+ (lambda (#{x 3795}#)
+ (call-with-values
+ (lambda ()
+ (#{cvt 3715}#
+ #{x 3795}#
+ #{n 3731}#
+ #{ids 3732}#))
+ (lambda (#{p 3797}#
+ #{ids 3798}#)
+ (values
+ (vector
+ 'vector
+ #{p 3797}#)
+ #{ids 3798}#))))
+ #{tmp 3793}#)
+ (let ((#{x 3802}# #{tmp 3741}#))
+ (values
+ (vector
+ 'atom
+ (#{strip 449}#
+ #{p 3730}#
+ '(())))
+ #{ids 3732}#)))))))))))))))))
+ (#{cvt 3715}# #{pattern 3708}# 0 '()))))
+ (#{build-dispatch-call 3703}#
+ (lambda (#{pvars 3804}#
+ #{exp 3805}#
+ #{y 3806}#
+ #{r 3807}#
+ #{mod 3808}#)
+ (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}#)))
+ (#{build-primcall 291}#
+ #f
+ 'apply
+ (list (#{build-simple-lambda 285}#
+ #f
+ (map syntax->datum #{ids 3816}#)
+ #f
+ #{new-vars 3821}#
+ '()
+ (#{chi 423}#
+ #{exp 3805}#
+ (#{extend-env 331}#
+ #{labels 3820}#
+ (map (lambda (#{var 3824}# #{level 3825}#)
+ (cons 'syntax
+ (cons #{var 3824}#
+ #{level 3825}#)))
+ #{new-vars 3821}#
+ (map cdr #{pvars 3804}#))
+ #{r 3807}#)
+ (#{make-binding-wrap 387}#
+ #{ids 3816}#
+ #{labels 3820}#
+ '(()))
+ #{mod 3808}#))
+ #{y 3806}#)))))))
+ (#{gen-clause 3705}#
+ (lambda (#{x 3831}#
+ #{keys 3832}#
+ #{clauses 3833}#
+ #{r 3834}#
+ #{pat 3835}#
+ #{fender 3836}#
+ #{exp 3837}#
+ #{mod 3838}#)
+ (call-with-values
+ (lambda ()
+ (#{convert-pattern 3701}#
+ #{pat 3835}#
+ #{keys 3832}#))
+ (lambda (#{p 3847}# #{pvars 3848}#)
+ (if (not (#{distinct-bound-ids? 405}#
+ (map car #{pvars 3848}#)))
+ (syntax-violation
+ 'syntax-case
+ "duplicate pattern variable"
+ #{pat 3835}#)
+ (if (not (and-map
+ (lambda (#{x 3855}#)
+ (not (#{ellipsis? 439}# (car #{x 3855}#))))
+ #{pvars 3848}#))
+ (syntax-violation
+ 'syntax-case
+ "misplaced ellipsis"
+ #{pat 3835}#)
+ (let ((#{y 3859}# (#{gen-var 451}# 'tmp)))
+ (#{build-call 267}#
+ #f
+ (#{build-simple-lambda 285}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{y 3859}#)
+ '()
+ (let ((#{y 3863}#
+ (#{build-lexical-reference 273}#
+ 'value
#f
- (#{build-simple-lambda 283}#
- #f
- (list (syntax->datum #{pat 3880}#))
- #f
- (list #{var 3890}#)
- '()
- (#{chi 419}#
- #{exp 3881}#
- (#{extend-env 327}#
- #{labels 3889}#
- (list (cons 'syntax
- (cons #{var 3890}# 0)))
- #{r 3865}#)
- (#{make-binding-wrap 383}#
- (list #{pat 3880}#)
- #{labels 3889}#
- '(()))
- #{mod 3866}#))
- (list #{x 3862}#)))))
- (#{gen-clause 3689}#
- #{x 3862}#
- #{keys 3863}#
- (cdr #{clauses 3864}#)
- #{r 3865}#
- #{pat 3880}#
- #t
- #{exp 3881}#
- #{mod 3866}#)))
- #{tmp 3877}#)
- (let ((#{tmp 3896}#
- ($sc-dispatch #{tmp 3876}# '(any any any))))
- (if #{tmp 3896}#
- (@apply
- (lambda (#{pat 3900}#
- #{fender 3901}#
- #{exp 3902}#)
- (#{gen-clause 3689}#
- #{x 3862}#
- #{keys 3863}#
- (cdr #{clauses 3864}#)
- #{r 3865}#
- #{pat 3900}#
- #{fender 3901}#
- #{exp 3902}#
- #{mod 3866}#))
- #{tmp 3896}#)
- (let ((#{_ 3904}# #{tmp 3876}#))
- (syntax-violation
- 'syntax-case
- "invalid clause"
- (car #{clauses 3864}#))))))))))))
- (begin
- (lambda (#{e 3905}#
- #{r 3906}#
- #{w 3907}#
- #{s 3908}#
- #{mod 3909}#)
- (begin
- (let ((#{e 3916}#
- (#{source-wrap 407}#
- #{e 3905}#
- #{w 3907}#
- #{s 3908}#
- #{mod 3909}#)))
- (let ((#{tmp 3917}# #{e 3916}#))
- (let ((#{tmp 3918}#
- ($sc-dispatch
- #{tmp 3917}#
- '(_ any each-any . each-any))))
- (if #{tmp 3918}#
- (@apply
- (lambda (#{val 3922}# #{key 3923}# #{m 3924}#)
- (if (and-map
- (lambda (#{x 3925}#)
- (if (#{id? 339}# #{x 3925}#)
- (not (#{ellipsis? 435}# #{x 3925}#))
- #f))
- #{key 3923}#)
- (begin
- (let ((#{x 3931}# (#{gen-var 447}# 'tmp)))
- (#{build-application 265}#
- #{s 3908}#
- (#{build-simple-lambda 283}#
- #f
- (list 'tmp)
- #f
- (list #{x 3931}#)
- '()
- (#{gen-syntax-case 3691}#
- (#{build-lexical-reference 271}#
- 'value
- #f
- 'tmp
- #{x 3931}#)
- #{key 3923}#
- #{m 3924}#
- #{r 3906}#
- #{mod 3909}#))
- (list (#{chi 419}#
- #{val 3922}#
- #{r 3906}#
- '(())
- #{mod 3909}#)))))
- (syntax-violation
- 'syntax-case
- "invalid literals list"
- #{e 3916}#)))
- #{tmp 3918}#)
+ 'tmp
+ #{y 3859}#)))
+ (#{build-conditional 269}#
+ #f
+ (let ((#{tmp 3866}# #{fender 3836}#))
+ (let ((#{tmp 3867}#
+ ($sc-dispatch
+ #{tmp 3866}#
+ '#(atom #t))))
+ (if #{tmp 3867}#
+ (@apply
+ (lambda () #{y 3863}#)
+ #{tmp 3867}#)
+ (let ((#{_ 3869}# #{tmp 3866}#))
+ (#{build-conditional 269}#
+ #f
+ #{y 3863}#
+ (#{build-dispatch-call 3703}#
+ #{pvars 3848}#
+ #{fender 3836}#
+ #{y 3863}#
+ #{r 3834}#
+ #{mod 3838}#)
+ (#{build-data 295}# #f #f))))))
+ (#{build-dispatch-call 3703}#
+ #{pvars 3848}#
+ #{exp 3837}#
+ #{y 3863}#
+ #{r 3834}#
+ #{mod 3838}#)
+ (#{gen-syntax-case 3707}#
+ #{x 3831}#
+ #{keys 3832}#
+ #{clauses 3833}#
+ #{r 3834}#
+ #{mod 3838}#))))
+ (list (if (eq? #{p 3847}# 'any)
+ (#{build-primcall 291}#
+ #f
+ 'list
+ (list #{x 3831}#))
+ (#{build-primcall 291}#
+ #f
+ '$sc-dispatch
+ (list #{x 3831}#
+ (#{build-data 295}#
+ #f
+ #{p 3847}#)))))))))))))
+ (#{gen-syntax-case 3707}#
+ (lambda (#{x 3875}#
+ #{keys 3876}#
+ #{clauses 3877}#
+ #{r 3878}#
+ #{mod 3879}#)
+ (if (null? #{clauses 3877}#)
+ (#{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}#
+ (@apply
+ (lambda (#{pat 3892}# #{exp 3893}#)
+ (if (if (#{id? 343}# #{pat 3892}#)
+ (and-map
+ (lambda (#{x 3896}#)
+ (not (#{free-id=? 399}#
+ #{pat 3892}#
+ #{x 3896}#)))
+ (cons '#(syntax-object
+ ...
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3890" "i3891"))
+ #(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))
+ ("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}#))
+ #f)
+ (if (#{free-id=? 399}#
+ '#(syntax-object
+ pad
+ ((top)
+ #(ribcage
+ #(pat exp)
+ #((top) (top))
+ #("i3890" "i3891"))
+ #(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))
+ ("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"))
+ #(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))
+ ("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}#
+ '(())
+ #{mod 3879}#)
+ (let ((#{labels 3901}# (list (#{gen-label 356}#)))
+ (#{var 3902}#
+ (#{gen-var 451}# #{pat 3892}#)))
+ (#{build-call 267}#
+ #f
+ (#{build-simple-lambda 285}#
+ #f
+ (list (syntax->datum #{pat 3892}#))
+ #f
+ (list #{var 3902}#)
+ '()
+ (#{chi 423}#
+ #{exp 3893}#
+ (#{extend-env 331}#
+ #{labels 3901}#
+ (list (cons 'syntax
+ (cons #{var 3902}# 0)))
+ #{r 3878}#)
+ (#{make-binding-wrap 387}#
+ (list #{pat 3892}#)
+ #{labels 3901}#
+ '(()))
+ #{mod 3879}#))
+ (list #{x 3875}#))))
+ (#{gen-clause 3705}#
+ #{x 3875}#
+ #{keys 3876}#
+ (cdr #{clauses 3877}#)
+ #{r 3878}#
+ #{pat 3892}#
+ #t
+ #{exp 3893}#
+ #{mod 3879}#)))
+ #{tmp 3889}#)
+ (let ((#{tmp 3908}#
+ ($sc-dispatch #{tmp 3888}# '(any any any))))
+ (if #{tmp 3908}#
+ (@apply
+ (lambda (#{pat 3912}# #{fender 3913}# #{exp 3914}#)
+ (#{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}#))
+ (syntax-violation
+ 'syntax-case
+ "invalid clause"
+ (car #{clauses 3877}#))))))))))))
+ (lambda (#{e 3917}#
+ #{r 3918}#
+ #{w 3919}#
+ #{s 3920}#
+ #{mod 3921}#)
+ (let ((#{e 3928}#
+ (#{source-wrap 411}#
+ #{e 3917}#
+ #{w 3919}#
+ #{s 3920}#
+ #{mod 3921}#)))
+ (let ((#{tmp 3929}# #{e 3928}#))
+ (let ((#{tmp 3930}#
+ ($sc-dispatch
+ #{tmp 3929}#
+ '(_ any each-any . each-any))))
+ (if #{tmp 3930}#
+ (@apply
+ (lambda (#{val 3934}# #{key 3935}# #{m 3936}#)
+ (if (and-map
+ (lambda (#{x 3937}#)
+ (if (#{id? 343}# #{x 3937}#)
+ (not (#{ellipsis? 439}# #{x 3937}#))
+ #f))
+ #{key 3935}#)
+ (let ((#{x 3943}# (#{gen-var 451}# 'tmp)))
+ (#{build-call 267}#
+ #{s 3920}#
+ (#{build-simple-lambda 285}#
+ #f
+ (list 'tmp)
+ #f
+ (list #{x 3943}#)
+ '()
+ (#{gen-syntax-case 3707}#
+ (#{build-lexical-reference 273}#
+ 'value
+ #f
+ 'tmp
+ #{x 3943}#)
+ #{key 3935}#
+ #{m 3936}#
+ #{r 3918}#
+ #{mod 3921}#))
+ (list (#{chi 423}#
+ #{val 3934}#
+ #{r 3918}#
+ '(())
+ #{mod 3921}#))))
(syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 3917}#))))))))))
- (set! macroexpand
- (lambda*
- (#{x 3937}#
- #:optional
- (#{m 3939}# 'e)
- (#{esew 3941}# '(eval)))
- (#{chi-top-sequence 411}#
- (list #{x 3937}#)
- '()
- '((top))
- #f
- #{m 3939}#
- #{esew 3941}#
- (cons 'hygiene (module-name (current-module))))))
- (set! identifier?
- (lambda (#{x 3945}#)
- (#{nonsymbol-id? 337}# #{x 3945}#)))
- (set! datum->syntax
- (lambda (#{id 3947}# #{datum 3948}#)
- (#{make-syntax-object 303}#
- #{datum 3948}#
- (#{syntax-object-wrap 309}# #{id 3947}#)
- (#{syntax-object-module 311}# #{id 3947}#))))
- (set! syntax->datum
- (lambda (#{x 3951}#)
- (#{strip 445}# #{x 3951}# '(()))))
- (set! syntax-source
- (lambda (#{x 3954}#)
- (#{source-annotation 320}# #{x 3954}#)))
- (set! generate-temporaries
- (lambda (#{ls 3956}#)
- (begin
- (begin
- (let ((#{x 3960}# #{ls 3956}#))
- (if (not (list? #{x 3960}#))
- (syntax-violation
- 'generate-temporaries
- "invalid argument"
- #{x 3960}#))))
- (begin
- (let ((#{mod 3962}#
- (cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 3963}#)
- (#{wrap 405}# (gensym) '((top)) #{mod 3962}#))
- #{ls 3956}#))))))
- (set! free-identifier=?
- (lambda (#{x 3967}# #{y 3968}#)
- (begin
- (begin
- (let ((#{x 3973}# #{x 3967}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3973}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 3973}#))))
- (begin
- (let ((#{x 3976}# #{y 3968}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3976}#))
- (syntax-violation
- 'free-identifier=?
- "invalid argument"
- #{x 3976}#))))
- (#{free-id=? 395}# #{x 3967}# #{y 3968}#))))
- (set! bound-identifier=?
- (lambda (#{x 3977}# #{y 3978}#)
- (begin
- (begin
- (let ((#{x 3983}# #{x 3977}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3983}#))
+ 'syntax-case
+ "invalid literals list"
+ #{e 3928}#)))
+ #{tmp 3930}#)
(syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 3983}#))))
- (begin
- (let ((#{x 3986}# #{y 3978}#))
- (if (not (#{nonsymbol-id? 337}# #{x 3986}#))
- (syntax-violation
- 'bound-identifier=?
- "invalid argument"
- #{x 3986}#))))
- (#{bound-id=? 397}# #{x 3977}# #{y 3978}#))))
- (set! syntax-violation
- (lambda*
- (#{who 3987}#
- #{message 3988}#
- #{form 3989}#
- #:optional
- (#{subform 3993}# #f))
- (begin
- (begin
- (let ((#{x 3997}# #{who 3987}#))
- (if (not (let ((#{x 3998}# #{x 3997}#))
- (begin
- (let ((#{t 4002}# (not #{x 3998}#)))
- (if #{t 4002}#
- #{t 4002}#
- (begin
- (let ((#{t 4005}# (string? #{x 3998}#)))
- (if #{t 4005}#
- #{t 4005}#
- (symbol? #{x 3998}#)))))))))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 3997}#))))
- (begin
- (let ((#{x 4009}# #{message 3988}#))
- (if (not (string? #{x 4009}#))
- (syntax-violation
- 'syntax-violation
- "invalid argument"
- #{x 4009}#))))
- (throw 'syntax-error
- #{who 3987}#
- #{message 3988}#
- (#{source-annotation 320}#
- (begin
- (let ((#{t 4012}# #{form 3989}#))
- (if #{t 4012}# #{t 4012}# #{subform 3993}#))))
- (#{strip 445}# #{form 3989}# '(()))
- (if #{subform 3993}#
- (#{strip 445}# #{subform 3993}# '(()))
- #f)))))
- (letrec*
- ((#{match-each 4019}#
- (lambda (#{e 4032}# #{p 4033}# #{w 4034}# #{mod 4035}#)
- (if (pair? #{e 4032}#)
- (begin
- (let ((#{first 4043}#
- (#{match 4031}#
- (car #{e 4032}#)
- #{p 4033}#
- #{w 4034}#
- '()
- #{mod 4035}#)))
- (if #{first 4043}#
- (begin
- (let ((#{rest 4047}#
- (#{match-each 4019}#
- (cdr #{e 4032}#)
- #{p 4033}#
- #{w 4034}#
- #{mod 4035}#)))
- (if #{rest 4047}#
- (cons #{first 4043}# #{rest 4047}#)
- #f)))
- #f)))
- (if (null? #{e 4032}#)
- '()
- (if (#{syntax-object? 305}# #{e 4032}#)
- (#{match-each 4019}#
- (#{syntax-object-expression 307}# #{e 4032}#)
- #{p 4033}#
- (#{join-wraps 387}#
- #{w 4034}#
- (#{syntax-object-wrap 309}# #{e 4032}#))
- (#{syntax-object-module 311}# #{e 4032}#))
- #f)))))
- (#{match-each+ 4021}#
- (lambda (#{e 4055}#
- #{x-pat 4056}#
- #{y-pat 4057}#
- #{z-pat 4058}#
- #{w 4059}#
- #{r 4060}#
- #{mod 4061}#)
- (letrec*
- ((#{f 4072}#
- (lambda (#{e 4073}# #{w 4074}#)
- (if (pair? #{e 4073}#)
- (call-with-values
- (lambda ()
- (#{f 4072}# (cdr #{e 4073}#) #{w 4074}#))
- (lambda (#{xr* 4077}# #{y-pat 4078}# #{r 4079}#)
- (if #{r 4079}#
- (if (null? #{y-pat 4078}#)
- (begin
- (let ((#{xr 4084}#
- (#{match 4031}#
- (car #{e 4073}#)
- #{x-pat 4056}#
- #{w 4074}#
- '()
- #{mod 4061}#)))
- (if #{xr 4084}#
- (values
- (cons #{xr 4084}# #{xr* 4077}#)
- #{y-pat 4078}#
- #{r 4079}#)
- (values #f #f #f))))
- (values
- '()
- (cdr #{y-pat 4078}#)
- (#{match 4031}#
- (car #{e 4073}#)
- (car #{y-pat 4078}#)
- #{w 4074}#
- #{r 4079}#
- #{mod 4061}#)))
- (values #f #f #f))))
- (if (#{syntax-object? 305}# #{e 4073}#)
- (#{f 4072}#
- (#{syntax-object-expression 307}# #{e 4073}#)
- (#{join-wraps 387}# #{w 4074}# #{e 4073}#))
- (values
- '()
- #{y-pat 4057}#
- (#{match 4031}#
- #{e 4073}#
- #{z-pat 4058}#
- #{w 4074}#
- #{r 4060}#
- #{mod 4061}#)))))))
- (begin (#{f 4072}# #{e 4055}# #{w 4059}#)))))
- (#{match-each-any 4023}#
- (lambda (#{e 4088}# #{w 4089}# #{mod 4090}#)
- (if (pair? #{e 4088}#)
- (begin
- (let ((#{l 4097}#
- (#{match-each-any 4023}#
- (cdr #{e 4088}#)
- #{w 4089}#
- #{mod 4090}#)))
- (if #{l 4097}#
- (cons (#{wrap 405}#
- (car #{e 4088}#)
- #{w 4089}#
- #{mod 4090}#)
- #{l 4097}#)
- #f)))
- (if (null? #{e 4088}#)
- '()
- (if (#{syntax-object? 305}# #{e 4088}#)
- (#{match-each-any 4023}#
- (#{syntax-object-expression 307}# #{e 4088}#)
- (#{join-wraps 387}#
- #{w 4089}#
- (#{syntax-object-wrap 309}# #{e 4088}#))
- #{mod 4090}#)
+ #f
+ "source expression failed to match any pattern"
+ #{tmp 3929}#))))))))
+ (set! macroexpand
+ (lambda*
+ (#{x 3949}#
+ #:optional
+ (#{m 3951}# 'e)
+ (#{esew 3953}# '(eval)))
+ (#{chi-top-sequence 415}#
+ (list #{x 3949}#)
+ '()
+ '((top))
+ #f
+ #{m 3951}#
+ #{esew 3953}#
+ (cons 'hygiene (module-name (current-module))))))
+ (set! identifier?
+ (lambda (#{x 3957}#)
+ (#{nonsymbol-id? 341}# #{x 3957}#)))
+ (set! datum->syntax
+ (lambda (#{id 3959}# #{datum 3960}#)
+ (#{make-syntax-object 307}#
+ #{datum 3960}#
+ (#{syntax-object-wrap 313}# #{id 3959}#)
+ (#{syntax-object-module 315}# #{id 3959}#))))
+ (set! syntax->datum
+ (lambda (#{x 3963}#)
+ (#{strip 449}# #{x 3963}# '(()))))
+ (set! syntax-source
+ (lambda (#{x 3966}#)
+ (#{source-annotation 324}# #{x 3966}#)))
+ (set! generate-temporaries
+ (lambda (#{ls 3968}#)
+ (begin
+ (let ((#{x 3972}# #{ls 3968}#))
+ (if (not (list? #{x 3972}#))
+ (syntax-violation
+ 'generate-temporaries
+ "invalid argument"
+ #{x 3972}#)))
- (map (lambda (#{x 3973}#)
- (#{wrap 409}# (gensym) '((top)) #f))
- #{ls 3968}#))))
++ (let ((#{mod 3974}#
++ (cons 'hygiene (module-name (current-module)))))
++ (map (lambda (#{x 3975}#)
++ (#{wrap 409}# (gensym) '((top)) #{mod 3974}#))
++ #{ls 3968}#)))))
+ (set! free-identifier=?
- (lambda (#{x 3977}# #{y 3978}#)
++ (lambda (#{x 3979}# #{y 3980}#)
+ (begin
- (let ((#{x 3983}# #{x 3977}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3983}#))
++ (let ((#{x 3985}# #{x 3979}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 3985}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
- #{x 3983}#)))
- (let ((#{x 3986}# #{y 3978}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3986}#))
++ #{x 3985}#)))
++ (let ((#{x 3988}# #{y 3980}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 3988}#))
+ (syntax-violation
+ 'free-identifier=?
+ "invalid argument"
- #{x 3986}#)))
- (#{free-id=? 399}# #{x 3977}# #{y 3978}#))))
++ #{x 3988}#)))
++ (#{free-id=? 399}# #{x 3979}# #{y 3980}#))))
+ (set! bound-identifier=?
- (lambda (#{x 3987}# #{y 3988}#)
++ (lambda (#{x 3989}# #{y 3990}#)
+ (begin
- (let ((#{x 3993}# #{x 3987}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3993}#))
++ (let ((#{x 3995}# #{x 3989}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 3995}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
- #{x 3993}#)))
- (let ((#{x 3996}# #{y 3988}#))
- (if (not (#{nonsymbol-id? 341}# #{x 3996}#))
++ #{x 3995}#)))
++ (let ((#{x 3998}# #{y 3990}#))
++ (if (not (#{nonsymbol-id? 341}# #{x 3998}#))
+ (syntax-violation
+ 'bound-identifier=?
+ "invalid argument"
- #{x 3996}#)))
- (#{bound-id=? 401}# #{x 3987}# #{y 3988}#))))
++ #{x 3998}#)))
++ (#{bound-id=? 401}# #{x 3989}# #{y 3990}#))))
+ (set! syntax-violation
+ (lambda*
- (#{who 3997}#
- #{message 3998}#
- #{form 3999}#
++ (#{who 3999}#
++ #{message 4000}#
++ #{form 4001}#
+ #:optional
- (#{subform 4003}# #f))
++ (#{subform 4005}# #f))
+ (begin
- (let ((#{x 4007}# #{who 3997}#))
- (if (not (let ((#{x 4008}# #{x 4007}#))
- (let ((#{t 4012}# (not #{x 4008}#)))
- (if #{t 4012}#
- #{t 4012}#
- (let ((#{t 4015}# (string? #{x 4008}#)))
- (if #{t 4015}#
- #{t 4015}#
- (symbol? #{x 4008}#)))))))
++ (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}#)))))))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
- #{x 4007}#)))
- (let ((#{x 4019}# #{message 3998}#))
- (if (not (string? #{x 4019}#))
++ #{x 4009}#)))
++ (let ((#{x 4021}# #{message 4000}#))
++ (if (not (string? #{x 4021}#))
+ (syntax-violation
+ 'syntax-violation
+ "invalid argument"
- #{x 4019}#)))
++ #{x 4021}#)))
+ (throw 'syntax-error
- #{who 3997}#
- #{message 3998}#
++ #{who 3999}#
++ #{message 4000}#
+ (#{source-annotation 324}#
- (let ((#{t 4022}# #{form 3999}#))
- (if #{t 4022}# #{t 4022}# #{subform 4003}#)))
- (#{strip 449}# #{form 3999}# '(()))
- (if #{subform 4003}#
- (#{strip 449}# #{subform 4003}# '(()))
++ (let ((#{t 4024}# #{form 4001}#))
++ (if #{t 4024}# #{t 4024}# #{subform 4005}#)))
++ (#{strip 449}# #{form 4001}# '(()))
++ (if #{subform 4005}#
++ (#{strip 449}# #{subform 4005}# '(()))
#f)))))
- (#{match-empty 4025}#
- (lambda (#{p 4105}# #{r 4106}#)
- (if (null? #{p 4105}#)
- #{r 4106}#
- (if (eq? #{p 4105}# '_)
- #{r 4106}#
- (if (eq? #{p 4105}# 'any)
- (cons '() #{r 4106}#)
- (if (pair? #{p 4105}#)
- (#{match-empty 4025}#
- (car #{p 4105}#)
- (#{match-empty 4025}#
- (cdr #{p 4105}#)
- #{r 4106}#))
- (if (eq? #{p 4105}# 'each-any)
- (cons '() #{r 4106}#)
- (begin
- (let ((#{atom-key 4122}# (vector-ref #{p 4105}# 0)))
- (if (eqv? #{atom-key 4122}# 'each)
- (#{match-empty 4025}#
- (vector-ref #{p 4105}# 1)
- #{r 4106}#)
- (if (eqv? #{atom-key 4122}# 'each+)
- (#{match-empty 4025}#
- (vector-ref #{p 4105}# 1)
- (#{match-empty 4025}#
- (reverse (vector-ref #{p 4105}# 2))
- (#{match-empty 4025}#
- (vector-ref #{p 4105}# 3)
- #{r 4106}#)))
- (if (if (eqv? #{atom-key 4122}# 'free-id)
- #t
- (eqv? #{atom-key 4122}# 'atom))
- #{r 4106}#
- (if (eqv? #{atom-key 4122}# 'vector)
- (#{match-empty 4025}#
- (vector-ref #{p 4105}# 1)
- #{r 4106}#))))))))))))))
- (#{combine 4027}#
- (lambda (#{r* 4127}# #{r 4128}#)
- (if (null? (car #{r* 4127}#))
- #{r 4128}#
- (cons (map car #{r* 4127}#)
- (#{combine 4027}#
- (map cdr #{r* 4127}#)
- #{r 4128}#)))))
- (#{match* 4029}#
- (lambda (#{e 4131}#
- #{p 4132}#
- #{w 4133}#
- #{r 4134}#
- #{mod 4135}#)
- (if (null? #{p 4132}#)
- (if (null? #{e 4131}#) #{r 4134}# #f)
- (if (pair? #{p 4132}#)
- (if (pair? #{e 4131}#)
- (#{match 4031}#
- (car #{e 4131}#)
- (car #{p 4132}#)
- #{w 4133}#
- (#{match 4031}#
- (cdr #{e 4131}#)
- (cdr #{p 4132}#)
- #{w 4133}#
- #{r 4134}#
- #{mod 4135}#)
- #{mod 4135}#)
- #f)
- (if (eq? #{p 4132}# 'each-any)
- (begin
- (let ((#{l 4152}#
- (#{match-each-any 4023}#
- #{e 4131}#
- #{w 4133}#
- #{mod 4135}#)))
- (if #{l 4152}# (cons #{l 4152}# #{r 4134}#) #f)))
- (begin
- (let ((#{atom-key 4158}# (vector-ref #{p 4132}# 0)))
- (if (eqv? #{atom-key 4158}# 'each)
- (if (null? #{e 4131}#)
- (#{match-empty 4025}#
- (vector-ref #{p 4132}# 1)
- #{r 4134}#)
- (begin
- (let ((#{l 4161}#
- (#{match-each 4019}#
- #{e 4131}#
- (vector-ref #{p 4132}# 1)
- #{w 4133}#
- #{mod 4135}#)))
- (if #{l 4161}#
- (letrec*
- ((#{collect 4166}#
- (lambda (#{l 4167}#)
- (if (null? (car #{l 4167}#))
- #{r 4134}#
- (cons (map car #{l 4167}#)
- (#{collect 4166}#
- (map cdr #{l 4167}#)))))))
- (begin (#{collect 4166}# #{l 4161}#)))
- #f))))
- (if (eqv? #{atom-key 4158}# 'each+)
- (call-with-values
- (lambda ()
- (#{match-each+ 4021}#
- #{e 4131}#
- (vector-ref #{p 4132}# 1)
- (vector-ref #{p 4132}# 2)
- (vector-ref #{p 4132}# 3)
- #{w 4133}#
- #{r 4134}#
- #{mod 4135}#))
- (lambda (#{xr* 4169}# #{y-pat 4170}# #{r 4171}#)
- (if #{r 4171}#
- (if (null? #{y-pat 4170}#)
- (if (null? #{xr* 4169}#)
- (#{match-empty 4025}#
- (vector-ref #{p 4132}# 1)
- #{r 4171}#)
- (#{combine 4027}#
- #{xr* 4169}#
- #{r 4171}#))
- #f)
- #f)))
- (if (eqv? #{atom-key 4158}# 'free-id)
- (if (#{id? 339}# #{e 4131}#)
- (if (#{free-id=? 395}#
- (#{wrap 405}#
- #{e 4131}#
- #{w 4133}#
- #{mod 4135}#)
- (vector-ref #{p 4132}# 1))
- #{r 4134}#
- #f)
+ (letrec*
- ((#{match-each 4029}#
- (lambda (#{e 4042}# #{p 4043}# #{w 4044}# #{mod 4045}#)
- (if (pair? #{e 4042}#)
- (let ((#{first 4053}#
- (#{match 4041}#
- (car #{e 4042}#)
- #{p 4043}#
- #{w 4044}#
++ ((#{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}#
+ '()
- #{mod 4045}#)))
- (if #{first 4053}#
- (let ((#{rest 4057}#
- (#{match-each 4029}#
- (cdr #{e 4042}#)
- #{p 4043}#
- #{w 4044}#
- #{mod 4045}#)))
- (if #{rest 4057}#
- (cons #{first 4053}# #{rest 4057}#)
++ #{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}#)
+ #f))
+ #f))
- (if (null? #{e 4042}#)
++ (if (null? #{e 4044}#)
+ '()
- (if (#{syntax-object? 309}# #{e 4042}#)
- (#{match-each 4029}#
- (#{syntax-object-expression 311}# #{e 4042}#)
- #{p 4043}#
++ (if (#{syntax-object? 309}# #{e 4044}#)
++ (#{match-each 4031}#
++ (#{syntax-object-expression 311}# #{e 4044}#)
++ #{p 4045}#
+ (#{join-wraps 391}#
- #{w 4044}#
- (#{syntax-object-wrap 313}# #{e 4042}#))
- (#{syntax-object-module 315}# #{e 4042}#))
++ #{w 4046}#
++ (#{syntax-object-wrap 313}# #{e 4044}#))
++ (#{syntax-object-module 315}# #{e 4044}#))
+ #f)))))
- (#{match-each+ 4031}#
- (lambda (#{e 4065}#
- #{x-pat 4066}#
- #{y-pat 4067}#
- #{z-pat 4068}#
- #{w 4069}#
- #{r 4070}#
- #{mod 4071}#)
++ (#{match-each+ 4033}#
++ (lambda (#{e 4067}#
++ #{x-pat 4068}#
++ #{y-pat 4069}#
++ #{z-pat 4070}#
++ #{w 4071}#
++ #{r 4072}#
++ #{mod 4073}#)
+ (letrec*
- ((#{f 4082}#
- (lambda (#{e 4083}# #{w 4084}#)
- (if (pair? #{e 4083}#)
++ ((#{f 4084}#
++ (lambda (#{e 4085}# #{w 4086}#)
++ (if (pair? #{e 4085}#)
+ (call-with-values
+ (lambda ()
- (#{f 4082}# (cdr #{e 4083}#) #{w 4084}#))
- (lambda (#{xr* 4087}# #{y-pat 4088}# #{r 4089}#)
- (if #{r 4089}#
- (if (null? #{y-pat 4088}#)
- (let ((#{xr 4094}#
- (#{match 4041}#
- (car #{e 4083}#)
- #{x-pat 4066}#
- #{w 4084}#
++ (#{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}#
+ '()
- #{mod 4071}#)))
- (if #{xr 4094}#
++ #{mod 4073}#)))
++ (if #{xr 4096}#
+ (values
- (cons #{xr 4094}# #{xr* 4087}#)
- #{y-pat 4088}#
- #{r 4089}#)
++ (cons #{xr 4096}# #{xr* 4089}#)
++ #{y-pat 4090}#
++ #{r 4091}#)
+ (values #f #f #f)))
+ (values
+ '()
- (cdr #{y-pat 4088}#)
- (#{match 4041}#
- (car #{e 4083}#)
- (car #{y-pat 4088}#)
- #{w 4084}#
- #{r 4089}#
- #{mod 4071}#)))
++ (cdr #{y-pat 4090}#)
++ (#{match 4043}#
++ (car #{e 4085}#)
++ (car #{y-pat 4090}#)
++ #{w 4086}#
++ #{r 4091}#
++ #{mod 4073}#)))
+ (values #f #f #f))))
- (if (#{syntax-object? 309}# #{e 4083}#)
- (#{f 4082}#
- (#{syntax-object-expression 311}# #{e 4083}#)
- (#{join-wraps 391}# #{w 4084}# #{e 4083}#))
++ (if (#{syntax-object? 309}# #{e 4085}#)
++ (#{f 4084}#
++ (#{syntax-object-expression 311}# #{e 4085}#)
++ (#{join-wraps 391}# #{w 4086}# #{e 4085}#))
+ (values
+ '()
- #{y-pat 4067}#
- (#{match 4041}#
- #{e 4083}#
- #{z-pat 4068}#
- #{w 4084}#
- #{r 4070}#
- #{mod 4071}#)))))))
- (#{f 4082}# #{e 4065}# #{w 4069}#))))
- (#{match-each-any 4033}#
- (lambda (#{e 4098}# #{w 4099}# #{mod 4100}#)
- (if (pair? #{e 4098}#)
- (let ((#{l 4107}#
- (#{match-each-any 4033}#
- (cdr #{e 4098}#)
- #{w 4099}#
- #{mod 4100}#)))
- (if #{l 4107}#
++ #{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}#
+ (cons (#{wrap 409}#
- (car #{e 4098}#)
- #{w 4099}#
- #{mod 4100}#)
- #{l 4107}#)
++ (car #{e 4100}#)
++ #{w 4101}#
++ #{mod 4102}#)
++ #{l 4109}#)
+ #f))
- (if (null? #{e 4098}#)
++ (if (null? #{e 4100}#)
+ '()
- (if (#{syntax-object? 309}# #{e 4098}#)
- (#{match-each-any 4033}#
- (#{syntax-object-expression 311}# #{e 4098}#)
++ (if (#{syntax-object? 309}# #{e 4100}#)
++ (#{match-each-any 4035}#
++ (#{syntax-object-expression 311}# #{e 4100}#)
+ (#{join-wraps 391}#
- #{w 4099}#
- (#{syntax-object-wrap 313}# #{e 4098}#))
- #{mod 4100}#)
++ #{w 4101}#
++ (#{syntax-object-wrap 313}# #{e 4100}#))
++ #{mod 4102}#)
+ #f)))))
- (#{match-empty 4035}#
- (lambda (#{p 4115}# #{r 4116}#)
- (if (null? #{p 4115}#)
- #{r 4116}#
- (if (eq? #{p 4115}# '_)
- #{r 4116}#
- (if (eq? #{p 4115}# 'any)
- (cons '() #{r 4116}#)
- (if (pair? #{p 4115}#)
- (#{match-empty 4035}#
- (car #{p 4115}#)
- (#{match-empty 4035}#
- (cdr #{p 4115}#)
- #{r 4116}#))
- (if (eq? #{p 4115}# 'each-any)
- (cons '() #{r 4116}#)
- (let ((#{atom-key 4132}# (vector-ref #{p 4115}# 0)))
- (if (memv #{atom-key 4132}# '(each))
- (#{match-empty 4035}#
- (vector-ref #{p 4115}# 1)
- #{r 4116}#)
- (if (memv #{atom-key 4132}# '(each+))
- (#{match-empty 4035}#
- (vector-ref #{p 4115}# 1)
- (#{match-empty 4035}#
- (reverse (vector-ref #{p 4115}# 2))
- (#{match-empty 4035}#
- (vector-ref #{p 4115}# 3)
- #{r 4116}#)))
- (if (memv #{atom-key 4132}# '(free-id atom))
- #{r 4116}#
- (if (memv #{atom-key 4132}# '(vector))
- (#{match-empty 4035}#
- (vector-ref #{p 4115}# 1)
- #{r 4116}#)))))))))))))
- (#{combine 4037}#
- (lambda (#{r* 4137}# #{r 4138}#)
- (if (null? (car #{r* 4137}#))
- #{r 4138}#
- (cons (map car #{r* 4137}#)
- (#{combine 4037}#
- (map cdr #{r* 4137}#)
- #{r 4138}#)))))
- (#{match* 4039}#
- (lambda (#{e 4141}#
- #{p 4142}#
- #{w 4143}#
- #{r 4144}#
- #{mod 4145}#)
- (if (null? #{p 4142}#)
- (if (null? #{e 4141}#) #{r 4144}# #f)
- (if (pair? #{p 4142}#)
- (if (pair? #{e 4141}#)
- (#{match 4041}#
- (car #{e 4141}#)
- (car #{p 4142}#)
- #{w 4143}#
- (#{match 4041}#
- (cdr #{e 4141}#)
- (cdr #{p 4142}#)
- #{w 4143}#
- #{r 4144}#
- #{mod 4145}#)
- #{mod 4145}#)
++ (#{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}#)
+ #f)
- (if (eq? #{p 4142}# 'each-any)
- (let ((#{l 4162}#
- (#{match-each-any 4033}#
- #{e 4141}#
- #{w 4143}#
- #{mod 4145}#)))
- (if #{l 4162}# (cons #{l 4162}# #{r 4144}#) #f))
- (let ((#{atom-key 4168}# (vector-ref #{p 4142}# 0)))
- (if (memv #{atom-key 4168}# '(each))
- (if (null? #{e 4141}#)
- (#{match-empty 4035}#
- (vector-ref #{p 4142}# 1)
- #{r 4144}#)
- (let ((#{l 4171}#
- (#{match-each 4029}#
- #{e 4141}#
- (vector-ref #{p 4142}# 1)
- #{w 4143}#
- #{mod 4145}#)))
- (if #{l 4171}#
++ (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}#
+ (letrec*
- ((#{collect 4176}#
- (lambda (#{l 4177}#)
- (if (null? (car #{l 4177}#))
- #{r 4144}#
- (cons (map car #{l 4177}#)
- (#{collect 4176}#
- (map cdr #{l 4177}#)))))))
- (#{collect 4176}# #{l 4171}#))
++ ((#{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}#))
+ #f)))
- (if (memv #{atom-key 4168}# '(each+))
++ (if (memv #{atom-key 4170}# '(each+))
+ (call-with-values
+ (lambda ()
- (#{match-each+ 4031}#
- #{e 4141}#
- (vector-ref #{p 4142}# 1)
- (vector-ref #{p 4142}# 2)
- (vector-ref #{p 4142}# 3)
- #{w 4143}#
- #{r 4144}#
- #{mod 4145}#))
- (lambda (#{xr* 4179}# #{y-pat 4180}# #{r 4181}#)
- (if #{r 4181}#
- (if (null? #{y-pat 4180}#)
- (if (null? #{xr* 4179}#)
- (#{match-empty 4035}#
- (vector-ref #{p 4142}# 1)
- #{r 4181}#)
- (#{combine 4037}# #{xr* 4179}# #{r 4181}#))
++ (#{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}#))
#f)
- (if (eqv? #{atom-key 4158}# 'atom)
- (if (equal?
- (vector-ref #{p 4132}# 1)
- (#{strip 445}# #{e 4131}# #{w 4133}#))
- #{r 4134}#
- #f)
- (if (eqv? #{atom-key 4158}# 'vector)
- (if (vector? #{e 4131}#)
- (#{match 4031}#
- (vector->list #{e 4131}#)
- (vector-ref #{p 4132}# 1)
- #{w 4133}#
- #{r 4134}#
- #{mod 4135}#)
- #f)))))))))))))
- (#{match 4031}#
- (lambda (#{e 4188}#
- #{p 4189}#
- #{w 4190}#
- #{r 4191}#
- #{mod 4192}#)
- (if (not #{r 4191}#)
- #f
- (if (eq? #{p 4189}# '_)
- #{r 4191}#
- (if (eq? #{p 4189}# 'any)
- (cons (#{wrap 405}# #{e 4188}# #{w 4190}# #{mod 4192}#)
- #{r 4191}#)
- (if (#{syntax-object? 305}# #{e 4188}#)
- (#{match* 4029}#
- (#{syntax-object-expression 307}# #{e 4188}#)
- #{p 4189}#
- (#{join-wraps 387}#
- #{w 4190}#
- (#{syntax-object-wrap 309}# #{e 4188}#))
- #{r 4191}#
- (#{syntax-object-module 311}# #{e 4188}#))
- (#{match* 4029}#
- #{e 4188}#
- #{p 4189}#
- #{w 4190}#
- #{r 4191}#
- #{mod 4192}#))))))))
- (begin
- (set! $sc-dispatch
- (lambda (#{e 4207}# #{p 4208}#)
- (if (eq? #{p 4208}# 'any)
- (list #{e 4207}#)
- (if (eq? #{p 4208}# '_)
+ #f)))
- (if (memv #{atom-key 4168}# '(free-id))
- (if (#{id? 343}# #{e 4141}#)
++ (if (memv #{atom-key 4170}# '(free-id))
++ (if (#{id? 343}# #{e 4143}#)
+ (if (#{free-id=? 399}#
+ (#{wrap 409}#
- #{e 4141}#
- #{w 4143}#
- #{mod 4145}#)
- (vector-ref #{p 4142}# 1))
- #{r 4144}#
++ #{e 4143}#
++ #{w 4145}#
++ #{mod 4147}#)
++ (vector-ref #{p 4144}# 1))
++ #{r 4146}#
+ #f)
+ #f)
- (if (memv #{atom-key 4168}# '(atom))
++ (if (memv #{atom-key 4170}# '(atom))
+ (if (equal?
- (vector-ref #{p 4142}# 1)
- (#{strip 449}# #{e 4141}# #{w 4143}#))
- #{r 4144}#
++ (vector-ref #{p 4144}# 1)
++ (#{strip 449}# #{e 4143}# #{w 4145}#))
++ #{r 4146}#
+ #f)
- (if (memv #{atom-key 4168}# '(vector))
- (if (vector? #{e 4141}#)
- (#{match 4041}#
- (vector->list #{e 4141}#)
- (vector-ref #{p 4142}# 1)
- #{w 4143}#
- #{r 4144}#
- #{mod 4145}#)
++ (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}#)
+ #f))))))))))))
- (#{match 4041}#
- (lambda (#{e 4198}#
- #{p 4199}#
- #{w 4200}#
- #{r 4201}#
- #{mod 4202}#)
- (if (not #{r 4201}#)
++ (#{match 4043}#
++ (lambda (#{e 4200}#
++ #{p 4201}#
++ #{w 4202}#
++ #{r 4203}#
++ #{mod 4204}#)
++ (if (not #{r 4203}#)
+ #f
- (if (eq? #{p 4199}# '_)
- #{r 4201}#
- (if (eq? #{p 4199}# 'any)
- (cons (#{wrap 409}# #{e 4198}# #{w 4200}# #{mod 4202}#)
- #{r 4201}#)
- (if (#{syntax-object? 309}# #{e 4198}#)
- (#{match* 4039}#
- (#{syntax-object-expression 311}# #{e 4198}#)
- #{p 4199}#
++ (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}#
+ (#{join-wraps 391}#
- #{w 4200}#
- (#{syntax-object-wrap 313}# #{e 4198}#))
- #{r 4201}#
- (#{syntax-object-module 315}# #{e 4198}#))
- (#{match* 4039}#
- #{e 4198}#
- #{p 4199}#
- #{w 4200}#
- #{r 4201}#
- #{mod 4202}#))))))))
++ #{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}#))))))))
+ (set! $sc-dispatch
- (lambda (#{e 4217}# #{p 4218}#)
- (if (eq? #{p 4218}# 'any)
- (list #{e 4217}#)
- (if (eq? #{p 4218}# '_)
++ (lambda (#{e 4219}# #{p 4220}#)
++ (if (eq? #{p 4220}# 'any)
++ (list #{e 4219}#)
++ (if (eq? #{p 4220}# '_)
+ '()
- (if (#{syntax-object? 309}# #{e 4217}#)
- (#{match* 4039}#
- (#{syntax-object-expression 311}# #{e 4217}#)
- #{p 4218}#
- (#{syntax-object-wrap 313}# #{e 4217}#)
++ (if (#{syntax-object? 309}# #{e 4219}#)
++ (#{match* 4041}#
++ (#{syntax-object-expression 311}# #{e 4219}#)
++ #{p 4220}#
++ (#{syntax-object-wrap 313}# #{e 4219}#)
+ '()
- (#{syntax-object-module 315}# #{e 4217}#))
- (#{match* 4039}#
- #{e 4217}#
- #{p 4218}#
++ (#{syntax-object-module 315}# #{e 4219}#))
++ (#{match* 4041}#
++ #{e 4219}#
++ #{p 4220}#
+ '(())
'()
- (if (#{syntax-object? 305}# #{e 4207}#)
- (#{match* 4029}#
- (#{syntax-object-expression 307}# #{e 4207}#)
- #{p 4208}#
- (#{syntax-object-wrap 309}# #{e 4207}#)
- '()
- (#{syntax-object-module 311}# #{e 4207}#))
- (#{match* 4029}#
- #{e 4207}#
- #{p 4208}#
- '(())
- '()
- #f)))))))))))
+ #f)))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 4229}#)
- (let ((#{tmp 4231}# #{x 4229}#))
- (let ((#{tmp 4232}#
- (lambda (#{x 4219}#)
- (let ((#{tmp 4221}# #{x 4219}#))
- (let ((#{tmp 4222}#
++ (lambda (#{x 4231}#)
++ (let ((#{tmp 4233}# #{x 4231}#))
++ (let ((#{tmp 4234}#
($sc-dispatch
- #{tmp 4231}#
- #{tmp 4221}#
++ #{tmp 4233}#
'(_ () any . each-any))))
- (if #{tmp 4232}#
- (if #{tmp 4222}#
++ (if #{tmp 4234}#
(@apply
- (lambda (#{e1 4235}# #{e2 4236}#)
- (lambda (#{e1 4225}# #{e2 4226}#)
++ (lambda (#{e1 4237}# #{e2 4238}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4233" "i4234"))
- #("i4223" "i4224"))
++ #("i4235" "i4236"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4230")))
- #(ribcage #(x) #((top)) #("i4220")))
++ #(ribcage #(x) #((top)) #("i4232")))
(hygiene guile))
- (cons '() (cons #{e1 4235}# #{e2 4236}#))))
- #{tmp 4232}#)
- (let ((#{tmp 4238}#
- (cons '() (cons #{e1 4225}# #{e2 4226}#))))
- #{tmp 4222}#)
- (let ((#{tmp 4228}#
++ (cons '() (cons #{e1 4237}# #{e2 4238}#))))
++ #{tmp 4234}#)
++ (let ((#{tmp 4240}#
($sc-dispatch
- #{tmp 4231}#
- #{tmp 4221}#
++ #{tmp 4233}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 4238}#
- (if #{tmp 4228}#
++ (if #{tmp 4240}#
(@apply
- (lambda (#{out 4243}#
- #{in 4244}#
- #{e1 4245}#
- #{e2 4246}#)
- (lambda (#{out 4233}#
- #{in 4234}#
- #{e1 4235}#
- #{e2 4236}#)
++ (lambda (#{out 4245}#
++ #{in 4246}#
++ #{e1 4247}#
++ #{e2 4248}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4239" "i4240" "i4241" "i4242"))
- #("i4229" "i4230" "i4231" "i4232"))
++ #("i4241" "i4242" "i4243" "i4244"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4230")))
- #(ribcage #(x) #((top)) #("i4220")))
++ #(ribcage #(x) #((top)) #("i4232")))
(hygiene guile))
- #{in 4244}#
- #{in 4234}#
++ #{in 4246}#
'()
- (list #{out 4243}#
- (list #{out 4233}#
++ (list #{out 4245}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4239" "i4240" "i4241" "i4242"))
- #("i4229" "i4230" "i4231" "i4232"))
++ #("i4241" "i4242" "i4243" "i4244"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4230")))
- #(ribcage #(x) #((top)) #("i4220")))
++ #(ribcage #(x) #((top)) #("i4232")))
(hygiene guile))
(cons '()
- (cons #{e1 4245}# #{e2 4246}#))))))
- #{tmp 4238}#)
- (let ((#{tmp 4248}#
- (cons #{e1 4235}# #{e2 4236}#))))))
- #{tmp 4228}#)
- (let ((#{tmp 4238}#
++ (cons #{e1 4247}# #{e2 4248}#))))))
++ #{tmp 4240}#)
++ (let ((#{tmp 4250}#
($sc-dispatch
- #{tmp 4231}#
- #{tmp 4221}#
++ #{tmp 4233}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 4248}#
- (if #{tmp 4238}#
++ (if #{tmp 4250}#
(@apply
- (lambda (#{out 4253}#
- #{in 4254}#
- #{e1 4255}#
- #{e2 4256}#)
- (lambda (#{out 4243}#
- #{in 4244}#
- #{e1 4245}#
- #{e2 4246}#)
++ (lambda (#{out 4255}#
++ #{in 4256}#
++ #{e1 4257}#
++ #{e2 4258}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4249" "i4250" "i4251" "i4252"))
- #("i4239" "i4240" "i4241" "i4242"))
++ #("i4251" "i4252" "i4253" "i4254"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4230")))
- #(ribcage #(x) #((top)) #("i4220")))
++ #(ribcage #(x) #((top)) #("i4232")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4249" "i4250" "i4251" "i4252"))
- #("i4239" "i4240" "i4241" "i4242"))
++ #("i4251" "i4252" "i4253" "i4254"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4230")))
- #(ribcage #(x) #((top)) #("i4220")))
++ #(ribcage #(x) #((top)) #("i4232")))
(hygiene guile))
- #{in 4254}#)
- #{in 4244}#)
++ #{in 4256}#)
'()
- (list #{out 4253}#
- (list #{out 4243}#
++ (list #{out 4255}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i4249"
- "i4250"
- "i4251"
- "i4252"))
- #("i4239"
- "i4240"
- "i4241"
- "i4242"))
++ #("i4251"
++ "i4252"
++ "i4253"
++ "i4254"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4230")))
- #("i4220")))
++ #("i4232")))
(hygiene guile))
(cons '()
- (cons #{e1 4255}#
- #{e2 4256}#))))))
- #{tmp 4248}#)
- (cons #{e1 4245}#
- #{e2 4246}#))))))
- #{tmp 4238}#)
++ (cons #{e1 4257}#
++ #{e2 4258}#))))))
++ #{tmp 4250}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4231}#)))))))))))
- #{tmp 4221}#)))))))))))
++ #{tmp 4233}#)))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 4260}#)
- (let ((#{tmp 4262}# #{x 4260}#))
- (let ((#{tmp 4263}#
- (lambda (#{x 4250}#)
- (let ((#{tmp 4252}# #{x 4250}#))
- (let ((#{tmp 4253}#
++ (lambda (#{x 4262}#)
++ (let ((#{tmp 4264}# #{x 4262}#))
++ (let ((#{tmp 4265}#
($sc-dispatch
- #{tmp 4262}#
- #{tmp 4252}#
++ #{tmp 4264}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 4263}#
- (if #{tmp 4253}#
++ (if #{tmp 4265}#
(@apply
- (lambda (#{k 4268}#
- #{keyword 4269}#
- #{pattern 4270}#
- #{template 4271}#)
- (lambda (#{k 4258}#
- #{keyword 4259}#
- #{pattern 4260}#
- #{template 4261}#)
++ (lambda (#{k 4270}#
++ #{keyword 4271}#
++ #{pattern 4272}#
++ #{template 4273}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
- #{pattern 4270}#))
- #{pattern 4260}#))
++ #{pattern 4272}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i4264" "i4265" "i4266" "i4267"))
- #("i4254" "i4255" "i4256" "i4257"))
++ #("i4266" "i4267" "i4268" "i4269"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
- (cons #{k 4268}#
- (map (lambda (#{tmp 4275}#
- #{tmp 4274}#)
- (cons #{k 4258}#
- (map (lambda (#{tmp 4265}#
- #{tmp 4264}#)
++ (cons #{k 4270}#
++ (map (lambda (#{tmp 4277}#
++ #{tmp 4276}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4264"
- "i4265"
- "i4266"
- "i4267"))
- #("i4254"
- "i4255"
- "i4256"
- "i4257"))
++ #("i4266"
++ "i4267"
++ "i4268"
++ "i4269"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4261")))
- #("i4251")))
++ #("i4263")))
(hygiene guile))
- #{tmp 4274}#)
- #{tmp 4264}#)
++ #{tmp 4276}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4264"
- "i4265"
- "i4266"
- "i4267"))
- #("i4254"
- "i4255"
- "i4256"
- "i4257"))
++ #("i4266"
++ "i4267"
++ "i4268"
++ "i4269"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4261")))
- #("i4251")))
++ #("i4263")))
(hygiene guile))
- #{tmp 4275}#)))
- #{template 4271}#
- #{pattern 4270}#))))))
- #{tmp 4263}#)
- (let ((#{tmp 4276}#
- #{tmp 4265}#)))
- #{template 4261}#
- #{pattern 4260}#))))))
- #{tmp 4253}#)
- (let ((#{tmp 4266}#
++ #{tmp 4277}#)))
++ #{template 4273}#
++ #{pattern 4272}#))))))
++ #{tmp 4265}#)
++ (let ((#{tmp 4278}#
($sc-dispatch
- #{tmp 4262}#
- #{tmp 4252}#
++ #{tmp 4264}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 4276}#
- (if (if #{tmp 4266}#
++ (if (if #{tmp 4278}#
(@apply
- (lambda (#{k 4282}#
- #{docstring 4283}#
- #{keyword 4284}#
- #{pattern 4285}#
- #{template 4286}#)
- (string? (syntax->datum #{docstring 4283}#)))
- #{tmp 4276}#)
- (lambda (#{k 4272}#
- #{docstring 4273}#
- #{keyword 4274}#
- #{pattern 4275}#
- #{template 4276}#)
- (string? (syntax->datum #{docstring 4273}#)))
- #{tmp 4266}#)
++ (lambda (#{k 4284}#
++ #{docstring 4285}#
++ #{keyword 4286}#
++ #{pattern 4287}#
++ #{template 4288}#)
++ (string? (syntax->datum #{docstring 4285}#)))
++ #{tmp 4278}#)
#f)
(@apply
- (lambda (#{k 4292}#
- #{docstring 4293}#
- #{keyword 4294}#
- #{pattern 4295}#
- #{template 4296}#)
- (lambda (#{k 4282}#
- #{docstring 4283}#
- #{keyword 4284}#
- #{pattern 4285}#
- #{template 4286}#)
++ (lambda (#{k 4294}#
++ #{docstring 4295}#
++ #{keyword 4296}#
++ #{pattern 4297}#
++ #{template 4298}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287" "i4288" "i4289" "i4290" "i4291"))
- #("i4277" "i4278" "i4279" "i4280" "i4281"))
++ #("i4289" "i4290" "i4291" "i4292" "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287" "i4288" "i4289" "i4290" "i4291"))
- #("i4277" "i4278" "i4279" "i4280" "i4281"))
++ #("i4289" "i4290" "i4291" "i4292" "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile)))
- #{docstring 4293}#
- #{docstring 4283}#
++ #{docstring 4295}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287" "i4288" "i4289" "i4290" "i4291"))
- #("i4277" "i4278" "i4279" "i4280" "i4281"))
++ #("i4289" "i4290" "i4291" "i4292" "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287" "i4288" "i4289" "i4290" "i4291"))
- #("i4277" "i4278" "i4279" "i4280" "i4281"))
++ #("i4289" "i4290" "i4291" "i4292" "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287"
- "i4288"
- "i4289"
- #("i4277"
- "i4278"
- "i4279"
- "i4280"
- "i4281"))
++ #("i4289"
+ "i4290"
- "i4291"))
++ "i4291"
++ "i4292"
++ "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
- #{pattern 4295}#))
- #{pattern 4285}#))
++ #{pattern 4297}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i4287"
- "i4288"
- "i4289"
- #("i4277"
- "i4278"
- "i4279"
- "i4280"
- "i4281"))
++ #("i4289"
+ "i4290"
- "i4291"))
++ "i4291"
++ "i4292"
++ "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("i4287"
- "i4288"
- "i4289"
- #("i4277"
- "i4278"
- "i4279"
- "i4280"
- "i4281"))
++ #("i4289"
+ "i4290"
- "i4291"))
++ "i4291"
++ "i4292"
++ "i4293"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4261")))
- #(ribcage #(x) #((top)) #("i4251")))
++ #(ribcage #(x) #((top)) #("i4263")))
(hygiene guile))
- (cons #{k 4292}#
- (map (lambda (#{tmp 4300}#
- #{tmp 4299}#)
- (cons #{k 4282}#
- (map (lambda (#{tmp 4290}#
- #{tmp 4289}#)
++ (cons #{k 4294}#
++ (map (lambda (#{tmp 4302}#
++ #{tmp 4301}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i4287"
- "i4288"
- "i4289"
- #("i4277"
- "i4278"
- "i4279"
- "i4280"
- "i4281"))
++ #("i4289"
+ "i4290"
- "i4291"))
++ "i4291"
++ "i4292"
++ "i4293"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4261")))
- #("i4251")))
++ #("i4263")))
(hygiene
guile))
- #{tmp 4299}#)
- #{tmp 4289}#)
++ #{tmp 4301}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4287"
- "i4288"
- "i4289"
- #("i4277"
- "i4278"
- "i4279"
- "i4280"
- "i4281"))
++ #("i4289"
+ "i4290"
- "i4291"))
++ "i4291"
++ "i4292"
++ "i4293"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4261")))
- #("i4251")))
++ #("i4263")))
(hygiene
guile))
- #{tmp 4300}#)))
- #{template 4296}#
- #{pattern 4295}#))))))
- #{tmp 4276}#)
- #{tmp 4290}#)))
- #{template 4286}#
- #{pattern 4285}#))))))
- #{tmp 4266}#)
++ #{tmp 4302}#)))
++ #{template 4298}#
++ #{pattern 4297}#))))))
++ #{tmp 4278}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4262}#)))))))))
- #{tmp 4252}#)))))))))
++ #{tmp 4264}#)))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 4301}#)
- (let ((#{tmp 4303}# #{x 4301}#))
- (let ((#{tmp 4304}#
- (lambda (#{x 4291}#)
- (let ((#{tmp 4293}# #{x 4291}#))
- (let ((#{tmp 4294}#
++ (lambda (#{x 4303}#)
++ (let ((#{tmp 4305}# #{x 4303}#))
++ (let ((#{tmp 4306}#
($sc-dispatch
- #{tmp 4303}#
- #{tmp 4293}#
++ #{tmp 4305}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 4304}#
- (if (if #{tmp 4294}#
++ (if (if #{tmp 4306}#
(@apply
- (lambda (#{let* 4310}#
- #{x 4311}#
- #{v 4312}#
- #{e1 4313}#
- #{e2 4314}#)
- (and-map identifier? #{x 4311}#))
- #{tmp 4304}#)
- (lambda (#{let* 4300}#
- #{x 4301}#
- #{v 4302}#
- #{e1 4303}#
- #{e2 4304}#)
- (and-map identifier? #{x 4301}#))
- #{tmp 4294}#)
++ (lambda (#{let* 4312}#
++ #{x 4313}#
++ #{v 4314}#
++ #{e1 4315}#
++ #{e2 4316}#)
++ (and-map identifier? #{x 4313}#))
++ #{tmp 4306}#)
#f)
(@apply
- (lambda (#{let* 4321}#
- #{x 4322}#
- #{v 4323}#
- #{e1 4324}#
- #{e2 4325}#)
- (lambda (#{let* 4311}#
- #{x 4312}#
- #{v 4313}#
- #{e1 4314}#
- #{e2 4315}#)
++ (lambda (#{let* 4323}#
++ #{x 4324}#
++ #{v 4325}#
++ #{e1 4326}#
++ #{e2 4327}#)
(letrec*
- ((#{f 4328}#
- (lambda (#{bindings 4329}#)
- (if (null? #{bindings 4329}#)
- ((#{f 4318}#
- (lambda (#{bindings 4319}#)
- (if (null? #{bindings 4319}#)
++ ((#{f 4330}#
++ (lambda (#{bindings 4331}#)
++ (if (null? #{bindings 4331}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4326" "i4327"))
- #("i4316" "i4317"))
++ #("i4328" "i4329"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4316"
- "i4317"
- "i4318"
- #("i4306"
- "i4307"
- "i4308"
- "i4309"
- "i4310"))
++ #("i4318"
+ "i4319"
- "i4320"))
++ "i4320"
++ "i4321"
++ "i4322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4302")))
- #(ribcage #(x) #((top)) #("i4292")))
++ #(ribcage #(x) #((top)) #("i4304")))
(hygiene guile))
- (cons '() (cons #{e1 4324}# #{e2 4325}#)))
- (let ((#{tmp 4334}#
- (list (#{f 4328}# (cdr #{bindings 4329}#))
- (car #{bindings 4329}#))))
- (let ((#{tmp 4335}#
- ($sc-dispatch #{tmp 4334}# '(any any))))
- (if #{tmp 4335}#
- (cons '() (cons #{e1 4314}# #{e2 4315}#)))
- (let ((#{tmp 4324}#
- (list (#{f 4318}# (cdr #{bindings 4319}#))
- (car #{bindings 4319}#))))
- (let ((#{tmp 4325}#
- ($sc-dispatch #{tmp 4324}# '(any any))))
- (if #{tmp 4325}#
++ (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}#
(@apply
- (lambda (#{body 4338}# #{binding 4339}#)
- (lambda (#{body 4328}# #{binding 4329}#)
++ (lambda (#{body 4340}# #{binding 4341}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("i4336" "i4337"))
- #("i4326" "i4327"))
++ #("i4338" "i4339"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i4326" "i4327"))
- #("i4316" "i4317"))
++ #("i4328" "i4329"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i4316"
- "i4317"
- "i4318"
- #("i4306"
- "i4307"
- "i4308"
- "i4309"
- "i4310"))
++ #("i4318"
+ "i4319"
- "i4320"))
++ "i4320"
++ "i4321"
++ "i4322"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4302")))
- #("i4292")))
++ #("i4304")))
(hygiene guile))
- (list #{binding 4339}#)
- #{body 4338}#))
- #{tmp 4335}#)
- (list #{binding 4329}#)
- #{body 4328}#))
- #{tmp 4325}#)
++ (list #{binding 4341}#)
++ #{body 4340}#))
++ #{tmp 4337}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4334}#))))))))
- (#{f 4328}# (map list #{x 4322}# #{v 4323}#))))
- #{tmp 4304}#)
- #{tmp 4324}#))))))))
- (begin
- (#{f 4318}# (map list #{x 4312}# #{v 4313}#)))))
- #{tmp 4294}#)
++ #{tmp 4336}#))))))))
++ (#{f 4330}# (map list #{x 4324}# #{v 4325}#))))
++ #{tmp 4306}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4303}#)))))))
- #{tmp 4293}#)))))))
++ #{tmp 4305}#)))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 4340}#)
- (let ((#{tmp 4342}# #{orig-x 4340}#))
- (let ((#{tmp 4343}#
- (lambda (#{orig-x 4330}#)
- (let ((#{tmp 4332}# #{orig-x 4330}#))
- (let ((#{tmp 4333}#
++ (lambda (#{orig-x 4342}#)
++ (let ((#{tmp 4344}# #{orig-x 4342}#))
++ (let ((#{tmp 4345}#
($sc-dispatch
- #{tmp 4342}#
- #{tmp 4332}#
++ #{tmp 4344}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 4343}#
- (if #{tmp 4333}#
++ (if #{tmp 4345}#
(@apply
- (lambda (#{var 4350}#
- #{init 4351}#
- #{step 4352}#
- #{e0 4353}#
- #{e1 4354}#
- #{c 4355}#)
- (let ((#{tmp 4357}#
- (map (lambda (#{v 4378}# #{s 4379}#)
- (let ((#{tmp 4382}# #{s 4379}#))
- (let ((#{tmp 4383}#
- ($sc-dispatch #{tmp 4382}# '())))
- (if #{tmp 4383}#
- (lambda (#{var 4340}#
- #{init 4341}#
- #{step 4342}#
- #{e0 4343}#
- #{e1 4344}#
- #{c 4345}#)
- (let ((#{tmp 4347}#
- (map (lambda (#{v 4368}# #{s 4369}#)
- (let ((#{tmp 4372}# #{s 4369}#))
- (let ((#{tmp 4373}#
- ($sc-dispatch #{tmp 4372}# '())))
- (if #{tmp 4373}#
++ (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}#
(@apply
- (lambda () #{v 4378}#)
- #{tmp 4383}#)
- (let ((#{tmp 4384}#
- (lambda () #{v 4368}#)
- #{tmp 4373}#)
- (let ((#{tmp 4374}#
++ (lambda () #{v 4380}#)
++ #{tmp 4385}#)
++ (let ((#{tmp 4386}#
($sc-dispatch
- #{tmp 4382}#
- #{tmp 4372}#
++ #{tmp 4384}#
'(any))))
- (if #{tmp 4384}#
- (if #{tmp 4374}#
++ (if #{tmp 4386}#
(@apply
- (lambda (#{e 4386}#) #{e 4386}#)
- #{tmp 4384}#)
- (let ((#{_ 4388}# #{tmp 4382}#))
- (lambda (#{e 4376}#) #{e 4376}#)
- #{tmp 4374}#)
- (let ((#{_ 4378}# #{tmp 4372}#))
++ (lambda (#{e 4388}#) #{e 4388}#)
++ #{tmp 4386}#)
++ (let ((#{_ 4390}# #{tmp 4384}#))
(syntax-violation
'do
"bad step expression"
- #{orig-x 4340}#
- #{s 4379}#))))))))
- #{var 4350}#
- #{step 4352}#)))
- (let ((#{tmp 4358}#
- ($sc-dispatch #{tmp 4357}# 'each-any)))
- (if #{tmp 4358}#
- #{orig-x 4330}#
- #{s 4369}#))))))))
- #{var 4340}#
- #{step 4342}#)))
- (let ((#{tmp 4348}#
- ($sc-dispatch #{tmp 4347}# 'each-any)))
- (if #{tmp 4348}#
++ #{orig-x 4342}#
++ #{s 4381}#))))))))
++ #{var 4352}#
++ #{step 4354}#)))
++ (let ((#{tmp 4360}#
++ ($sc-dispatch #{tmp 4359}# 'each-any)))
++ (if #{tmp 4360}#
(@apply
- (lambda (#{step 4360}#)
- (let ((#{tmp 4361}# #{e1 4354}#))
- (let ((#{tmp 4362}#
- ($sc-dispatch #{tmp 4361}# '())))
- (if #{tmp 4362}#
- (lambda (#{step 4350}#)
- (let ((#{tmp 4351}# #{e1 4344}#))
- (let ((#{tmp 4352}#
- ($sc-dispatch #{tmp 4351}# '())))
- (if #{tmp 4352}#
++ (lambda (#{step 4362}#)
++ (let ((#{tmp 4363}# #{e1 4356}#))
++ (let ((#{tmp 4364}#
++ ($sc-dispatch #{tmp 4363}# '())))
++ (if #{tmp 4364}#
(@apply
(lambda ()
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
- (map list #{var 4350}# #{init 4351}#)
- (map list #{var 4340}# #{init 4341}#)
++ (map list #{var 4352}# #{init 4353}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
- #{e0 4353}#)
- #{e0 4343}#)
++ #{e0 4355}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
(append
- #{c 4355}#
- #{c 4345}#
++ #{c 4357}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene
guile))
- #{step 4360}#)))))))
- #{tmp 4362}#)
- (let ((#{tmp 4367}#
- #{step 4350}#)))))))
- #{tmp 4352}#)
- (let ((#{tmp 4357}#
++ #{step 4362}#)))))))
++ #{tmp 4364}#)
++ (let ((#{tmp 4369}#
($sc-dispatch
- #{tmp 4361}#
- #{tmp 4351}#
++ #{tmp 4363}#
'(any . each-any))))
- (if #{tmp 4367}#
- (if #{tmp 4357}#
++ (if #{tmp 4369}#
(@apply
- (lambda (#{e1 4370}# #{e2 4371}#)
- (lambda (#{e1 4360}# #{e2 4361}#)
++ (lambda (#{e1 4372}# #{e2 4373}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4368" "i4369"))
- #("i4358" "i4359"))
++ #("i4370" "i4371"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4368" "i4369"))
- #("i4358" "i4359"))
++ #("i4370" "i4371"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
(map list
- #{var 4350}#
- #{init 4351}#)
- #{var 4340}#
- #{init 4341}#)
++ #{var 4352}#
++ #{init 4353}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4368" "i4369"))
- #("i4358" "i4359"))
++ #("i4370" "i4371"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
- #{e0 4353}#
- #{e0 4343}#
++ #{e0 4355}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4368"
- "i4369"))
- #("i4358"
- "i4359"))
++ #("i4370"
++ "i4371"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
- (cons #{e1 4370}#
- #{e2 4371}#))
- (cons #{e1 4360}#
- #{e2 4361}#))
++ (cons #{e1 4372}#
++ #{e2 4373}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4368"
- "i4369"))
- #("i4358"
- "i4359"))
++ #("i4370"
++ "i4371"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene guile))
(append
- #{c 4355}#
- #{c 4345}#
++ #{c 4357}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4368"
- "i4369"))
- #("i4358"
- "i4359"))
++ #("i4370"
++ "i4371"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("i4359"))
- #("i4349"))
++ #("i4361"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("i4344"
- "i4345"
- "i4346"
- #("i4334"
- "i4335"
- "i4336"
- "i4337"
- "i4338"
- "i4339"))
++ #("i4346"
+ "i4347"
+ "i4348"
- "i4349"))
++ "i4349"
++ "i4350"
++ "i4351"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4341")))
- #("i4331")))
++ #("i4343")))
(hygiene
guile))
- #{step 4360}#)))))))
- #{tmp 4367}#)
- #{step 4350}#)))))))
- #{tmp 4357}#)
++ #{step 4362}#)))))))
++ #{tmp 4369}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4361}#)))))))
- #{tmp 4358}#)
- #{tmp 4351}#)))))))
- #{tmp 4348}#)
++ #{tmp 4363}#)))))))
++ #{tmp 4360}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4357}#)))))
- #{tmp 4343}#)
- #{tmp 4347}#)))))
- #{tmp 4333}#)
++ #{tmp 4359}#)))))
++ #{tmp 4345}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4342}#)))))))
- #{tmp 4332}#)))))))
++ #{tmp 4344}#)))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 4392}#
- (lambda (#{p 4405}# #{lev 4406}#)
- (let ((#{tmp 4409}# #{p 4405}#))
- (let ((#{tmp 4410}#
- ((#{quasi 4382}#
- (lambda (#{p 4395}# #{lev 4396}#)
- (let ((#{tmp 4399}# #{p 4395}#))
- (let ((#{tmp 4400}#
++ ((#{quasi 4394}#
++ (lambda (#{p 4407}# #{lev 4408}#)
++ (let ((#{tmp 4411}# #{p 4407}#))
++ (let ((#{tmp 4412}#
($sc-dispatch
- #{tmp 4409}#
- #{tmp 4399}#
++ #{tmp 4411}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
any))))
- (if #{tmp 4410}#
- (if #{tmp 4400}#
++ (if #{tmp 4412}#
(@apply
- (lambda (#{p 4412}#)
- (if (= #{lev 4406}# 0)
- (lambda (#{p 4402}#)
- (if (= #{lev 4396}# 0)
++ (lambda (#{p 4414}#)
++ (if (= #{lev 4408}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i4411"))
- #(ribcage #(p) #((top)) #("i4401"))
++ #(ribcage #(p) #((top)) #("i4413"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{p 4412}#)
- (#{quasicons 4396}#
- #{p 4402}#)
- (#{quasicons 4386}#
++ #{p 4414}#)
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4411"))
- #(ribcage #(p) #((top)) #("i4401"))
++ #(ribcage #(p) #((top)) #("i4413"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4411"))
- #(ribcage #(p) #((top)) #("i4401"))
++ #(ribcage #(p) #((top)) #("i4413"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- (list #{p 4412}#)
- (#{1-}# #{lev 4406}#)))))
- #{tmp 4410}#)
- (let ((#{tmp 4413}#
- (#{quasi 4382}#
- (list #{p 4402}#)
- (#{1-}# #{lev 4396}#)))))
- #{tmp 4400}#)
- (let ((#{tmp 4403}#
++ (#{quasi 4394}#
++ (list #{p 4414}#)
++ (#{1-}# #{lev 4408}#)))))
++ #{tmp 4412}#)
++ (let ((#{tmp 4415}#
($sc-dispatch
- #{tmp 4409}#
- #{tmp 4399}#
++ #{tmp 4411}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
any))))
- (if #{tmp 4413}#
- (if #{tmp 4403}#
++ (if #{tmp 4415}#
(@apply
- (lambda (#{p 4415}#)
- (#{quasicons 4396}#
- (lambda (#{p 4405}#)
- (#{quasicons 4386}#
++ (lambda (#{p 4417}#)
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4414"))
- #(ribcage #(p) #((top)) #("i4404"))
++ #(ribcage #(p) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i4414"))
- #(ribcage #(p) #((top)) #("i4404"))
++ #(ribcage #(p) #((top)) #("i4416"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- (list #{p 4415}#)
- (#{1+}# #{lev 4406}#))))
- #{tmp 4413}#)
- (let ((#{tmp 4416}#
- ($sc-dispatch #{tmp 4409}# '(any . any))))
- (if #{tmp 4416}#
- (#{quasi 4382}#
- (list #{p 4405}#)
- (#{1+}# #{lev 4396}#))))
- #{tmp 4403}#)
- (let ((#{tmp 4406}#
- ($sc-dispatch #{tmp 4399}# '(any . any))))
- (if #{tmp 4406}#
++ (#{quasi 4394}#
++ (list #{p 4417}#)
++ (#{1+}# #{lev 4408}#))))
++ #{tmp 4415}#)
++ (let ((#{tmp 4418}#
++ ($sc-dispatch #{tmp 4411}# '(any . any))))
++ (if #{tmp 4418}#
(@apply
- (lambda (#{p 4419}# #{q 4420}#)
- (let ((#{tmp 4421}# #{p 4419}#))
- (let ((#{tmp 4422}#
- (lambda (#{p 4409}# #{q 4410}#)
- (let ((#{tmp 4411}# #{p 4409}#))
- (let ((#{tmp 4412}#
++ (lambda (#{p 4421}# #{q 4422}#)
++ (let ((#{tmp 4423}# #{p 4421}#))
++ (let ((#{tmp 4424}#
($sc-dispatch
- #{tmp 4421}#
- #{tmp 4411}#
++ #{tmp 4423}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4422}#
- (if #{tmp 4412}#
++ (if #{tmp 4424}#
(@apply
- (lambda (#{p 4424}#)
- (if (= #{lev 4406}# 0)
- (#{quasilist* 4400}#
- (map (lambda (#{tmp 4425}#)
- (lambda (#{p 4414}#)
- (if (= #{lev 4396}# 0)
- (#{quasilist* 4390}#
- (map (lambda (#{tmp 4415}#)
++ (lambda (#{p 4426}#)
++ (if (= #{lev 4408}# 0)
++ (#{quasilist* 4402}#
++ (map (lambda (#{tmp 4427}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4423"))
- #("i4413"))
++ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4417"
- "i4418"))
- #("i4407"
- "i4408"))
++ #("i4419"
++ "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407"
- "i4408"))
- #("i4397"
- "i4398"))
++ #("i4409"
++ "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{tmp 4425}#))
- #{p 4424}#)
- (#{quasi 4392}#
- #{q 4420}#
- #{lev 4406}#))
- (#{quasicons 4396}#
- (#{quasicons 4396}#
- #{tmp 4415}#))
- #{p 4414}#)
- (#{quasi 4382}#
- #{q 4410}#
- #{lev 4396}#))
- (#{quasicons 4386}#
- (#{quasicons 4386}#
++ #{tmp 4427}#))
++ #{p 4426}#)
++ (#{quasi 4394}#
++ #{q 4422}#
++ #{lev 4408}#))
++ (#{quasicons 4398}#
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4423"))
- #("i4413"))
++ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i4423"))
- #("i4413"))
++ #("i4425"))
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- #{p 4424}#
- (#{1-}# #{lev 4406}#)))
- (#{quasi 4392}#
- #{q 4420}#
- #{lev 4406}#))))
- #{tmp 4422}#)
- (let ((#{tmp 4427}#
- (#{quasi 4382}#
- #{p 4414}#
- (#{1-}# #{lev 4396}#)))
- (#{quasi 4382}#
- #{q 4410}#
- #{lev 4396}#))))
- #{tmp 4412}#)
- (let ((#{tmp 4417}#
++ (#{quasi 4394}#
++ #{p 4426}#
++ (#{1-}# #{lev 4408}#)))
++ (#{quasi 4394}#
++ #{q 4422}#
++ #{lev 4408}#))))
++ #{tmp 4424}#)
++ (let ((#{tmp 4429}#
($sc-dispatch
- #{tmp 4421}#
- #{tmp 4411}#
++ #{tmp 4423}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4427}#
- (if #{tmp 4417}#
++ (if #{tmp 4429}#
(@apply
- (lambda (#{p 4429}#)
- (if (= #{lev 4406}# 0)
- (#{quasiappend 4398}#
- (map (lambda (#{tmp 4430}#)
- (lambda (#{p 4419}#)
- (if (= #{lev 4396}# 0)
- (#{quasiappend 4388}#
- (map (lambda (#{tmp 4420}#)
++ (lambda (#{p 4431}#)
++ (if (= #{lev 4408}# 0)
++ (#{quasiappend 4400}#
++ (map (lambda (#{tmp 4432}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4428"))
- #("i4418"))
++ #("i4430"))
#(ribcage
#(p q)
#((top)
(top))
- #("i4417"
- "i4418"))
- #("i4407"
- "i4408"))
++ #("i4419"
++ "i4420"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4407"
- "i4408"))
- #("i4397"
- "i4398"))
++ #("i4409"
++ "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{tmp 4430}#))
- #{p 4429}#)
- (#{quasi 4392}#
- #{q 4420}#
- #{lev 4406}#))
- (#{quasicons 4396}#
- (#{quasicons 4396}#
- #{tmp 4420}#))
- #{p 4419}#)
- (#{quasi 4382}#
- #{q 4410}#
- #{lev 4396}#))
- (#{quasicons 4386}#
- (#{quasicons 4386}#
++ #{tmp 4432}#))
++ #{p 4431}#)
++ (#{quasi 4394}#
++ #{q 4422}#
++ #{lev 4408}#))
++ (#{quasicons 4398}#
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4428"))
- #("i4418"))
++ #("i4430"))
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4428"))
- #("i4418"))
++ #("i4430"))
#(ribcage
#(p q)
#((top) (top))
- #("i4417" "i4418"))
- #("i4407" "i4408"))
++ #("i4419" "i4420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- #{p 4429}#
- (#{1-}# #{lev 4406}#)))
- (#{quasi 4392}#
- #{q 4420}#
- #{lev 4406}#))))
- #{tmp 4427}#)
- (let ((#{_ 4433}# #{tmp 4421}#))
- (#{quasicons 4396}#
- (#{quasi 4392}#
- #{p 4419}#
- #{lev 4406}#)
- (#{quasi 4392}#
- #{q 4420}#
- #{lev 4406}#)))))))))
- #{tmp 4416}#)
- (let ((#{tmp 4434}#
- (#{quasi 4382}#
- #{p 4419}#
- (#{1-}# #{lev 4396}#)))
- (#{quasi 4382}#
- #{q 4410}#
- #{lev 4396}#))))
- #{tmp 4417}#)
- (let ((#{_ 4423}# #{tmp 4411}#))
- (#{quasicons 4386}#
- (#{quasi 4382}#
- #{p 4409}#
- #{lev 4396}#)
- (#{quasi 4382}#
- #{q 4410}#
- #{lev 4396}#)))))))))
- #{tmp 4406}#)
- (let ((#{tmp 4424}#
++ (#{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}#
($sc-dispatch
- #{tmp 4409}#
- #{tmp 4399}#
++ #{tmp 4411}#
'#(vector each-any))))
- (if #{tmp 4434}#
- (if #{tmp 4424}#
++ (if #{tmp 4436}#
(@apply
- (lambda (#{x 4436}#)
- (#{quasivector 4402}#
- (#{vquasi 4394}# #{x 4436}# #{lev 4406}#)))
- #{tmp 4434}#)
- (let ((#{p 4439}# #{tmp 4409}#))
- (lambda (#{x 4426}#)
- (#{quasivector 4392}#
- (#{vquasi 4384}# #{x 4426}# #{lev 4396}#)))
- #{tmp 4424}#)
- (let ((#{p 4429}# #{tmp 4399}#))
++ (lambda (#{x 4438}#)
++ (#{quasivector 4404}#
++ (#{vquasi 4396}# #{x 4438}# #{lev 4408}#)))
++ #{tmp 4436}#)
++ (let ((#{p 4441}# #{tmp 4411}#))
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4438"))
- #(ribcage #(p) #((top)) #("i4428"))
++ #(ribcage #(p) #((top)) #("i4440"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4407" "i4408"))
- #("i4397" "i4398"))
++ #("i4409" "i4410"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{p 4439}#)))))))))))))
- (#{vquasi 4394}#
- (lambda (#{p 4440}# #{lev 4441}#)
- (let ((#{tmp 4444}# #{p 4440}#))
- (let ((#{tmp 4445}#
- ($sc-dispatch #{tmp 4444}# '(any . any))))
- (if #{tmp 4445}#
- #{p 4429}#)))))))))))))
- (#{vquasi 4384}#
- (lambda (#{p 4430}# #{lev 4431}#)
- (let ((#{tmp 4434}# #{p 4430}#))
- (let ((#{tmp 4435}#
- ($sc-dispatch #{tmp 4434}# '(any . any))))
- (if #{tmp 4435}#
++ #{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}#
(@apply
- (lambda (#{p 4448}# #{q 4449}#)
- (let ((#{tmp 4450}# #{p 4448}#))
- (let ((#{tmp 4451}#
- (lambda (#{p 4438}# #{q 4439}#)
- (let ((#{tmp 4440}# #{p 4438}#))
- (let ((#{tmp 4441}#
++ (lambda (#{p 4450}# #{q 4451}#)
++ (let ((#{tmp 4452}# #{p 4450}#))
++ (let ((#{tmp 4453}#
($sc-dispatch
- #{tmp 4450}#
- #{tmp 4440}#
++ #{tmp 4452}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4451}#
- (if #{tmp 4441}#
++ (if #{tmp 4453}#
(@apply
- (lambda (#{p 4453}#)
- (if (= #{lev 4441}# 0)
- (#{quasilist* 4400}#
- (map (lambda (#{tmp 4454}#)
- (lambda (#{p 4443}#)
- (if (= #{lev 4431}# 0)
- (#{quasilist* 4390}#
- (map (lambda (#{tmp 4444}#)
++ (lambda (#{p 4455}#)
++ (if (= #{lev 4443}# 0)
++ (#{quasilist* 4402}#
++ (map (lambda (#{tmp 4456}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4452"))
- #("i4442"))
++ #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{tmp 4454}#))
- #{p 4453}#)
- (#{vquasi 4394}# #{q 4449}# #{lev 4441}#))
- (#{quasicons 4396}#
- (#{quasicons 4396}#
- #{tmp 4444}#))
- #{p 4443}#)
- (#{vquasi 4384}# #{q 4439}# #{lev 4431}#))
- (#{quasicons 4386}#
- (#{quasicons 4386}#
++ #{tmp 4456}#))
++ #{p 4455}#)
++ (#{vquasi 4396}# #{q 4451}# #{lev 4443}#))
++ (#{quasicons 4398}#
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i4452"))
- #(ribcage #(p) #((top)) #("i4442"))
++ #(ribcage #(p) #((top)) #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i4452"))
- #(ribcage #(p) #((top)) #("i4442"))
++ #(ribcage #(p) #((top)) #("i4454"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- #{p 4453}#
- (#{1-}# #{lev 4441}#)))
- (#{vquasi 4394}# #{q 4449}# #{lev 4441}#))))
- #{tmp 4451}#)
- (let ((#{tmp 4456}#
- (#{quasi 4382}#
- #{p 4443}#
- (#{1-}# #{lev 4431}#)))
- (#{vquasi 4384}# #{q 4439}# #{lev 4431}#))))
- #{tmp 4441}#)
- (let ((#{tmp 4446}#
++ (#{quasi 4394}#
++ #{p 4455}#
++ (#{1-}# #{lev 4443}#)))
++ (#{vquasi 4396}# #{q 4451}# #{lev 4443}#))))
++ #{tmp 4453}#)
++ (let ((#{tmp 4458}#
($sc-dispatch
- #{tmp 4450}#
- #{tmp 4440}#
++ #{tmp 4452}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 4456}#
- (if #{tmp 4446}#
++ (if #{tmp 4458}#
(@apply
- (lambda (#{p 4458}#)
- (if (= #{lev 4441}# 0)
- (#{quasiappend 4398}#
- (map (lambda (#{tmp 4459}#)
- (lambda (#{p 4448}#)
- (if (= #{lev 4431}# 0)
- (#{quasiappend 4388}#
- (map (lambda (#{tmp 4449}#)
++ (lambda (#{p 4460}#)
++ (if (= #{lev 4443}# 0)
++ (#{quasiappend 4400}#
++ (map (lambda (#{tmp 4461}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i4457"))
- #("i4447"))
++ #("i4459"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{tmp 4459}#))
- #{p 4458}#)
- (#{vquasi 4394}#
- #{q 4449}#
- #{lev 4441}#))
- (#{quasicons 4396}#
- (#{quasicons 4396}#
- #{tmp 4449}#))
- #{p 4448}#)
- (#{vquasi 4384}#
- #{q 4439}#
- #{lev 4431}#))
- (#{quasicons 4386}#
- (#{quasicons 4386}#
++ #{tmp 4461}#))
++ #{p 4460}#)
++ (#{vquasi 4396}#
++ #{q 4451}#
++ #{lev 4443}#))
++ (#{quasicons 4398}#
++ (#{quasicons 4398}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i4457"))
- #("i4447"))
++ #("i4459"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("i4457"))
- #("i4447"))
++ #("i4459"))
#(ribcage
#(p q)
#((top) (top))
- #("i4446" "i4447"))
- #("i4436" "i4437"))
++ #("i4448" "i4449"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile)))
- (#{quasi 4392}#
- #{p 4458}#
- (#{1-}# #{lev 4441}#)))
- (#{vquasi 4394}#
- #{q 4449}#
- #{lev 4441}#))))
- #{tmp 4456}#)
- (let ((#{_ 4462}# #{tmp 4450}#))
- (#{quasicons 4396}#
- (#{quasi 4392}# #{p 4448}# #{lev 4441}#)
- (#{vquasi 4394}#
- #{q 4449}#
- #{lev 4441}#)))))))))
- #{tmp 4445}#)
- (let ((#{tmp 4463}# ($sc-dispatch #{tmp 4444}# '())))
- (if #{tmp 4463}#
- (#{quasi 4382}#
- #{p 4448}#
- (#{1-}# #{lev 4431}#)))
- (#{vquasi 4384}#
- #{q 4439}#
- #{lev 4431}#))))
- #{tmp 4446}#)
- (let ((#{_ 4452}# #{tmp 4440}#))
- (#{quasicons 4386}#
- (#{quasi 4382}# #{p 4438}# #{lev 4431}#)
- (#{vquasi 4384}#
- #{q 4439}#
- #{lev 4431}#)))))))))
- #{tmp 4435}#)
- (let ((#{tmp 4453}# ($sc-dispatch #{tmp 4434}# '())))
- (if #{tmp 4453}#
++ (#{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}#
(@apply
(lambda ()
'(#(syntax-object
#(ribcage
#(p lev)
#((top) (top))
- #("i4442" "i4443"))
- #("i4432" "i4433"))
++ #("i4444" "i4445"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
()))
- #{tmp 4463}#)
- #{tmp 4453}#)
++ #{tmp 4465}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4444}#))))))))
- (#{quasicons 4396}#
- (lambda (#{x 4464}# #{y 4465}#)
- (let ((#{tmp 4469}# (list #{x 4464}# #{y 4465}#)))
- (let ((#{tmp 4470}#
- ($sc-dispatch #{tmp 4469}# '(any any))))
- (if #{tmp 4470}#
- #{tmp 4434}#))))))))
- (#{quasicons 4386}#
- (lambda (#{x 4454}# #{y 4455}#)
- (let ((#{tmp 4459}# (list #{x 4454}# #{y 4455}#)))
- (let ((#{tmp 4460}#
- ($sc-dispatch #{tmp 4459}# '(any any))))
- (if #{tmp 4460}#
++ #{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}#
(@apply
- (lambda (#{x 4473}# #{y 4474}#)
- (let ((#{tmp 4475}# #{y 4474}#))
- (let ((#{tmp 4476}#
- (lambda (#{x 4463}# #{y 4464}#)
- (let ((#{tmp 4465}# #{y 4464}#))
- (let ((#{tmp 4466}#
++ (lambda (#{x 4475}# #{y 4476}#)
++ (let ((#{tmp 4477}# #{y 4476}#))
++ (let ((#{tmp 4478}#
($sc-dispatch
- #{tmp 4475}#
- #{tmp 4465}#
++ #{tmp 4477}#
'(#(atom "quote") any))))
- (if #{tmp 4476}#
- (if #{tmp 4466}#
++ (if #{tmp 4478}#
(@apply
- (lambda (#{dy 4478}#)
- (let ((#{tmp 4479}# #{x 4473}#))
- (let ((#{tmp 4480}#
- (lambda (#{dy 4468}#)
- (let ((#{tmp 4469}# #{x 4463}#))
- (let ((#{tmp 4470}#
++ (lambda (#{dy 4480}#)
++ (let ((#{tmp 4481}# #{x 4475}#))
++ (let ((#{tmp 4482}#
($sc-dispatch
- #{tmp 4479}#
- #{tmp 4469}#
++ #{tmp 4481}#
'(#(atom "quote") any))))
- (if #{tmp 4480}#
- (if #{tmp 4470}#
++ (if #{tmp 4482}#
(@apply
- (lambda (#{dx 4482}#)
- (lambda (#{dx 4472}#)
++ (lambda (#{dx 4484}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i4481"))
- #("i4471"))
++ #("i4483"))
#(ribcage
#(dy)
#((top))
- #("i4477"))
- #("i4467"))
++ #("i4479"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- (cons #{dx 4482}# #{dy 4478}#)))
- #{tmp 4480}#)
- (let ((#{_ 4484}# #{tmp 4479}#))
- (if (null? #{dy 4478}#)
- (cons #{dx 4472}# #{dy 4468}#)))
- #{tmp 4470}#)
- (let ((#{_ 4474}# #{tmp 4469}#))
- (if (null? #{dy 4468}#)
++ (cons #{dx 4484}# #{dy 4480}#)))
++ #{tmp 4482}#)
++ (let ((#{_ 4486}# #{tmp 4481}#))
++ (if (null? #{dy 4480}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i4483"))
- #("i4473"))
++ #("i4485"))
#(ribcage
#(dy)
#((top))
- #("i4477"))
- #("i4467"))
++ #("i4479"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{x 4473}#)
- #{x 4463}#)
++ #{x 4475}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4483"))
- #("i4473"))
++ #("i4485"))
#(ribcage
#(dy)
#((top))
- #("i4477"))
- #("i4467"))
++ #("i4479"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{x 4473}#
- #{y 4474}#)))))))
- #{tmp 4476}#)
- (let ((#{tmp 4485}#
- #{x 4463}#
- #{y 4464}#)))))))
- #{tmp 4466}#)
- (let ((#{tmp 4475}#
++ #{x 4475}#
++ #{y 4476}#)))))))
++ #{tmp 4478}#)
++ (let ((#{tmp 4487}#
($sc-dispatch
- #{tmp 4475}#
- #{tmp 4465}#
++ #{tmp 4477}#
'(#(atom "list") . any))))
- (if #{tmp 4485}#
- (if #{tmp 4475}#
++ (if #{tmp 4487}#
(@apply
- (lambda (#{stuff 4487}#)
- (lambda (#{stuff 4477}#)
++ (lambda (#{stuff 4489}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4486"))
- #("i4476"))
++ #("i4488"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- (cons #{x 4473}# #{stuff 4487}#)))
- #{tmp 4485}#)
- (let ((#{tmp 4488}#
- (cons #{x 4463}# #{stuff 4477}#)))
- #{tmp 4475}#)
- (let ((#{tmp 4478}#
++ (cons #{x 4475}# #{stuff 4489}#)))
++ #{tmp 4487}#)
++ (let ((#{tmp 4490}#
($sc-dispatch
- #{tmp 4475}#
- #{tmp 4465}#
++ #{tmp 4477}#
'(#(atom "list*") . any))))
- (if #{tmp 4488}#
- (if #{tmp 4478}#
++ (if #{tmp 4490}#
(@apply
- (lambda (#{stuff 4490}#)
- (lambda (#{stuff 4480}#)
++ (lambda (#{stuff 4492}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i4489"))
- #("i4479"))
++ #("i4491"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- (cons #{x 4473}# #{stuff 4490}#)))
- #{tmp 4488}#)
- (let ((#{_ 4492}# #{tmp 4475}#))
- (cons #{x 4463}# #{stuff 4480}#)))
- #{tmp 4478}#)
- (let ((#{_ 4482}# #{tmp 4465}#))
++ (cons #{x 4475}# #{stuff 4492}#)))
++ #{tmp 4490}#)
++ (let ((#{_ 4494}# #{tmp 4477}#))
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i4491"))
- #("i4481"))
++ #("i4493"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4471" "i4472"))
- #("i4461" "i4462"))
++ #("i4473" "i4474"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4466" "i4467"))
- #("i4456" "i4457"))
++ #("i4468" "i4469"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{x 4473}#
- #{y 4474}#))))))))))
- #{tmp 4470}#)
- #{x 4463}#
- #{y 4464}#))))))))))
- #{tmp 4460}#)
++ #{x 4475}#
++ #{y 4476}#))))))))))
++ #{tmp 4472}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4469}#))))))
- (#{quasiappend 4398}#
- (lambda (#{x 4493}# #{y 4494}#)
- (let ((#{tmp 4497}# #{y 4494}#))
- (let ((#{tmp 4498}#
- ($sc-dispatch #{tmp 4497}# '(#(atom "quote") ()))))
- (if #{tmp 4498}#
- #{tmp 4459}#))))))
- (#{quasiappend 4388}#
- (lambda (#{x 4483}# #{y 4484}#)
- (let ((#{tmp 4487}# #{y 4484}#))
- (let ((#{tmp 4488}#
- ($sc-dispatch #{tmp 4487}# '(#(atom "quote") ()))))
- (if #{tmp 4488}#
++ #{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}#
(@apply
(lambda ()
- (if (null? #{x 4493}#)
- (if (null? #{x 4483}#)
++ (if (null? #{x 4495}#)
'(#(syntax-object
"quote"
((top)
#(ribcage
#(x y)
#((top) (top))
- #("i4495" "i4496"))
- #("i4485" "i4486"))
++ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
())
- (if (null? (cdr #{x 4493}#))
- (car #{x 4493}#)
- (let ((#{tmp 4505}# #{x 4493}#))
- (let ((#{tmp 4506}#
- ($sc-dispatch #{tmp 4505}# 'each-any)))
- (if #{tmp 4506}#
- (if (null? (cdr #{x 4483}#))
- (car #{x 4483}#)
- (let ((#{tmp 4495}# #{x 4483}#))
- (let ((#{tmp 4496}#
- ($sc-dispatch #{tmp 4495}# 'each-any)))
- (if #{tmp 4496}#
++ (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}#
(@apply
- (lambda (#{p 4508}#)
- (lambda (#{p 4498}#)
++ (lambda (#{p 4510}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p)
#((top))
- #("i4507"))
- #("i4497"))
++ #("i4509"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4495" "i4496"))
- #("i4485" "i4486"))
++ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{p 4508}#))
- #{tmp 4506}#)
- #{p 4498}#))
- #{tmp 4496}#)
++ #{p 4510}#))
++ #{tmp 4508}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4505}#)))))))
- #{tmp 4498}#)
- (let ((#{_ 4511}# #{tmp 4497}#))
- (if (null? #{x 4493}#)
- #{y 4494}#
- (let ((#{tmp 4516}# (list #{x 4493}# #{y 4494}#)))
- (let ((#{tmp 4517}#
- ($sc-dispatch #{tmp 4516}# '(each-any any))))
- (if #{tmp 4517}#
- #{tmp 4495}#)))))))
- #{tmp 4488}#)
- (let ((#{_ 4501}# #{tmp 4487}#))
- (if (null? #{x 4483}#)
- #{y 4484}#
- (let ((#{tmp 4506}# (list #{x 4483}# #{y 4484}#)))
- (let ((#{tmp 4507}#
- ($sc-dispatch #{tmp 4506}# '(each-any any))))
- (if #{tmp 4507}#
++ #{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}#
(@apply
- (lambda (#{p 4520}# #{y 4521}#)
- (lambda (#{p 4510}# #{y 4511}#)
++ (lambda (#{p 4522}# #{y 4523}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("i4518" "i4519"))
- #(ribcage #(_) #((top)) #("i4510"))
- #("i4508" "i4509"))
- #(ribcage #(_) #((top)) #("i4500"))
++ #("i4520" "i4521"))
++ #(ribcage #(_) #((top)) #("i4512"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4495" "i4496"))
- #("i4485" "i4486"))
++ #("i4497" "i4498"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- (append #{p 4520}# (list #{y 4521}#))))
- #{tmp 4517}#)
- (append #{p 4510}# (list #{y 4511}#))))
- #{tmp 4507}#)
++ (append #{p 4522}# (list #{y 4523}#))))
++ #{tmp 4519}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4516}#)))))))))))
- (#{quasilist* 4400}#
- (lambda (#{x 4523}# #{y 4524}#)
- #{tmp 4506}#)))))))))))
- (#{quasilist* 4390}#
- (lambda (#{x 4513}# #{y 4514}#)
++ #{tmp 4518}#)))))))))))
++ (#{quasilist* 4402}#
++ (lambda (#{x 4525}# #{y 4526}#)
(letrec*
- ((#{f 4529}#
- (lambda (#{x 4530}#)
- (if (null? #{x 4530}#)
- #{y 4524}#
- (#{quasicons 4396}#
- (car #{x 4530}#)
- (#{f 4529}# (cdr #{x 4530}#)))))))
- (#{f 4529}# #{x 4523}#))))
- (#{quasivector 4402}#
- (lambda (#{x 4531}#)
- (let ((#{tmp 4533}# #{x 4531}#))
- (let ((#{tmp 4534}#
- ((#{f 4519}#
- (lambda (#{x 4520}#)
- (if (null? #{x 4520}#)
- #{y 4514}#
- (#{quasicons 4386}#
- (car #{x 4520}#)
- (#{f 4519}# (cdr #{x 4520}#)))))))
- (begin (#{f 4519}# #{x 4513}#)))))
- (#{quasivector 4392}#
- (lambda (#{x 4521}#)
- (let ((#{tmp 4523}# #{x 4521}#))
- (let ((#{tmp 4524}#
++ ((#{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}#
($sc-dispatch
- #{tmp 4533}#
- #{tmp 4523}#
++ #{tmp 4535}#
'(#(atom "quote") each-any))))
- (if #{tmp 4534}#
- (if #{tmp 4524}#
++ (if #{tmp 4536}#
(@apply
- (lambda (#{x 4536}#)
- (lambda (#{x 4526}#)
++ (lambda (#{x 4538}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(x) #((top)) #("i4535"))
- #(ribcage #(x) #((top)) #("i4525"))
++ #(ribcage #(x) #((top)) #("i4537"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4532"))
- #(ribcage #(x) #((top)) #("i4522"))
++ #(ribcage #(x) #((top)) #("i4534"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- (list->vector #{x 4536}#)))
- #{tmp 4534}#)
- (let ((#{_ 4539}# #{tmp 4533}#))
- (list->vector #{x 4526}#)))
- #{tmp 4524}#)
- (let ((#{_ 4529}# #{tmp 4523}#))
++ (list->vector #{x 4538}#)))
++ #{tmp 4536}#)
++ (let ((#{_ 4541}# #{tmp 4535}#))
(letrec*
- ((#{f 4543}#
- (lambda (#{y 4544}# #{k 4545}#)
- (let ((#{tmp 4556}# #{y 4544}#))
- (let ((#{tmp 4557}#
- ((#{f 4533}#
- (lambda (#{y 4534}# #{k 4535}#)
- (let ((#{tmp 4546}# #{y 4534}#))
- (let ((#{tmp 4547}#
++ ((#{f 4545}#
++ (lambda (#{y 4546}# #{k 4547}#)
++ (let ((#{tmp 4558}# #{y 4546}#))
++ (let ((#{tmp 4559}#
($sc-dispatch
- #{tmp 4556}#
- #{tmp 4546}#
++ #{tmp 4558}#
'(#(atom "quote") each-any))))
- (if #{tmp 4557}#
- (if #{tmp 4547}#
++ (if #{tmp 4559}#
(@apply
- (lambda (#{y 4559}#)
- (#{k 4545}#
- (map (lambda (#{tmp 4560}#)
- (lambda (#{y 4549}#)
- (#{k 4535}#
- (map (lambda (#{tmp 4550}#)
++ (lambda (#{y 4561}#)
++ (#{k 4547}#
++ (map (lambda (#{tmp 4562}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("i4558"))
- #("i4548"))
++ #("i4560"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4540"
- "i4541"
- "i4542"))
- #("i4530"
- "i4531"
- "i4532"))
++ #("i4542"
++ "i4543"
++ "i4544"))
#(ribcage
#(_)
#((top))
- #("i4538"))
- #("i4528"))
++ #("i4540"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4532"))
- #("i4522"))
++ #("i4534"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{tmp 4560}#))
- #{y 4559}#)))
- #{tmp 4557}#)
- (let ((#{tmp 4561}#
- #{tmp 4550}#))
- #{y 4549}#)))
- #{tmp 4547}#)
- (let ((#{tmp 4551}#
++ #{tmp 4562}#))
++ #{y 4561}#)))
++ #{tmp 4559}#)
++ (let ((#{tmp 4563}#
($sc-dispatch
- #{tmp 4556}#
- #{tmp 4546}#
++ #{tmp 4558}#
'(#(atom "list") . each-any))))
- (if #{tmp 4561}#
- (if #{tmp 4551}#
++ (if #{tmp 4563}#
(@apply
- (lambda (#{y 4563}#)
- (#{k 4545}# #{y 4563}#))
- #{tmp 4561}#)
- (let ((#{tmp 4565}#
- (lambda (#{y 4553}#)
- (#{k 4535}# #{y 4553}#))
- #{tmp 4551}#)
- (let ((#{tmp 4555}#
++ (lambda (#{y 4565}#)
++ (#{k 4547}# #{y 4565}#))
++ #{tmp 4563}#)
++ (let ((#{tmp 4567}#
($sc-dispatch
- #{tmp 4556}#
- #{tmp 4546}#
++ #{tmp 4558}#
'(#(atom "list*")
.
#(each+ any (any) ())))))
- (if #{tmp 4565}#
- (if #{tmp 4555}#
++ (if #{tmp 4567}#
(@apply
- (lambda (#{y 4568}# #{z 4569}#)
- (#{f 4543}#
- #{z 4569}#
- (lambda (#{ls 4570}#)
- (#{k 4545}#
- (lambda (#{y 4558}# #{z 4559}#)
- (#{f 4533}#
- #{z 4559}#
- (lambda (#{ls 4560}#)
- (#{k 4535}#
++ (lambda (#{y 4570}# #{z 4571}#)
++ (#{f 4545}#
++ #{z 4571}#
++ (lambda (#{ls 4572}#)
++ (#{k 4547}#
(append
- #{y 4568}#
- #{ls 4570}#)))))
- #{tmp 4565}#)
- (let ((#{else 4574}# #{tmp 4556}#))
- (let ((#{tmp 4578}# #{x 4531}#))
- (let ((#{ g4575 4580}#
- #{tmp 4578}#))
- #{y 4558}#
- #{ls 4560}#)))))
- #{tmp 4555}#)
- (let ((#{else 4564}# #{tmp 4546}#))
- (let ((#{tmp 4568}# #{x 4521}#))
- (let ((#{ g4565 4570}#
- #{tmp 4568}#))
++ #{y 4570}#
++ #{ls 4572}#)))))
++ #{tmp 4567}#)
++ (let ((#{else 4576}# #{tmp 4558}#))
++ (let ((#{tmp 4580}# #{x 4533}#))
++ (let ((#{ g4577 4582}#
++ #{tmp 4580}#))
(list '#(syntax-object
"list->vector"
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4575}#)
- #((m4576 top))
- #("i4579"))
- #(#{ g4565}#)
- #((m4566 top))
- #("i4569"))
++ #(#{ g4577}#)
++ #((m4578 top))
++ #("i4581"))
#(ribcage
#(else)
#((top))
- #("i4573"))
- #("i4563"))
++ #("i4575"))
#(ribcage () () ())
#(ribcage
#(f y k)
#((top) (top) (top))
- #("i4540"
- "i4541"
- "i4542"))
- #("i4530"
- "i4531"
- "i4532"))
++ #("i4542"
++ "i4543"
++ "i4544"))
#(ribcage
#(_)
#((top))
- #("i4538"))
- #("i4528"))
++ #("i4540"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4532"))
- #("i4522"))
++ #("i4534"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4575 4580}#))))))))))))))
- (#{f 4543}#
- #{x 4531}#
- (lambda (#{ls 4546}#)
- (let ((#{tmp 4551}# #{ls 4546}#))
- (let ((#{tmp 4552}#
- ($sc-dispatch #{tmp 4551}# 'each-any)))
- (if #{tmp 4552}#
- #{ g4565 4570}#))))))))))))))
- (begin
- (#{f 4533}#
- #{x 4521}#
- (lambda (#{ls 4536}#)
- (let ((#{tmp 4541}# #{ls 4536}#))
- (let ((#{tmp 4542}#
- ($sc-dispatch #{tmp 4541}# 'each-any)))
- (if #{tmp 4542}#
- (@apply
- (lambda (#{ g4538 4544}#)
- (cons '#(syntax-object
- "vector"
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(#{ g4538}#)
- #((m4539 top))
- #("i4543"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(ls)
- #((top))
- #("i4537"))
- #(ribcage
- #(_)
- #((top))
- #("i4528"))
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i4522"))
- #(ribcage
- (emit quasivector
- quasilist*
- quasiappend
- quasicons
- vquasi
- quasi)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
- (hygiene guile))
- #{ g4538 4544}#))
- #{tmp 4542}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4541}#))))))))))))))
- (#{emit 4394}#
- (lambda (#{x 4571}#)
- (let ((#{tmp 4573}# #{x 4571}#))
- (let ((#{tmp 4574}#
++ #{ 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}#
+ (@apply
- (lambda (#{ g4548 4554}#)
++ (lambda (#{ g4550 4556}#)
+ (cons '#(syntax-object
+ "vector"
+ ((top)
+ #(ribcage () () ())
+ #(ribcage
- #(#{ g4548}#)
- #((m4549 top))
- #("i4553"))
++ #(#{ g4550}#)
++ #((m4551 top))
++ #("i4555"))
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage () () ())
+ #(ribcage
+ #(ls)
+ #((top))
- #("i4547"))
++ #("i4549"))
+ #(ribcage
+ #(_)
+ #((top))
- #("i4538"))
++ #("i4540"))
+ #(ribcage () () ())
+ #(ribcage
+ #(x)
+ #((top))
- #("i4532"))
++ #("i4534"))
+ #(ribcage
+ (emit quasivector
+ quasilist*
+ quasiappend
+ quasicons
+ vquasi
+ quasi)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
- ("i4403"
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
+ (hygiene guile))
- #{ g4548 4554}#))
- #{tmp 4552}#)
++ #{ g4550 4556}#))
++ #{tmp 4554}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4551}#)))))))))))))
- (#{emit 4404}#
- (lambda (#{x 4581}#)
- (let ((#{tmp 4583}# #{x 4581}#))
- (let ((#{tmp 4584}#
++ #{tmp 4553}#)))))))))))))
++ (#{emit 4406}#
++ (lambda (#{x 4583}#)
++ (let ((#{tmp 4585}# #{x 4583}#))
++ (let ((#{tmp 4586}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "quote") any))))
- (if #{tmp 4584}#
- (if #{tmp 4574}#
++ (if #{tmp 4586}#
(@apply
- (lambda (#{x 4586}#)
- (lambda (#{x 4576}#)
++ (lambda (#{x 4588}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4585"))
- #(ribcage #(x) #((top)) #("i4575"))
++ #(ribcage #(x) #((top)) #("i4587"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4582"))
- #(ribcage #(x) #((top)) #("i4572"))
++ #(ribcage #(x) #((top)) #("i4584"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{x 4586}#))
- #{tmp 4584}#)
- (let ((#{tmp 4587}#
- #{x 4576}#))
- #{tmp 4574}#)
- (let ((#{tmp 4577}#
++ #{x 4588}#))
++ #{tmp 4586}#)
++ (let ((#{tmp 4589}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "list") . each-any))))
- (if #{tmp 4587}#
- (if #{tmp 4577}#
++ (if #{tmp 4589}#
(@apply
- (lambda (#{x 4589}#)
- (let ((#{tmp 4593}# (map #{emit 4404}# #{x 4589}#)))
- (let ((#{tmp 4594}#
- ($sc-dispatch #{tmp 4593}# 'each-any)))
- (if #{tmp 4594}#
- (lambda (#{x 4579}#)
- (let ((#{tmp 4583}# (map #{emit 4394}# #{x 4579}#)))
- (let ((#{tmp 4584}#
- ($sc-dispatch #{tmp 4583}# 'each-any)))
- (if #{tmp 4584}#
++ (lambda (#{x 4591}#)
++ (let ((#{tmp 4595}# (map #{emit 4406}# #{x 4591}#)))
++ (let ((#{tmp 4596}#
++ ($sc-dispatch #{tmp 4595}# 'each-any)))
++ (if #{tmp 4596}#
(@apply
- (lambda (#{ g4590 4596}#)
- (lambda (#{ g4580 4586}#)
++ (lambda (#{ g4592 4598}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4590}#)
- #((m4591 top))
- #("i4595"))
- #(#{ g4580}#)
- #((m4581 top))
- #("i4585"))
++ #(#{ g4592}#)
++ #((m4593 top))
++ #("i4597"))
#(ribcage
#(x)
#((top))
- #("i4588"))
- #("i4578"))
++ #("i4590"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4582"))
- #("i4572"))
++ #("i4584"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4590 4596}#))
- #{tmp 4594}#)
- #{ g4580 4586}#))
- #{tmp 4584}#)
++ #{ g4592 4598}#))
++ #{tmp 4596}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4593}#)))))
- #{tmp 4587}#)
- (let ((#{tmp 4599}#
- #{tmp 4583}#)))))
- #{tmp 4577}#)
- (let ((#{tmp 4589}#
++ #{tmp 4595}#)))))
++ #{tmp 4589}#)
++ (let ((#{tmp 4601}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 4599}#
- (if #{tmp 4589}#
++ (if #{tmp 4601}#
(@apply
- (lambda (#{x 4602}# #{y 4603}#)
- (lambda (#{x 4592}# #{y 4593}#)
++ (lambda (#{x 4604}# #{y 4605}#)
(letrec*
- ((#{f 4606}#
- (lambda (#{x* 4607}#)
- (if (null? #{x* 4607}#)
- (#{emit 4404}# #{y 4603}#)
- (let ((#{tmp 4613}#
- (list (#{emit 4404}#
- (car #{x* 4607}#))
- (#{f 4606}#
- (cdr #{x* 4607}#)))))
- (let ((#{tmp 4614}#
- ((#{f 4596}#
- (lambda (#{x* 4597}#)
- (if (null? #{x* 4597}#)
- (#{emit 4394}# #{y 4593}#)
- (let ((#{tmp 4603}#
- (list (#{emit 4394}#
- (car #{x* 4597}#))
- (#{f 4596}#
- (cdr #{x* 4597}#)))))
- (let ((#{tmp 4604}#
++ ((#{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}#
($sc-dispatch
- #{tmp 4613}#
- #{tmp 4603}#
++ #{tmp 4615}#
'(any any))))
- (if #{tmp 4614}#
- (if #{tmp 4604}#
++ (if #{tmp 4616}#
(@apply
- (lambda (#{ g4610 4617}#
- #{ g4609 4618}#)
- (lambda (#{ g4600 4607}#
- #{ g4599 4608}#)
++ (lambda (#{ g4612 4619}#
++ #{ g4611 4620}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4610}#
- #{ g4609}#)
- #((m4611 top)
- (m4611 top))
- #("i4615" "i4616"))
- #(#{ g4600}#
- #{ g4599}#)
- #((m4601 top)
- (m4601 top))
- #("i4605" "i4606"))
++ #(#{ g4612}#
++ #{ g4611}#)
++ #((m4613 top)
++ (m4613 top))
++ #("i4617" "i4618"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i4604" "i4605"))
- #("i4594" "i4595"))
++ #("i4606" "i4607"))
#(ribcage
#(x y)
#((top) (top))
- #("i4600" "i4601"))
- #("i4590" "i4591"))
++ #("i4602" "i4603"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4582"))
- #("i4572"))
++ #("i4584"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4610 4617}#
- #{ g4609 4618}#))
- #{tmp 4614}#)
- #{ g4600 4607}#
- #{ g4599 4608}#))
- #{tmp 4604}#)
++ #{ g4612 4619}#
++ #{ g4611 4620}#))
++ #{tmp 4616}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4613}#))))))))
- (#{f 4606}# #{x 4602}#)))
- #{tmp 4599}#)
- (let ((#{tmp 4619}#
- #{tmp 4603}#))))))))
- (begin (#{f 4596}# #{x 4592}#))))
- #{tmp 4589}#)
- (let ((#{tmp 4609}#
++ #{tmp 4615}#))))))))
++ (#{f 4608}# #{x 4604}#)))
++ #{tmp 4601}#)
++ (let ((#{tmp 4621}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "append") . each-any))))
- (if #{tmp 4619}#
- (if #{tmp 4609}#
++ (if #{tmp 4621}#
(@apply
- (lambda (#{x 4621}#)
- (let ((#{tmp 4625}#
- (map #{emit 4404}# #{x 4621}#)))
- (let ((#{tmp 4626}#
- (lambda (#{x 4611}#)
- (let ((#{tmp 4615}#
- (map #{emit 4394}# #{x 4611}#)))
- (let ((#{tmp 4616}#
++ (lambda (#{x 4623}#)
++ (let ((#{tmp 4627}#
++ (map #{emit 4406}# #{x 4623}#)))
++ (let ((#{tmp 4628}#
($sc-dispatch
- #{tmp 4625}#
- #{tmp 4615}#
++ #{tmp 4627}#
'each-any)))
- (if #{tmp 4626}#
- (if #{tmp 4616}#
++ (if #{tmp 4628}#
(@apply
- (lambda (#{ g4622 4628}#)
- (lambda (#{ g4612 4618}#)
++ (lambda (#{ g4624 4630}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4622}#)
- #((m4623 top))
- #("i4627"))
- #(#{ g4612}#)
- #((m4613 top))
- #("i4617"))
++ #(#{ g4624}#)
++ #((m4625 top))
++ #("i4629"))
#(ribcage
#(x)
#((top))
- #("i4620"))
- #("i4610"))
++ #("i4622"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4582"))
- #("i4572"))
++ #("i4584"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4622 4628}#))
- #{tmp 4626}#)
- #{ g4612 4618}#))
- #{tmp 4616}#)
++ #{ g4624 4630}#))
++ #{tmp 4628}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4625}#)))))
- #{tmp 4619}#)
- (let ((#{tmp 4631}#
- #{tmp 4615}#)))))
- #{tmp 4609}#)
- (let ((#{tmp 4621}#
++ #{tmp 4627}#)))))
++ #{tmp 4621}#)
++ (let ((#{tmp 4633}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "vector") . each-any))))
- (if #{tmp 4631}#
- (if #{tmp 4621}#
++ (if #{tmp 4633}#
(@apply
- (lambda (#{x 4633}#)
- (let ((#{tmp 4637}#
- (map #{emit 4404}# #{x 4633}#)))
- (let ((#{tmp 4638}#
- (lambda (#{x 4623}#)
- (let ((#{tmp 4627}#
- (map #{emit 4394}# #{x 4623}#)))
- (let ((#{tmp 4628}#
++ (lambda (#{x 4635}#)
++ (let ((#{tmp 4639}#
++ (map #{emit 4406}# #{x 4635}#)))
++ (let ((#{tmp 4640}#
($sc-dispatch
- #{tmp 4637}#
- #{tmp 4627}#
++ #{tmp 4639}#
'each-any)))
- (if #{tmp 4638}#
- (if #{tmp 4628}#
++ (if #{tmp 4640}#
(@apply
- (lambda (#{ g4634 4640}#)
- (lambda (#{ g4624 4630}#)
++ (lambda (#{ g4636 4642}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4634}#)
- #((m4635 top))
- #("i4639"))
- #(#{ g4624}#)
- #((m4625 top))
- #("i4629"))
++ #(#{ g4636}#)
++ #((m4637 top))
++ #("i4641"))
#(ribcage
#(x)
#((top))
- #("i4632"))
- #("i4622"))
++ #("i4634"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4582"))
- #("i4572"))
++ #("i4584"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4634 4640}#))
- #{tmp 4638}#)
- #{ g4624 4630}#))
- #{tmp 4628}#)
++ #{ g4636 4642}#))
++ #{tmp 4640}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4637}#)))))
- #{tmp 4631}#)
- (let ((#{tmp 4643}#
- #{tmp 4627}#)))))
- #{tmp 4621}#)
- (let ((#{tmp 4633}#
++ #{tmp 4639}#)))))
++ #{tmp 4633}#)
++ (let ((#{tmp 4645}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "list->vector") any))))
- (if #{tmp 4643}#
- (if #{tmp 4633}#
++ (if #{tmp 4645}#
(@apply
- (lambda (#{x 4645}#)
- (let ((#{tmp 4649}#
- (#{emit 4404}# #{x 4645}#)))
- (let ((#{ g4646 4651}#
- #{tmp 4649}#))
- (lambda (#{x 4635}#)
- (let ((#{tmp 4639}#
- (#{emit 4394}# #{x 4635}#)))
- (let ((#{ g4636 4641}#
- #{tmp 4639}#))
++ (lambda (#{x 4647}#)
++ (let ((#{tmp 4651}#
++ (#{emit 4406}# #{x 4647}#)))
++ (let ((#{ g4648 4653}#
++ #{tmp 4651}#))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g4646}#)
- #((m4647 top))
- #("i4650"))
- #(#{ g4636}#)
- #((m4637 top))
- #("i4640"))
++ #(#{ g4648}#)
++ #((m4649 top))
++ #("i4652"))
#(ribcage
#(x)
#((top))
- #("i4644"))
- #("i4634"))
++ #("i4646"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4582"))
- #("i4572"))
++ #("i4584"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("i4403"
- ("i4393"
- "i4391"
- "i4389"
- "i4387"
- "i4385"
- "i4383"
- "i4381")))
++ ("i4405"
++ "i4403"
+ "i4401"
+ "i4399"
+ "i4397"
+ "i4395"
- "i4393"
- "i4391")))
++ "i4393")))
(hygiene guile))
- #{ g4646 4651}#))))
- #{tmp 4643}#)
- (let ((#{tmp 4652}#
- #{ g4636 4641}#))))
- #{tmp 4633}#)
- (let ((#{tmp 4642}#
++ #{ g4648 4653}#))))
++ #{tmp 4645}#)
++ (let ((#{tmp 4654}#
($sc-dispatch
- #{tmp 4583}#
- #{tmp 4573}#
++ #{tmp 4585}#
'(#(atom "value") any))))
- (if #{tmp 4652}#
- (if #{tmp 4642}#
++ (if #{tmp 4654}#
(@apply
- (lambda (#{x 4654}#) #{x 4654}#)
- #{tmp 4652}#)
- (lambda (#{x 4644}#) #{x 4644}#)
- #{tmp 4642}#)
++ (lambda (#{x 4656}#) #{x 4656}#)
++ #{tmp 4654}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4583}#)))))))))))))))))))
- (lambda (#{x 4655}#)
- (let ((#{tmp 4657}# #{x 4655}#))
- (let ((#{tmp 4658}#
- ($sc-dispatch #{tmp 4657}# '(_ any))))
- (if #{tmp 4658}#
- #{tmp 4573}#)))))))))))))))))))
- (begin
- (lambda (#{x 4645}#)
- (let ((#{tmp 4647}# #{x 4645}#))
- (let ((#{tmp 4648}#
- ($sc-dispatch #{tmp 4647}# '(_ any))))
- (if #{tmp 4648}#
- (@apply
- (lambda (#{e 4650}#)
- (#{emit 4394}# (#{quasi 4382}# #{e 4650}# 0)))
- #{tmp 4648}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4647}#)))))))))
++ #{tmp 4585}#)))))))))))))))))))
++ (lambda (#{x 4657}#)
++ (let ((#{tmp 4659}# #{x 4657}#))
++ (let ((#{tmp 4660}#
++ ($sc-dispatch #{tmp 4659}# '(_ any))))
++ (if #{tmp 4660}#
+ (@apply
- (lambda (#{e 4660}#)
- (#{emit 4404}# (#{quasi 4392}# #{e 4660}# 0)))
- #{tmp 4658}#)
++ (lambda (#{e 4662}#)
++ (#{emit 4406}# (#{quasi 4394}# #{e 4662}# 0)))
++ #{tmp 4660}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4657}#))))))))
++ #{tmp 4659}#))))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 4661}#)
- (lambda (#{x 4651}#)
++ (lambda (#{x 4663}#)
(letrec*
- ((#{read-file 4664}#
- (lambda (#{fn 4665}# #{k 4666}#)
- (let ((#{p 4670}# (open-input-file #{fn 4665}#)))
- ((#{read-file 4654}#
- (lambda (#{fn 4655}# #{k 4656}#)
- (begin
- (let ((#{p 4660}# (open-input-file #{fn 4655}#)))
- (letrec*
- ((#{f 4664}#
- (lambda (#{x 4665}# #{result 4666}#)
- (if (eof-object? #{x 4665}#)
- (begin
- (close-input-port #{p 4660}#)
- (reverse #{result 4666}#))
- (#{f 4664}#
- (read #{p 4660}#)
- (cons (datum->syntax #{k 4656}# #{x 4665}#)
- #{result 4666}#))))))
- (begin (#{f 4664}# (read #{p 4660}#) '()))))))))
- (begin
- (let ((#{tmp 4667}# #{x 4651}#))
- (let ((#{tmp 4668}#
- ($sc-dispatch #{tmp 4667}# '(any any))))
- (if #{tmp 4668}#
- (@apply
- (lambda (#{k 4671}# #{filename 4672}#)
- (begin
- (let ((#{fn 4674}# (syntax->datum #{filename 4672}#)))
- (let ((#{tmp 4676}#
- (#{read-file 4654}#
- #{fn 4674}#
- #{filename 4672}#)))
- (let ((#{tmp 4677}#
- ($sc-dispatch #{tmp 4676}# 'each-any)))
- (if #{tmp 4677}#
- (@apply
- (lambda (#{exp 4679}#)
- (cons '#(syntax-object
- begin
- ((top)
- #(ribcage () () ())
- #(ribcage
- #(exp)
- #((top))
- #("i4678"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(fn)
- #((top))
- #("i4673"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4669" "i4670"))
- #(ribcage
- (read-file)
- ((top))
- ("i4653"))
- #(ribcage
- #(x)
- #((top))
- #("i4652")))
- (hygiene guile))
- #{exp 4679}#))
- #{tmp 4677}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4676}#)))))))
- #{tmp 4668}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{tmp 4667}#)))))))))
++ ((#{read-file 4666}#
++ (lambda (#{fn 4667}# #{k 4668}#)
++ (let ((#{p 4672}# (open-input-file #{fn 4667}#)))
+ (letrec*
- ((#{f 4674}#
- (lambda (#{x 4675}# #{result 4676}#)
- (if (eof-object? #{x 4675}#)
++ ((#{f 4676}#
++ (lambda (#{x 4677}# #{result 4678}#)
++ (if (eof-object? #{x 4677}#)
+ (begin
- (close-input-port #{p 4670}#)
- (reverse #{result 4676}#))
- (#{f 4674}#
- (read #{p 4670}#)
- (cons (datum->syntax #{k 4666}# #{x 4675}#)
- #{result 4676}#))))))
- (#{f 4674}# (read #{p 4670}#) '()))))))
- (let ((#{tmp 4677}# #{x 4661}#))
- (let ((#{tmp 4678}#
- ($sc-dispatch #{tmp 4677}# '(any any))))
- (if #{tmp 4678}#
++ (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}#
+ (@apply
- (lambda (#{k 4681}# #{filename 4682}#)
- (let ((#{fn 4684}# (syntax->datum #{filename 4682}#)))
- (let ((#{tmp 4686}#
- (#{read-file 4664}#
- #{fn 4684}#
- #{filename 4682}#)))
- (let ((#{tmp 4687}#
- ($sc-dispatch #{tmp 4686}# 'each-any)))
- (if #{tmp 4687}#
++ (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}#
+ (@apply
- (lambda (#{exp 4689}#)
++ (lambda (#{exp 4691}#)
+ (cons '#(syntax-object
+ begin
+ ((top)
+ #(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i4688"))
++ #(ribcage #(exp) #((top)) #("i4690"))
+ #(ribcage () () ())
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4683"))
++ #(ribcage #(fn) #((top)) #("i4685"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
- #("i4679" "i4680"))
++ #("i4681" "i4682"))
+ #(ribcage
+ (read-file)
+ ((top))
- ("i4663"))
- #(ribcage #(x) #((top)) #("i4662")))
++ ("i4665"))
++ #(ribcage #(x) #((top)) #("i4664")))
+ (hygiene guile))
- #{exp 4689}#))
- #{tmp 4687}#)
++ #{exp 4691}#))
++ #{tmp 4689}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4686}#))))))
- #{tmp 4678}#)
++ #{tmp 4688}#))))))
++ #{tmp 4680}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any pattern"
- #{tmp 4677}#))))))))
++ #{tmp 4679}#))))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 4691}#)
- (let ((#{tmp 4693}# #{x 4691}#))
- (let ((#{tmp 4694}#
- ($sc-dispatch #{tmp 4693}# '(any any))))
- (if #{tmp 4694}#
- (lambda (#{x 4681}#)
- (let ((#{tmp 4683}# #{x 4681}#))
- (let ((#{tmp 4684}#
- ($sc-dispatch #{tmp 4683}# '(any any))))
- (if #{tmp 4684}#
++ (lambda (#{x 4693}#)
++ (let ((#{tmp 4695}# #{x 4693}#))
++ (let ((#{tmp 4696}#
++ ($sc-dispatch #{tmp 4695}# '(any any))))
++ (if #{tmp 4696}#
(@apply
- (lambda (#{k 4697}# #{filename 4698}#)
- (let ((#{fn 4700}# (syntax->datum #{filename 4698}#)))
- (let ((#{tmp 4702}#
- (lambda (#{k 4687}# #{filename 4688}#)
- (begin
- (let ((#{fn 4690}# (syntax->datum #{filename 4688}#)))
- (let ((#{tmp 4692}#
- (datum->syntax
- #{filename 4688}#
- (begin
- (let ((#{t 4697}#
- (%search-load-path #{fn 4690}#)))
- (if #{t 4697}#
- #{t 4697}#
- (syntax-violation
- 'include-from-path
- "file not found in path"
- #{x 4681}#
- #{filename 4688}#)))))))
- (let ((#{fn 4694}# #{tmp 4692}#))
- (list '#(syntax-object
- include
- ((top)
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4693"))
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4689"))
- #(ribcage
- #(k filename)
- #((top) (top))
- #("i4685" "i4686"))
- #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4682")))
- (hygiene guile))
- #{fn 4694}#))))))
- #{tmp 4684}#)
++ (lambda (#{k 4699}# #{filename 4700}#)
++ (let ((#{fn 4702}# (syntax->datum #{filename 4700}#)))
++ (let ((#{tmp 4704}#
+ (datum->syntax
- #{filename 4698}#
- (let ((#{t 4707}# (%search-load-path #{fn 4700}#)))
- (if #{t 4707}#
- #{t 4707}#
++ #{filename 4700}#
++ (let ((#{t 4709}# (%search-load-path #{fn 4702}#)))
++ (if #{t 4709}#
++ #{t 4709}#
+ (syntax-violation
+ 'include-from-path
+ "file not found in path"
- #{x 4691}#
- #{filename 4698}#))))))
- (let ((#{fn 4704}# #{tmp 4702}#))
++ #{x 4693}#
++ #{filename 4700}#))))))
++ (let ((#{fn 4706}# #{tmp 4704}#))
+ (list '#(syntax-object
+ include
+ ((top)
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4703"))
++ #(ribcage #(fn) #((top)) #("i4705"))
+ #(ribcage () () ())
+ #(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i4699"))
++ #(ribcage #(fn) #((top)) #("i4701"))
+ #(ribcage
+ #(k filename)
+ #((top) (top))
- #("i4695" "i4696"))
++ #("i4697" "i4698"))
+ #(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4692")))
++ #(ribcage #(x) #((top)) #("i4694")))
+ (hygiene guile))
- #{fn 4704}#)))))
- #{tmp 4694}#)
++ #{fn 4706}#)))))
++ #{tmp 4696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4693}#)))))))
- #{tmp 4683}#)))))))
++ #{tmp 4695}#)))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 4709}#)
- (lambda (#{x 4699}#)
++ (lambda (#{x 4711}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 4709}#))))
- #{x 4699}#))))
++ #{x 4711}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 4711}#)
- (lambda (#{x 4701}#)
++ (lambda (#{x 4713}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 4711}#))))
- #{x 4701}#))))
++ #{x 4713}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 4713}#)
- (let ((#{tmp 4715}# #{x 4713}#))
- (let ((#{tmp 4716}#
- (lambda (#{x 4703}#)
- (let ((#{tmp 4705}# #{x 4703}#))
- (let ((#{tmp 4706}#
++ (lambda (#{x 4715}#)
++ (let ((#{tmp 4717}# #{x 4715}#))
++ (let ((#{tmp 4718}#
($sc-dispatch
- #{tmp 4715}#
- #{tmp 4705}#
++ #{tmp 4717}#
'(_ any any . each-any))))
- (if #{tmp 4716}#
- (if #{tmp 4706}#
++ (if #{tmp 4718}#
(@apply
- (lambda (#{e 4720}# #{m1 4721}# #{m2 4722}#)
- (let ((#{tmp 4724}#
- (lambda (#{e 4710}# #{m1 4711}# #{m2 4712}#)
- (let ((#{tmp 4714}#
++ (lambda (#{e 4722}# #{m1 4723}# #{m2 4724}#)
++ (let ((#{tmp 4726}#
(letrec*
- ((#{f 4730}#
- (lambda (#{clause 4731}# #{clauses 4732}#)
- (if (null? #{clauses 4732}#)
- (let ((#{tmp 4734}# #{clause 4731}#))
- (let ((#{tmp 4735}#
- ((#{f 4720}#
- (lambda (#{clause 4721}# #{clauses 4722}#)
- (if (null? #{clauses 4722}#)
- (let ((#{tmp 4724}# #{clause 4721}#))
- (let ((#{tmp 4725}#
++ ((#{f 4732}#
++ (lambda (#{clause 4733}# #{clauses 4734}#)
++ (if (null? #{clauses 4734}#)
++ (let ((#{tmp 4736}# #{clause 4733}#))
++ (let ((#{tmp 4737}#
($sc-dispatch
- #{tmp 4734}#
- #{tmp 4724}#
++ #{tmp 4736}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 4735}#
- (if #{tmp 4725}#
++ (if #{tmp 4737}#
(@apply
- (lambda (#{e1 4738}# #{e2 4739}#)
- (lambda (#{e1 4728}# #{e2 4729}#)
++ (lambda (#{e1 4740}# #{e2 4741}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i4736" "i4737"))
- #("i4726" "i4727"))
++ #("i4738" "i4739"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
- (cons #{e1 4738}#
- #{e2 4739}#)))
- #{tmp 4735}#)
- (let ((#{tmp 4741}#
- (cons #{e1 4728}#
- #{e2 4729}#)))
- #{tmp 4725}#)
- (let ((#{tmp 4731}#
++ (cons #{e1 4740}#
++ #{e2 4741}#)))
++ #{tmp 4737}#)
++ (let ((#{tmp 4743}#
($sc-dispatch
- #{tmp 4734}#
- #{tmp 4724}#
++ #{tmp 4736}#
'(each-any any . each-any))))
- (if #{tmp 4741}#
- (if #{tmp 4731}#
++ (if #{tmp 4743}#
(@apply
- (lambda (#{k 4745}#
- #{e1 4746}#
- #{e2 4747}#)
- (lambda (#{k 4735}#
- #{e1 4736}#
- #{e2 4737}#)
++ (lambda (#{k 4747}#
++ #{e1 4748}#
++ #{e2 4749}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4742"
- "i4743"
- "i4744"))
- #("i4732"
- "i4733"
- "i4734"))
++ #("i4744"
++ "i4745"
++ "i4746"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
- #("i4732"
- "i4733"
- "i4734"))
++ #("i4744"
++ "i4745"
++ "i4746"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
- #("i4732"
- "i4733"
- "i4734"))
++ #("i4744"
++ "i4745"
++ "i4746"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
- #("i4732"
- "i4733"
- "i4734"))
++ #("i4744"
++ "i4745"
++ "i4746"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene
guile))
- #{k 4745}#))
- #{k 4735}#))
++ #{k 4747}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4742"
- "i4743"
- "i4744"))
- #("i4732"
- "i4733"
- "i4734"))
++ #("i4744"
++ "i4745"
++ "i4746"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
- (cons #{e1 4746}#
- #{e2 4747}#))))
- #{tmp 4741}#)
- (let ((#{_ 4751}# #{tmp 4734}#))
- (cons #{e1 4736}#
- #{e2 4737}#))))
- #{tmp 4731}#)
- (let ((#{_ 4741}# #{tmp 4724}#))
++ (cons #{e1 4748}#
++ #{e2 4749}#))))
++ #{tmp 4743}#)
++ (let ((#{_ 4753}# #{tmp 4736}#))
(syntax-violation
'case
"bad clause"
- #{x 4713}#
- #{clause 4731}#)))))))
- (let ((#{tmp 4753}#
- (#{f 4730}#
- (car #{clauses 4732}#)
- (cdr #{clauses 4732}#))))
- (let ((#{rest 4755}# #{tmp 4753}#))
- (let ((#{tmp 4756}# #{clause 4731}#))
- (let ((#{tmp 4757}#
- #{x 4703}#
- #{clause 4721}#)))))))
- (let ((#{tmp 4743}#
- (#{f 4720}#
- (car #{clauses 4722}#)
- (cdr #{clauses 4722}#))))
- (let ((#{rest 4745}# #{tmp 4743}#))
- (let ((#{tmp 4746}# #{clause 4721}#))
- (let ((#{tmp 4747}#
++ #{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}#
($sc-dispatch
- #{tmp 4756}#
- #{tmp 4746}#
++ #{tmp 4758}#
'(each-any any . each-any))))
- (if #{tmp 4757}#
- (if #{tmp 4747}#
++ (if #{tmp 4759}#
(@apply
- (lambda (#{k 4761}#
- #{e1 4762}#
- #{e2 4763}#)
- (lambda (#{k 4751}#
- #{e1 4752}#
- #{e2 4753}#)
++ (lambda (#{k 4763}#
++ #{e1 4764}#
++ #{e2 4765}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i4758"
- "i4759"
- "i4760"))
- #("i4748"
- "i4749"
- "i4750"))
++ #("i4760"
++ "i4761"
++ "i4762"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i4754"))
- #("i4744"))
++ #("i4756"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("i4758"
- "i4759"
- "i4760"))
- #("i4748"
- "i4749"
- "i4750"))
++ #("i4760"
++ "i4761"
++ "i4762"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4754"))
- #("i4744"))
++ #("i4756"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("i4758"
- "i4759"
- "i4760"))
- #("i4748"
- "i4749"
- "i4750"))
++ #("i4760"
++ "i4761"
++ "i4762"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4754"))
- #("i4744"))
++ #("i4756"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("i4758"
- "i4759"
- "i4760"))
- #("i4748"
- "i4749"
- "i4750"))
++ #("i4760"
++ "i4761"
++ "i4762"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4754"))
- #("i4744"))
++ #("i4756"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e
m1
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene
guile))
- #{k 4761}#))
- #{k 4751}#))
++ #{k 4763}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4758"
- "i4759"
- "i4760"))
- #("i4748"
- "i4749"
- "i4750"))
++ #("i4760"
++ "i4761"
++ "i4762"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("i4754"))
- #("i4744"))
++ #("i4756"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4727"
- "i4728"
- "i4729"))
- #("i4717"
- "i4718"
- "i4719"))
++ #("i4729"
++ "i4730"
++ "i4731"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i4717"
- "i4718"
- "i4719"))
- #("i4707"
- "i4708"
- "i4709"))
++ #("i4719"
++ "i4720"
++ "i4721"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4714")))
- #("i4704")))
++ #("i4716")))
(hygiene guile))
- (cons #{e1 4762}#
- #{e2 4763}#))
- #{rest 4755}#))
- #{tmp 4757}#)
- (let ((#{_ 4767}# #{tmp 4756}#))
- (cons #{e1 4752}#
- #{e2 4753}#))
- #{rest 4745}#))
- #{tmp 4747}#)
- (let ((#{_ 4757}# #{tmp 4746}#))
++ (cons #{e1 4764}#
++ #{e2 4765}#))
++ #{rest 4757}#))
++ #{tmp 4759}#)
++ (let ((#{_ 4769}# #{tmp 4758}#))
(syntax-violation
'case
"bad clause"
- #{x 4713}#
- #{clause 4731}#)))))))))))
- (#{f 4730}# #{m1 4721}# #{m2 4722}#))))
- (let ((#{body 4726}# #{tmp 4724}#))
- #{x 4703}#
- #{clause 4721}#)))))))))))
- (begin (#{f 4720}# #{m1 4711}# #{m2 4712}#)))))
- (let ((#{body 4716}# #{tmp 4714}#))
++ #{x 4715}#
++ #{clause 4733}#)))))))))))
++ (#{f 4732}# #{m1 4723}# #{m2 4724}#))))
++ (let ((#{body 4728}# #{tmp 4726}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i4725"))
- #(ribcage #(body) #((top)) #("i4715"))
++ #(ribcage #(body) #((top)) #("i4727"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717" "i4718" "i4719"))
- #("i4707" "i4708" "i4709"))
++ #("i4719" "i4720" "i4721"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4714")))
- #(ribcage #(x) #((top)) #("i4704")))
++ #(ribcage #(x) #((top)) #("i4716")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4725"))
- #("i4715"))
++ #("i4727"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i4717" "i4718" "i4719"))
- #("i4707" "i4708" "i4709"))
++ #("i4719" "i4720" "i4721"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4714")))
- #(ribcage #(x) #((top)) #("i4704")))
++ #(ribcage #(x) #((top)) #("i4716")))
(hygiene guile))
- #{e 4720}#))
- #{body 4726}#))))
- #{tmp 4716}#)
- #{e 4710}#))
- #{body 4716}#))))
- #{tmp 4706}#)
++ #{e 4722}#))
++ #{body 4728}#))))
++ #{tmp 4718}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4715}#)))))))
- #{tmp 4705}#)))))))
++ #{tmp 4717}#)))))))
(define make-variable-transformer
- (lambda (#{proc 4768}#)
- (if (procedure? #{proc 4768}#)
- (lambda (#{proc 4758}#)
- (if (procedure? #{proc 4758}#)
- (begin
- (letrec*
- ((#{trans 4761}#
- (lambda (#{x 4762}#) (#{proc 4758}# #{x 4762}#))))
- (begin
- (set-procedure-property!
- #{trans 4761}#
- 'variable-transformer
- #t)
- #{trans 4761}#)))
++ (lambda (#{proc 4770}#)
++ (if (procedure? #{proc 4770}#)
+ (letrec*
- ((#{trans 4771}#
- (lambda (#{x 4772}#) (#{proc 4768}# #{x 4772}#))))
++ ((#{trans 4773}#
++ (lambda (#{x 4774}#) (#{proc 4770}# #{x 4774}#))))
+ (begin
+ (set-procedure-property!
- #{trans 4771}#
++ #{trans 4773}#
+ 'variable-transformer
+ #t)
- #{trans 4771}#))
++ #{trans 4773}#))
(error "variable transformer not a procedure"
- #{proc 4768}#))))
- #{proc 4758}#))))
++ #{proc 4770}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 4774}#)
- (let ((#{tmp 4776}# #{x 4774}#))
- (let ((#{tmp 4777}#
- ($sc-dispatch #{tmp 4776}# '(_ any))))
- (if #{tmp 4777}#
- (lambda (#{x 4764}#)
- (let ((#{tmp 4766}# #{x 4764}#))
- (let ((#{tmp 4767}#
- ($sc-dispatch #{tmp 4766}# '(_ any))))
- (if #{tmp 4767}#
++ (lambda (#{x 4776}#)
++ (let ((#{tmp 4778}# #{x 4776}#))
++ (let ((#{tmp 4779}#
++ ($sc-dispatch #{tmp 4778}# '(_ any))))
++ (if #{tmp 4779}#
(@apply
- (lambda (#{e 4779}#)
- (lambda (#{e 4769}#)
++ (lambda (#{e 4781}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- #{e 4779}#))
- #{e 4769}#))
++ #{e 4781}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i4778"))
- #(ribcage #(e) #((top)) #("i4768"))
++ #(ribcage #(e) #((top)) #("i4780"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- (cons #{e 4779}#
- (cons #{e 4769}#
++ (cons #{e 4781}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i4778"))
- #("i4768"))
++ #("i4780"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("i4778"))
- #("i4768"))
++ #("i4780"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile)))))))))
- #{tmp 4777}#)
- (let ((#{tmp 4780}#
- #{tmp 4767}#)
- (let ((#{tmp 4770}#
++ #{tmp 4779}#)
++ (let ((#{tmp 4782}#
($sc-dispatch
- #{tmp 4776}#
- #{tmp 4766}#
++ #{tmp 4778}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 4780}#
- (if (if #{tmp 4770}#
++ (if (if #{tmp 4782}#
(@apply
- (lambda (#{id 4786}#
- #{exp1 4787}#
- #{var 4788}#
- #{val 4789}#
- #{exp2 4790}#)
- (if (identifier? #{id 4786}#)
- (identifier? #{var 4788}#)
- (lambda (#{id 4776}#
- #{exp1 4777}#
- #{var 4778}#
- #{val 4779}#
- #{exp2 4780}#)
- (if (identifier? #{id 4776}#)
- (identifier? #{var 4778}#)
++ (lambda (#{id 4788}#
++ #{exp1 4789}#
++ #{var 4790}#
++ #{val 4791}#
++ #{exp2 4792}#)
++ (if (identifier? #{id 4788}#)
++ (identifier? #{var 4790}#)
#f))
- #{tmp 4780}#)
- #{tmp 4770}#)
++ #{tmp 4782}#)
#f)
(@apply
- (lambda (#{id 4798}#
- #{exp1 4799}#
- #{var 4800}#
- #{val 4801}#
- #{exp2 4802}#)
- (lambda (#{id 4788}#
- #{exp1 4789}#
- #{var 4790}#
- #{val 4791}#
- #{exp2 4792}#)
++ (lambda (#{id 4800}#
++ #{exp1 4801}#
++ #{var 4802}#
++ #{val 4803}#
++ #{exp2 4804}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793" "i4794" "i4795" "i4796" "i4797"))
- #("i4783" "i4784" "i4785" "i4786" "i4787"))
++ #("i4795" "i4796" "i4797" "i4798" "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4775")))
- #(ribcage #(x) #((top)) #("i4765")))
++ #(ribcage #(x) #((top)) #("i4777")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- #{var 4800}#
- #{val 4801}#)
- #{var 4790}#
- #{val 4791}#)
++ #{var 4802}#
++ #{val 4803}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- #{exp2 4802}#))
- (list (cons #{id 4798}#
- #{exp2 4792}#))
- (list (cons #{id 4788}#
++ #{exp2 4804}#))
++ (list (cons #{id 4800}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- (cons #{exp1 4799}#
- (cons #{exp1 4789}#
++ (cons #{exp1 4801}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene
guile))))))
- (list #{id 4798}#
- (list #{id 4788}#
++ (list #{id 4800}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- #{id 4798}#))
- #{id 4788}#))
++ #{id 4800}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i4793"
- "i4794"
- "i4795"
- #("i4783"
- "i4784"
- "i4785"
- "i4786"
- "i4787"))
++ #("i4795"
+ "i4796"
- "i4797"))
++ "i4797"
++ "i4798"
++ "i4799"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4775")))
- #("i4765")))
++ #("i4777")))
(hygiene guile))
- #{exp1 4799}#))))))
- #{tmp 4780}#)
- #{exp1 4789}#))))))
- #{tmp 4770}#)
++ #{exp1 4801}#))))))
++ #{tmp 4782}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4776}#)))))))))
- #{tmp 4766}#)))))))))
++ #{tmp 4778}#)))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 4803}#)
- (let ((#{tmp 4805}# #{x 4803}#))
- (let ((#{tmp 4806}#
- (lambda (#{x 4793}#)
- (let ((#{tmp 4795}# #{x 4793}#))
- (let ((#{tmp 4796}#
++ (lambda (#{x 4805}#)
++ (let ((#{tmp 4807}# #{x 4805}#))
++ (let ((#{tmp 4808}#
($sc-dispatch
- #{tmp 4805}#
- #{tmp 4795}#
++ #{tmp 4807}#
'(_ (any . any) any . each-any))))
- (if #{tmp 4806}#
- (if #{tmp 4796}#
++ (if #{tmp 4808}#
(@apply
- (lambda (#{id 4811}#
- #{args 4812}#
- #{b0 4813}#
- #{b1 4814}#)
- (lambda (#{id 4801}#
- #{args 4802}#
- #{b0 4803}#
- #{b1 4804}#)
++ (lambda (#{id 4813}#
++ #{args 4814}#
++ #{b0 4815}#
++ #{b1 4816}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4807" "i4808" "i4809" "i4810"))
- #("i4797" "i4798" "i4799" "i4800"))
++ #("i4809" "i4810" "i4811" "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4804")))
- #(ribcage #(x) #((top)) #("i4794")))
++ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
- #{id 4811}#
- #{id 4801}#
++ #{id 4813}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i4807" "i4808" "i4809" "i4810"))
- #("i4797" "i4798" "i4799" "i4800"))
++ #("i4809" "i4810" "i4811" "i4812"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4804")))
- #(ribcage #(x) #((top)) #("i4794")))
++ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
- (cons #{args 4812}#
- (cons #{b0 4813}# #{b1 4814}#)))))
- #{tmp 4806}#)
- (let ((#{tmp 4816}#
- ($sc-dispatch #{tmp 4805}# '(_ any any))))
- (if (if #{tmp 4816}#
- (cons #{args 4802}#
- (cons #{b0 4803}# #{b1 4804}#)))))
- #{tmp 4796}#)
- (let ((#{tmp 4806}#
- ($sc-dispatch #{tmp 4795}# '(_ any any))))
- (if (if #{tmp 4806}#
++ (cons #{args 4814}#
++ (cons #{b0 4815}# #{b1 4816}#)))))
++ #{tmp 4808}#)
++ (let ((#{tmp 4818}#
++ ($sc-dispatch #{tmp 4807}# '(_ any any))))
++ (if (if #{tmp 4818}#
(@apply
- (lambda (#{id 4819}# #{val 4820}#)
- (lambda (#{id 4809}# #{val 4810}#)
++ (lambda (#{id 4821}# #{val 4822}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("i4817" "i4818"))
- #("i4807" "i4808"))
++ #("i4819" "i4820"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4804")))
- #(ribcage #(x) #((top)) #("i4794")))
++ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))))
- #{tmp 4816}#)
- #{tmp 4806}#)
++ #{tmp 4818}#)
#f)
(@apply
- (lambda (#{id 4823}# #{val 4824}#)
- (lambda (#{id 4813}# #{val 4814}#)
++ (lambda (#{id 4825}# #{val 4826}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i4821" "i4822"))
- #("i4811" "i4812"))
++ #("i4823" "i4824"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4804")))
- #(ribcage #(x) #((top)) #("i4794")))
++ #(ribcage #(x) #((top)) #("i4806")))
(hygiene guile))
- #{id 4823}#
- #{val 4824}#))
- #{tmp 4816}#)
- #{id 4813}#
- #{val 4814}#))
- #{tmp 4806}#)
++ #{id 4825}#
++ #{val 4826}#))
++ #{tmp 4818}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 4805}#)))))))))
- #{tmp 4795}#)))))))))
++ #{tmp 4807}#)))))))))