(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f))
- (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
- (if #f #f)))
+(let ((#{session-id 4447}# (if #f #f))
+ (#{transformer-environment 4508}# (if #f #f)))
(letrec*
- ((#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwsuQ}#
- #{mod -ANAU$bmvAmthP7L7xwsuR}#)
- (primitive-eval #{x -ANAU$bmvAmthP7L7xwsuQ}#)))
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- (lambda (#{symbol -ANAU$bmvAmthP7L7xwp7A}#
- #{module -ANAU$bmvAmthP7L7xwp7B}#)
+ ((#{top-level-eval-hook 4445}#
+ (lambda (#{x 27176}# #{mod 27177}#)
+ (primitive-eval #{x 27176}#)))
+ (#{get-global-definition-hook 4449}#
+ (lambda (#{symbol 15643}# #{module 15644}#)
(begin
- (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#)
- (current-module)
- #f)
+ (if (if (not #{module 15644}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol -ANAU$bmvAmthP7L7xwp7A}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp7C}#
+ #{symbol 15643}#))
+ (let ((#{v 15645}#
(module-variable
- (if #{module -ANAU$bmvAmthP7L7xwp7B}#
- (resolve-module
- (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#))
+ (if #{module 15644}#
+ (resolve-module (cdr #{module 15644}#))
(current-module))
- #{symbol -ANAU$bmvAmthP7L7xwp7A}#)))
- (if #{v -ANAU$bmvAmthP7L7xwp7C}#
- (if (variable-bound? #{v -ANAU$bmvAmthP7L7xwp7C}#)
- (let ((#{val -ANAU$bmvAmthP7L7xwp7E}#
- (variable-ref #{v -ANAU$bmvAmthP7L7xwp7C}#)))
- (if (macro? #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (if (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (cons (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (macro-binding #{val -ANAU$bmvAmthP7L7xwp7E}#))
+ #{symbol 15643}#)))
+ (if #{v 15645}#
+ (if (variable-bound? #{v 15645}#)
+ (let ((#{val 15647}# (variable-ref #{v 15645}#)))
+ (if (macro? #{val 15647}#)
+ (if (macro-type #{val 15647}#)
+ (cons (macro-type #{val 15647}#)
+ (macro-binding #{val 15647}#))
#f)
#f))
#f)
#f)))))
- (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- (lambda (#{name -ANAU$bmvAmthP7L7xwp@Z}#
- #{val -ANAU$bmvAmthP7L7xwp@a}#)
- (if (if (struct? #{val -ANAU$bmvAmthP7L7xwp@a}#)
- (eq? (struct-vtable #{val -ANAU$bmvAmthP7L7xwp@a}#)
+ (#{maybe-name-value! 4451}#
+ (lambda (#{name 15924}# #{val 15925}#)
+ (if (if (struct? #{val 15925}#)
+ (eq? (struct-vtable #{val 15925}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp@h}#
- (struct-ref #{val -ANAU$bmvAmthP7L7xwp@a}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp@h}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp@m}#
- (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp@Z}#)
- #{meta -ANAU$bmvAmthP7L7xwp@h}#)))
- (struct-set!
- #{val -ANAU$bmvAmthP7L7xwp@a}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp@m}#)))))))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}#
- #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
- #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)
+ (let ((#{meta 15932}# (struct-ref #{val 15925}# 1)))
+ (if (not (assq 'name #{meta 15932}#))
+ (let ((#{v 15937}#
+ (cons (cons 'name #{name 15924}#) #{meta 15932}#)))
+ (struct-set! #{val 15925}# 1 #{v 15937}#)))))))
+ (#{build-application 4453}#
+ (lambda (#{source 15649}#
+ #{fun-exp 15650}#
+ #{arg-exps 15651}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source -ANAU$bmvAmthP7L7xwp7G}#
- #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
- #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)))
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7O}#
- #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
- #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
- #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)
+ #{source 15649}#
+ #{fun-exp 15650}#
+ #{arg-exps 15651}#)))
+ (#{build-conditional 4454}#
+ (lambda (#{source 15657}#
+ #{test-exp 15658}#
+ #{then-exp 15659}#
+ #{else-exp 15660}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source -ANAU$bmvAmthP7L7xwp7O}#
- #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
- #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
- #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)))
- (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7Y}#
- #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
- #{vals -ANAU$bmvAmthP7L7xwp7a}#
- #{body -ANAU$bmvAmthP7L7xwp7b}#)
+ #{source 15657}#
+ #{test-exp 15658}#
+ #{then-exp 15659}#
+ #{else-exp 15660}#)))
+ (#{build-dynlet 4455}#
+ (lambda (#{source 15667}#
+ #{fluids 15668}#
+ #{vals 15669}#
+ #{body 15670}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source -ANAU$bmvAmthP7L7xwp7Y}#
- #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
- #{vals -ANAU$bmvAmthP7L7xwp7a}#
- #{body -ANAU$bmvAmthP7L7xwp7b}#)))
- (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwsuS}#
- #{source -ANAU$bmvAmthP7L7xwsuT}#
- #{name -ANAU$bmvAmthP7L7xwsuU}#
- #{var -ANAU$bmvAmthP7L7xwsuV}#)
+ #{source 15667}#
+ #{fluids 15668}#
+ #{vals 15669}#
+ #{body 15670}#)))
+ (#{build-lexical-reference 4456}#
+ (lambda (#{type 27178}#
+ #{source 27179}#
+ #{name 27180}#
+ #{var 27181}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source -ANAU$bmvAmthP7L7xwsuT}#
- #{name -ANAU$bmvAmthP7L7xwsuU}#
- #{var -ANAU$bmvAmthP7L7xwsuV}#)))
- (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7i}#
- #{name -ANAU$bmvAmthP7L7xwp7j}#
- #{var -ANAU$bmvAmthP7L7xwp7k}#
- #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ #{source 27179}#
+ #{name 27180}#
+ #{var 27181}#)))
+ (#{build-lexical-assignment 4457}#
+ (lambda (#{source 15677}#
+ #{name 15678}#
+ #{var 15679}#
+ #{exp 15680}#)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ (if (if (struct? #{exp 15680}#)
+ (eq? (struct-vtable #{exp 15680}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp71}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwp7l}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp71}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp78}#
- (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp7j}#)
- #{meta -ANAU$bmvAmthP7L7xwp71}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwp7l}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp78}#)))))
+ (let ((#{meta 15696}# (struct-ref #{exp 15680}# 1)))
+ (if (not (assq 'name #{meta 15696}#))
+ (let ((#{v 15703}#
+ (cons (cons 'name #{name 15678}#) #{meta 15696}#)))
+ (struct-set! #{exp 15680}# 1 #{v 15703}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source -ANAU$bmvAmthP7L7xwp7i}#
- #{name -ANAU$bmvAmthP7L7xwp7j}#
- #{var -ANAU$bmvAmthP7L7xwp7k}#
- #{exp -ANAU$bmvAmthP7L7xwp7l}#))))
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwsub}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{bare-cont -ANAU$bmvAmthP7L7xwsue}#)
- (if (not #{mod -ANAU$bmvAmthP7L7xwsub}#)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
- (let ((#{kind -ANAU$bmvAmthP7L7xwsuf}#
- (car #{mod -ANAU$bmvAmthP7L7xwsub}#))
- (#{mod -ANAU$bmvAmthP7L7xwsug}#
- (cdr #{mod -ANAU$bmvAmthP7L7xwsub}#)))
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'public)
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
+ #{source 15677}#
+ #{name 15678}#
+ #{var 15679}#
+ #{exp 15680}#))))
+ (#{analyze-variable 4458}#
+ (lambda (#{mod 27187}#
+ #{var 27188}#
+ #{modref-cont 27189}#
+ #{bare-cont 27190}#)
+ (if (not #{mod 27187}#)
+ (#{bare-cont 27190}# #{var 27188}#)
+ (let ((#{kind 27191}# (car #{mod 27187}#))
+ (#{mod 27192}# (cdr #{mod 27187}#)))
+ (if (eqv? #{kind 27191}# 'public)
+ (#{modref-cont 27189}#
+ #{mod 27192}#
+ #{var 27188}#
#t)
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private)
+ (if (eqv? #{kind 27191}# 'private)
(if (not (equal?
- #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{mod 27192}#
(module-name (current-module))))
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
+ (#{modref-cont 27189}#
+ #{mod 27192}#
+ #{var 27188}#
#f)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#))
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'bare)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'hygiene)
+ (#{bare-cont 27190}# #{var 27188}#))
+ (if (eqv? #{kind 27191}# 'bare)
+ (#{bare-cont 27190}# #{var 27188}#)
+ (if (eqv? #{kind 27191}# 'hygiene)
(if (if (not (equal?
- #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{mod 27192}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#)
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
+ (resolve-module #{mod 27192}#)
+ #{var 27188}#)
#f)
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
+ (#{modref-cont 27189}#
+ #{mod 27192}#
+ #{var 27188}#
#f)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#))
+ (#{bare-cont 27190}# #{var 27188}#))
(syntax-violation
#f
"bad module kind"
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#)))))))))
- (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwsuv}#
- #{var -ANAU$bmvAmthP7L7xwsuw}#
- #{mod -ANAU$bmvAmthP7L7xwsux}#)
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwsux}#
- #{var -ANAU$bmvAmthP7L7xwsuw}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwsu0}#
- #{var -ANAU$bmvAmthP7L7xwsu1}#
- #{public? -ANAU$bmvAmthP7L7xwsu2}#)
+ #{var 27188}#
+ #{mod 27192}#)))))))))
+ (#{build-global-reference 4459}#
+ (lambda (#{source 27207}# #{var 27208}# #{mod 27209}#)
+ (#{analyze-variable 4458}#
+ #{mod 27209}#
+ #{var 27208}#
+ (lambda (#{mod 27212}# #{var 27213}# #{public? 27214}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source -ANAU$bmvAmthP7L7xwsuv}#
- #{mod -ANAU$bmvAmthP7L7xwsu0}#
- #{var -ANAU$bmvAmthP7L7xwsu1}#
- #{public? -ANAU$bmvAmthP7L7xwsu2}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#)
+ #{source 27207}#
+ #{mod 27212}#
+ #{var 27213}#
+ #{public? 27214}#))
+ (lambda (#{var 27222}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source -ANAU$bmvAmthP7L7xwsuv}#
- #{var -ANAU$bmvAmthP7L7xwsu$}#)))))
- (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}#
- #{var -ANAU$bmvAmthP7L7xwp8G}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#
- #{mod -ANAU$bmvAmthP7L7xwp8I}#)
+ #{source 27207}#
+ #{var 27222}#)))))
+ (#{build-global-assignment 4460}#
+ (lambda (#{source 15712}#
+ #{var 15713}#
+ #{exp 15714}#
+ #{mod 15715}#)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#)
+ (if (if (struct? #{exp 15714}#)
+ (eq? (struct-vtable #{exp 15714}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp8Y}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwp8H}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp8Y}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp8f}#
- (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwp8G}#)
- #{meta -ANAU$bmvAmthP7L7xwp8Y}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwp8H}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp8f}#)))))
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwp8I}#
- #{var -ANAU$bmvAmthP7L7xwp8G}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}#
- #{var -ANAU$bmvAmthP7L7xwp8l}#
- #{public? -ANAU$bmvAmthP7L7xwp8m}#)
+ (let ((#{meta 15731}# (struct-ref #{exp 15714}# 1)))
+ (if (not (assq 'name #{meta 15731}#))
+ (let ((#{v 15738}#
+ (cons (cons 'name #{var 15713}#) #{meta 15731}#)))
+ (struct-set! #{exp 15714}# 1 #{v 15738}#)))))
+ (#{analyze-variable 4458}#
+ #{mod 15715}#
+ #{var 15713}#
+ (lambda (#{mod 15743}# #{var 15744}# #{public? 15745}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source -ANAU$bmvAmthP7L7xwp8F}#
- #{mod -ANAU$bmvAmthP7L7xwp8k}#
- #{var -ANAU$bmvAmthP7L7xwp8l}#
- #{public? -ANAU$bmvAmthP7L7xwp8m}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#)
+ #{source 15712}#
+ #{mod 15743}#
+ #{var 15744}#
+ #{public? 15745}#
+ #{exp 15714}#))
+ (lambda (#{var 15753}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source -ANAU$bmvAmthP7L7xwp8F}#
- #{var -ANAU$bmvAmthP7L7xwp8u}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#))))))
- (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}#
- #{var -ANAU$bmvAmthP7L7xwsvF}#
- #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ #{source 15712}#
+ #{var 15753}#
+ #{exp 15714}#))))))
+ (#{build-global-definition 4461}#
+ (lambda (#{source 27228}# #{var 27229}# #{exp 27230}#)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ (if (if (struct? #{exp 27230}#)
+ (eq? (struct-vtable #{exp 27230}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwsvW}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwsvG}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwsvW}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwsvd}#
- (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwsvF}#)
- #{meta -ANAU$bmvAmthP7L7xwsvW}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwsvG}#
- 1
- #{v -ANAU$bmvAmthP7L7xwsvd}#)))))
+ (let ((#{meta 27246}# (struct-ref #{exp 27230}# 1)))
+ (if (not (assq 'name #{meta 27246}#))
+ (let ((#{v 27253}#
+ (cons (cons 'name #{var 27229}#) #{meta 27246}#)))
+ (struct-set! #{exp 27230}# 1 #{v 27253}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source -ANAU$bmvAmthP7L7xwsvE}#
- #{var -ANAU$bmvAmthP7L7xwsvF}#
- #{exp -ANAU$bmvAmthP7L7xwsvG}#))))
- (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp80}#
- #{req -ANAU$bmvAmthP7L7xwp81}#
- #{rest -ANAU$bmvAmthP7L7xwp82}#
- #{vars -ANAU$bmvAmthP7L7xwp83}#
- #{meta -ANAU$bmvAmthP7L7xwp84}#
- #{exp -ANAU$bmvAmthP7L7xwp85}#)
- (let ((#{body -ANAU$bmvAmthP7L7xwp8@}#
+ #{source 27228}#
+ #{var 27229}#
+ #{exp 27230}#))))
+ (#{build-simple-lambda 4462}#
+ (lambda (#{src 15759}#
+ #{req 15760}#
+ #{rest 15761}#
+ #{vars 15762}#
+ #{meta 15763}#
+ #{exp 15764}#)
+ (let ((#{body 15770}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src -ANAU$bmvAmthP7L7xwp80}#
- #{req -ANAU$bmvAmthP7L7xwp81}#
+ #{src 15759}#
+ #{req 15760}#
#f
- #{rest -ANAU$bmvAmthP7L7xwp82}#
+ #{rest 15761}#
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwp83}#
- #{exp -ANAU$bmvAmthP7L7xwp85}#
+ #{vars 15762}#
+ #{exp 15764}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src -ANAU$bmvAmthP7L7xwp80}#
- #{meta -ANAU$bmvAmthP7L7xwp84}#
- #{body -ANAU$bmvAmthP7L7xwp8@}#))))
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwsvl}#
- #{exps -ANAU$bmvAmthP7L7xwsvm}#)
- (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwsvm}#))
- (car #{exps -ANAU$bmvAmthP7L7xwsvm}#)
+ #{src 15759}#
+ #{meta 15763}#
+ #{body 15770}#))))
+ (#{build-sequence 4467}#
+ (lambda (#{src 27261}# #{exps 27262}#)
+ (if (null? (cdr #{exps 27262}#))
+ (car #{exps 27262}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src -ANAU$bmvAmthP7L7xwsvl}#
- #{exps -ANAU$bmvAmthP7L7xwsvm}#))))
- (#{build-let -ANAU$bmvAmthP7L7xwnNO}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp9L}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{vars -ANAU$bmvAmthP7L7xwp9N}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)
+ #{src 27261}#
+ #{exps 27262}#))))
+ (#{build-let 4468}#
+ (lambda (#{src 15782}#
+ #{ids 15783}#
+ #{vars 15784}#
+ #{val-exps 15785}#
+ #{body-exp 15786}#)
(begin
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#)
- (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#)
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#
+ #{maybe-name-value! 4451}#
+ #{ids 15783}#
+ #{val-exps 15785}#)
+ (if (null? #{vars 15784}#)
+ #{body-exp 15786}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src -ANAU$bmvAmthP7L7xwp9L}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{vars -ANAU$bmvAmthP7L7xwp9N}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)))))
- (#{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp9n}#
- #{ids -ANAU$bmvAmthP7L7xwp9o}#
- #{vars -ANAU$bmvAmthP7L7xwp9p}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9r}#)
- (let ((#{f -ANAU$bmvAmthP7L7xwp9s}#
- (car #{vars -ANAU$bmvAmthP7L7xwp9p}#))
- (#{f-name -ANAU$bmvAmthP7L7xwp9t}#
- (car #{ids -ANAU$bmvAmthP7L7xwp9o}#))
- (#{vars -ANAU$bmvAmthP7L7xwp9u}#
- (cdr #{vars -ANAU$bmvAmthP7L7xwp9p}#))
- (#{ids -ANAU$bmvAmthP7L7xwp9v}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwp9o}#)))
- (let ((#{proc -ANAU$bmvAmthP7L7xwp9w}#
- (let ((#{body -ANAU$bmvAmthP7L7xwp$E}#
+ #{src 15782}#
+ #{ids 15783}#
+ #{vars 15784}#
+ #{val-exps 15785}#
+ #{body-exp 15786}#)))))
+ (#{build-named-let 4469}#
+ (lambda (#{src 15810}#
+ #{ids 15811}#
+ #{vars 15812}#
+ #{val-exps 15813}#
+ #{body-exp 15814}#)
+ (let ((#{f 15815}# (car #{vars 15812}#))
+ (#{f-name 15816}# (car #{ids 15811}#))
+ (#{vars 15817}# (cdr #{vars 15812}#))
+ (#{ids 15818}# (cdr #{ids 15811}#)))
+ (let ((#{proc 15819}#
+ (let ((#{body 15839}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{ids -ANAU$bmvAmthP7L7xwp9v}#
+ #{src 15810}#
+ #{ids 15818}#
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwp9u}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9r}#
+ #{vars 15817}#
+ #{body-exp 15814}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{src 15810}#
'()
- #{body -ANAU$bmvAmthP7L7xwp$E}#))))
+ #{body 15839}#))))
(begin
- (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#)
- (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#)
+ (if (if (struct? #{proc 15819}#)
+ (eq? (struct-vtable #{proc 15819}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp$c}#
- (struct-ref #{proc -ANAU$bmvAmthP7L7xwp9w}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp$c}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp$j}#
- (cons (cons 'name
- #{f-name -ANAU$bmvAmthP7L7xwp9t}#)
- #{meta -ANAU$bmvAmthP7L7xwp$c}#)))
- (struct-set!
- #{proc -ANAU$bmvAmthP7L7xwp9w}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp$j}#)))))
+ (let ((#{meta 15863}# (struct-ref #{proc 15819}# 1)))
+ (if (not (assq 'name #{meta 15863}#))
+ (let ((#{v 15870}#
+ (cons (cons 'name #{f-name 15816}#)
+ #{meta 15863}#)))
+ (struct-set! #{proc 15819}# 1 #{v 15870}#)))))
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids -ANAU$bmvAmthP7L7xwp9v}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)
- (let ((#{names -ANAU$bmvAmthP7L7xwp$7}#
- (list #{f-name -ANAU$bmvAmthP7L7xwp9t}#))
- (#{gensyms -ANAU$bmvAmthP7L7xwp$8}#
- (list #{f -ANAU$bmvAmthP7L7xwp9s}#))
- (#{vals -ANAU$bmvAmthP7L7xwp$9}#
- (list #{proc -ANAU$bmvAmthP7L7xwp9w}#))
- (#{body -ANAU$bmvAmthP7L7xwp$$}#
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwp@C}#
+ #{maybe-name-value! 4451}#
+ #{ids 15818}#
+ #{val-exps 15813}#)
+ (let ((#{names 15894}# (list #{f-name 15816}#))
+ (#{gensyms 15895}# (list #{f 15815}#))
+ (#{vals 15896}# (list #{proc 15819}#))
+ (#{body 15897}#
+ (let ((#{fun-exp 15901}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{f-name -ANAU$bmvAmthP7L7xwp9t}#
- #{f -ANAU$bmvAmthP7L7xwp9s}#)))
+ #{src 15810}#
+ #{f-name 15816}#
+ #{f 15815}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{fun-exp -ANAU$bmvAmthP7L7xwp@C}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#))))
+ #{src 15810}#
+ #{fun-exp 15901}#
+ #{val-exps 15813}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{src 15810}#
#f
- #{names -ANAU$bmvAmthP7L7xwp$7}#
- #{gensyms -ANAU$bmvAmthP7L7xwp$8}#
- #{vals -ANAU$bmvAmthP7L7xwp$9}#
- #{body -ANAU$bmvAmthP7L7xwp$$}#)))))))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp@S}#
- #{in-order? -ANAU$bmvAmthP7L7xwp@T}#
- #{ids -ANAU$bmvAmthP7L7xwp@U}#
- #{vars -ANAU$bmvAmthP7L7xwp@V}#
- #{val-exps -ANAU$bmvAmthP7L7xwp@W}#
- #{body-exp -ANAU$bmvAmthP7L7xwp@X}#)
- (if (null? #{vars -ANAU$bmvAmthP7L7xwp@V}#)
- #{body-exp -ANAU$bmvAmthP7L7xwp@X}#
+ #{names 15894}#
+ #{gensyms 15895}#
+ #{vals 15896}#
+ #{body 15897}#)))))))
+ (#{build-letrec 4470}#
+ (lambda (#{src 15917}#
+ #{in-order? 15918}#
+ #{ids 15919}#
+ #{vars 15920}#
+ #{val-exps 15921}#
+ #{body-exp 15922}#)
+ (if (null? #{vars 15920}#)
+ #{body-exp 15922}#
(begin
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids -ANAU$bmvAmthP7L7xwp@U}#
- #{val-exps -ANAU$bmvAmthP7L7xwp@W}#)
+ #{maybe-name-value! 4451}#
+ #{ids 15919}#
+ #{val-exps 15921}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src -ANAU$bmvAmthP7L7xwp@S}#
- #{in-order? -ANAU$bmvAmthP7L7xwp@T}#
- #{ids -ANAU$bmvAmthP7L7xwp@U}#
- #{vars -ANAU$bmvAmthP7L7xwp@V}#
- #{val-exps -ANAU$bmvAmthP7L7xwp@W}#
- #{body-exp -ANAU$bmvAmthP7L7xwp@X}#)))))
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwp@x}#)
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwp@x}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwp@x}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 0)
- 'syntax-object)
+ #{src 15917}#
+ #{in-order? 15918}#
+ #{ids 15919}#
+ #{vars 15920}#
+ #{val-exps 15921}#
+ #{body-exp 15922}#)))))
+ (#{source-annotation 4479}#
+ (lambda (#{x 15948}#)
+ (if (if (vector? #{x 15948}#)
+ (if (= (vector-length #{x 15948}#) 4)
+ (eq? (vector-ref #{x 15948}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 1))
- (if (pair? #{x -ANAU$bmvAmthP7L7xwp@x}#)
- (let ((#{props -ANAU$bmvAmthP7L7xwqAA}#
- (source-properties #{x -ANAU$bmvAmthP7L7xwp@x}#)))
- (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#)
- #{props -ANAU$bmvAmthP7L7xwqAA}#
- #f))
+ (#{source-annotation 4479}#
+ (vector-ref #{x 15948}# 1))
+ (if (pair? #{x 15948}#)
+ (let ((#{props 15963}# (source-properties #{x 15948}#)))
+ (if (pair? #{props 15963}#) #{props 15963}# #f))
#f))))
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- (lambda (#{labels -ANAU$bmvAmthP7L7xwqAC}#
- #{bindings -ANAU$bmvAmthP7L7xwqAD}#
- #{r -ANAU$bmvAmthP7L7xwqAE}#)
- (if (null? #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- #{r -ANAU$bmvAmthP7L7xwqAE}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- (cdr #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- (cdr #{bindings -ANAU$bmvAmthP7L7xwqAD}#)
- (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- (car #{bindings -ANAU$bmvAmthP7L7xwqAD}#))
- #{r -ANAU$bmvAmthP7L7xwqAE}#)))))
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- (lambda (#{labels -ANAU$bmvAmthP7L7xwqAF}#
- #{vars -ANAU$bmvAmthP7L7xwqAG}#
- #{r -ANAU$bmvAmthP7L7xwqAH}#)
- (if (null? #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- #{r -ANAU$bmvAmthP7L7xwqAH}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- (cdr #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- (cdr #{vars -ANAU$bmvAmthP7L7xwqAG}#)
- (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- (cons 'lexical
- (car #{vars -ANAU$bmvAmthP7L7xwqAG}#)))
- #{r -ANAU$bmvAmthP7L7xwqAH}#)))))
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#)
- (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#)
+ (#{extend-env 4480}#
+ (lambda (#{labels 15965}# #{bindings 15966}# #{r 15967}#)
+ (if (null? #{labels 15965}#)
+ #{r 15967}#
+ (#{extend-env 4480}#
+ (cdr #{labels 15965}#)
+ (cdr #{bindings 15966}#)
+ (cons (cons (car #{labels 15965}#)
+ (car #{bindings 15966}#))
+ #{r 15967}#)))))
+ (#{extend-var-env 4481}#
+ (lambda (#{labels 15968}# #{vars 15969}# #{r 15970}#)
+ (if (null? #{labels 15968}#)
+ #{r 15970}#
+ (#{extend-var-env 4481}#
+ (cdr #{labels 15968}#)
+ (cdr #{vars 15969}#)
+ (cons (cons (car #{labels 15968}#)
+ (cons 'lexical (car #{vars 15969}#)))
+ #{r 15970}#)))))
+ (#{macros-only-env 4482}#
+ (lambda (#{r 15971}#)
+ (if (null? #{r 15971}#)
'()
- (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}#
- (car #{r -ANAU$bmvAmthP7L7xwqAI}#)))
- (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#))
- 'macro)
- (cons #{a -ANAU$bmvAmthP7L7xwqAJ}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwqAL}#
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
- #{val -ANAU$bmvAmthP7L7xwqAN}#)
+ (let ((#{a 15972}# (car #{r 15971}#)))
+ (if (eq? (car (cdr #{a 15972}#)) 'macro)
+ (cons #{a 15972}#
+ (#{macros-only-env 4482}# (cdr #{r 15971}#)))
+ (#{macros-only-env 4482}# (cdr #{r 15971}#)))))))
+ (#{global-extend 4484}#
+ (lambda (#{type 15974}# #{sym 15975}# #{val 15976}#)
(module-define!
(current-module)
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
+ #{sym 15975}#
(make-syntax-transformer
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
- #{type -ANAU$bmvAmthP7L7xwqAL}#
- #{val -ANAU$bmvAmthP7L7xwqAN}#))))
- (#{id? -ANAU$bmvAmthP7L7xwnNg}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#)
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#)
+ #{sym 15975}#
+ #{type 15974}#
+ #{val 15976}#))))
+ (#{id? 4486}#
+ (lambda (#{x 9787}#)
+ (if (symbol? #{x 9787}#)
#t
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0)
- 'syntax-object)
+ (if (if (vector? #{x 9787}#)
+ (if (= (vector-length #{x 9787}#) 4)
+ (eq? (vector-ref #{x 9787}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1))
+ (symbol? (vector-ref #{x 9787}# 1))
#f))))
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#)
- (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#)
+ (#{gen-labels 4489}#
+ (lambda (#{ls 15986}#)
+ (if (null? #{ls 15986}#)
'()
- (cons (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (cdr #{ls -ANAU$bmvAmthP7L7xwqAa}#))))))
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqAb}#
- #{labels -ANAU$bmvAmthP7L7xwqAc}#
- #{w -ANAU$bmvAmthP7L7xwqAd}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqAb}#)
- #{w -ANAU$bmvAmthP7L7xwqAd}#
- (cons (car #{w -ANAU$bmvAmthP7L7xwqAd}#)
- (cons (let ((#{labelvec -ANAU$bmvAmthP7L7xwqAe}#
- (list->vector
- #{labels -ANAU$bmvAmthP7L7xwqAc}#)))
- (let ((#{n -ANAU$bmvAmthP7L7xwqAf}#
- (vector-length
- #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))
- (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))
- (#{marksvec -ANAU$bmvAmthP7L7xwqAh}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)))
+ (cons (string-append
+ "l-"
+ (#{session-id 4447}#)
+ (symbol->string (gensym "-")))
+ (#{gen-labels 4489}# (cdr #{ls 15986}#))))))
+ (#{make-binding-wrap 4500}#
+ (lambda (#{ids 15990}# #{labels 15991}# #{w 15992}#)
+ (if (null? #{ids 15990}#)
+ #{w 15992}#
+ (cons (car #{w 15992}#)
+ (cons (let ((#{labelvec 15993}#
+ (list->vector #{labels 15991}#)))
+ (let ((#{n 15994}#
+ (vector-length #{labelvec 15993}#)))
+ (let ((#{symnamevec 15995}#
+ (make-vector #{n 15994}#))
+ (#{marksvec 15996}#
+ (make-vector #{n 15994}#)))
(begin
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqAi}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#)
- (if (not (null? #{ids -ANAU$bmvAmthP7L7xwqAl}#))
+ ((#{f 15997}#
+ (lambda (#{ids 16000}# #{i 16001}#)
+ (if (not (null? #{ids 16000}#))
(call-with-values
(lambda ()
- (let ((#{x -ANAU$bmvAmthP7L7xwqAp}#
- (car #{ids -ANAU$bmvAmthP7L7xwqAl}#)))
- (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwqAp}#)
+ (let ((#{x 16004}#
+ (car #{ids 16000}#)))
+ (if (if (vector? #{x 16004}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwqAp}#)
+ #{x 16004}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqAp}#
+ #{x 16004}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqAp}#
- 1)
- (let ((#{m1 -ANAU$bmvAmthP7L7xwqA5}#
- (car #{w -ANAU$bmvAmthP7L7xwqAd}#))
- (#{m2 -ANAU$bmvAmthP7L7xwqA6}#
+ (vector-ref #{x 16004}# 1)
+ (let ((#{m1 16020}#
+ (car #{w 15992}#))
+ (#{m2 16021}#
(car (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqAp}#
+ #{x 16004}#
2))))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqA6}#)
- #{m1 -ANAU$bmvAmthP7L7xwqA5}#
+ (if (null? #{m2 16021}#)
+ #{m1 16020}#
(append
- #{m1 -ANAU$bmvAmthP7L7xwqA5}#
- #{m2 -ANAU$bmvAmthP7L7xwqA6}#))))
+ #{m1 16020}#
+ #{m2 16021}#))))
(values
- #{x -ANAU$bmvAmthP7L7xwqAp}#
- (car #{w -ANAU$bmvAmthP7L7xwqAd}#)))))
- (lambda (#{symname -ANAU$bmvAmthP7L7xwqBO}#
- #{marks -ANAU$bmvAmthP7L7xwqBP}#)
+ #{x 16004}#
+ (car #{w 15992}#)))))
+ (lambda (#{symname 16041}#
+ #{marks 16042}#)
(begin
(vector-set!
- #{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#
- #{symname -ANAU$bmvAmthP7L7xwqBO}#)
+ #{symnamevec 15995}#
+ #{i 16001}#
+ #{symname 16041}#)
(vector-set!
- #{marksvec -ANAU$bmvAmthP7L7xwqAh}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#
- #{marks -ANAU$bmvAmthP7L7xwqBP}#)
- (#{f -ANAU$bmvAmthP7L7xwqAi}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwqAl}#)
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwqAm}#)))))))))
- (#{f -ANAU$bmvAmthP7L7xwqAi}#
- #{ids -ANAU$bmvAmthP7L7xwqAb}#
- 0))
+ #{marksvec 15996}#
+ #{i 16001}#
+ #{marks 16042}#)
+ (#{f 15997}#
+ (cdr #{ids 16000}#)
+ (#{1+}# #{i 16001}#)))))))))
+ (#{f 15997}# #{ids 15990}# 0))
(vector
'ribcage
- #{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
- #{marksvec -ANAU$bmvAmthP7L7xwqAh}#
- #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))))
- (cdr #{w -ANAU$bmvAmthP7L7xwqAd}#))))))
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- (lambda (#{w1 -ANAU$bmvAmthP7L7xwqBY}#
- #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
- (let ((#{m1 -ANAU$bmvAmthP7L7xwqBa}#
- (car #{w1 -ANAU$bmvAmthP7L7xwqBY}#))
- (#{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (cdr #{w1 -ANAU$bmvAmthP7L7xwqBY}#)))
- (if (null? #{m1 -ANAU$bmvAmthP7L7xwqBa}#)
- (if (null? #{s1 -ANAU$bmvAmthP7L7xwqBb}#)
- #{w2 -ANAU$bmvAmthP7L7xwqBZ}#
- (cons (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
- (let ((#{m2 -ANAU$bmvAmthP7L7xwqBi}#
- (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBi}#)
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (append
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- #{m2 -ANAU$bmvAmthP7L7xwqBi}#)))))
- (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}#
- (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#)
- #{m1 -ANAU$bmvAmthP7L7xwqBa}#
- (append
- #{m1 -ANAU$bmvAmthP7L7xwqBa}#
- #{m2 -ANAU$bmvAmthP7L7xwqBr}#)))
- (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}#
- (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#)
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (append
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- #{m2 -ANAU$bmvAmthP7L7xwqB0}#))))))))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (if (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (if (not (null? #{x -ANAU$bmvAmthP7L7xwqB5}#))
- (if (not (null? #{y -ANAU$bmvAmthP7L7xwqB6}#))
- (if (eq? (car #{x -ANAU$bmvAmthP7L7xwqB5}#)
- (car #{y -ANAU$bmvAmthP7L7xwqB6}#))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (cdr #{x -ANAU$bmvAmthP7L7xwqB5}#)
- (cdr #{y -ANAU$bmvAmthP7L7xwqB6}#))
+ #{symnamevec 15995}#
+ #{marksvec 15996}#
+ #{labelvec 15993}#)))))
+ (cdr #{w 15992}#))))))
+ (#{join-wraps 4502}#
+ (lambda (#{w1 16051}# #{w2 16052}#)
+ (let ((#{m1 16053}# (car #{w1 16051}#))
+ (#{s1 16054}# (cdr #{w1 16051}#)))
+ (if (null? #{m1 16053}#)
+ (if (null? #{s1 16054}#)
+ #{w2 16052}#
+ (cons (car #{w2 16052}#)
+ (let ((#{m2 16061}# (cdr #{w2 16052}#)))
+ (if (null? #{m2 16061}#)
+ #{s1 16054}#
+ (append #{s1 16054}# #{m2 16061}#)))))
+ (cons (let ((#{m2 16070}# (car #{w2 16052}#)))
+ (if (null? #{m2 16070}#)
+ #{m1 16053}#
+ (append #{m1 16053}# #{m2 16070}#)))
+ (let ((#{m2 16079}# (cdr #{w2 16052}#)))
+ (if (null? #{m2 16079}#)
+ #{s1 16054}#
+ (append #{s1 16054}# #{m2 16079}#))))))))
+ (#{same-marks? 4504}#
+ (lambda (#{x 16084}# #{y 16085}#)
+ (if (eq? #{x 16084}# #{y 16085}#)
+ (eq? #{x 16084}# #{y 16085}#)
+ (if (not (null? #{x 16084}#))
+ (if (not (null? #{y 16085}#))
+ (if (eq? (car #{x 16084}#) (car #{y 16085}#))
+ (#{same-marks? 4504}#
+ (cdr #{x 16084}#)
+ (cdr #{y 16085}#))
#f)
#f)
#f))))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}#
- #{w -ANAU$bmvAmthP7L7xwqCD}#)
+ (#{id-var-name 4505}#
+ (lambda (#{id 16093}# #{w 16094}#)
(letrec*
- ((#{search -ANAU$bmvAmthP7L7xwqCE}#
- (lambda (#{sym -ANAU$bmvAmthP7L7xwqDB}#
- #{subst -ANAU$bmvAmthP7L7xwqDC}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (if (null? #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- (values #f #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (let ((#{fst -ANAU$bmvAmthP7L7xwqDE}#
- (car #{subst -ANAU$bmvAmthP7L7xwqDC}#)))
- (if (eq? #{fst -ANAU$bmvAmthP7L7xwqDE}# 'shift)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- (cdr #{marks -ANAU$bmvAmthP7L7xwqDD}#))
- (let ((#{symnames -ANAU$bmvAmthP7L7xwqDG}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqDE}# 1)))
- (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqDG}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwqDS}#
- (vector-length
- #{symnames -ANAU$bmvAmthP7L7xwqDG}#)))
+ ((#{search 16095}#
+ (lambda (#{sym 16156}# #{subst 16157}# #{marks 16158}#)
+ (if (null? #{subst 16157}#)
+ (values #f #{marks 16158}#)
+ (let ((#{fst 16159}# (car #{subst 16157}#)))
+ (if (eq? #{fst 16159}# 'shift)
+ (#{search 16095}#
+ #{sym 16156}#
+ (cdr #{subst 16157}#)
+ (cdr #{marks 16158}#))
+ (let ((#{symnames 16161}# (vector-ref #{fst 16159}# 1)))
+ (if (vector? #{symnames 16161}#)
+ (let ((#{n 16173}#
+ (vector-length #{symnames 16161}#)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqDT}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwqDV}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwqDV}#
- #{n -ANAU$bmvAmthP7L7xwqDS}#)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ ((#{f 16174}#
+ (lambda (#{i 16176}#)
+ (if (= #{i 16176}# #{n 16173}#)
+ (#{search 16095}#
+ #{sym 16156}#
+ (cdr #{subst 16157}#)
+ #{marks 16158}#)
(if (if (eq? (vector-ref
- #{symnames -ANAU$bmvAmthP7L7xwqDG}#
- #{i -ANAU$bmvAmthP7L7xwqDV}#)
- #{sym -ANAU$bmvAmthP7L7xwqDB}#)
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#
+ #{symnames 16161}#
+ #{i 16176}#)
+ #{sym 16156}#)
+ (#{same-marks? 4504}#
+ #{marks 16158}#
(vector-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 2)
- #{i -ANAU$bmvAmthP7L7xwqDV}#))
+ (vector-ref #{fst 16159}# 2)
+ #{i 16176}#))
#f)
(values
(vector-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 3)
- #{i -ANAU$bmvAmthP7L7xwqDV}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (#{f -ANAU$bmvAmthP7L7xwqDT}#
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwqDV}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwqDT}# 0)))
+ (vector-ref #{fst 16159}# 3)
+ #{i 16176}#)
+ #{marks 16158}#)
+ (#{f 16174}# (#{1+}# #{i 16176}#)))))))
+ (#{f 16174}# 0)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqD2}#
- (lambda (#{symnames -ANAU$bmvAmthP7L7xwqD4}#
- #{i -ANAU$bmvAmthP7L7xwqD5}#)
- (if (null? #{symnames -ANAU$bmvAmthP7L7xwqD4}#)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (if (if (eq? (car #{symnames -ANAU$bmvAmthP7L7xwqD4}#)
- #{sym -ANAU$bmvAmthP7L7xwqDB}#)
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#
+ ((#{f 16209}#
+ (lambda (#{symnames 16211}# #{i 16212}#)
+ (if (null? #{symnames 16211}#)
+ (#{search 16095}#
+ #{sym 16156}#
+ (cdr #{subst 16157}#)
+ #{marks 16158}#)
+ (if (if (eq? (car #{symnames 16211}#)
+ #{sym 16156}#)
+ (#{same-marks? 4504}#
+ #{marks 16158}#
(list-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 2)
- #{i -ANAU$bmvAmthP7L7xwqD5}#))
+ (vector-ref #{fst 16159}# 2)
+ #{i 16212}#))
#f)
(values
(list-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 3)
- #{i -ANAU$bmvAmthP7L7xwqD5}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (#{f -ANAU$bmvAmthP7L7xwqD2}#
- (cdr #{symnames -ANAU$bmvAmthP7L7xwqD4}#)
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwqD5}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwqD2}#
- #{symnames -ANAU$bmvAmthP7L7xwqDG}#
- 0))))))))))
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwqCC}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwqCH}#
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCC}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
- (car #{w -ANAU$bmvAmthP7L7xwqCD}#))))
- (if #{t -ANAU$bmvAmthP7L7xwqCH}#
- #{t -ANAU$bmvAmthP7L7xwqCH}#
- #{id -ANAU$bmvAmthP7L7xwqCC}#))
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwqCC}#)
- (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwqCC}#)
- 4)
- (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0)
- 'syntax-object)
+ (vector-ref #{fst 16159}# 3)
+ #{i 16212}#)
+ #{marks 16158}#)
+ (#{f 16209}#
+ (cdr #{symnames 16211}#)
+ (#{1+}# #{i 16212}#)))))))
+ (#{f 16209}# #{symnames 16161}# 0))))))))))
+ (if (symbol? #{id 16093}#)
+ (let ((#{t 16098}#
+ (#{search 16095}#
+ #{id 16093}#
+ (cdr #{w 16094}#)
+ (car #{w 16094}#))))
+ (if #{t 16098}# #{t 16098}# #{id 16093}#))
+ (if (if (vector? #{id 16093}#)
+ (if (= (vector-length #{id 16093}#) 4)
+ (eq? (vector-ref #{id 16093}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id -ANAU$bmvAmthP7L7xwqCW}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 1))
- (#{w1 -ANAU$bmvAmthP7L7xwqCX}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 2)))
- (let ((#{marks -ANAU$bmvAmthP7L7xwqCY}#
- (let ((#{m1 -ANAU$bmvAmthP7L7xwqCi}#
- (car #{w -ANAU$bmvAmthP7L7xwqCD}#))
- (#{m2 -ANAU$bmvAmthP7L7xwqCj}#
- (car #{w1 -ANAU$bmvAmthP7L7xwqCX}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqCj}#)
- #{m1 -ANAU$bmvAmthP7L7xwqCi}#
- (append
- #{m1 -ANAU$bmvAmthP7L7xwqCi}#
- #{m2 -ANAU$bmvAmthP7L7xwqCj}#)))))
+ (let ((#{id 16113}# (vector-ref #{id 16093}# 1))
+ (#{w1 16114}# (vector-ref #{id 16093}# 2)))
+ (let ((#{marks 16115}#
+ (let ((#{m1 16125}# (car #{w 16094}#))
+ (#{m2 16126}# (car #{w1 16114}#)))
+ (if (null? #{m2 16126}#)
+ #{m1 16125}#
+ (append #{m1 16125}# #{m2 16126}#)))))
(call-with-values
(lambda ()
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
- #{marks -ANAU$bmvAmthP7L7xwqCY}#))
- (lambda (#{new-id -ANAU$bmvAmthP7L7xwqCz}#
- #{marks -ANAU$bmvAmthP7L7xwqC0}#)
- (if #{new-id -ANAU$bmvAmthP7L7xwqCz}#
- #{new-id -ANAU$bmvAmthP7L7xwqCz}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqC8}#
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#
- (cdr #{w1 -ANAU$bmvAmthP7L7xwqCX}#)
- #{marks -ANAU$bmvAmthP7L7xwqC0}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqC8}#
- #{t -ANAU$bmvAmthP7L7xwqC8}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#)))))))
+ (#{search 16095}#
+ #{id 16113}#
+ (cdr #{w 16094}#)
+ #{marks 16115}#))
+ (lambda (#{new-id 16142}# #{marks 16143}#)
+ (if #{new-id 16142}#
+ #{new-id 16142}#
+ (let ((#{t 16151}#
+ (#{search 16095}#
+ #{id 16113}#
+ (cdr #{w1 16114}#)
+ #{marks 16143}#)))
+ (if #{t 16151}# #{t 16151}# #{id 16113}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id -ANAU$bmvAmthP7L7xwqCC}#))))))
- (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
- (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}#
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ #{id 16093}#))))))
+ (#{locally-bound-identifiers 4506}#
+ (lambda (#{w 16234}# #{mod 16235}#)
(letrec*
- ((#{scan -ANAU$bmvAmthP7L7xwqER}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (if (null? #{subst -ANAU$bmvAmthP7L7xwqEW}#)
- #{results -ANAU$bmvAmthP7L7xwqEX}#
- (let ((#{fst -ANAU$bmvAmthP7L7xwqEY}#
- (car #{subst -ANAU$bmvAmthP7L7xwqEW}#)))
- (if (eq? #{fst -ANAU$bmvAmthP7L7xwqEY}# 'shift)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqEW}#)
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (let ((#{symnames -ANAU$bmvAmthP7L7xwqEa}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 1))
- (#{marks -ANAU$bmvAmthP7L7xwqEb}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 2)))
- (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqEa}#)
- (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
- #{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{symnames -ANAU$bmvAmthP7L7xwqEa}#
- #{marks -ANAU$bmvAmthP7L7xwqEb}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
- #{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{symnames -ANAU$bmvAmthP7L7xwqEa}#
- #{marks -ANAU$bmvAmthP7L7xwqEb}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#))))))))
- (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqF9}#
- #{symnames -ANAU$bmvAmthP7L7xwqF$}#
- #{marks -ANAU$bmvAmthP7L7xwqF@}#
- #{results -ANAU$bmvAmthP7L7xwqGA}#)
+ ((#{scan 16236}#
+ (lambda (#{subst 16241}# #{results 16242}#)
+ (if (null? #{subst 16241}#)
+ #{results 16242}#
+ (let ((#{fst 16243}# (car #{subst 16241}#)))
+ (if (eq? #{fst 16243}# 'shift)
+ (#{scan 16236}#
+ (cdr #{subst 16241}#)
+ #{results 16242}#)
+ (let ((#{symnames 16245}# (vector-ref #{fst 16243}# 1))
+ (#{marks 16246}# (vector-ref #{fst 16243}# 2)))
+ (if (vector? #{symnames 16245}#)
+ (#{scan-vector-rib 16238}#
+ #{subst 16241}#
+ #{symnames 16245}#
+ #{marks 16246}#
+ #{results 16242}#)
+ (#{scan-list-rib 16237}#
+ #{subst 16241}#
+ #{symnames 16245}#
+ #{marks 16246}#
+ #{results 16242}#))))))))
+ (#{scan-list-rib 16237}#
+ (lambda (#{subst 16344}#
+ #{symnames 16345}#
+ #{marks 16346}#
+ #{results 16347}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqGB}#
- (lambda (#{symnames -ANAU$bmvAmthP7L7xwqHl}#
- #{marks -ANAU$bmvAmthP7L7xwqHm}#
- #{results -ANAU$bmvAmthP7L7xwqHn}#)
- (if (null? #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqF9}#)
- #{results -ANAU$bmvAmthP7L7xwqHn}#)
- (#{f -ANAU$bmvAmthP7L7xwqGB}#
- (cdr #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (cdr #{marks -ANAU$bmvAmthP7L7xwqHm}#)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (let ((#{w -ANAU$bmvAmthP7L7xwqHv}#
- (cons (car #{marks -ANAU$bmvAmthP7L7xwqHm}#)
- #{subst -ANAU$bmvAmthP7L7xwqF9}#)))
- (cons (cons #f
- (car #{w -ANAU$bmvAmthP7L7xwqHv}#))
- (cons 'shift
- (cdr #{w -ANAU$bmvAmthP7L7xwqHv}#))))
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
- #{results -ANAU$bmvAmthP7L7xwqHn}#))))))
- (#{f -ANAU$bmvAmthP7L7xwqGB}#
- #{symnames -ANAU$bmvAmthP7L7xwqF$}#
- #{marks -ANAU$bmvAmthP7L7xwqF@}#
- #{results -ANAU$bmvAmthP7L7xwqGA}#))))
- (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqHw}#
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#
- #{marks -ANAU$bmvAmthP7L7xwqHy}#
- #{results -ANAU$bmvAmthP7L7xwqHz}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwqH0}#
- (vector-length
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#)))
+ ((#{f 16348}#
+ (lambda (#{symnames 16448}#
+ #{marks 16449}#
+ #{results 16450}#)
+ (if (null? #{symnames 16448}#)
+ (#{scan 16236}#
+ (cdr #{subst 16344}#)
+ #{results 16450}#)
+ (#{f 16348}#
+ (cdr #{symnames 16448}#)
+ (cdr #{marks 16449}#)
+ (cons (#{wrap 4515}#
+ (car #{symnames 16448}#)
+ (let ((#{w 16458}#
+ (cons (car #{marks 16449}#)
+ #{subst 16344}#)))
+ (cons (cons #f (car #{w 16458}#))
+ (cons 'shift (cdr #{w 16458}#))))
+ #{mod 16235}#)
+ #{results 16450}#))))))
+ (#{f 16348}#
+ #{symnames 16345}#
+ #{marks 16346}#
+ #{results 16347}#))))
+ (#{scan-vector-rib 16238}#
+ (lambda (#{subst 16459}#
+ #{symnames 16460}#
+ #{marks 16461}#
+ #{results 16462}#)
+ (let ((#{n 16463}# (vector-length #{symnames 16460}#)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqH1}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwqJI}#
- #{results -ANAU$bmvAmthP7L7xwqJJ}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwqJI}#
- #{n -ANAU$bmvAmthP7L7xwqH0}#)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqHw}#)
- #{results -ANAU$bmvAmthP7L7xwqJJ}#)
- (#{f -ANAU$bmvAmthP7L7xwqH1}#
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwqJI}#)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ ((#{f 16464}#
+ (lambda (#{i 16547}# #{results 16548}#)
+ (if (= #{i 16547}# #{n 16463}#)
+ (#{scan 16236}#
+ (cdr #{subst 16459}#)
+ #{results 16548}#)
+ (#{f 16464}#
+ (#{1+}# #{i 16547}#)
+ (cons (#{wrap 4515}#
(vector-ref
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#
- #{i -ANAU$bmvAmthP7L7xwqJI}#)
- (let ((#{w -ANAU$bmvAmthP7L7xwqJR}#
+ #{symnames 16460}#
+ #{i 16547}#)
+ (let ((#{w 16556}#
(cons (vector-ref
- #{marks -ANAU$bmvAmthP7L7xwqHy}#
- #{i -ANAU$bmvAmthP7L7xwqJI}#)
- #{subst -ANAU$bmvAmthP7L7xwqHw}#)))
- (cons (cons #f
- (car #{w -ANAU$bmvAmthP7L7xwqJR}#))
- (cons 'shift
- (cdr #{w -ANAU$bmvAmthP7L7xwqJR}#))))
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
- #{results -ANAU$bmvAmthP7L7xwqJJ}#))))))
- (#{f -ANAU$bmvAmthP7L7xwqH1}#
- 0
- #{results -ANAU$bmvAmthP7L7xwqHz}#))))))
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#)
- '()))))
- (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#)
+ #{marks 16461}#
+ #{i 16547}#)
+ #{subst 16459}#)))
+ (cons (cons #f (car #{w 16556}#))
+ (cons 'shift (cdr #{w 16556}#))))
+ #{mod 16235}#)
+ #{results 16548}#))))))
+ (#{f 16464}# 0 #{results 16462}#))))))
+ (#{scan 16236}# (cdr #{w 16234}#) '()))))
+ (#{valid-bound-ids? 4512}#
+ (lambda (#{ids 16557}#)
(if (letrec*
- ((#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (if (let ((#{x -ANAU$bmvAmthP7L7xwqMA}#
- (car #{ids -ANAU$bmvAmthP7L7xwqL1}#)))
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwqMA}#)
+ ((#{all-ids? 16558}#
+ (lambda (#{ids 16720}#)
+ (if (null? #{ids 16720}#)
+ (null? #{ids 16720}#)
+ (if (let ((#{x 16731}# (car #{ids 16720}#)))
+ (if (symbol? #{x 16731}#)
#t
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#)
- (if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwqMA}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqMA}#
- 0)
+ (if (if (vector? #{x 16731}#)
+ (if (= (vector-length #{x 16731}#) 4)
+ (eq? (vector-ref #{x 16731}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1))
+ (symbol? (vector-ref #{x 16731}# 1))
#f)))
- (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#))
+ (#{all-ids? 16558}# (cdr #{ids 16720}#))
#f)))))
- (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- #{ids -ANAU$bmvAmthP7L7xwqJS}#))
- (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- #{ids -ANAU$bmvAmthP7L7xwqJS}#)
+ (#{all-ids? 16558}# #{ids 16557}#))
+ (#{distinct-bound-ids? 4513}# #{ids 16557}#)
#f)))
- (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#)
+ (#{distinct-bound-ids? 4513}#
+ (lambda (#{ids 16859}#)
(letrec*
- ((#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (if (not (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- (car #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#)))
- (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#))
+ ((#{distinct? 16860}#
+ (lambda (#{ids 16972}#)
+ (if (null? #{ids 16972}#)
+ (null? #{ids 16972}#)
+ (if (not (#{bound-id-member? 4514}#
+ (car #{ids 16972}#)
+ (cdr #{ids 16972}#)))
+ (#{distinct? 16860}# (cdr #{ids 16972}#))
#f)))))
- (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- #{ids -ANAU$bmvAmthP7L7xwqOA}#))))
- (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqTD}#
- #{list -ANAU$bmvAmthP7L7xwqTE}#)
- (if (not (null? #{list -ANAU$bmvAmthP7L7xwqTE}#))
- (let ((#{t -ANAU$bmvAmthP7L7xwqTF}#
- (let ((#{j -ANAU$bmvAmthP7L7xwqUW}#
- (car #{list -ANAU$bmvAmthP7L7xwqTE}#)))
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqTD}#)
- (if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwqTD}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqTD}#
- 0)
+ (#{distinct? 16860}# #{ids 16859}#))))
+ (#{bound-id-member? 4514}#
+ (lambda (#{x 17182}# #{list 17183}#)
+ (if (not (null? #{list 17183}#))
+ (let ((#{t 17184}#
+ (let ((#{j 17265}# (car #{list 17183}#)))
+ (if (if (if (vector? #{x 17182}#)
+ (if (= (vector-length #{x 17182}#) 4)
+ (eq? (vector-ref #{x 17182}# 0)
'syntax-object)
#f)
#f)
- (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#)
- (if (= (vector-length
- #{j -ANAU$bmvAmthP7L7xwqUW}#)
- 4)
- (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0)
- 'syntax-object)
+ (if (vector? #{j 17265}#)
+ (if (= (vector-length #{j 17265}#) 4)
+ (eq? (vector-ref #{j 17265}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 1)
- (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 1))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (car (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 2))
- (car (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 2)))
+ (if (eq? (vector-ref #{x 17182}# 1)
+ (vector-ref #{j 17265}# 1))
+ (#{same-marks? 4504}#
+ (car (vector-ref #{x 17182}# 2))
+ (car (vector-ref #{j 17265}# 2)))
#f)
- (eq? #{x -ANAU$bmvAmthP7L7xwqTD}#
- #{j -ANAU$bmvAmthP7L7xwqUW}#)))))
- (if #{t -ANAU$bmvAmthP7L7xwqTF}#
- #{t -ANAU$bmvAmthP7L7xwqTF}#
- (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- #{x -ANAU$bmvAmthP7L7xwqTD}#
- (cdr #{list -ANAU$bmvAmthP7L7xwqTE}#))))
+ (eq? #{x 17182}# #{j 17265}#)))))
+ (if #{t 17184}#
+ #{t 17184}#
+ (#{bound-id-member? 4514}#
+ #{x 17182}#
+ (cdr #{list 17183}#))))
#f)))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqVC}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- #{defmod -ANAU$bmvAmthP7L7xwqVE}#)
- (if (if (null? (car #{w -ANAU$bmvAmthP7L7xwqVD}#))
- (null? (cdr #{w -ANAU$bmvAmthP7L7xwqVD}#))
+ (#{wrap 4515}#
+ (lambda (#{x 17309}# #{w 17310}# #{defmod 17311}#)
+ (if (if (null? (car #{w 17310}#))
+ (null? (cdr #{w 17310}#))
#f)
- #{x -ANAU$bmvAmthP7L7xwqVC}#
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0)
- 'syntax-object)
+ #{x 17309}#
+ (if (if (vector? #{x 17309}#)
+ (if (= (vector-length #{x 17309}#) 4)
+ (eq? (vector-ref #{x 17309}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwqVS}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 1))
- (#{wrap -ANAU$bmvAmthP7L7xwqVT}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 2)))
- (#{module -ANAU$bmvAmthP7L7xwqVU}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 3)))
+ (let ((#{expression 17325}# (vector-ref #{x 17309}# 1))
+ (#{wrap 17326}#
+ (#{join-wraps 4502}#
+ #{w 17310}#
+ (vector-ref #{x 17309}# 2)))
+ (#{module 17327}# (vector-ref #{x 17309}# 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwqVS}#
- #{wrap -ANAU$bmvAmthP7L7xwqVT}#
- #{module -ANAU$bmvAmthP7L7xwqVU}#))
- (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#)
- #{x -ANAU$bmvAmthP7L7xwqVC}#
+ #{expression 17325}#
+ #{wrap 17326}#
+ #{module 17327}#))
+ (if (null? #{x 17309}#)
+ #{x 17309}#
(vector
'syntax-object
- #{x -ANAU$bmvAmthP7L7xwqVC}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- #{defmod -ANAU$bmvAmthP7L7xwqVE}#))))))
- (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqVl}#
- #{w -ANAU$bmvAmthP7L7xwqVm}#
- #{s -ANAU$bmvAmthP7L7xwqVn}#
- #{defmod -ANAU$bmvAmthP7L7xwqVo}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{x 17309}#
+ #{w 17310}#
+ #{defmod 17311}#))))))
+ (#{source-wrap 4516}#
+ (lambda (#{x 17344}#
+ #{w 17345}#
+ #{s 17346}#
+ #{defmod 17347}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#)
- #{s -ANAU$bmvAmthP7L7xwqVn}#
- #f)
- (set-source-properties!
- #{x -ANAU$bmvAmthP7L7xwqVl}#
- #{s -ANAU$bmvAmthP7L7xwqVn}#))
- #{x -ANAU$bmvAmthP7L7xwqVl}#)
- #{w -ANAU$bmvAmthP7L7xwqVm}#
- #{defmod -ANAU$bmvAmthP7L7xwqVo}#)))
- (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwsvr}#
- #{r -ANAU$bmvAmthP7L7xwsvs}#
- #{w -ANAU$bmvAmthP7L7xwsvt}#
- #{s -ANAU$bmvAmthP7L7xwsvu}#
- #{mod -ANAU$bmvAmthP7L7xwsvv}#)
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- #{s -ANAU$bmvAmthP7L7xwsvu}#
+ (if (if (pair? #{x 17344}#) #{s 17346}# #f)
+ (set-source-properties! #{x 17344}# #{s 17346}#))
+ #{x 17344}#)
+ #{w 17345}#
+ #{defmod 17347}#)))
+ (#{expand-sequence 4517}#
+ (lambda (#{body 27267}#
+ #{r 27268}#
+ #{w 27269}#
+ #{s 27270}#
+ #{mod 27271}#)
+ (#{build-sequence 4467}#
+ #{s 27270}#
(letrec*
- ((#{dobody -ANAU$bmvAmthP7L7xwsw@}#
- (lambda (#{body -ANAU$bmvAmthP7L7xws2d}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- #{mod -ANAU$bmvAmthP7L7xws2g}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#)
+ ((#{dobody 27351}#
+ (lambda (#{body 27701}#
+ #{r 27702}#
+ #{w 27703}#
+ #{mod 27704}#)
+ (if (null? #{body 27701}#)
'()
- (let ((#{first -ANAU$bmvAmthP7L7xws2h}#
- (let ((#{e -ANAU$bmvAmthP7L7xws2l}#
- (car #{body -ANAU$bmvAmthP7L7xws2d}#)))
+ (let ((#{first 27705}#
+ (let ((#{e 27709}# (car #{body 27701}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xws2l}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xws2l}#)
+ (#{syntax-type 4521}#
+ #{e 27709}#
+ #{r 27702}#
+ #{w 27703}#
+ (#{source-annotation 4479}# #{e 27709}#)
#f
- #{mod -ANAU$bmvAmthP7L7xws2g}#
+ #{mod 27704}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xws2s}#
- #{value -ANAU$bmvAmthP7L7xws2t}#
- #{e -ANAU$bmvAmthP7L7xws2u}#
- #{w -ANAU$bmvAmthP7L7xws2v}#
- #{s -ANAU$bmvAmthP7L7xws2w}#
- #{mod -ANAU$bmvAmthP7L7xws2x}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xws2s}#
- #{value -ANAU$bmvAmthP7L7xws2t}#
- #{e -ANAU$bmvAmthP7L7xws2u}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2v}#
- #{s -ANAU$bmvAmthP7L7xws2w}#
- #{mod -ANAU$bmvAmthP7L7xws2x}#))))))
- (cons #{first -ANAU$bmvAmthP7L7xws2h}#
- (#{dobody -ANAU$bmvAmthP7L7xwsw@}#
- (cdr #{body -ANAU$bmvAmthP7L7xws2d}#)
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- #{mod -ANAU$bmvAmthP7L7xws2g}#)))))))
- (#{dobody -ANAU$bmvAmthP7L7xwsw@}#
- #{body -ANAU$bmvAmthP7L7xwsvr}#
- #{r -ANAU$bmvAmthP7L7xwsvs}#
- #{w -ANAU$bmvAmthP7L7xwsvt}#
- #{mod -ANAU$bmvAmthP7L7xwsvv}#)))))
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqV6}#
- #{r -ANAU$bmvAmthP7L7xwqV7}#
- #{w -ANAU$bmvAmthP7L7xwqV8}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
- #{m -ANAU$bmvAmthP7L7xwqV$}#
- #{esew -ANAU$bmvAmthP7L7xwqV@}#
- #{mod -ANAU$bmvAmthP7L7xwqWA}#)
+ (lambda (#{type 27716}#
+ #{value 27717}#
+ #{e 27718}#
+ #{w 27719}#
+ #{s 27720}#
+ #{mod 27721}#)
+ (#{expand-expr 4523}#
+ #{type 27716}#
+ #{value 27717}#
+ #{e 27718}#
+ #{r 27702}#
+ #{w 27719}#
+ #{s 27720}#
+ #{mod 27721}#))))))
+ (cons #{first 27705}#
+ (#{dobody 27351}#
+ (cdr #{body 27701}#)
+ #{r 27702}#
+ #{w 27703}#
+ #{mod 27704}#)))))))
+ (#{dobody 27351}#
+ #{body 27267}#
+ #{r 27268}#
+ #{w 27269}#
+ #{mod 27271}#)))))
+ (#{expand-top-sequence 4518}#
+ (lambda (#{body 17365}#
+ #{r 17366}#
+ #{w 17367}#
+ #{s 17368}#
+ #{m 17369}#
+ #{esew 17370}#
+ #{mod 17371}#)
(letrec*
- ((#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqYE}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xwqYE}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#
+ ((#{scan 17372}#
+ (lambda (#{body 17503}#
+ #{r 17504}#
+ #{w 17505}#
+ #{s 17506}#
+ #{m 17507}#
+ #{esew 17508}#
+ #{mod 17509}#
+ #{exps 17510}#)
+ (if (null? #{body 17503}#)
+ #{exps 17510}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e -ANAU$bmvAmthP7L7xwqYM}#
- (car #{body -ANAU$bmvAmthP7L7xwqYE}#)))
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwqYM}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqYQ}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwqYM}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqYQ}#
- #{t -ANAU$bmvAmthP7L7xwqYQ}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#))
+ (let ((#{e 17511}# (car #{body 17503}#)))
+ (#{syntax-type 4521}#
+ #{e 17511}#
+ #{r 17504}#
+ #{w 17505}#
+ (let ((#{t 17515}#
+ (#{source-annotation 4479}#
+ #{e 17511}#)))
+ (if #{t 17515}# #{t 17515}# #{s 17506}#))
#f
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
+ #{mod 17509}#
#f)))
- (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- '(_))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcF}#
+ (lambda (#{type 17750}#
+ #{value 17751}#
+ #{e 17752}#
+ #{w 17753}#
+ #{s 17754}#
+ #{mod 17755}#)
+ (if (eqv? #{type 17750}# 'begin-form)
+ (let ((#{tmp 17760}#
+ ($sc-dispatch #{e 17752}# '(_))))
+ (if #{tmp 17760}#
(@apply
- (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{tmp -ANAU$bmvAmthP7L7xwqcF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}#
+ (lambda () #{exps 17510}#)
+ #{tmp 17760}#)
+ (let ((#{tmp 17764}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{e 17752}#
'(_ any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}#
+ (if #{tmp 17764}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}#
- #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}#
- #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- #{tmp -ANAU$bmvAmthP7L7xwqcJ}#)
+ (lambda (#{e1 17768}# #{e2 17769}#)
+ (#{scan 17372}#
+ (cons #{e1 17768}# #{e2 17769}#)
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
+ #{m 17507}#
+ #{esew 17508}#
+ #{mod 17755}#
+ #{exps 17510}#))
+ #{tmp 17764}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwqb9}#)))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'local-syntax-form)
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqcd}#
- #{r -ANAU$bmvAmthP7L7xwqce}#
- #{w -ANAU$bmvAmthP7L7xwqcf}#
- #{s -ANAU$bmvAmthP7L7xwqcg}#
- #{mod -ANAU$bmvAmthP7L7xwqch}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcd}#
- #{r -ANAU$bmvAmthP7L7xwqce}#
- #{w -ANAU$bmvAmthP7L7xwqcf}#
- #{s -ANAU$bmvAmthP7L7xwqcg}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqch}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'eval-when-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}#
+ #{e 17752}#)))))
+ (if (eqv? #{type 17750}# 'local-syntax-form)
+ (#{expand-local-syntax 4527}#
+ #{value 17751}#
+ #{e 17752}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
+ #{mod 17755}#
+ (lambda (#{body 17784}#
+ #{r 17785}#
+ #{w 17786}#
+ #{s 17787}#
+ #{mod 17788}#)
+ (#{scan 17372}#
+ #{body 17784}#
+ #{r 17785}#
+ #{w 17786}#
+ #{s 17787}#
+ #{m 17507}#
+ #{esew 17508}#
+ #{mod 17788}#
+ #{exps 17510}#)))
+ (if (eqv? #{type 17750}# 'eval-when-form)
+ (let ((#{tmp 17793}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{e 17752}#
'(_ each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcm}#
+ (if #{tmp 17793}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwqcq}#
- #{e1 -ANAU$bmvAmthP7L7xwqcr}#
- #{e2 -ANAU$bmvAmthP7L7xwqcs}#)
- (let ((#{when-list -ANAU$bmvAmthP7L7xwqct}#
- (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{x -ANAU$bmvAmthP7L7xwqcq}#))
- (#{body -ANAU$bmvAmthP7L7xwqcu}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwqcr}#
- #{e2 -ANAU$bmvAmthP7L7xwqcs}#)))
- (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'e)
+ (lambda (#{x 17797}#
+ #{e1 17798}#
+ #{e2 17799}#)
+ (let ((#{when-list 17800}#
+ (#{parse-when-list 4520}#
+ #{e 17752}#
+ #{x 17797}#))
+ (#{body 17801}#
+ (cons #{e1 17798}#
+ #{e2 17799}#)))
+ (if (eq? #{m 17507}# 'e)
(if (memq 'eval
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{when-list 17800}#)
+ (#{scan 17372}#
+ #{body 17801}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
(if (memq 'expand
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ #{when-list 17800}#)
'c&e
'e)
'(eval)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{mod 17755}#
+ #{exps 17510}#)
(begin
(if (memq 'expand
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
- (let ((#{x -ANAU$bmvAmthP7L7xwqd7}#
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{when-list 17800}#)
+ (let ((#{x 17878}#
+ (#{expand-top-sequence 4518}#
+ #{body 17801}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
'e
'(eval)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
+ #{mod 17755}#)))
(primitive-eval
- #{x -ANAU$bmvAmthP7L7xwqd7}#)))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
+ #{x 17878}#)))
+ #{exps 17510}#))
(if (memq 'load
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
- (if (let ((#{t -ANAU$bmvAmthP7L7xwqeV}#
+ #{when-list 17800}#)
+ (if (let ((#{t 17904}#
(memq 'compile
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqeV}#
- #{t -ANAU$bmvAmthP7L7xwqeV}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqfG}#
+ #{when-list 17800}#)))
+ (if #{t 17904}#
+ #{t 17904}#
+ (let ((#{t 17953}#
(memq 'expand
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqfG}#
- #{t -ANAU$bmvAmthP7L7xwqfG}#
- (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{when-list 17800}#)))
+ (if #{t 17953}#
+ #{t 17953}#
+ (if (eq? #{m 17507}#
'c&e)
(memq 'eval
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ #{when-list 17800}#)
#f)))))
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
+ (#{scan 17372}#
+ #{body 17801}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
'c&e
'(compile load)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c)
+ #{mod 17755}#
+ #{exps 17510}#)
+ (if (if (eq? #{m 17507}# 'c)
#t
- (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e))
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
+ (eq? #{m 17507}# 'c&e))
+ (#{scan 17372}#
+ #{body 17801}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
'c
'(load)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- (if (let ((#{t -ANAU$bmvAmthP7L7xwqhH}#
+ #{mod 17755}#
+ #{exps 17510}#)
+ #{exps 17510}#))
+ (if (let ((#{t 18082}#
(memq 'compile
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqhH}#
- #{t -ANAU$bmvAmthP7L7xwqhH}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqh4}#
+ #{when-list 17800}#)))
+ (if #{t 18082}#
+ #{t 18082}#
+ (let ((#{t 18131}#
(memq 'expand
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqh4}#
- #{t -ANAU$bmvAmthP7L7xwqh4}#
- (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ #{when-list 17800}#)))
+ (if #{t 18131}#
+ #{t 18131}#
+ (if (eq? #{m 17507}#
'c&e)
(memq 'eval
- #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ #{when-list 17800}#)
#f)))))
(begin
- (let ((#{x -ANAU$bmvAmthP7L7xwqj0}#
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
+ (let ((#{x 18255}#
+ (#{expand-top-sequence 4518}#
+ #{body 17801}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
'e
'(eval)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
+ #{mod 17755}#)))
(primitive-eval
- #{x -ANAU$bmvAmthP7L7xwqj0}#))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwqcm}#)
+ #{x 18255}#))
+ #{exps 17510}#)
+ #{exps 17510}#)))))
+ #{tmp 17793}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwqb9}#)))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ #{e 17752}#)))
+ (if (if (eqv? #{type 17750}#
'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ (eqv? #{type 17750}#
'define-syntax-parameter-form))
- (let ((#{n -ANAU$bmvAmthP7L7xwqki}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#))
- (#{r -ANAU$bmvAmthP7L7xwqkj}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#)))
- (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c)
- (if (memq 'compile
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwqkn}#
- (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqkj}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))))
+ (let ((#{n 18301}#
+ (#{id-var-name 4505}#
+ #{value 17751}#
+ #{w 17753}#))
+ (#{r 18302}#
+ (#{macros-only-env 4482}#
+ #{r 17504}#)))
+ (if (eqv? #{m 17507}# 'c)
+ (if (memq 'compile #{esew 17508}#)
+ (let ((#{e 18306}#
+ (#{expand-install-global 4519}#
+ #{n 18301}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 18302}#
+ #{w 17753}#
+ #{mod 17755}#))))
(begin
- (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- #{e -ANAU$bmvAmthP7L7xwqkn}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (if (memq 'load
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#)
- (cons #{e -ANAU$bmvAmthP7L7xwqkn}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
- (if (memq 'load
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#)
- (cons (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqkj}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{e -ANAU$bmvAmthP7L7xwqup}#
- (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqkj}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))))
+ (#{top-level-eval-hook 4445}#
+ #{e 18306}#
+ #{mod 17755}#)
+ (if (memq 'load #{esew 17508}#)
+ (cons #{e 18306}# #{exps 17510}#)
+ #{exps 17510}#)))
+ (if (memq 'load #{esew 17508}#)
+ (cons (#{expand-install-global 4519}#
+ #{n 18301}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 18302}#
+ #{w 17753}#
+ #{mod 17755}#))
+ #{exps 17510}#)
+ #{exps 17510}#))
+ (if (eqv? #{m 17507}# 'c&e)
+ (let ((#{e 18948}#
+ (#{expand-install-global 4519}#
+ #{n 18301}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 18302}#
+ #{w 17753}#
+ #{mod 17755}#))))
(begin
- (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- #{e -ANAU$bmvAmthP7L7xwqup}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (cons #{e -ANAU$bmvAmthP7L7xwqup}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
+ (#{top-level-eval-hook 4445}#
+ #{e 18948}#
+ #{mod 17755}#)
+ (cons #{e 18948}# #{exps 17510}#)))
(begin
- (if (memq 'eval
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#)
- (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqkj}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'define-form)
- (let ((#{n -ANAU$bmvAmthP7L7xwq5L}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#)))
- (let ((#{type -ANAU$bmvAmthP7L7xwq5M}#
- (car (let ((#{t -ANAU$bmvAmthP7L7xwq5T}#
- (assq #{n -ANAU$bmvAmthP7L7xwq5L}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#)))
- (if #{t -ANAU$bmvAmthP7L7xwq5T}#
- (cdr #{t -ANAU$bmvAmthP7L7xwq5T}#)
+ (if (memq 'eval #{esew 17508}#)
+ (#{top-level-eval-hook 4445}#
+ (#{expand-install-global 4519}#
+ #{n 18301}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 18302}#
+ #{w 17753}#
+ #{mod 17755}#))
+ #{mod 17755}#))
+ #{exps 17510}#))))
+ (if (eqv? #{type 17750}# 'define-form)
+ (let ((#{n 19622}#
+ (#{id-var-name 4505}#
+ #{value 17751}#
+ #{w 17753}#)))
+ (let ((#{type 19623}#
+ (car (let ((#{t 19630}#
+ (assq #{n 19622}#
+ #{r 17504}#)))
+ (if #{t 19630}#
+ (cdr #{t 19630}#)
(if (symbol?
- #{n -ANAU$bmvAmthP7L7xwq5L}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwq5Z}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwq5L}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
- (if #{t -ANAU$bmvAmthP7L7xwq5Z}#
- #{t -ANAU$bmvAmthP7L7xwq5Z}#
+ #{n 19622}#)
+ (let ((#{t 19636}#
+ (#{get-global-definition-hook 4449}#
+ #{n 19622}#
+ #{mod 17755}#)))
+ (if #{t 19636}#
+ #{t 19636}#
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
- 'global)
+ (if (if (eqv? #{type 19623}# 'global)
#t
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
- 'core)
+ (if (eqv? #{type 19623}# 'core)
#t
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
+ (if (eqv? #{type 19623}#
'macro)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
+ (eqv? #{type 19623}#
'module-ref))))
(begin
- (if (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c)
+ (if (if (if (eq? #{m 17507}# 'c)
#t
- (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e))
+ (eq? #{m 17507}# 'c&e))
(if (not (module-local-variable
(current-module)
- #{n -ANAU$bmvAmthP7L7xwq5L}#))
+ #{n 19622}#))
(current-module)
#f)
#f)
- (let ((#{old -ANAU$bmvAmthP7L7xwq54}#
+ (let ((#{old 19667}#
(module-variable
(current-module)
- #{n -ANAU$bmvAmthP7L7xwq5L}#)))
+ #{n 19622}#)))
(if (if (variable?
- #{old -ANAU$bmvAmthP7L7xwq54}#)
+ #{old 19667}#)
(variable-bound?
- #{old -ANAU$bmvAmthP7L7xwq54}#)
+ #{old 19667}#)
#f)
(module-define!
(current-module)
- #{n -ANAU$bmvAmthP7L7xwq5L}#
+ #{n 19622}#
(variable-ref
- #{old -ANAU$bmvAmthP7L7xwq54}#))
+ #{old 19667}#))
(module-add!
(current-module)
- #{n -ANAU$bmvAmthP7L7xwq5L}#
+ #{n 19622}#
(make-undefined-variable)))))
- (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{x -ANAU$bmvAmthP7L7xwrAx}#
- (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{n -ANAU$bmvAmthP7L7xwq5L}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))))
+ (cons (if (eq? #{m 17507}# 'c&e)
+ (let ((#{x 20108}#
+ (#{build-global-definition 4461}#
+ #{s 17754}#
+ #{n 19622}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 17504}#
+ #{w 17753}#
+ #{mod 17755}#))))
(begin
- (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- #{x -ANAU$bmvAmthP7L7xwrAx}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- #{x -ANAU$bmvAmthP7L7xwrAx}#))
+ (#{top-level-eval-hook 4445}#
+ #{x 20108}#
+ #{mod 17755}#)
+ #{x 20108}#))
(lambda ()
- (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{n -ANAU$bmvAmthP7L7xwq5L}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
+ (#{build-global-definition 4461}#
+ #{s 17754}#
+ #{n 19622}#
+ (#{expand 4522}#
+ #{e 17752}#
+ #{r 17504}#
+ #{w 17753}#
+ #{mod 17755}#))))
+ #{exps 17510}#))
+ (if (eqv? #{type 19623}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))
+ #{e 17752}#
+ (#{wrap 4515}#
+ #{value 17751}#
+ #{w 17753}#
+ #{mod 17755}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))))))
- (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{x -ANAU$bmvAmthP7L7xwrH4}#
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwqb7}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
+ #{e 17752}#
+ (#{wrap 4515}#
+ #{value 17751}#
+ #{w 17753}#
+ #{mod 17755}#))))))
+ (cons (if (eq? #{m 17507}# 'c&e)
+ (let ((#{x 20563}#
+ (#{expand-expr 4523}#
+ #{type 17750}#
+ #{value 17751}#
+ #{e 17752}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
+ #{mod 17755}#)))
(begin
- (primitive-eval
- #{x -ANAU$bmvAmthP7L7xwrH4}#)
- #{x -ANAU$bmvAmthP7L7xwrH4}#))
+ (primitive-eval #{x 20563}#)
+ #{x 20563}#))
(lambda ()
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwqb7}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s -ANAU$bmvAmthP7L7xwqb@}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))))))))
- (lambda (#{exps -ANAU$bmvAmthP7L7xwrH9}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwqYE}#)
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
- #{exps -ANAU$bmvAmthP7L7xwrH9}#)))))))
+ (#{expand-expr 4523}#
+ #{type 17750}#
+ #{value 17751}#
+ #{e 17752}#
+ #{r 17504}#
+ #{w 17753}#
+ #{s 17754}#
+ #{mod 17755}#)))
+ #{exps 17510}#)))))))))
+ (lambda (#{exps 20568}#)
+ (#{scan 17372}#
+ (cdr #{body 17503}#)
+ #{r 17504}#
+ #{w 17505}#
+ #{s 17506}#
+ #{m 17507}#
+ #{esew 17508}#
+ #{mod 17509}#
+ #{exps 20568}#)))))))
(call-with-values
(lambda ()
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqV6}#
- #{r -ANAU$bmvAmthP7L7xwqV7}#
- #{w -ANAU$bmvAmthP7L7xwqV8}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
- #{m -ANAU$bmvAmthP7L7xwqV$}#
- #{esew -ANAU$bmvAmthP7L7xwqV@}#
- #{mod -ANAU$bmvAmthP7L7xwqWA}#
+ (#{scan 17372}#
+ #{body 17365}#
+ #{r 17366}#
+ #{w 17367}#
+ #{s 17368}#
+ #{m 17369}#
+ #{esew 17370}#
+ #{mod 17371}#
'()))
- (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#)
- (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#)
+ (lambda (#{exps 17375}#)
+ (if (null? #{exps 17375}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s -ANAU$bmvAmthP7L7xwqV9}#)
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
+ #{s 17368}#)
+ (#{build-sequence 4467}#
+ #{s 17368}#
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwqWs}#
- (lambda (#{in -ANAU$bmvAmthP7L7xwqYA}#
- #{out -ANAU$bmvAmthP7L7xwqYB}#)
- (if (null? #{in -ANAU$bmvAmthP7L7xwqYA}#)
- #{out -ANAU$bmvAmthP7L7xwqYB}#
- (let ((#{e -ANAU$bmvAmthP7L7xwqYC}#
- (car #{in -ANAU$bmvAmthP7L7xwqYA}#)))
- (#{lp -ANAU$bmvAmthP7L7xwqWs}#
- (cdr #{in -ANAU$bmvAmthP7L7xwqYA}#)
- (cons (if (procedure?
- #{e -ANAU$bmvAmthP7L7xwqYC}#)
- (#{e -ANAU$bmvAmthP7L7xwqYC}#)
- #{e -ANAU$bmvAmthP7L7xwqYC}#)
- #{out -ANAU$bmvAmthP7L7xwqYB}#)))))))
- (#{lp -ANAU$bmvAmthP7L7xwqWs}#
- #{exps -ANAU$bmvAmthP7L7xwqWE}#
- '())))))))))
- (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}#
- #{e -ANAU$bmvAmthP7L7xwrH@}#)
- (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}#
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
+ ((#{lp 17415}#
+ (lambda (#{in 17499}# #{out 17500}#)
+ (if (null? #{in 17499}#)
+ #{out 17500}#
+ (let ((#{e 17501}# (car #{in 17499}#)))
+ (#{lp 17415}#
+ (cdr #{in 17499}#)
+ (cons (if (procedure? #{e 17501}#)
+ (#{e 17501}#)
+ #{e 17501}#)
+ #{out 17500}#)))))))
+ (#{lp 17415}# #{exps 17375}# '())))))))))
+ (#{expand-install-global 4519}#
+ (lambda (#{name 20569}# #{e 20570}#)
+ (let ((#{exp 20576}#
+ (let ((#{fun-exp 20586}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#
+ (#{arg-exps 20587}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name -ANAU$bmvAmthP7L7xwrH$}#)
+ #{name 20569}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e -ANAU$bmvAmthP7L7xwrH@}#)))
+ #{e 20570}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
- #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#))))
+ #{fun-exp 20586}#
+ #{arg-exps 20587}#))))
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#)
+ (if (if (struct? #{exp 20576}#)
+ (eq? (struct-vtable #{exp 20576}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwrI5}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwrIF}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwrI5}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwrJA}#
- (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwrH$}#)
- #{meta -ANAU$bmvAmthP7L7xwrI5}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwrIF}#
- 1
- #{v -ANAU$bmvAmthP7L7xwrJA}#)))))
+ (let ((#{meta 20628}# (struct-ref #{exp 20576}# 1)))
+ (if (not (assq 'name #{meta 20628}#))
+ (let ((#{v 20635}#
+ (cons (cons 'name #{name 20569}#) #{meta 20628}#)))
+ (struct-set! #{exp 20576}# 1 #{v 20635}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name -ANAU$bmvAmthP7L7xwrH$}#
- #{exp -ANAU$bmvAmthP7L7xwrIF}#)))))
- (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrJL}#
- #{when-list -ANAU$bmvAmthP7L7xwrJM}#)
- (let ((#{result -ANAU$bmvAmthP7L7xwrJN}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{when-list -ANAU$bmvAmthP7L7xwrJM}#
- '(()))))
+ #{name 20569}#
+ #{exp 20576}#)))))
+ (#{parse-when-list 4520}#
+ (lambda (#{e 20646}# #{when-list 20647}#)
+ (let ((#{result 20648}#
+ (#{strip 4535}# #{when-list 20647}# '(()))))
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwrJO}#
- (lambda (#{l -ANAU$bmvAmthP7L7xwrKE}#)
- (if (null? #{l -ANAU$bmvAmthP7L7xwrKE}#)
- #{result -ANAU$bmvAmthP7L7xwrJN}#
- (if (let ((#{t -ANAU$bmvAmthP7L7xwrKG}#
- (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'compile)
+ ((#{lp 20649}#
+ (lambda (#{l 20703}#)
+ (if (null? #{l 20703}#)
+ #{result 20648}#
+ (if (let ((#{t 20705}# (car #{l 20703}#)))
+ (if (eq? #{t 20705}# 'compile)
#t
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load)
+ (if (eq? #{t 20705}# 'load)
#t
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval)
+ (if (eq? #{t 20705}# 'eval)
#t
- (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand)))))
- (#{lp -ANAU$bmvAmthP7L7xwrJO}#
- (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#))
+ (eq? #{t 20705}# 'expand)))))
+ (#{lp 20649}# (cdr #{l 20703}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e -ANAU$bmvAmthP7L7xwrJL}#
- (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))))))
- (#{lp -ANAU$bmvAmthP7L7xwrJO}#
- #{result -ANAU$bmvAmthP7L7xwrJN}#)))))
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (symbol? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwrKP}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwrKQ}#
- (let ((#{t -ANAU$bmvAmthP7L7xwrKY}#
- (assq #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrKY}#
- (cdr #{t -ANAU$bmvAmthP7L7xwrKY}#)
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwrKP}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwrKe}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrKe}#
- #{t -ANAU$bmvAmthP7L7xwrKe}#
- '(global)))
+ #{e 20646}#
+ (car #{l 20703}#)))))))
+ (#{lp 20649}# #{result 20648}#)))))
+ (#{syntax-type 4521}#
+ (lambda (#{e 20707}#
+ #{r 20708}#
+ #{w 20709}#
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#
+ #{for-car? 20713}#)
+ (if (symbol? #{e 20707}#)
+ (let ((#{n 20714}#
+ (#{id-var-name 4505}# #{e 20707}# #{w 20709}#)))
+ (let ((#{b 20715}#
+ (let ((#{t 20723}# (assq #{n 20714}# #{r 20708}#)))
+ (if #{t 20723}#
+ (cdr #{t 20723}#)
+ (if (symbol? #{n 20714}#)
+ (let ((#{t 20729}#
+ (#{get-global-definition-hook 4449}#
+ #{n 20714}#
+ #{mod 20712}#)))
+ (if #{t 20729}# #{t 20729}# '(global)))
'(displaced-lexical))))))
- (let ((#{type -ANAU$bmvAmthP7L7xwrKR}#
- (car #{b -ANAU$bmvAmthP7L7xwrKQ}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical)
+ (let ((#{type 20716}# (car #{b 20715}#)))
+ (if (eqv? #{type 20716}# 'lexical)
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'global)
+ #{type 20716}#
+ (cdr #{b 20715}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{type 20716}# 'global)
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'macro)
- (if #{for-car? -ANAU$bmvAmthP7L7xwrKO}#
+ #{type 20716}#
+ #{n 20714}#
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{type 20716}# 'macro)
+ (if #{for-car? 20713}#
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{type 20716}#
+ (cdr #{b 20715}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (#{syntax-type 4521}#
+ (#{expand-macro 4525}#
+ (cdr #{b 20715}#)
+ #{e 20707}#
+ #{r 20708}#
+ #{w 20709}#
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#)
+ #{r 20708}#
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#
#f))
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
- (if (pair? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (let ((#{first -ANAU$bmvAmthP7L7xwrKy}#
- (car #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ #{type 20716}#
+ (cdr #{b 20715}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)))))))
+ (if (pair? #{e 20707}#)
+ (let ((#{first 20749}# (car #{e 20707}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{first -ANAU$bmvAmthP7L7xwrKy}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ (#{syntax-type 4521}#
+ #{first 20749}#
+ #{r 20708}#
+ #{w 20709}#
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#
#t))
- (lambda (#{ftype -ANAU$bmvAmthP7L7xwrK0}#
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{fe -ANAU$bmvAmthP7L7xwrK2}#
- #{fw -ANAU$bmvAmthP7L7xwrK3}#
- #{fs -ANAU$bmvAmthP7L7xwrK4}#
- #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'lexical)
+ (lambda (#{ftype 20751}#
+ #{fval 20752}#
+ #{fe 20753}#
+ #{fw 20754}#
+ #{fs 20755}#
+ #{fmod 20756}#)
+ (if (eqv? #{ftype 20751}# 'lexical)
(values
'lexical-call
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global)
+ #{fval 20752}#
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'macro)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ #{fval 20752}#
+ #{w 20709}#
+ #{fmod 20756}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'macro)
+ (#{syntax-type 4521}#
+ (#{expand-macro 4525}#
+ #{fval 20752}#
+ #{e 20707}#
+ #{r 20708}#
+ #{w 20709}#
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#)
+ #{r 20708}#
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'module-ref)
+ #{s 20710}#
+ #{rib 20711}#
+ #{mod 20712}#
+ #{for-car? 20713}#)
+ (if (eqv? #{ftype 20751}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwrLO}#
- #{r -ANAU$bmvAmthP7L7xwrLP}#
- #{w -ANAU$bmvAmthP7L7xwrLQ}#
- #{s -ANAU$bmvAmthP7L7xwrLR}#
- #{mod -ANAU$bmvAmthP7L7xwrLS}#)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwrLO}#
- #{r -ANAU$bmvAmthP7L7xwrLP}#
- #{w -ANAU$bmvAmthP7L7xwrLQ}#
- #{s -ANAU$bmvAmthP7L7xwrLR}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrLS}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)))
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'core)
+ (#{fval 20752}#
+ #{e 20707}#
+ #{r 20708}#
+ #{w 20709}#))
+ (lambda (#{e 20777}#
+ #{r 20778}#
+ #{w 20779}#
+ #{s 20780}#
+ #{mod 20781}#)
+ (#{syntax-type 4521}#
+ #{e 20777}#
+ #{r 20778}#
+ #{w 20779}#
+ #{s 20780}#
+ #{rib 20711}#
+ #{mod 20781}#
+ #{for-car? 20713}#)))
+ (if (eqv? #{ftype 20751}# 'core)
(values
'core-form
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'local-syntax)
+ #{fval 20752}#
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'local-syntax)
(values
'local-syntax-form
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'begin)
+ #{fval 20752}#
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'begin)
(values
'begin-form
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'eval-when)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'eval-when)
(values
'eval-when-form
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'define)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}#
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
+ (if (eqv? #{ftype 20751}# 'define)
+ (let ((#{tmp 20798}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{e 20707}#
'(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}#
+ (if (if #{tmp 20798}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrLn}#
- #{val -ANAU$bmvAmthP7L7xwrLo}#)
- (if (symbol?
- #{name -ANAU$bmvAmthP7L7xwrLn}#)
+ (lambda (#{name 20802}#
+ #{val 20803}#)
+ (if (symbol? #{name 20802}#)
#t
(if (if (vector?
- #{name -ANAU$bmvAmthP7L7xwrLn}#)
+ #{name 20802}#)
(if (= (vector-length
- #{name -ANAU$bmvAmthP7L7xwrLn}#)
+ #{name 20802}#)
4)
(eq? (vector-ref
- #{name -ANAU$bmvAmthP7L7xwrLn}#
+ #{name 20802}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name -ANAU$bmvAmthP7L7xwrLn}#
+ #{name 20802}#
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
+ #{tmp 20798}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrMD}#
- #{val -ANAU$bmvAmthP7L7xwrME}#)
+ (lambda (#{name 20830}#
+ #{val 20831}#)
(values
'define-form
- #{name -ANAU$bmvAmthP7L7xwrMD}#
- #{val -ANAU$bmvAmthP7L7xwrME}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}#
+ #{name 20830}#
+ #{val 20831}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#))
+ #{tmp 20798}#)
+ (let ((#{tmp 20832}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{e 20707}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrMF}#
+ (if (if #{tmp 20832}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrMJ}#
- #{args -ANAU$bmvAmthP7L7xwrMK}#
- #{e1 -ANAU$bmvAmthP7L7xwrML}#
- #{e2 -ANAU$bmvAmthP7L7xwrMM}#)
+ (lambda (#{name 20836}#
+ #{args 20837}#
+ #{e1 20838}#
+ #{e2 20839}#)
(if (if (symbol?
- #{name -ANAU$bmvAmthP7L7xwrMJ}#)
+ #{name 20836}#)
#t
(if (if (vector?
- #{name -ANAU$bmvAmthP7L7xwrMJ}#)
+ #{name 20836}#)
(if (= (vector-length
- #{name -ANAU$bmvAmthP7L7xwrMJ}#)
+ #{name 20836}#)
4)
(eq? (vector-ref
- #{name -ANAU$bmvAmthP7L7xwrMJ}#
+ #{name 20836}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name -ANAU$bmvAmthP7L7xwrMJ}#
+ #{name 20836}#
1))
#f))
- (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ (#{valid-bound-ids? 4512}#
(letrec*
- ((#{lvl -ANAU$bmvAmthP7L7xwrOh}#
- (lambda (#{vars -ANAU$bmvAmthP7L7xwrOj}#
- #{ls -ANAU$bmvAmthP7L7xwrOk}#
- #{w -ANAU$bmvAmthP7L7xwrOl}#)
- (if (pair? #{vars -ANAU$bmvAmthP7L7xwrOj}#)
- (#{lvl -ANAU$bmvAmthP7L7xwrOh}#
- (cdr #{vars -ANAU$bmvAmthP7L7xwrOj}#)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{vars -ANAU$bmvAmthP7L7xwrOj}#)
- #{w -ANAU$bmvAmthP7L7xwrOl}#
+ ((#{lvl 20988}#
+ (lambda (#{vars 20990}#
+ #{ls 20991}#
+ #{w 20992}#)
+ (if (pair? #{vars 20990}#)
+ (#{lvl 20988}#
+ (cdr #{vars 20990}#)
+ (cons (#{wrap 4515}#
+ (car #{vars 20990}#)
+ #{w 20992}#
#f)
- #{ls -ANAU$bmvAmthP7L7xwrOk}#)
- #{w -ANAU$bmvAmthP7L7xwrOl}#)
+ #{ls 20991}#)
+ #{w 20992}#)
(if (if (symbol?
- #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{vars 20990}#)
#t
(if (if (vector?
- #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{vars 20990}#)
(if (= (vector-length
- #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{vars 20990}#)
4)
(eq? (vector-ref
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{vars 20990}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{vars 20990}#
1))
#f))
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
- #{w -ANAU$bmvAmthP7L7xwrOl}#
+ (cons (#{wrap 4515}#
+ #{vars 20990}#
+ #{w 20992}#
#f)
- #{ls -ANAU$bmvAmthP7L7xwrOk}#)
- (if (null? #{vars -ANAU$bmvAmthP7L7xwrOj}#)
- #{ls -ANAU$bmvAmthP7L7xwrOk}#
+ #{ls 20991}#)
+ (if (null? #{vars 20990}#)
+ #{ls 20991}#
(if (if (vector?
- #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{vars 20990}#)
(if (= (vector-length
- #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{vars 20990}#)
4)
(eq? (vector-ref
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{vars 20990}#
0)
'syntax-object)
#f)
#f)
- (#{lvl -ANAU$bmvAmthP7L7xwrOh}#
+ (#{lvl 20988}#
(vector-ref
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{vars 20990}#
1)
- #{ls -ANAU$bmvAmthP7L7xwrOk}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwrOl}#
+ #{ls 20991}#
+ (#{join-wraps 4502}#
+ #{w 20992}#
(vector-ref
- #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{vars 20990}#
2)))
- (cons #{vars -ANAU$bmvAmthP7L7xwrOj}#
- #{ls -ANAU$bmvAmthP7L7xwrOk}#))))))))
- (#{lvl -ANAU$bmvAmthP7L7xwrOh}#
- #{args -ANAU$bmvAmthP7L7xwrMK}#
+ (cons #{vars 20990}#
+ #{ls 20991}#))))))))
+ (#{lvl 20988}#
+ #{args 20837}#
'()
'(()))))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
+ #{tmp 20832}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrPR}#
- #{args -ANAU$bmvAmthP7L7xwrPS}#
- #{e1 -ANAU$bmvAmthP7L7xwrPT}#
- #{e2 -ANAU$bmvAmthP7L7xwrPU}#)
+ (lambda (#{name 21036}#
+ #{args 21037}#
+ #{e1 21038}#
+ #{e2 21039}#)
(values
'define-form
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{name -ANAU$bmvAmthP7L7xwrPR}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwrPa}#
+ (#{wrap 4515}#
+ #{name 21036}#
+ #{w 20709}#
+ #{mod 20712}#)
+ (let ((#{e 21045}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("l7"
- "l8"
- "l9"
- "la"))
+ #("l-*-1954"
+ "l-*-1955"
+ "l-*-1956"
+ "l-*-1957"))
#(ribcage
()
()
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage
()
()
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (cons #{args -ANAU$bmvAmthP7L7xwrPS}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwrPT}#
- #{e2 -ANAU$bmvAmthP7L7xwrPU}#))
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))))
+ (#{wrap 4515}#
+ (cons #{args 21037}#
+ (cons #{e1 21038}#
+ #{e2 21039}#))
+ #{w 20709}#
+ #{mod 20712}#))))
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrPa}#)
- #{s -ANAU$bmvAmthP7L7xwrKL}#
+ (if (if (pair? #{e 21045}#)
+ #{s 20710}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrPa}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#))
- #{e -ANAU$bmvAmthP7L7xwrPa}#))
+ #{e 21045}#
+ #{s 20710}#))
+ #{e 21045}#))
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrPh}#
+ #{s 20710}#
+ #{mod 20712}#))
+ #{tmp 20832}#)
+ (let ((#{tmp 21052}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{e 20707}#
'(_ any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrPh}#
+ (if (if #{tmp 21052}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrPl}#)
+ (lambda (#{name 21056}#)
(if (symbol?
- #{name -ANAU$bmvAmthP7L7xwrPl}#)
+ #{name 21056}#)
#t
(if (if (vector?
- #{name -ANAU$bmvAmthP7L7xwrPl}#)
+ #{name 21056}#)
(if (= (vector-length
- #{name -ANAU$bmvAmthP7L7xwrPl}#)
+ #{name 21056}#)
4)
(eq? (vector-ref
- #{name -ANAU$bmvAmthP7L7xwrPl}#
+ #{name 21056}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name -ANAU$bmvAmthP7L7xwrPl}#
+ #{name 21056}#
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwrPh}#)
+ #{tmp 21052}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrQA}#)
+ (lambda (#{name 21083}#)
(values
'define-form
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{name -ANAU$bmvAmthP7L7xwrQA}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (#{wrap 4515}#
+ #{name 21083}#
+ #{w 20709}#
+ #{mod 20712}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrPh}#)
+ #{s 20710}#
+ #{mod 20712}#))
+ #{tmp 21052}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))))))
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'define-syntax)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}#
+ #{e 20707}#)))))))
+ (if (eqv? #{ftype 20751}# 'define-syntax)
+ (let ((#{tmp 21102}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{e 20707}#
'(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}#
+ (if (if #{tmp 21102}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrQX}#
- #{val -ANAU$bmvAmthP7L7xwrQY}#)
- (if (symbol?
- #{name -ANAU$bmvAmthP7L7xwrQX}#)
+ (lambda (#{name 21106}#
+ #{val 21107}#)
+ (if (symbol? #{name 21106}#)
#t
(if (if (vector?
- #{name -ANAU$bmvAmthP7L7xwrQX}#)
+ #{name 21106}#)
(if (= (vector-length
- #{name -ANAU$bmvAmthP7L7xwrQX}#)
+ #{name 21106}#)
4)
(eq? (vector-ref
- #{name -ANAU$bmvAmthP7L7xwrQX}#
+ #{name 21106}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name -ANAU$bmvAmthP7L7xwrQX}#
+ #{name 21106}#
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwrQT}#)
+ #{tmp 21102}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrQz}#
- #{val -ANAU$bmvAmthP7L7xwrQ0}#)
+ (lambda (#{name 21134}#
+ #{val 21135}#)
(values
'define-syntax-form
- #{name -ANAU$bmvAmthP7L7xwrQz}#
- #{val -ANAU$bmvAmthP7L7xwrQ0}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrQT}#)
+ #{name 21134}#
+ #{val 21135}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#))
+ #{tmp 21102}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
+ #{e 20707}#)))
+ (if (eqv? #{ftype 20751}#
'define-syntax-parameter)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrQ@}#
+ (let ((#{tmp 21146}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{e 20707}#
'(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrQ@}#
+ (if (if #{tmp 21146}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrRD}#
- #{val -ANAU$bmvAmthP7L7xwrRE}#)
+ (lambda (#{name 21150}#
+ #{val 21151}#)
(if (symbol?
- #{name -ANAU$bmvAmthP7L7xwrRD}#)
+ #{name 21150}#)
#t
(if (if (vector?
- #{name -ANAU$bmvAmthP7L7xwrRD}#)
+ #{name 21150}#)
(if (= (vector-length
- #{name -ANAU$bmvAmthP7L7xwrRD}#)
+ #{name 21150}#)
4)
(eq? (vector-ref
- #{name -ANAU$bmvAmthP7L7xwrRD}#
+ #{name 21150}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name -ANAU$bmvAmthP7L7xwrRD}#
+ #{name 21150}#
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwrQ@}#)
+ #{tmp 21146}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xwrRf}#
- #{val -ANAU$bmvAmthP7L7xwrRg}#)
+ (lambda (#{name 21178}#
+ #{val 21179}#)
(values
'define-syntax-parameter-form
- #{name -ANAU$bmvAmthP7L7xwrRf}#
- #{val -ANAU$bmvAmthP7L7xwrRg}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrQ@}#)
+ #{name 21178}#
+ #{val 21179}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#))
+ #{tmp 21146}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ #{e 20707}#)))
(values
'call
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))))))))))
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwrKI}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0)
- 'syntax-object)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)))))))))))))))
+ (if (if (vector? #{e 20707}#)
+ (if (= (vector-length #{e 20707}#) 4)
+ (eq? (vector-ref #{e 20707}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 1)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 2))
- (let ((#{t -ANAU$bmvAmthP7L7xwrR7}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrR7}#
- #{t -ANAU$bmvAmthP7L7xwrR7}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#))
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- (let ((#{t -ANAU$bmvAmthP7L7xwrVm}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 3)))
- (if #{t -ANAU$bmvAmthP7L7xwrVm}#
- #{t -ANAU$bmvAmthP7L7xwrVm}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (self-evaluating? #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ (#{syntax-type 4521}#
+ (vector-ref #{e 20707}# 1)
+ #{r 20708}#
+ (#{join-wraps 4502}#
+ #{w 20709}#
+ (vector-ref #{e 20707}# 2))
+ (let ((#{t 21206}#
+ (#{source-annotation 4479}# #{e 20707}#)))
+ (if #{t 21206}# #{t 21206}# #{s 20710}#))
+ #{rib 20711}#
+ (let ((#{t 21441}# (vector-ref #{e 20707}# 3)))
+ (if #{t 21441}# #{t 21441}# #{mod 20712}#))
+ #{for-car? 20713}#)
+ (if (self-evaluating? #{e 20707}#)
(values
'constant
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)
(values
'other
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrVv}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrVx}#
- #{mod -ANAU$bmvAmthP7L7xwrVy}#)
+ #{e 20707}#
+ #{w 20709}#
+ #{s 20710}#
+ #{mod 20712}#)))))))
+ (#{expand 4522}#
+ (lambda (#{e 21450}#
+ #{r 21451}#
+ #{w 21452}#
+ #{mod 21453}#)
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwrVv}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrVx}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwrVv}#)
+ (#{syntax-type 4521}#
+ #{e 21450}#
+ #{r 21451}#
+ #{w 21452}#
+ (#{source-annotation 4479}# #{e 21450}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwrVy}#
+ #{mod 21453}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwrYN}#
- #{value -ANAU$bmvAmthP7L7xwrYO}#
- #{e -ANAU$bmvAmthP7L7xwrYP}#
- #{w -ANAU$bmvAmthP7L7xwrYQ}#
- #{s -ANAU$bmvAmthP7L7xwrYR}#
- #{mod -ANAU$bmvAmthP7L7xwrYS}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwrYN}#
- #{value -ANAU$bmvAmthP7L7xwrYO}#
- #{e -ANAU$bmvAmthP7L7xwrYP}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrYQ}#
- #{s -ANAU$bmvAmthP7L7xwrYR}#
- #{mod -ANAU$bmvAmthP7L7xwrYS}#)))))
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwrYV}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical)
+ (lambda (#{type 21608}#
+ #{value 21609}#
+ #{e 21610}#
+ #{w 21611}#
+ #{s 21612}#
+ #{mod 21613}#)
+ (#{expand-expr 4523}#
+ #{type 21608}#
+ #{value 21609}#
+ #{e 21610}#
+ #{r 21451}#
+ #{w 21611}#
+ #{s 21612}#
+ #{mod 21613}#)))))
+ (#{expand-expr 4523}#
+ (lambda (#{type 21616}#
+ #{value 21617}#
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
+ (if (eqv? #{type 21616}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core)
+ #{s 21621}#
+ #{e 21618}#
+ #{value 21617}#)
+ (if (if (eqv? #{type 21616}# 'core)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core-form))
- (#{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'module-ref)
+ (eqv? #{type 21616}# 'core-form))
+ (#{value 21617}#
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
+ (if (eqv? #{type 21616}# 'module-ref)
(call-with-values
(lambda ()
- (#{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwrY1}#
- #{r -ANAU$bmvAmthP7L7xwrY2}#
- #{w -ANAU$bmvAmthP7L7xwrY3}#
- #{s -ANAU$bmvAmthP7L7xwrY4}#
- #{mod -ANAU$bmvAmthP7L7xwrY5}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwrY1}#
- #{r -ANAU$bmvAmthP7L7xwrY2}#
- #{w -ANAU$bmvAmthP7L7xwrY3}#
- #{mod -ANAU$bmvAmthP7L7xwrY5}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'lexical-call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (let ((#{id -ANAU$bmvAmthP7L7xwraE}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#)))
- (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
+ (#{value 21617}#
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#))
+ (lambda (#{e 21648}#
+ #{r 21649}#
+ #{w 21650}#
+ #{s 21651}#
+ #{mod 21652}#)
+ (#{expand 4522}#
+ #{e 21648}#
+ #{r 21649}#
+ #{w 21650}#
+ #{mod 21652}#)))
+ (if (eqv? #{type 21616}# 'lexical-call)
+ (#{expand-application 4524}#
+ (let ((#{id 21727}# (car #{e 21618}#)))
+ (#{build-lexical-reference 4456}#
'fun
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwraE}#
- 0)
- 'syntax-object)
+ (#{source-annotation 4479}# #{id 21727}#)
+ (if (if (vector? #{id 21727}#)
+ (if (= (vector-length #{id 21727}#) 4)
+ (eq? (vector-ref #{id 21727}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwraE}#)
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- #{value -ANAU$bmvAmthP7L7xwrYW}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'global-call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#))
- (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (= (vector-length
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- 4)
- (eq? (vector-ref
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- 0)
+ (syntax->datum #{id 21727}#)
+ #{id 21727}#)
+ #{value 21617}#))
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
+ (if (eqv? #{type 21616}# 'global-call)
+ (#{expand-application 4524}#
+ (#{build-global-reference 4459}#
+ (#{source-annotation 4479}# (car #{e 21618}#))
+ (if (if (vector? #{value 21617}#)
+ (if (= (vector-length #{value 21617}#) 4)
+ (eq? (vector-ref #{value 21617}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1)
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (= (vector-length
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- 4)
- (eq? (vector-ref
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- 0)
+ (vector-ref #{value 21617}# 1)
+ #{value 21617}#)
+ (if (if (vector? #{value 21617}#)
+ (if (= (vector-length #{value 21617}#) 4)
+ (eq? (vector-ref #{value 21617}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 3)
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'constant)
- (let ((#{exp -ANAU$bmvAmthP7L7xwrfV}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (vector-ref #{value 21617}# 3)
+ #{mod 21622}#))
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
+ (if (eqv? #{type 21616}# 'constant)
+ (let ((#{exp 22064}#
+ (#{strip 4535}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #f)
+ (if (if (pair? #{e 21618}#) #{s 21621}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ #{e 21618}#
+ #{s 21621}#))
+ #{e 21618}#)
+ #{w 21620}#
+ #{mod 21622}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{exp -ANAU$bmvAmthP7L7xwrfV}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global)
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwrf5}#
- #{var -ANAU$bmvAmthP7L7xwrf6}#
- #{public? -ANAU$bmvAmthP7L7xwrf7}#)
+ #{s 21621}#
+ #{exp 22064}#))
+ (if (eqv? #{type 21616}# 'global)
+ (#{analyze-variable 4458}#
+ #{mod 21622}#
+ #{value 21617}#
+ (lambda (#{mod 22100}#
+ #{var 22101}#
+ #{public? 22102}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrf5}#
- #{var -ANAU$bmvAmthP7L7xwrf6}#
- #{public? -ANAU$bmvAmthP7L7xwrf7}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#)
+ #{s 21621}#
+ #{mod 22100}#
+ #{var 22101}#
+ #{public? 22102}#))
+ (lambda (#{var 22111}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{var -ANAU$bmvAmthP7L7xwrgE}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}#
+ #{s 21621}#
+ #{var 22111}#)))
+ (if (eqv? #{type 21616}# 'call)
+ (#{expand-application 4524}#
+ (#{expand 4522}#
+ (car #{e 21618}#)
+ #{r 21619}#
+ #{w 21620}#
+ #{mod 21622}#)
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
+ (if (eqv? #{type 21616}# 'begin-form)
+ (let ((#{tmp 22186}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{e 21618}#
'(_ any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrhP}#
+ (if #{tmp 22186}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}#
- #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
- (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwrhT}#
- #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- #{tmp -ANAU$bmvAmthP7L7xwrhP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrir}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- '(_))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrir}#
+ (lambda (#{e1 22190}# #{e2 22191}#)
+ (#{expand-sequence 4517}#
+ (cons #{e1 22190}# #{e2 22191}#)
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#))
+ #{tmp 22186}#)
+ (let ((#{tmp 22278}#
+ ($sc-dispatch #{e 21618}# '(_))))
+ (if #{tmp 22278}#
(@apply
(lambda ()
(if (include-deprecated-features)
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
+ (if (if (pair? #{e 21618}#)
+ #{s 21621}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))))
- #{tmp -ANAU$bmvAmthP7L7xwrir}#)
+ #{e 21618}#
+ #{s 21621}#))
+ #{e 21618}#)
+ #{w 21620}#
+ #{mod 21622}#))))
+ #{tmp 22278}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrYX}#)))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'local-syntax-form)
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#
- #{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'eval-when-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}#
+ #{e 21618}#)))))
+ (if (eqv? #{type 21616}# 'local-syntax-form)
+ (#{expand-local-syntax 4527}#
+ #{value 21617}#
+ #{e 21618}#
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#
+ #{expand-sequence 4517}#)
+ (if (eqv? #{type 21616}# 'eval-when-form)
+ (let ((#{tmp 22389}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{e 21618}#
'(_ each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrka}#
+ (if #{tmp 22389}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwrke}#
- #{e1 -ANAU$bmvAmthP7L7xwrkf}#
- #{e2 -ANAU$bmvAmthP7L7xwrkg}#)
- (let ((#{when-list -ANAU$bmvAmthP7L7xwrkh}#
- (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{x -ANAU$bmvAmthP7L7xwrke}#)))
- (if (memq 'eval
- #{when-list -ANAU$bmvAmthP7L7xwrkh}#)
- (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwrkf}#
- #{e2 -ANAU$bmvAmthP7L7xwrkg}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (lambda (#{x 22393}#
+ #{e1 22394}#
+ #{e2 22395}#)
+ (let ((#{when-list 22396}#
+ (#{parse-when-list 4520}#
+ #{e 21618}#
+ #{x 22393}#)))
+ (if (memq 'eval #{when-list 22396}#)
+ (#{expand-sequence 4517}#
+ (cons #{e1 22394}# #{e2 22395}#)
+ #{r 21619}#
+ #{w 21620}#
+ #{s 21621}#
+ #{mod 21622}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp -ANAU$bmvAmthP7L7xwrka}#)
+ #{tmp 22389}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrYX}#)))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'define-form)
+ #{e 21618}#)))
+ (if (if (eqv? #{type 21616}# 'define-form)
#t
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ (if (eqv? #{type 21616}#
'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ (eqv? #{type 21616}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'syntax)
+ #{e 21618}#
+ (#{wrap 4515}#
+ #{value 21617}#
+ #{w 21620}#
+ #{mod 21622}#))
+ (if (eqv? #{type 21616}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
+ (if (if (pair? #{e 21618}#)
+ #{s 21621}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'displaced-lexical)
+ #{e 21618}#
+ #{s 21621}#))
+ #{e 21618}#)
+ #{w 21620}#
+ #{mod 21622}#))
+ (if (eqv? #{type 21616}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
+ (if (if (pair? #{e 21618}#)
+ #{s 21621}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ #{e 21618}#
+ #{s 21621}#))
+ #{e 21618}#)
+ #{w 21620}#
+ #{mod 21622}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
+ (if (if (pair? #{e 21618}#)
+ #{s 21621}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))))))))))))))))))
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwroR}#
- #{e -ANAU$bmvAmthP7L7xwroS}#
- #{r -ANAU$bmvAmthP7L7xwroT}#
- #{w -ANAU$bmvAmthP7L7xwroU}#
- #{s -ANAU$bmvAmthP7L7xwroV}#
- #{mod -ANAU$bmvAmthP7L7xwroW}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwroY}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwroS}#
- '(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwroY}#
+ #{e 21618}#
+ #{s 21621}#))
+ #{e 21618}#)
+ #{w 21620}#
+ #{mod 21622}#))))))))))))))))))
+ (#{expand-application 4524}#
+ (lambda (#{x 22636}#
+ #{e 22637}#
+ #{r 22638}#
+ #{w 22639}#
+ #{s 22640}#
+ #{mod 22641}#)
+ (let ((#{tmp 22643}#
+ ($sc-dispatch #{e 22637}# '(any . each-any))))
+ (if #{tmp 22643}#
(@apply
- (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}#
- #{e1 -ANAU$bmvAmthP7L7xwrod}#)
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
- #{s -ANAU$bmvAmthP7L7xwroV}#
- #{x -ANAU$bmvAmthP7L7xwroR}#
- (map (lambda (#{e -ANAU$bmvAmthP7L7xwrpt}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwrpt}#
- #{r -ANAU$bmvAmthP7L7xwroT}#
- #{w -ANAU$bmvAmthP7L7xwroU}#
- #{mod -ANAU$bmvAmthP7L7xwroW}#))
- #{e1 -ANAU$bmvAmthP7L7xwrod}#)))
- #{tmp -ANAU$bmvAmthP7L7xwroY}#)
+ (lambda (#{e0 22647}# #{e1 22648}#)
+ (#{build-application 4453}#
+ #{s 22640}#
+ #{x 22636}#
+ (map (lambda (#{e 22728}#)
+ (#{expand 4522}#
+ #{e 22728}#
+ #{r 22638}#
+ #{w 22639}#
+ #{mod 22641}#))
+ #{e1 22648}#)))
+ #{tmp 22643}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwroS}#)))))
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwrq5}#
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{r -ANAU$bmvAmthP7L7xwrq7}#
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #{rib -ANAU$bmvAmthP7L7xwrq$}#
- #{mod -ANAU$bmvAmthP7L7xwrq@}#)
+ #{e 22637}#)))))
+ (#{expand-macro 4525}#
+ (lambda (#{p 22804}#
+ #{e 22805}#
+ #{r 22806}#
+ #{w 22807}#
+ #{s 22808}#
+ #{rib 22809}#
+ #{mod 22810}#)
(letrec*
- ((#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwrrh}#
- #{m -ANAU$bmvAmthP7L7xwrri}#)
- (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwrrm}#
- (cons (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (car #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#)
- (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (cdr #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#))))
+ ((#{rebuild-macro-output 22811}#
+ (lambda (#{x 22844}# #{m 22845}#)
+ (if (pair? #{x 22844}#)
+ (let ((#{e 22849}#
+ (cons (#{rebuild-macro-output 22811}#
+ (car #{x 22844}#)
+ #{m 22845}#)
+ (#{rebuild-macro-output 22811}#
+ (cdr #{x 22844}#)
+ #{m 22845}#))))
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrrm}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{e -ANAU$bmvAmthP7L7xwrrm}#))
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0)
- 'syntax-object)
+ (if (if (pair? #{e 22849}#) #{s 22808}# #f)
+ (set-source-properties! #{e 22849}# #{s 22808}#))
+ #{e 22849}#))
+ (if (if (vector? #{x 22844}#)
+ (if (= (vector-length #{x 22844}#) 4)
+ (eq? (vector-ref #{x 22844}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w -ANAU$bmvAmthP7L7xwrr2}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 2)))
- (let ((#{ms -ANAU$bmvAmthP7L7xwrr3}#
- (car #{w -ANAU$bmvAmthP7L7xwrr2}#))
- (#{s -ANAU$bmvAmthP7L7xwrr4}#
- (cdr #{w -ANAU$bmvAmthP7L7xwrr2}#)))
- (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (eq? (car #{ms -ANAU$bmvAmthP7L7xwrr3}#) #f)
+ (let ((#{w 22865}# (vector-ref #{x 22844}# 2)))
+ (let ((#{ms 22866}# (car #{w 22865}#))
+ (#{s 22867}# (cdr #{w 22865}#)))
+ (if (if (pair? #{ms 22866}#)
+ (eq? (car #{ms 22866}#) #f)
#f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwrsA}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 1))
- (#{wrap -ANAU$bmvAmthP7L7xwrsB}#
- (cons (cdr #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#))
- (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#))))
- (#{module -ANAU$bmvAmthP7L7xwrsC}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
+ (let ((#{expression 22875}#
+ (vector-ref #{x 22844}# 1))
+ (#{wrap 22876}#
+ (cons (cdr #{ms 22866}#)
+ (if #{rib 22809}#
+ (cons #{rib 22809}#
+ (cdr #{s 22867}#))
+ (cdr #{s 22867}#))))
+ (#{module 22877}# (vector-ref #{x 22844}# 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwrsA}#
- #{wrap -ANAU$bmvAmthP7L7xwrsB}#
- #{module -ANAU$bmvAmthP7L7xwrsC}#))
- (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}#
- (let ((#{e -ANAU$bmvAmthP7L7xwrsR}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- 1)))
+ #{expression 22875}#
+ #{wrap 22876}#
+ #{module 22877}#))
+ (let ((#{expression 22887}#
+ (let ((#{e 22892}#
+ (vector-ref #{x 22844}# 1)))
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsR}#)
- #{s -ANAU$bmvAmthP7L7xwrr4}#
+ (if (if (pair? #{e 22892}#)
+ #{s 22867}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrsR}#
- #{s -ANAU$bmvAmthP7L7xwrr4}#))
- #{e -ANAU$bmvAmthP7L7xwrsR}#)))
- (#{wrap -ANAU$bmvAmthP7L7xwrsN}#
- (cons (cons #{m -ANAU$bmvAmthP7L7xwrri}#
- #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons 'shift
- #{s -ANAU$bmvAmthP7L7xwrr4}#))
- (cons 'shift
- #{s -ANAU$bmvAmthP7L7xwrr4}#))))
- (#{module -ANAU$bmvAmthP7L7xwrsO}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
+ #{e 22892}#
+ #{s 22867}#))
+ #{e 22892}#)))
+ (#{wrap 22888}#
+ (cons (cons #{m 22845}# #{ms 22866}#)
+ (if #{rib 22809}#
+ (cons #{rib 22809}#
+ (cons 'shift #{s 22867}#))
+ (cons 'shift #{s 22867}#))))
+ (#{module 22889}# (vector-ref #{x 22844}# 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwrsM}#
- #{wrap -ANAU$bmvAmthP7L7xwrsN}#
- #{module -ANAU$bmvAmthP7L7xwrsO}#)))))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwrsd}#
- (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)))
- (let ((#{v -ANAU$bmvAmthP7L7xwrse}#
- (let ((#{e -ANAU$bmvAmthP7L7xwrsm}#
- (make-vector
- #{n -ANAU$bmvAmthP7L7xwrsd}#)))
+ #{expression 22887}#
+ #{wrap 22888}#
+ #{module 22889}#)))))
+ (if (vector? #{x 22844}#)
+ (let ((#{n 22904}# (vector-length #{x 22844}#)))
+ (let ((#{v 22905}#
+ (let ((#{e 22913}# (make-vector #{n 22904}#)))
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsm}#)
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #f)
+ (if (if (pair? #{e 22913}#) #{x 22844}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrsm}#
- #{x -ANAU$bmvAmthP7L7xwrrh}#))
- #{e -ANAU$bmvAmthP7L7xwrsm}#))))
+ #{e 22913}#
+ #{x 22844}#))
+ #{e 22913}#))))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwrsf}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwrtT}#
- #{n -ANAU$bmvAmthP7L7xwrsd}#)
- #{v -ANAU$bmvAmthP7L7xwrse}#
+ ((#{loop 22906}#
+ (lambda (#{i 22958}#)
+ (if (= #{i 22958}# #{n 22904}#)
+ #{v 22905}#
(begin
(vector-set!
- #{v -ANAU$bmvAmthP7L7xwrse}#
- #{i -ANAU$bmvAmthP7L7xwrtT}#
- (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #{i -ANAU$bmvAmthP7L7xwrtT}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#))
- (#{loop -ANAU$bmvAmthP7L7xwrsf}#
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwrtT}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwrsf}# 0))))
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{v 22905}#
+ #{i 22958}#
+ (#{rebuild-macro-output 22811}#
+ (vector-ref #{x 22844}# #{i 22958}#)
+ #{m 22845}#))
+ (#{loop 22906}# (#{1+}# #{i 22958}#)))))))
+ (#{loop 22906}# 0))))
+ (if (symbol? #{x 22844}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}#
- (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (let ((#{s 22964}# (cdr #{w 22807}#)))
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{s -ANAU$bmvAmthP7L7xwrtZ}#
- #f)
+ (if (if (pair? #{e 22805}#) #{s 22964}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{s -ANAU$bmvAmthP7L7xwrtZ}#))
- #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{mod -ANAU$bmvAmthP7L7xwrq@}#))
- #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{e 22805}#
+ #{s 22964}#))
+ #{e 22805}#)
+ #{w 22807}#
+ #{mod 22810}#))
+ #{x 22844}#)
(begin
- (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{x -ANAU$bmvAmthP7L7xwrrh}#))))))))
+ (if (if (pair? #{x 22844}#) #{s 22808}# #f)
+ (set-source-properties! #{x 22844}# #{s 22808}#))
+ #{x 22844}#))))))))
(with-fluids
- ((#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
- (lambda (#{k -ANAU$bmvAmthP7L7xwrrB}#)
- (#{k -ANAU$bmvAmthP7L7xwrrB}#
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{r -ANAU$bmvAmthP7L7xwrq7}#
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #{rib -ANAU$bmvAmthP7L7xwrq$}#
- #{mod -ANAU$bmvAmthP7L7xwrq@}#))))
- (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (#{p -ANAU$bmvAmthP7L7xwrq5}#
- (let ((#{w -ANAU$bmvAmthP7L7xwrrI}#
- (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#))
- (cons 'shift
- (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ ((#{transformer-environment 4508}#
+ (lambda (#{k 22812}#)
+ (#{k 22812}#
+ #{e 22805}#
+ #{r 22806}#
+ #{w 22807}#
+ #{s 22808}#
+ #{rib 22809}#
+ #{mod 22810}#))))
+ (#{rebuild-macro-output 22811}#
+ (#{p 22804}#
+ (let ((#{w 22819}#
+ (cons (cons #f (car #{w 22807}#))
+ (cons 'shift (cdr #{w 22807}#)))))
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{w -ANAU$bmvAmthP7L7xwrrI}#
- #{mod -ANAU$bmvAmthP7L7xwrq@}#)))
- (gensym "m"))))))
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwrt5}#
- #{outer-form -ANAU$bmvAmthP7L7xwrt6}#
- #{r -ANAU$bmvAmthP7L7xwrt7}#
- #{w -ANAU$bmvAmthP7L7xwrt8}#
- #{mod -ANAU$bmvAmthP7L7xwrt9}#)
- (let ((#{r -ANAU$bmvAmthP7L7xwrt$}#
- (cons '("placeholder" placeholder)
- #{r -ANAU$bmvAmthP7L7xwrt7}#)))
- (let ((#{ribcage -ANAU$bmvAmthP7L7xwrt@}#
- (vector 'ribcage '() '() '())))
- (let ((#{w -ANAU$bmvAmthP7L7xwruA}#
- (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#)
- (cons #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
- (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#)))))
+ (if (if (pair? #{e 22805}#) #{s 22808}# #f)
+ (set-source-properties! #{e 22805}# #{s 22808}#))
+ #{e 22805}#)
+ #{w 22819}#
+ #{mod 22810}#)))
+ (gensym
+ (string-append "m-" (#{session-id 4447}#) "-")))))))
+ (#{expand-body 4526}#
+ (lambda (#{body 22996}#
+ #{outer-form 22997}#
+ #{r 22998}#
+ #{w 22999}#
+ #{mod 23000}#)
+ (let ((#{r 23001}#
+ (cons '("placeholder" placeholder) #{r 22998}#)))
+ (let ((#{ribcage 23002}# (vector 'ribcage '() '() '())))
+ (let ((#{w 23003}#
+ (cons (car #{w 22999}#)
+ (cons #{ribcage 23002}# (cdr #{w 22999}#)))))
(letrec*
- ((#{parse -ANAU$bmvAmthP7L7xwruB}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwruO}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xwruO}#)
+ ((#{parse 23004}#
+ (lambda (#{body 23017}#
+ #{ids 23018}#
+ #{labels 23019}#
+ #{var-ids 23020}#
+ #{vars 23021}#
+ #{vals 23022}#
+ #{bindings 23023}#)
+ (if (null? #{body 23017}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwruV}#
- (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#)))
- (#{er -ANAU$bmvAmthP7L7xwruW}#
- (car (car #{body -ANAU$bmvAmthP7L7xwruO}#))))
+ #{outer-form 22997}#)
+ (let ((#{e 23024}# (cdr (car #{body 23017}#)))
+ (#{er 23025}# (car (car #{body 23017}#))))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwruV}#
- #{er -ANAU$bmvAmthP7L7xwruW}#
+ (#{syntax-type 4521}#
+ #{e 23024}#
+ #{er 23025}#
'(())
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{er -ANAU$bmvAmthP7L7xwruW}#)
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
- #{mod -ANAU$bmvAmthP7L7xwrt9}#
+ (#{source-annotation 4479}# #{er 23025}#)
+ #{ribcage 23002}#
+ #{mod 23000}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwrwz}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'define-form)
- (let ((#{id -ANAU$bmvAmthP7L7xwrw8}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{label -ANAU$bmvAmthP7L7xwrw9}#
- (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)))
- (let ((#{var -ANAU$bmvAmthP7L7xwrw$}#
- (let ((#{id -ANAU$bmvAmthP7L7xwrx4}#
+ (lambda (#{type 23182}#
+ #{value 23183}#
+ #{e 23184}#
+ #{w 23185}#
+ #{s 23186}#
+ #{mod 23187}#)
+ (if (eqv? #{type 23182}# 'define-form)
+ (let ((#{id 23191}#
+ (#{wrap 4515}#
+ #{value 23183}#
+ #{w 23185}#
+ #{mod 23187}#))
+ (#{label 23192}#
+ (string-append
+ "l-"
+ (#{session-id 4447}#)
+ (symbol->string (gensym "-")))))
+ (let ((#{var 23193}#
+ (let ((#{id 23253}#
(if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwrw8}#)
+ #{id 23191}#)
(if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwrw8}#)
+ #{id 23191}#)
4)
(eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwrw8}#
+ #{id 23191}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwrw8}#
- 1)
- #{id -ANAU$bmvAmthP7L7xwrw8}#)))
+ (vector-ref #{id 23191}# 1)
+ #{id 23191}#)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwrx4}#)
- " ")))))
+ (symbol->string #{id 23253}#)
+ "-")))))
(begin
- (let ((#{update -ANAU$bmvAmthP7L7xwrxu}#
- (cons (vector-ref
- #{id -ANAU$bmvAmthP7L7xwrw8}#
- 1)
+ (let ((#{update 23243}#
+ (cons (vector-ref #{id 23191}# 1)
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
1))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
1
- #{update -ANAU$bmvAmthP7L7xwrxu}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrxw}#
+ #{update 23243}#))
+ (let ((#{update 23245}#
(cons (car (vector-ref
- #{id -ANAU$bmvAmthP7L7xwrw8}#
+ #{id 23191}#
2))
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
2))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
2
- #{update -ANAU$bmvAmthP7L7xwrxw}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrxy}#
- (cons #{label -ANAU$bmvAmthP7L7xwrw9}#
+ #{update 23245}#))
+ (let ((#{update 23247}#
+ (cons #{label 23192}#
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
3))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
3
- #{update -ANAU$bmvAmthP7L7xwrxy}#))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#)
- (cons #{label -ANAU$bmvAmthP7L7xwrw9}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#)
- (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#)
- (cons #{var -ANAU$bmvAmthP7L7xwrw$}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#)
- (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- #{vals -ANAU$bmvAmthP7L7xwruT}#)
- (cons (cons 'lexical
- #{var -ANAU$bmvAmthP7L7xwrw$}#)
- #{bindings -ANAU$bmvAmthP7L7xwruU}#)))))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ #{update 23247}#))
+ (#{parse 23004}#
+ (cdr #{body 23017}#)
+ (cons #{id 23191}# #{ids 23018}#)
+ (cons #{label 23192}# #{labels 23019}#)
+ (cons #{id 23191}# #{var-ids 23020}#)
+ (cons #{var 23193}# #{vars 23021}#)
+ (cons (cons #{er 23025}#
+ (#{wrap 4515}#
+ #{e 23184}#
+ #{w 23185}#
+ #{mod 23187}#))
+ #{vals 23022}#)
+ (cons (cons 'lexical #{var 23193}#)
+ #{bindings 23023}#)))))
+ (if (if (eqv? #{type 23182}#
'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ (eqv? #{type 23182}#
'define-syntax-parameter-form))
- (let ((#{id -ANAU$bmvAmthP7L7xwryZ}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{label -ANAU$bmvAmthP7L7xwrya}#
- (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)))
+ (let ((#{id 23286}#
+ (#{wrap 4515}#
+ #{value 23183}#
+ #{w 23185}#
+ #{mod 23187}#))
+ (#{label 23287}#
+ (string-append
+ "l-"
+ (#{session-id 4447}#)
+ (symbol->string (gensym "-")))))
(begin
- (let ((#{update -ANAU$bmvAmthP7L7xwrzK}#
- (cons (vector-ref
- #{id -ANAU$bmvAmthP7L7xwryZ}#
- 1)
+ (let ((#{update 23337}#
+ (cons (vector-ref #{id 23286}# 1)
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
1))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
1
- #{update -ANAU$bmvAmthP7L7xwrzK}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrzM}#
+ #{update 23337}#))
+ (let ((#{update 23339}#
(cons (car (vector-ref
- #{id -ANAU$bmvAmthP7L7xwryZ}#
+ #{id 23286}#
2))
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
2))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
2
- #{update -ANAU$bmvAmthP7L7xwrzM}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrzO}#
- (cons #{label -ANAU$bmvAmthP7L7xwrya}#
+ #{update 23339}#))
+ (let ((#{update 23341}#
+ (cons #{label 23287}#
(vector-ref
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
3))))
(vector-set!
- #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{ribcage 23002}#
3
- #{update -ANAU$bmvAmthP7L7xwrzO}#))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons #{id -ANAU$bmvAmthP7L7xwryZ}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#)
- (cons #{label -ANAU$bmvAmthP7L7xwrya}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#)
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
+ #{update 23341}#))
+ (#{parse 23004}#
+ (cdr #{body 23017}#)
+ (cons #{id 23286}# #{ids 23018}#)
+ (cons #{label 23287}# #{labels 23019}#)
+ #{var-ids 23020}#
+ #{vars 23021}#
+ #{vals 23022}#
(cons (cons 'macro
- (cons #{er -ANAU$bmvAmthP7L7xwruW}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#)))
- #{bindings -ANAU$bmvAmthP7L7xwruU}#))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}#
+ (cons #{er 23025}#
+ (#{wrap 4515}#
+ #{e 23184}#
+ #{w 23185}#
+ #{mod 23187}#)))
+ #{bindings 23023}#))))
+ (if (eqv? #{type 23182}# 'begin-form)
+ (let ((#{tmp 23349}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrw1}#
+ #{e 23184}#
'(_ . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrzW}#
+ (if #{tmp 23349}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwrza}#)
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (lambda (#{e1 23353}#)
+ (#{parse 23004}#
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwrzb}#
- (lambda (#{forms -ANAU$bmvAmthP7L7xwr0a}#)
- (if (null? #{forms -ANAU$bmvAmthP7L7xwr0a}#)
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{forms -ANAU$bmvAmthP7L7xwr0a}#)
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{f -ANAU$bmvAmthP7L7xwrzb}#
- (cdr #{forms -ANAU$bmvAmthP7L7xwr0a}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwrzb}#
- #{e1 -ANAU$bmvAmthP7L7xwrza}#))
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#))
- #{tmp -ANAU$bmvAmthP7L7xwrzW}#)
+ ((#{f 23354}#
+ (lambda (#{forms 23417}#)
+ (if (null? #{forms 23417}#)
+ (cdr #{body 23017}#)
+ (cons (cons #{er 23025}#
+ (#{wrap 4515}#
+ (car #{forms 23417}#)
+ #{w 23185}#
+ #{mod 23187}#))
+ (#{f 23354}#
+ (cdr #{forms 23417}#)))))))
+ (#{f 23354}# #{e1 23353}#))
+ #{ids 23018}#
+ #{labels 23019}#
+ #{var-ids 23020}#
+ #{vars 23021}#
+ #{vals 23022}#
+ #{bindings 23023}#))
+ #{tmp 23349}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrw1}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ #{e 23184}#)))
+ (if (eqv? #{type 23182}#
'local-syntax-form)
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{er -ANAU$bmvAmthP7L7xwruW}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#
- (lambda (#{forms -ANAU$bmvAmthP7L7xwr0o}#
- #{er -ANAU$bmvAmthP7L7xwr0p}#
- #{w -ANAU$bmvAmthP7L7xwr0q}#
- #{s -ANAU$bmvAmthP7L7xwr0r}#
- #{mod -ANAU$bmvAmthP7L7xwr0s}#)
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (#{expand-local-syntax 4527}#
+ #{value 23183}#
+ #{e 23184}#
+ #{er 23025}#
+ #{w 23185}#
+ #{s 23186}#
+ #{mod 23187}#
+ (lambda (#{forms 23431}#
+ #{er 23432}#
+ #{w 23433}#
+ #{s 23434}#
+ #{mod 23435}#)
+ (#{parse 23004}#
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwr0t}#
- (lambda (#{forms -ANAU$bmvAmthP7L7xwr1s}#)
- (if (null? #{forms -ANAU$bmvAmthP7L7xwr1s}#)
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons (cons #{er -ANAU$bmvAmthP7L7xwr0p}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{forms -ANAU$bmvAmthP7L7xwr1s}#)
- #{w -ANAU$bmvAmthP7L7xwr0q}#
- #{mod -ANAU$bmvAmthP7L7xwr0s}#))
- (#{f -ANAU$bmvAmthP7L7xwr0t}#
- (cdr #{forms -ANAU$bmvAmthP7L7xwr1s}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwr0t}#
- #{forms -ANAU$bmvAmthP7L7xwr0o}#))
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#)))
- (if (null? #{ids -ANAU$bmvAmthP7L7xwruP}#)
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
+ ((#{f 23436}#
+ (lambda (#{forms 23499}#)
+ (if (null? #{forms 23499}#)
+ (cdr #{body 23017}#)
+ (cons (cons #{er 23432}#
+ (#{wrap 4515}#
+ (car #{forms 23499}#)
+ #{w 23433}#
+ #{mod 23435}#))
+ (#{f 23436}#
+ (cdr #{forms 23499}#)))))))
+ (#{f 23436}# #{forms 23431}#))
+ #{ids 23018}#
+ #{labels 23019}#
+ #{var-ids 23020}#
+ #{vars 23021}#
+ #{vals 23022}#
+ #{bindings 23023}#)))
+ (if (null? #{ids 23018}#)
+ (#{build-sequence 4467}#
#f
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwr2t}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwr2x}#
- (cdr #{x -ANAU$bmvAmthP7L7xwr2t}#))
- (#{r -ANAU$bmvAmthP7L7xwr2y}#
- (car #{x -ANAU$bmvAmthP7L7xwr2t}#)))
+ (map (lambda (#{x 23564}#)
+ (let ((#{e 23568}#
+ (cdr #{x 23564}#))
+ (#{r 23569}#
+ (car #{x 23564}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwr2x}#
- #{r -ANAU$bmvAmthP7L7xwr2y}#
+ (#{syntax-type 4521}#
+ #{e 23568}#
+ #{r 23569}#
'(())
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwr2x}#)
+ (#{source-annotation 4479}#
+ #{e 23568}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwrw4}#
+ #{mod 23187}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwr22}#
- #{value -ANAU$bmvAmthP7L7xwr23}#
- #{e -ANAU$bmvAmthP7L7xwr24}#
- #{w -ANAU$bmvAmthP7L7xwr25}#
- #{s -ANAU$bmvAmthP7L7xwr26}#
- #{mod -ANAU$bmvAmthP7L7xwr27}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwr22}#
- #{value -ANAU$bmvAmthP7L7xwr23}#
- #{e -ANAU$bmvAmthP7L7xwr24}#
- #{r -ANAU$bmvAmthP7L7xwr2y}#
- #{w -ANAU$bmvAmthP7L7xwr25}#
- #{s -ANAU$bmvAmthP7L7xwr26}#
- #{mod -ANAU$bmvAmthP7L7xwr27}#)))))
- (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (#{type 23573}#
+ #{value 23574}#
+ #{e 23575}#
+ #{w 23576}#
+ #{s 23577}#
+ #{mod 23578}#)
+ (#{expand-expr 4523}#
+ #{type 23573}#
+ #{value 23574}#
+ #{e 23575}#
+ #{r 23569}#
+ #{w 23576}#
+ #{s 23577}#
+ #{mod 23578}#)))))
+ (cons (cons #{er 23025}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
- #{s -ANAU$bmvAmthP7L7xwrw3}#
+ (if (if (pair? #{e 23184}#)
+ #{s 23186}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#))
- #{e -ANAU$bmvAmthP7L7xwrw1}#)
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#))))
+ #{e 23184}#
+ #{s 23186}#))
+ #{e 23184}#)
+ #{w 23185}#
+ #{mod 23187}#))
+ (cdr #{body 23017}#))))
(begin
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#))
+ (if (not (#{valid-bound-ids? 4512}#
+ #{ids 23018}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form -ANAU$bmvAmthP7L7xwrt6}#))
+ #{outer-form 22997}#))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwr4g}#
- (lambda (#{bs -ANAU$bmvAmthP7L7xwr4j}#
- #{er-cache -ANAU$bmvAmthP7L7xwr4k}#
- #{r-cache -ANAU$bmvAmthP7L7xwr4l}#)
- (if (not (null? #{bs -ANAU$bmvAmthP7L7xwr4j}#))
- (let ((#{b -ANAU$bmvAmthP7L7xwr4m}#
- (car #{bs -ANAU$bmvAmthP7L7xwr4j}#)))
- (if (eq? (car #{b -ANAU$bmvAmthP7L7xwr4m}#)
+ ((#{loop 23679}#
+ (lambda (#{bs 23682}#
+ #{er-cache 23683}#
+ #{r-cache 23684}#)
+ (if (not (null? #{bs 23682}#))
+ (let ((#{b 23685}#
+ (car #{bs 23682}#)))
+ (if (eq? (car #{b 23685}#)
'macro)
- (let ((#{er -ANAU$bmvAmthP7L7xwr4o}#
- (car (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#))))
- (let ((#{r-cache -ANAU$bmvAmthP7L7xwr4p}#
- (if (eq? #{er -ANAU$bmvAmthP7L7xwr4o}#
- #{er-cache -ANAU$bmvAmthP7L7xwr4k}#)
- #{r-cache -ANAU$bmvAmthP7L7xwr4l}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{er -ANAU$bmvAmthP7L7xwr4o}#))))
+ (let ((#{er 23687}#
+ (car (cdr #{b 23685}#))))
+ (let ((#{r-cache 23688}#
+ (if (eq? #{er 23687}#
+ #{er-cache 23683}#)
+ #{r-cache 23684}#
+ (#{macros-only-env 4482}#
+ #{er 23687}#))))
(begin
(set-cdr!
- #{b -ANAU$bmvAmthP7L7xwr4m}#
- (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (cdr (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#))
- #{r-cache -ANAU$bmvAmthP7L7xwr4p}#
+ #{b 23685}#
+ (#{eval-local-transformer 4528}#
+ (#{expand 4522}#
+ (cdr (cdr #{b 23685}#))
+ #{r-cache 23688}#
'(())
- #{mod -ANAU$bmvAmthP7L7xwrw4}#)
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{loop -ANAU$bmvAmthP7L7xwr4g}#
- (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#)
- #{er -ANAU$bmvAmthP7L7xwr4o}#
- #{r-cache -ANAU$bmvAmthP7L7xwr4p}#))))
- (#{loop -ANAU$bmvAmthP7L7xwr4g}#
- (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#)
- #{er-cache -ANAU$bmvAmthP7L7xwr4k}#
- #{r-cache -ANAU$bmvAmthP7L7xwr4l}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwr4g}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#
+ #{mod 23187}#)
+ #{mod 23187}#))
+ (#{loop 23679}#
+ (cdr #{bs 23682}#)
+ #{er 23687}#
+ #{r-cache 23688}#))))
+ (#{loop 23679}#
+ (cdr #{bs 23682}#)
+ #{er-cache 23683}#
+ #{r-cache 23684}#)))))))
+ (#{loop 23679}#
+ #{bindings 23023}#
#f
#f))
(set-cdr!
- #{r -ANAU$bmvAmthP7L7xwrt$}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#
- (cdr #{r -ANAU$bmvAmthP7L7xwrt$}#)))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
+ #{r 23001}#
+ (#{extend-env 4480}#
+ #{labels 23019}#
+ #{bindings 23023}#
+ (cdr #{r 23001}#)))
+ (#{build-letrec 4470}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#))
- (reverse
- #{vars -ANAU$bmvAmthP7L7xwruS}#)
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$A}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwr$E}#
- (cdr #{x -ANAU$bmvAmthP7L7xwr$A}#))
- (#{r -ANAU$bmvAmthP7L7xwr$F}#
- (car #{x -ANAU$bmvAmthP7L7xwr$A}#)))
+ #{var-ids 23020}#))
+ (reverse #{vars 23021}#)
+ (map (lambda (#{x 24031}#)
+ (let ((#{e 24035}#
+ (cdr #{x 24031}#))
+ (#{r 24036}#
+ (car #{x 24031}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwr$E}#
- #{r -ANAU$bmvAmthP7L7xwr$F}#
+ (#{syntax-type 4521}#
+ #{e 24035}#
+ #{r 24036}#
'(())
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwr$E}#)
+ (#{source-annotation 4479}#
+ #{e 24035}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwrw4}#
+ #{mod 23187}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwr$J}#
- #{value -ANAU$bmvAmthP7L7xwr$K}#
- #{e -ANAU$bmvAmthP7L7xwr$L}#
- #{w -ANAU$bmvAmthP7L7xwr$M}#
- #{s -ANAU$bmvAmthP7L7xwr$N}#
- #{mod -ANAU$bmvAmthP7L7xwr$O}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwr$J}#
- #{value -ANAU$bmvAmthP7L7xwr$K}#
- #{e -ANAU$bmvAmthP7L7xwr$L}#
- #{r -ANAU$bmvAmthP7L7xwr$F}#
- #{w -ANAU$bmvAmthP7L7xwr$M}#
- #{s -ANAU$bmvAmthP7L7xwr$N}#
- #{mod -ANAU$bmvAmthP7L7xwr$O}#)))))
- (reverse
- #{vals -ANAU$bmvAmthP7L7xwruT}#))
- (let ((#{exps -ANAU$bmvAmthP7L7xwr$U}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$V}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwr$Y}#
- (cdr #{x -ANAU$bmvAmthP7L7xwr$V}#))
- (#{r -ANAU$bmvAmthP7L7xwr$Z}#
- (car #{x -ANAU$bmvAmthP7L7xwr$V}#)))
+ (lambda (#{type 24040}#
+ #{value 24041}#
+ #{e 24042}#
+ #{w 24043}#
+ #{s 24044}#
+ #{mod 24045}#)
+ (#{expand-expr 4523}#
+ #{type 24040}#
+ #{value 24041}#
+ #{e 24042}#
+ #{r 24036}#
+ #{w 24043}#
+ #{s 24044}#
+ #{mod 24045}#)))))
+ (reverse #{vals 23022}#))
+ (let ((#{exps 24051}#
+ (map (lambda (#{x 24052}#)
+ (let ((#{e 24055}#
+ (cdr #{x 24052}#))
+ (#{r 24056}#
+ (car #{x 24052}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwr$Y}#
- #{r -ANAU$bmvAmthP7L7xwr$Z}#
+ (#{syntax-type 4521}#
+ #{e 24055}#
+ #{r 24056}#
'(())
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwr$Y}#)
+ (#{source-annotation 4479}#
+ #{e 24055}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwrw4}#
+ #{mod 23187}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwr$d}#
- #{value -ANAU$bmvAmthP7L7xwr$e}#
- #{e -ANAU$bmvAmthP7L7xwr$f}#
- #{w -ANAU$bmvAmthP7L7xwr$g}#
- #{s -ANAU$bmvAmthP7L7xwr$h}#
- #{mod -ANAU$bmvAmthP7L7xwr$i}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwr$d}#
- #{value -ANAU$bmvAmthP7L7xwr$e}#
- #{e -ANAU$bmvAmthP7L7xwr$f}#
- #{r -ANAU$bmvAmthP7L7xwr$Z}#
- #{w -ANAU$bmvAmthP7L7xwr$g}#
- #{s -ANAU$bmvAmthP7L7xwr$h}#
- #{mod -ANAU$bmvAmthP7L7xwr$i}#)))))
- (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (#{type 24060}#
+ #{value 24061}#
+ #{e 24062}#
+ #{w 24063}#
+ #{s 24064}#
+ #{mod 24065}#)
+ (#{expand-expr 4523}#
+ #{type 24060}#
+ #{value 24061}#
+ #{e 24062}#
+ #{r 24056}#
+ #{w 24063}#
+ #{s 24064}#
+ #{mod 24065}#)))))
+ (cons (cons #{er 23025}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
- #{s -ANAU$bmvAmthP7L7xwrw3}#
+ (if (if (pair? #{e 23184}#)
+ #{s 23186}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#))
- #{e -ANAU$bmvAmthP7L7xwrw1}#)
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)))))
- (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwr$U}#))
- (car #{exps -ANAU$bmvAmthP7L7xwr$U}#)
+ #{e 23184}#
+ #{s 23186}#))
+ #{e 23184}#)
+ #{w 23185}#
+ #{mod 23187}#))
+ (cdr #{body 23017}#)))))
+ (if (null? (cdr #{exps 24051}#))
+ (car #{exps 24051}#)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps -ANAU$bmvAmthP7L7xwr$U}#)))))))))))))))))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwruE}#)
- (cons #{r -ANAU$bmvAmthP7L7xwrt$}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{x -ANAU$bmvAmthP7L7xwruE}#
- #{w -ANAU$bmvAmthP7L7xwruA}#
- #{mod -ANAU$bmvAmthP7L7xwrt9}#)))
- #{body -ANAU$bmvAmthP7L7xwrt5}#)
+ #{exps 24051}#)))))))))))))))))
+ (#{parse 23004}#
+ (map (lambda (#{x 23007}#)
+ (cons #{r 23001}#
+ (#{wrap 4515}#
+ #{x 23007}#
+ #{w 23003}#
+ #{mod 23000}#)))
+ #{body 22996}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}#
- #{e -ANAU$bmvAmthP7L7xwr$9}#
- #{r -ANAU$bmvAmthP7L7xwr$$}#
- #{w -ANAU$bmvAmthP7L7xwr$@}#
- #{s -ANAU$bmvAmthP7L7xwr@A}#
- #{mod -ANAU$bmvAmthP7L7xwr@B}#
- #{k -ANAU$bmvAmthP7L7xwr@C}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwr@E}#
+ (#{expand-local-syntax 4527}#
+ (lambda (#{rec? 24091}#
+ #{e 24092}#
+ #{r 24093}#
+ #{w 24094}#
+ #{s 24095}#
+ #{mod 24096}#
+ #{k 24097}#)
+ (let ((#{tmp 24099}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwr$9}#
+ #{e 24092}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwr@E}#
+ (if #{tmp 24099}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwr@I}#
- #{val -ANAU$bmvAmthP7L7xwr@J}#
- #{e1 -ANAU$bmvAmthP7L7xwr@K}#
- #{e2 -ANAU$bmvAmthP7L7xwr@L}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id -ANAU$bmvAmthP7L7xwr@I}#))
+ (lambda (#{id 24103}#
+ #{val 24104}#
+ #{e1 24105}#
+ #{e2 24106}#)
+ (if (not (#{valid-bound-ids? 4512}# #{id 24103}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e -ANAU$bmvAmthP7L7xwr$9}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id -ANAU$bmvAmthP7L7xwr@I}#)))
- (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id -ANAU$bmvAmthP7L7xwr@I}#
- #{labels -ANAU$bmvAmthP7L7xwsAl}#
- #{w -ANAU$bmvAmthP7L7xwr$@}#)))
- (#{k -ANAU$bmvAmthP7L7xwr@C}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwr@K}#
- #{e2 -ANAU$bmvAmthP7L7xwr@L}#)
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwsAl}#
- (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwr$$}#)))
+ #{e 24092}#)
+ (let ((#{labels 24196}#
+ (#{gen-labels 4489}# #{id 24103}#)))
+ (let ((#{new-w 24197}#
+ (#{make-binding-wrap 4500}#
+ #{id 24103}#
+ #{labels 24196}#
+ #{w 24094}#)))
+ (#{k 24097}#
+ (cons #{e1 24105}# #{e2 24106}#)
+ (#{extend-env 4480}#
+ #{labels 24196}#
+ (let ((#{trans-r 24233}#
+ (#{macros-only-env 4482}# #{r 24093}#)))
(begin
- (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
- #{new-w -ANAU$bmvAmthP7L7xwsAm}#
- #{w -ANAU$bmvAmthP7L7xwr$@}#)
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#)
+ (if #{rec? 24091}# #{new-w 24197}# #{w 24094}#)
+ (map (lambda (#{x 24234}#)
(cons 'macro
- (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwsBH}#
- #{trans-r -ANAU$bmvAmthP7L7xwsBG}#
+ (#{eval-local-transformer 4528}#
+ (#{expand 4522}#
+ #{x 24234}#
+ #{trans-r 24233}#
(values
- (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
- #{new-w -ANAU$bmvAmthP7L7xwsAm}#
- #{w -ANAU$bmvAmthP7L7xwr$@}#))
- #{mod -ANAU$bmvAmthP7L7xwr@B}#)
- #{mod -ANAU$bmvAmthP7L7xwr@B}#)))
- #{val -ANAU$bmvAmthP7L7xwr@J}#)))
- #{r -ANAU$bmvAmthP7L7xwr$$}#)
- #{new-w -ANAU$bmvAmthP7L7xwsAm}#
- #{s -ANAU$bmvAmthP7L7xwr@A}#
- #{mod -ANAU$bmvAmthP7L7xwr@B}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwr@E}#)
+ (if #{rec? 24091}#
+ #{new-w 24197}#
+ #{w 24094}#))
+ #{mod 24096}#)
+ #{mod 24096}#)))
+ #{val 24104}#)))
+ #{r 24093}#)
+ #{new-w 24197}#
+ #{s 24095}#
+ #{mod 24096}#)))))
+ #{tmp 24099}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#)
- #{s -ANAU$bmvAmthP7L7xwr@A}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwr$9}#
- #{s -ANAU$bmvAmthP7L7xwr@A}#))
- #{e -ANAU$bmvAmthP7L7xwr$9}#)
- #{w -ANAU$bmvAmthP7L7xwr$@}#
- #{mod -ANAU$bmvAmthP7L7xwr@B}#))))))
- (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}#
- #{mod -ANAU$bmvAmthP7L7xwsFc}#)
- (let ((#{p -ANAU$bmvAmthP7L7xwsFd}#
- (primitive-eval
- #{expanded -ANAU$bmvAmthP7L7xwsFb}#)))
- (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#)
- #{p -ANAU$bmvAmthP7L7xwsFd}#
+ (if (if (pair? #{e 24092}#) #{s 24095}# #f)
+ (set-source-properties! #{e 24092}# #{s 24095}#))
+ #{e 24092}#)
+ #{w 24094}#
+ #{mod 24096}#))))))
+ (#{eval-local-transformer 4528}#
+ (lambda (#{expanded 24514}# #{mod 24515}#)
+ (let ((#{p 24516}# (primitive-eval #{expanded 24514}#)))
+ (if (procedure? #{p 24516}#)
+ #{p 24516}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p -ANAU$bmvAmthP7L7xwsFd}#)))))
- (#{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
- 'syntax-object)
+ #{p 24516}#)))))
+ (#{ellipsis? 4530}#
+ (lambda (#{x 5191}#)
+ (if (if (if (vector? #{x 5191}#)
+ (if (= (vector-length #{x 5191}#) 4)
+ (eq? (vector-ref #{x 5191}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1))
+ (symbol? (vector-ref #{x 5191}# 1))
#f)
- (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
- 'syntax-object)
+ (if (eq? (if (if (vector? #{x 5191}#)
+ (if (= (vector-length #{x 5191}#) 4)
+ (eq? (vector-ref #{x 5191}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)
- #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (vector-ref #{x 5191}# 1)
+ #{x 5191}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile)))
4)
#t
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwnYh}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (#{id-var-name 4505}# #{x 5191}# '(()))
+ (#{id-var-name 4505}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
#f)))
- (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#)
+ (#{lambda-formals 4531}#
+ (lambda (#{orig-args 24521}#)
(letrec*
- ((#{req -ANAU$bmvAmthP7L7xwsFj}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}#
- #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsFn}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsFq}#
+ ((#{req 24522}#
+ (lambda (#{args 24526}# #{rreq 24527}#)
+ (let ((#{tmp 24529}# ($sc-dispatch #{args 24526}# '())))
+ (if #{tmp 24529}#
(@apply
(lambda ()
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- #f))
- #{tmp -ANAU$bmvAmthP7L7xwsFq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsFn}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}#
+ (#{check 24523}# (reverse #{rreq 24527}#) #f))
+ #{tmp 24529}#)
+ (let ((#{tmp 24652}#
+ ($sc-dispatch #{args 24526}# '(any . any))))
+ (if (if #{tmp 24652}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}#
- #{b -ANAU$bmvAmthP7L7xwsHq}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#)
+ (lambda (#{a 24656}# #{b 24657}#)
+ (if (symbol? #{a 24656}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsHp}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsHp}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsHp}#
- 0)
+ (if (if (vector? #{a 24656}#)
+ (if (= (vector-length #{a 24656}#) 4)
+ (eq? (vector-ref #{a 24656}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsHp}#
- 1))
+ (symbol? (vector-ref #{a 24656}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
+ #{tmp 24652}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsIF}#
- #{b -ANAU$bmvAmthP7L7xwsIG}#)
- (#{req -ANAU$bmvAmthP7L7xwsFj}#
- #{b -ANAU$bmvAmthP7L7xwsIG}#
- (cons #{a -ANAU$bmvAmthP7L7xwsIF}#
- #{rreq -ANAU$bmvAmthP7L7xwsFo}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsIH}#
- (list #{args -ANAU$bmvAmthP7L7xwsFn}#)))
+ (lambda (#{a 24684}# #{b 24685}#)
+ (#{req 24522}#
+ #{b 24685}#
+ (cons #{a 24684}# #{rreq 24527}#)))
+ #{tmp 24652}#)
+ (let ((#{tmp 24686}# (list #{args 24526}#)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#)
- (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#)
+ (lambda (#{r 24688}#)
+ (if (symbol? #{r 24688}#)
#t
- (if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsIJ}#)
- (if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsIJ}#)
- 4)
- (eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsIJ}#
- 0)
+ (if (if (vector? #{r 24688}#)
+ (if (= (vector-length #{r 24688}#) 4)
+ (eq? (vector-ref #{r 24688}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsIJ}#
- 1))
+ (symbol? (vector-ref #{r 24688}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
+ #{tmp 24686}#)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#)
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- #{r -ANAU$bmvAmthP7L7xwsIn}#))
- #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
+ (lambda (#{r 24718}#)
+ (#{check 24523}#
+ (reverse #{rreq 24527}#)
+ #{r 24718}#))
+ #{tmp 24686}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
- #{args -ANAU$bmvAmthP7L7xwsFn}#)))))))))
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsKq}#
- #{rest -ANAU$bmvAmthP7L7xwsKr}#)
- (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (if #{rest -ANAU$bmvAmthP7L7xwsKr}#
- (cons #{rest -ANAU$bmvAmthP7L7xwsKr}#
- #{req -ANAU$bmvAmthP7L7xwsKq}#)
- #{req -ANAU$bmvAmthP7L7xwsKq}#))
- (values
- #{req -ANAU$bmvAmthP7L7xwsKq}#
- #f
- #{rest -ANAU$bmvAmthP7L7xwsKr}#
- #f)
+ #{orig-args 24521}#
+ #{args 24526}#)))))))))
+ (#{check 24523}#
+ (lambda (#{req 24849}# #{rest 24850}#)
+ (if (#{distinct-bound-ids? 4513}#
+ (if #{rest 24850}#
+ (cons #{rest 24850}# #{req 24849}#)
+ #{req 24849}#))
+ (values #{req 24849}# #f #{rest 24850}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#)))))
- (#{req -ANAU$bmvAmthP7L7xwsFj}#
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
- '()))))
- (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwsMf}#
- #{r -ANAU$bmvAmthP7L7xwsMg}#
- #{w -ANAU$bmvAmthP7L7xwsMh}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- #{mod -ANAU$bmvAmthP7L7xwsMj}#
- #{req -ANAU$bmvAmthP7L7xwsMk}#
- #{rest -ANAU$bmvAmthP7L7xwsMl}#
- #{meta -ANAU$bmvAmthP7L7xwsMm}#
- #{body -ANAU$bmvAmthP7L7xwsMn}#)
- (let ((#{ids -ANAU$bmvAmthP7L7xwsMo}#
- (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
- (append
- #{req -ANAU$bmvAmthP7L7xwsMk}#
- (list #{rest -ANAU$bmvAmthP7L7xwsMl}#))
- #{req -ANAU$bmvAmthP7L7xwsMk}#)))
- (let ((#{vars -ANAU$bmvAmthP7L7xwsMp}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
- (let ((#{labels -ANAU$bmvAmthP7L7xwsMq}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
- (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- (map syntax->datum
- #{req -ANAU$bmvAmthP7L7xwsMk}#)
- (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
- (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#)
+ #{orig-args 24521}#)))))
+ (#{req 24522}# #{orig-args 24521}# '()))))
+ (#{expand-simple-lambda 4532}#
+ (lambda (#{e 24966}#
+ #{r 24967}#
+ #{w 24968}#
+ #{s 24969}#
+ #{mod 24970}#
+ #{req 24971}#
+ #{rest 24972}#
+ #{meta 24973}#
+ #{body 24974}#)
+ (let ((#{ids 24975}#
+ (if #{rest 24972}#
+ (append #{req 24971}# (list #{rest 24972}#))
+ #{req 24971}#)))
+ (let ((#{vars 24976}#
+ (map #{gen-var 4536}# #{ids 24975}#)))
+ (let ((#{labels 24977}#
+ (#{gen-labels 4489}# #{ids 24975}#)))
+ (#{build-simple-lambda 4462}#
+ #{s 24969}#
+ (map syntax->datum #{req 24971}#)
+ (if #{rest 24972}#
+ (syntax->datum #{rest 24972}#)
#f)
- #{vars -ANAU$bmvAmthP7L7xwsMp}#
- #{meta -ANAU$bmvAmthP7L7xwsMm}#
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- #{body -ANAU$bmvAmthP7L7xwsMn}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{vars 24976}#
+ #{meta 24973}#
+ (#{expand-body 4526}#
+ #{body 24974}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#)
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwsMf}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#))
- #{e -ANAU$bmvAmthP7L7xwsMf}#)
- #{w -ANAU$bmvAmthP7L7xwsMh}#
- #{mod -ANAU$bmvAmthP7L7xwsMj}#)
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwsMq}#
- #{vars -ANAU$bmvAmthP7L7xwsMp}#
- #{r -ANAU$bmvAmthP7L7xwsMg}#)
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#
- #{labels -ANAU$bmvAmthP7L7xwsMq}#
- #{w -ANAU$bmvAmthP7L7xwsMh}#)
- #{mod -ANAU$bmvAmthP7L7xwsMj}#)))))))
- (#{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)
+ (if (if (pair? #{e 24966}#) #{s 24969}# #f)
+ (set-source-properties! #{e 24966}# #{s 24969}#))
+ #{e 24966}#)
+ #{w 24968}#
+ #{mod 24970}#)
+ (#{extend-var-env 4481}#
+ #{labels 24977}#
+ #{vars 24976}#
+ #{r 24967}#)
+ (#{make-binding-wrap 4500}#
+ #{ids 24975}#
+ #{labels 24977}#
+ #{w 24968}#)
+ #{mod 24970}#)))))))
+ (#{lambda*-formals 4533}#
+ (lambda (#{orig-args 25257}#)
(letrec*
- ((#{req -ANAU$bmvAmthP7L7xwsQ7}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}#
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsRF}#
+ ((#{req 25258}#
+ (lambda (#{args 25265}# #{rreq 25266}#)
+ (let ((#{tmp 25268}# ($sc-dispatch #{args 25265}# '())))
+ (if #{tmp 25268}#
(@apply
(lambda ()
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (#{check 25262}#
+ (reverse #{rreq 25266}#)
'()
#f
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsRF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}#
+ #{tmp 25268}#)
+ (let ((#{tmp 25274}#
+ ($sc-dispatch #{args 25265}# '(any . any))))
+ (if (if #{tmp 25274}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}#
- #{b -ANAU$bmvAmthP7L7xwsRQ}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#)
+ (lambda (#{a 25278}# #{b 25279}#)
+ (if (symbol? #{a 25278}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsRP}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsRP}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsRP}#
- 0)
+ (if (if (vector? #{a 25278}#)
+ (if (= (vector-length #{a 25278}#) 4)
+ (eq? (vector-ref #{a 25278}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsRP}#
- 1))
+ (symbol? (vector-ref #{a 25278}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
+ #{tmp 25274}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRr}#
- #{b -ANAU$bmvAmthP7L7xwsRs}#)
- (#{req -ANAU$bmvAmthP7L7xwsQ7}#
- #{b -ANAU$bmvAmthP7L7xwsRs}#
- (cons #{a -ANAU$bmvAmthP7L7xwsRr}#
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRt}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}#
+ (lambda (#{a 25306}# #{b 25307}#)
+ (#{req 25258}#
+ #{b 25307}#
+ (cons #{a 25306}# #{rreq 25266}#)))
+ #{tmp 25274}#)
+ (let ((#{tmp 25308}#
+ ($sc-dispatch #{args 25265}# '(any . any))))
+ (if (if #{tmp 25308}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}#
- #{b -ANAU$bmvAmthP7L7xwsRy}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsRx}#)
+ (lambda (#{a 25312}# #{b 25313}#)
+ (eq? (syntax->datum #{a 25312}#)
#:optional))
- #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
+ #{tmp 25308}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}#
- #{b -ANAU$bmvAmthP7L7xwsR0}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsR0}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (#{a 25314}# #{b 25315}#)
+ (#{opt 25259}#
+ #{b 25315}#
+ (reverse #{rreq 25266}#)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}#
+ #{tmp 25308}#)
+ (let ((#{tmp 25318}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
+ #{args 25265}#
'(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}#
+ (if (if #{tmp 25318}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}#
- #{b -ANAU$bmvAmthP7L7xwsR8}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsR7}#)
+ (lambda (#{a 25322}# #{b 25323}#)
+ (eq? (syntax->datum #{a 25322}#)
#:key))
- #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
+ #{tmp 25318}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}#
- #{b -ANAU$bmvAmthP7L7xwsR$}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsR$}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (#{a 25324}# #{b 25325}#)
+ (#{key 25260}#
+ #{b 25325}#
+ (reverse #{rreq 25266}#)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}#
+ #{tmp 25318}#)
+ (let ((#{tmp 25328}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
+ #{args 25265}#
'(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}#
+ (if (if #{tmp 25328}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}#
- #{b -ANAU$bmvAmthP7L7xwsSG}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsSF}#)
+ (lambda (#{a 25332}# #{b 25333}#)
+ (eq? (syntax->datum #{a 25332}#)
#:rest))
- #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
+ #{tmp 25328}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}#
- #{b -ANAU$bmvAmthP7L7xwsSI}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsSI}#
- (reverse
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (#{a 25334}# #{b 25335}#)
+ (#{rest 25261}#
+ #{b 25335}#
+ (reverse #{rreq 25266}#)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}#
- (list #{args -ANAU$bmvAmthP7L7xwsRC}#)))
+ #{tmp 25328}#)
+ (let ((#{tmp 25338}#
+ (list #{args 25265}#)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsSN}#)
- (if (symbol?
- #{r -ANAU$bmvAmthP7L7xwsSN}#)
+ (lambda (#{r 25340}#)
+ (if (symbol? #{r 25340}#)
#t
- (if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsSN}#)
+ (if (if (vector? #{r 25340}#)
(if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsSN}#)
+ #{r 25340}#)
4)
(eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsSN}#
+ #{r 25340}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsSN}#
- 1))
+ (vector-ref #{r 25340}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
+ #{tmp 25338}#)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsSr}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsSr}#
- (reverse
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (#{r 25370}#)
+ (#{rest 25261}#
+ #{r 25370}#
+ (reverse #{rreq 25266}#)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
+ #{tmp 25338}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args -ANAU$bmvAmthP7L7xwsRC}#)))))))))))))))
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsTC}#
+ #{orig-args 25257}#
+ #{args 25265}#)))))))))))))))
+ (#{opt 25259}#
+ (lambda (#{args 25389}# #{req 25390}# #{ropt 25391}#)
+ (let ((#{tmp 25393}# ($sc-dispatch #{args 25389}# '())))
+ (if #{tmp 25393}#
(@apply
(lambda ()
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (#{check 25262}#
+ #{req 25390}#
+ (reverse #{ropt 25391}#)
#f
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsTC}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}#
+ #{tmp 25393}#)
+ (let ((#{tmp 25399}#
+ ($sc-dispatch #{args 25389}# '(any . any))))
+ (if (if #{tmp 25399}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}#
- #{b -ANAU$bmvAmthP7L7xwsTN}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#)
+ (lambda (#{a 25403}# #{b 25404}#)
+ (if (symbol? #{a 25403}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsTM}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsTM}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTM}#
- 0)
+ (if (if (vector? #{a 25403}#)
+ (if (= (vector-length #{a 25403}#) 4)
+ (eq? (vector-ref #{a 25403}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTM}#
- 1))
+ (symbol? (vector-ref #{a 25403}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
+ #{tmp 25399}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}#
- #{b -ANAU$bmvAmthP7L7xwsTp}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsTp}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}#
+ (lambda (#{a 25431}# #{b 25432}#)
+ (#{opt 25259}#
+ #{b 25432}#
+ #{req 25390}#
+ (cons (cons #{a 25431}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("qt" "qu"))
+ #("l-*-2482" "l-*-2483"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("qo" "qp" "qq"))
+ #("l-*-2472"
+ "l-*-2473"
+ "l-*-2474"))
#(ribcage
(check rest key opt req)
((top)
(top)
(top)
(top))
- ("q2" "q1" "q0" "pz" "py"))
+ ("l-*-2418"
+ "l-*-2416"
+ "l-*-2414"
+ "l-*-2412"
+ "l-*-2410"))
#(ribcage
#(orig-args)
#((top))
- #("px"))
+ #("l-*-2409"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}#
+ #{ropt 25391}#)))
+ #{tmp 25399}#)
+ (let ((#{tmp 25433}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
+ #{args 25389}#
'((any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}#
+ (if (if #{tmp 25433}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}#
- #{init -ANAU$bmvAmthP7L7xwsTv}#
- #{b -ANAU$bmvAmthP7L7xwsTw}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#)
+ (lambda (#{a 25437}#
+ #{init 25438}#
+ #{b 25439}#)
+ (if (symbol? #{a 25437}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsTu}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsTu}#)
+ (if (if (vector? #{a 25437}#)
+ (if (= (vector-length #{a 25437}#)
4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTu}#
- 0)
+ (eq? (vector-ref #{a 25437}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTu}#
- 1))
+ (symbol? (vector-ref #{a 25437}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
+ #{tmp 25433}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}#
- #{init -ANAU$bmvAmthP7L7xwsUM}#
- #{b -ANAU$bmvAmthP7L7xwsUN}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsUN}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}#
- #{init -ANAU$bmvAmthP7L7xwsUM}#)
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}#
+ (lambda (#{a 25466}# #{init 25467}# #{b 25468}#)
+ (#{opt 25259}#
+ #{b 25468}#
+ #{req 25390}#
+ (cons (list #{a 25466}# #{init 25467}#)
+ #{ropt 25391}#)))
+ #{tmp 25433}#)
+ (let ((#{tmp 25469}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
+ #{args 25389}#
'(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}#
+ (if (if #{tmp 25469}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}#
- #{b -ANAU$bmvAmthP7L7xwsUT}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsUS}#)
+ (lambda (#{a 25473}# #{b 25474}#)
+ (eq? (syntax->datum #{a 25473}#)
#:key))
- #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
+ #{tmp 25469}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}#
- #{b -ANAU$bmvAmthP7L7xwsUV}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsUV}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (#{a 25475}# #{b 25476}#)
+ (#{key 25260}#
+ #{b 25476}#
+ #{req 25390}#
+ (reverse #{ropt 25391}#)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}#
+ #{tmp 25469}#)
+ (let ((#{tmp 25479}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
+ #{args 25389}#
'(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}#
+ (if (if #{tmp 25479}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}#
- #{b -ANAU$bmvAmthP7L7xwsUd}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsUc}#)
+ (lambda (#{a 25483}# #{b 25484}#)
+ (eq? (syntax->datum #{a 25483}#)
#:rest))
- #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
+ #{tmp 25479}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}#
- #{b -ANAU$bmvAmthP7L7xwsUf}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsUf}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (reverse
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (#{a 25485}# #{b 25486}#)
+ (#{rest 25261}#
+ #{b 25486}#
+ #{req 25390}#
+ (reverse #{ropt 25391}#)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}#
- (list #{args -ANAU$bmvAmthP7L7xwsS$}#)))
+ #{tmp 25479}#)
+ (let ((#{tmp 25489}#
+ (list #{args 25389}#)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsUk}#)
- (if (symbol?
- #{r -ANAU$bmvAmthP7L7xwsUk}#)
+ (lambda (#{r 25491}#)
+ (if (symbol? #{r 25491}#)
#t
- (if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsUk}#)
+ (if (if (vector? #{r 25491}#)
(if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsUk}#)
+ #{r 25491}#)
4)
(eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsUk}#
+ #{r 25491}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsUk}#
- 1))
+ (vector-ref #{r 25491}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
+ #{tmp 25489}#)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsVC}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsVC}#
- #{req -ANAU$bmvAmthP7L7xwsS@}#
- (reverse
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (#{r 25521}#)
+ (#{rest 25261}#
+ #{r 25521}#
+ #{req 25390}#
+ (reverse #{ropt 25391}#)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
+ #{tmp 25489}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args -ANAU$bmvAmthP7L7xwsS$}#)))))))))))))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsVV}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsVa}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsVa}#
+ #{orig-args 25257}#
+ #{args 25389}#)))))))))))))))
+ (#{key 25260}#
+ (lambda (#{args 25540}#
+ #{req 25541}#
+ #{opt 25542}#
+ #{rkey 25543}#)
+ (let ((#{tmp 25545}# ($sc-dispatch #{args 25540}# '())))
+ (if #{tmp 25545}#
(@apply
(lambda ()
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (#{check 25262}#
+ #{req 25541}#
+ #{opt 25542}#
#f
- (cons #f
- (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsVa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}#
+ (cons #f (reverse #{rkey 25543}#))))
+ #{tmp 25545}#)
+ (let ((#{tmp 25551}#
+ ($sc-dispatch #{args 25540}# '(any . any))))
+ (if (if #{tmp 25551}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}#
- #{b -ANAU$bmvAmthP7L7xwsVl}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#)
+ (lambda (#{a 25555}# #{b 25556}#)
+ (if (symbol? #{a 25555}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsVk}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsVk}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsVk}#
- 0)
+ (if (if (vector? #{a 25555}#)
+ (if (= (vector-length #{a 25555}#) 4)
+ (eq? (vector-ref #{a 25555}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsVk}#
- 1))
+ (symbol? (vector-ref #{a 25555}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
+ #{tmp 25551}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}#
- #{b -ANAU$bmvAmthP7L7xwsWB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}#
+ (lambda (#{a 25583}# #{b 25584}#)
+ (let ((#{tmp 25585}#
(symbol->keyword
- (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsWA}#))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsWB}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (cons #{tmp -ANAU$bmvAmthP7L7xwsWC}#
- (cons #{a -ANAU$bmvAmthP7L7xwsWA}#
+ (syntax->datum #{a 25583}#))))
+ (#{key 25260}#
+ #{b 25584}#
+ #{req 25541}#
+ #{opt 25542}#
+ (cons (cons #{tmp 25585}#
+ (cons #{a 25583}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("rk"))
+ #("l-*-2545"))
#(ribcage
#(a b)
#((top) (top))
- #("ri" "rj"))
+ #("l-*-2539"
+ "l-*-2540"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
(top)
(top)
(top))
- #("rc"
- "rd"
- "re"
- "rf"))
+ #("l-*-2528"
+ "l-*-2529"
+ "l-*-2530"
+ "l-*-2531"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("q2"
- "q1"
- "q0"
- "pz"
- "py"))
+ ("l-*-2418"
+ "l-*-2416"
+ "l-*-2414"
+ "l-*-2412"
+ "l-*-2410"))
#(ribcage
#(orig-args)
#((top))
- #("px"))
+ #("l-*-2409"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))))
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}#
+ #{rkey 25543}#))))
+ #{tmp 25551}#)
+ (let ((#{tmp 25588}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{args 25540}#
'((any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}#
+ (if (if #{tmp 25588}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}#
- #{init -ANAU$bmvAmthP7L7xwsWK}#
- #{b -ANAU$bmvAmthP7L7xwsWL}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#)
+ (lambda (#{a 25592}#
+ #{init 25593}#
+ #{b 25594}#)
+ (if (symbol? #{a 25592}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsWJ}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsWJ}#)
+ (if (if (vector? #{a 25592}#)
+ (if (= (vector-length #{a 25592}#)
4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsWJ}#
- 0)
+ (eq? (vector-ref #{a 25592}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsWJ}#
- 1))
+ (symbol? (vector-ref #{a 25592}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
+ #{tmp 25588}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}#
- #{init -ANAU$bmvAmthP7L7xwsWn}#
- #{b -ANAU$bmvAmthP7L7xwsWo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}#
+ (lambda (#{a 25621}# #{init 25622}# #{b 25623}#)
+ (let ((#{tmp 25624}#
(symbol->keyword
- (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsWm}#))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsWo}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (list #{tmp -ANAU$bmvAmthP7L7xwsWp}#
- #{a -ANAU$bmvAmthP7L7xwsWm}#
- #{init -ANAU$bmvAmthP7L7xwsWn}#)
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWs}#
+ (syntax->datum #{a 25621}#))))
+ (#{key 25260}#
+ #{b 25623}#
+ #{req 25541}#
+ #{opt 25542}#
+ (cons (list #{tmp 25624}#
+ #{a 25621}#
+ #{init 25622}#)
+ #{rkey 25543}#))))
+ #{tmp 25588}#)
+ (let ((#{tmp 25627}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{args 25540}#
'((any any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}#
+ (if (if #{tmp 25627}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}#
- #{init -ANAU$bmvAmthP7L7xwsWx}#
- #{k -ANAU$bmvAmthP7L7xwsWy}#
- #{b -ANAU$bmvAmthP7L7xwsWz}#)
- (if (if (symbol?
- #{a -ANAU$bmvAmthP7L7xwsWw}#)
+ (lambda (#{a 25631}#
+ #{init 25632}#
+ #{k 25633}#
+ #{b 25634}#)
+ (if (if (symbol? #{a 25631}#)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsWw}#)
+ (if (if (vector? #{a 25631}#)
(if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsWw}#)
+ #{a 25631}#)
4)
(eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsWw}#
+ #{a 25631}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsWw}#
- 1))
+ (vector-ref #{a 25631}# 1))
#f))
(keyword?
- (syntax->datum
- #{k -ANAU$bmvAmthP7L7xwsWy}#))
+ (syntax->datum #{k 25633}#))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
+ #{tmp 25627}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsXO}#
- #{init -ANAU$bmvAmthP7L7xwsXP}#
- #{k -ANAU$bmvAmthP7L7xwsXQ}#
- #{b -ANAU$bmvAmthP7L7xwsXR}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsXR}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (list #{k -ANAU$bmvAmthP7L7xwsXQ}#
- #{a -ANAU$bmvAmthP7L7xwsXO}#
- #{init -ANAU$bmvAmthP7L7xwsXP}#)
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXS}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '(any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}#
+ (lambda (#{a 25661}#
+ #{init 25662}#
+ #{k 25663}#
+ #{b 25664}#)
+ (#{key 25260}#
+ #{b 25664}#
+ #{req 25541}#
+ #{opt 25542}#
+ (cons (list #{k 25663}#
+ #{a 25661}#
+ #{init 25662}#)
+ #{rkey 25543}#)))
+ #{tmp 25627}#)
+ (let ((#{tmp 25665}#
+ ($sc-dispatch #{args 25540}# '(any))))
+ (if (if #{tmp 25665}#
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXW}#)
- (eq? (syntax->datum
- #{aok -ANAU$bmvAmthP7L7xwsXW}#)
+ (lambda (#{aok 25669}#)
+ (eq? (syntax->datum #{aok 25669}#)
#:allow-other-keys))
- #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
+ #{tmp 25665}#)
#f)
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#)
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (#{aok 25670}#)
+ (#{check 25262}#
+ #{req 25541}#
+ #{opt 25542}#
#f
- (cons #t
- (reverse
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}#
+ (cons #t (reverse #{rkey 25543}#))))
+ #{tmp 25665}#)
+ (let ((#{tmp 25673}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{args 25540}#
'(any any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}#
+ (if (if #{tmp 25673}#
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXe}#
- #{a -ANAU$bmvAmthP7L7xwsXf}#
- #{b -ANAU$bmvAmthP7L7xwsXg}#)
+ (lambda (#{aok 25677}#
+ #{a 25678}#
+ #{b 25679}#)
(if (eq? (syntax->datum
- #{aok -ANAU$bmvAmthP7L7xwsXe}#)
+ #{aok 25677}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsXf}#)
+ #{a 25678}#)
#:rest)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
+ #{tmp 25673}#)
#f)
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXh}#
- #{a -ANAU$bmvAmthP7L7xwsXi}#
- #{b -ANAU$bmvAmthP7L7xwsXj}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsXj}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (#{aok 25680}#
+ #{a 25681}#
+ #{b 25682}#)
+ (#{rest 25261}#
+ #{b 25682}#
+ #{req 25541}#
+ #{opt 25542}#
(cons #t
- (reverse
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}#
+ (reverse #{rkey 25543}#))))
+ #{tmp 25673}#)
+ (let ((#{tmp 25685}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{args 25540}#
'(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsXm}#
+ (if (if #{tmp 25685}#
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXq}#
- #{r -ANAU$bmvAmthP7L7xwsXr}#)
+ (lambda (#{aok 25689}#
+ #{r 25690}#)
(if (eq? (syntax->datum
- #{aok -ANAU$bmvAmthP7L7xwsXq}#)
+ #{aok 25689}#)
#:allow-other-keys)
- (if (symbol?
- #{r -ANAU$bmvAmthP7L7xwsXr}#)
+ (if (symbol? #{r 25690}#)
#t
(if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsXr}#)
+ #{r 25690}#)
(if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsXr}#)
+ #{r 25690}#)
4)
(eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsXr}#
+ #{r 25690}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r -ANAU$bmvAmthP7L7xwsXr}#
+ #{r 25690}#
1))
#f))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
+ #{tmp 25685}#)
#f)
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsYG}#
- #{r -ANAU$bmvAmthP7L7xwsYH}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsYH}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (#{aok 25717}#
+ #{r 25718}#)
+ (#{rest 25261}#
+ #{r 25718}#
+ #{req 25541}#
+ #{opt 25542}#
(cons #t
(reverse
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsYK}#
+ #{rkey 25543}#))))
+ #{tmp 25685}#)
+ (let ((#{tmp 25721}#
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ #{args 25540}#
'(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsYK}#
+ (if (if #{tmp 25721}#
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsYO}#
- #{b -ANAU$bmvAmthP7L7xwsYP}#)
+ (lambda (#{a 25725}#
+ #{b 25726}#)
(eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsYO}#)
+ #{a 25725}#)
#:rest))
- #{tmp -ANAU$bmvAmthP7L7xwsYK}#)
+ #{tmp 25721}#)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsYQ}#
- #{b -ANAU$bmvAmthP7L7xwsYR}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsYR}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (#{a 25727}#
+ #{b 25728}#)
+ (#{rest 25261}#
+ #{b 25728}#
+ #{req 25541}#
+ #{opt 25542}#
(cons #f
(reverse
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsYK}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsYU}#
- (list #{args -ANAU$bmvAmthP7L7xwsVV}#)))
+ #{rkey 25543}#))))
+ #{tmp 25721}#)
+ (let ((#{tmp 25731}#
+ (list #{args 25540}#)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsYW}#)
+ (lambda (#{r 25733}#)
(if (symbol?
- #{r -ANAU$bmvAmthP7L7xwsYW}#)
+ #{r 25733}#)
#t
(if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsYW}#)
+ #{r 25733}#)
(if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsYW}#)
+ #{r 25733}#)
4)
(eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsYW}#
+ #{r 25733}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r -ANAU$bmvAmthP7L7xwsYW}#
+ #{r 25733}#
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsYU}#)
+ #{tmp 25731}#)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsY0}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsY0}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (#{r 25763}#)
+ (#{rest 25261}#
+ #{r 25763}#
+ #{req 25541}#
+ #{opt 25542}#
(cons #f
(reverse
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsYU}#)
+ #{rkey 25543}#))))
+ #{tmp 25731}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args -ANAU$bmvAmthP7L7xwsVV}#)))))))))))))))))))))
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsZQ}#
- #{req -ANAU$bmvAmthP7L7xwsZR}#
- #{opt -ANAU$bmvAmthP7L7xwsZS}#
- #{kw -ANAU$bmvAmthP7L7xwsZT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsZV}#
- (list #{args -ANAU$bmvAmthP7L7xwsZQ}#)))
+ #{orig-args 25257}#
+ #{args 25540}#)))))))))))))))))))))
+ (#{rest 25261}#
+ (lambda (#{args 25791}#
+ #{req 25792}#
+ #{opt 25793}#
+ #{kw 25794}#)
+ (let ((#{tmp 25796}# (list #{args 25791}#)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#)
- (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#)
+ (lambda (#{r 25798}#)
+ (if (symbol? #{r 25798}#)
#t
- (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#)
- (if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsZX}#)
- 4)
- (eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsZX}#
- 0)
+ (if (if (vector? #{r 25798}#)
+ (if (= (vector-length #{r 25798}#) 4)
+ (eq? (vector-ref #{r 25798}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1))
+ (symbol? (vector-ref #{r 25798}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
+ #{tmp 25796}#)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#)
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- #{req -ANAU$bmvAmthP7L7xwsZR}#
- #{opt -ANAU$bmvAmthP7L7xwsZS}#
- #{r -ANAU$bmvAmthP7L7xwsZ1}#
- #{kw -ANAU$bmvAmthP7L7xwsZT}#))
- #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
+ (lambda (#{r 25828}#)
+ (#{check 25262}#
+ #{req 25792}#
+ #{opt 25793}#
+ #{r 25828}#
+ #{kw 25794}#))
+ #{tmp 25796}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args -ANAU$bmvAmthP7L7xwsZQ}#)))))
- (#{check -ANAU$bmvAmthP7L7xwsQ@}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}#
- #{opt -ANAU$bmvAmthP7L7xwsZ6}#
- #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
- (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ #{orig-args 25257}#
+ #{args 25791}#)))))
+ (#{check 25262}#
+ (lambda (#{req 25832}#
+ #{opt 25833}#
+ #{rest 25834}#
+ #{kw 25835}#)
+ (if (#{distinct-bound-ids? 4513}#
(append
- #{req -ANAU$bmvAmthP7L7xwsZ5}#
- (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#)
- (if #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#)
- '())
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
- (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#))
+ #{req 25832}#
+ (map car #{opt 25833}#)
+ (if #{rest 25834}# (list #{rest 25834}#) '())
+ (if (pair? #{kw 25835}#)
+ (map cadr (cdr #{kw 25835}#))
'())))
(values
- #{req -ANAU$bmvAmthP7L7xwsZ5}#
- #{opt -ANAU$bmvAmthP7L7xwsZ6}#
- #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ #{req 25832}#
+ #{opt 25833}#
+ #{rest 25834}#
+ #{kw 25835}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)))))
- (#{req -ANAU$bmvAmthP7L7xwsQ7}#
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- '()))))
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwsbw}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#
- #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#)
+ #{orig-args 25257}#)))))
+ (#{req 25258}# #{orig-args 25257}# '()))))
+ (#{expand-lambda-case 4534}#
+ (lambda (#{e 25951}#
+ #{r 25952}#
+ #{w 25953}#
+ #{s 25954}#
+ #{mod 25955}#
+ #{get-formals 25956}#
+ #{clauses 25957}#)
(letrec*
- ((#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsd2}#
- #{opt -ANAU$bmvAmthP7L7xwsd3}#
- #{rest -ANAU$bmvAmthP7L7xwsd4}#
- #{kw -ANAU$bmvAmthP7L7xwsd5}#
- #{body -ANAU$bmvAmthP7L7xwsd6}#)
- (let ((#{vars -ANAU$bmvAmthP7L7xwsd7}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#))
- (#{labels -ANAU$bmvAmthP7L7xwsd8}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#)))
- (let ((#{r* -ANAU$bmvAmthP7L7xwsd9}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwsd8}#
- #{vars -ANAU$bmvAmthP7L7xwsd7}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#))
- (#{w* -ANAU$bmvAmthP7L7xwsd$}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#
- #{labels -ANAU$bmvAmthP7L7xwsd8}#
- #{w -ANAU$bmvAmthP7L7xwsby}#)))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- (map syntax->datum
- #{req -ANAU$bmvAmthP7L7xwsd2}#)
- #{opt -ANAU$bmvAmthP7L7xwsd3}#
- #{rest -ANAU$bmvAmthP7L7xwsd4}#
- #{kw -ANAU$bmvAmthP7L7xwsd5}#
- #{body -ANAU$bmvAmthP7L7xwsd6}#
- (reverse #{vars -ANAU$bmvAmthP7L7xwsd7}#)
- #{r* -ANAU$bmvAmthP7L7xwsd9}#
- #{w* -ANAU$bmvAmthP7L7xwsd$}#
+ ((#{parse-req 25958}#
+ (lambda (#{req 26089}#
+ #{opt 26090}#
+ #{rest 26091}#
+ #{kw 26092}#
+ #{body 26093}#)
+ (let ((#{vars 26094}#
+ (map #{gen-var 4536}# #{req 26089}#))
+ (#{labels 26095}#
+ (#{gen-labels 4489}# #{req 26089}#)))
+ (let ((#{r* 26096}#
+ (#{extend-var-env 4481}#
+ #{labels 26095}#
+ #{vars 26094}#
+ #{r 25952}#))
+ (#{w* 26097}#
+ (#{make-binding-wrap 4500}#
+ #{req 26089}#
+ #{labels 26095}#
+ #{w 25953}#)))
+ (#{parse-opt 25959}#
+ (map syntax->datum #{req 26089}#)
+ #{opt 26090}#
+ #{rest 26091}#
+ #{kw 26092}#
+ #{body 26093}#
+ (reverse #{vars 26094}#)
+ #{r* 26096}#
+ #{w* 26097}#
'()
'())))))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsgu}#
- #{opt -ANAU$bmvAmthP7L7xwsgv}#
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- #{kw -ANAU$bmvAmthP7L7xwsgx}#
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- #{out -ANAU$bmvAmthP7L7xwsg2}#
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)
- (if (pair? #{opt -ANAU$bmvAmthP7L7xwsgv}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsg4}#
- (car #{opt -ANAU$bmvAmthP7L7xwsgv}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsg5}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwsg4}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsg5}#
+ (#{parse-opt 25959}#
+ (lambda (#{req 26283}#
+ #{opt 26284}#
+ #{rest 26285}#
+ #{kw 26286}#
+ #{body 26287}#
+ #{vars 26288}#
+ #{r* 26289}#
+ #{w* 26290}#
+ #{out 26291}#
+ #{inits 26292}#)
+ (if (pair? #{opt 26284}#)
+ (let ((#{tmp 26293}# (car #{opt 26284}#)))
+ (let ((#{tmp 26294}#
+ ($sc-dispatch #{tmp 26293}# '(any any))))
+ (if #{tmp 26294}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}#
- #{i -ANAU$bmvAmthP7L7xwsg8}#)
- (let ((#{v -ANAU$bmvAmthP7L7xwsg9}#
- (let ((#{id -ANAU$bmvAmthP7L7xwshF}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwsg7}#)
+ (lambda (#{id 26296}# #{i 26297}#)
+ (let ((#{v 26298}#
+ (let ((#{id 26306}#
+ (if (if (vector? #{id 26296}#)
(if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwsg7}#)
+ #{id 26296}#)
4)
(eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsg7}#
+ #{id 26296}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsg7}#
- 1)
- #{id -ANAU$bmvAmthP7L7xwsg7}#)))
+ (vector-ref #{id 26296}# 1)
+ #{id 26296}#)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwshF}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwsg$}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwsg9}#))))
- (let ((#{r** -ANAU$bmvAmthP7L7xwsg@}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwsg$}#
- (list #{v -ANAU$bmvAmthP7L7xwsg9}#)
- #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
- (let ((#{w** -ANAU$bmvAmthP7L7xwshA}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (list #{id -ANAU$bmvAmthP7L7xwsg7}#)
- #{l -ANAU$bmvAmthP7L7xwsg$}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (cdr #{opt -ANAU$bmvAmthP7L7xwsgv}#)
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- #{kw -ANAU$bmvAmthP7L7xwsgx}#
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- (cons #{v -ANAU$bmvAmthP7L7xwsg9}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#)
- #{r** -ANAU$bmvAmthP7L7xwsg@}#
- #{w** -ANAU$bmvAmthP7L7xwshA}#
- (cons (syntax->datum
- #{id -ANAU$bmvAmthP7L7xwsg7}#)
- #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{i -ANAU$bmvAmthP7L7xwsg8}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwsg5}#)
+ (symbol->string #{id 26306}#)
+ "-")))))
+ (let ((#{l 26299}#
+ (#{gen-labels 4489}#
+ (list #{v 26298}#))))
+ (let ((#{r** 26300}#
+ (#{extend-var-env 4481}#
+ #{l 26299}#
+ (list #{v 26298}#)
+ #{r* 26289}#)))
+ (let ((#{w** 26301}#
+ (#{make-binding-wrap 4500}#
+ (list #{id 26296}#)
+ #{l 26299}#
+ #{w* 26290}#)))
+ (#{parse-opt 25959}#
+ #{req 26283}#
+ (cdr #{opt 26284}#)
+ #{rest 26285}#
+ #{kw 26286}#
+ #{body 26287}#
+ (cons #{v 26298}# #{vars 26288}#)
+ #{r** 26300}#
+ #{w** 26301}#
+ (cons (syntax->datum #{id 26296}#)
+ #{out 26291}#)
+ (cons (#{expand 4522}#
+ #{i 26297}#
+ #{r* 26289}#
+ #{w* 26290}#
+ #{mod 25955}#)
+ #{inits 26292}#)))))))
+ #{tmp 26294}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwsg4}#))))
- (if #{rest -ANAU$bmvAmthP7L7xwsgw}#
- (let ((#{v -ANAU$bmvAmthP7L7xwskq}#
- (let ((#{id -ANAU$bmvAmthP7L7xwsk0}#
- (if (if (vector?
- #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- (if (= (vector-length
- #{rest -ANAU$bmvAmthP7L7xwsgw}#)
+ #{tmp 26293}#))))
+ (if #{rest 26285}#
+ (let ((#{v 26544}#
+ (let ((#{id 26554}#
+ (if (if (vector? #{rest 26285}#)
+ (if (= (vector-length #{rest 26285}#)
4)
- (eq? (vector-ref
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- 0)
+ (eq? (vector-ref #{rest 26285}# 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- 1)
- #{rest -ANAU$bmvAmthP7L7xwsgw}#)))
+ (vector-ref #{rest 26285}# 1)
+ #{rest 26285}#)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwsk0}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwskr}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwskq}#))))
- (let ((#{r* -ANAU$bmvAmthP7L7xwsks}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwskr}#
- (list #{v -ANAU$bmvAmthP7L7xwskq}#)
- #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
- (let ((#{w* -ANAU$bmvAmthP7L7xwskt}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (list #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- #{l -ANAU$bmvAmthP7L7xwskr}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
- #f)
- (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- (cons #{v -ANAU$bmvAmthP7L7xwskq}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#)
- #{r* -ANAU$bmvAmthP7L7xwsks}#
- #{w* -ANAU$bmvAmthP7L7xwskt}#
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
+ (symbol->string #{id 26554}#)
+ "-")))))
+ (let ((#{l 26545}#
+ (#{gen-labels 4489}# (list #{v 26544}#))))
+ (let ((#{r* 26546}#
+ (#{extend-var-env 4481}#
+ #{l 26545}#
+ (list #{v 26544}#)
+ #{r* 26289}#)))
+ (let ((#{w* 26547}#
+ (#{make-binding-wrap 4500}#
+ (list #{rest 26285}#)
+ #{l 26545}#
+ #{w* 26290}#)))
+ (#{parse-kw 25960}#
+ #{req 26283}#
+ (if (pair? #{out 26291}#)
+ (reverse #{out 26291}#)
#f)
+ (syntax->datum #{rest 26285}#)
+ (if (pair? #{kw 26286}#)
+ (cdr #{kw 26286}#)
+ #{kw 26286}#)
+ #{body 26287}#
+ (cons #{v 26544}# #{vars 26288}#)
+ #{r* 26546}#
+ #{w* 26547}#
+ (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f)
'()
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ #{inits 26292}#)))))
+ (#{parse-kw 25960}#
+ #{req 26283}#
+ (if (pair? #{out 26291}#)
+ (reverse #{out 26291}#)
#f)
#f
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #f)
+ (if (pair? #{kw 26286}#)
+ (cdr #{kw 26286}#)
+ #{kw 26286}#)
+ #{body 26287}#
+ #{vars 26288}#
+ #{r* 26289}#
+ #{w* 26290}#
+ (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f)
'()
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- #{kw -ANAU$bmvAmthP7L7xwsnZ}#
- #{body -ANAU$bmvAmthP7L7xwsna}#
- #{vars -ANAU$bmvAmthP7L7xwsnb}#
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- #{out -ANAU$bmvAmthP7L7xwsnf}#
- #{inits -ANAU$bmvAmthP7L7xwsng}#)
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsnh}#
- (car #{kw -ANAU$bmvAmthP7L7xwsnZ}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsni}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwsnh}#
- '(any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsni}#
+ #{inits 26292}#)))))
+ (#{parse-kw 25960}#
+ (lambda (#{req 26725}#
+ #{opt 26726}#
+ #{rest 26727}#
+ #{kw 26728}#
+ #{body 26729}#
+ #{vars 26730}#
+ #{r* 26731}#
+ #{w* 26732}#
+ #{aok 26733}#
+ #{out 26734}#
+ #{inits 26735}#)
+ (if (pair? #{kw 26728}#)
+ (let ((#{tmp 26736}# (car #{kw 26728}#)))
+ (let ((#{tmp 26737}#
+ ($sc-dispatch #{tmp 26736}# '(any any any))))
+ (if #{tmp 26737}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}#
- #{id -ANAU$bmvAmthP7L7xwsnl}#
- #{i -ANAU$bmvAmthP7L7xwsnm}#)
- (let ((#{v -ANAU$bmvAmthP7L7xwsnn}#
- (let ((#{id -ANAU$bmvAmthP7L7xwsnv}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwsnl}#)
+ (lambda (#{k 26739}# #{id 26740}# #{i 26741}#)
+ (let ((#{v 26742}#
+ (let ((#{id 26750}#
+ (if (if (vector? #{id 26740}#)
(if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwsnl}#)
+ #{id 26740}#)
4)
(eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsnl}#
+ #{id 26740}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsnl}#
- 1)
- #{id -ANAU$bmvAmthP7L7xwsnl}#)))
+ (vector-ref #{id 26740}# 1)
+ #{id 26740}#)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwsnv}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwsno}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwsnn}#))))
- (let ((#{r** -ANAU$bmvAmthP7L7xwsnp}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwsno}#
- (list #{v -ANAU$bmvAmthP7L7xwsnn}#)
- #{r* -ANAU$bmvAmthP7L7xwsnc}#)))
- (let ((#{w** -ANAU$bmvAmthP7L7xwsnq}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (list #{id -ANAU$bmvAmthP7L7xwsnl}#)
- #{l -ANAU$bmvAmthP7L7xwsno}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#)))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- (cdr #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
- #{body -ANAU$bmvAmthP7L7xwsna}#
- (cons #{v -ANAU$bmvAmthP7L7xwsnn}#
- #{vars -ANAU$bmvAmthP7L7xwsnb}#)
- #{r** -ANAU$bmvAmthP7L7xwsnp}#
- #{w** -ANAU$bmvAmthP7L7xwsnq}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- (cons (list (syntax->datum
- #{k -ANAU$bmvAmthP7L7xwsnk}#)
- (syntax->datum
- #{id -ANAU$bmvAmthP7L7xwsnl}#)
- #{v -ANAU$bmvAmthP7L7xwsnn}#)
- #{out -ANAU$bmvAmthP7L7xwsnf}#)
- (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{i -ANAU$bmvAmthP7L7xwsnm}#
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{inits -ANAU$bmvAmthP7L7xwsng}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwsni}#)
+ (symbol->string #{id 26750}#)
+ "-")))))
+ (let ((#{l 26743}#
+ (#{gen-labels 4489}#
+ (list #{v 26742}#))))
+ (let ((#{r** 26744}#
+ (#{extend-var-env 4481}#
+ #{l 26743}#
+ (list #{v 26742}#)
+ #{r* 26731}#)))
+ (let ((#{w** 26745}#
+ (#{make-binding-wrap 4500}#
+ (list #{id 26740}#)
+ #{l 26743}#
+ #{w* 26732}#)))
+ (#{parse-kw 25960}#
+ #{req 26725}#
+ #{opt 26726}#
+ #{rest 26727}#
+ (cdr #{kw 26728}#)
+ #{body 26729}#
+ (cons #{v 26742}# #{vars 26730}#)
+ #{r** 26744}#
+ #{w** 26745}#
+ #{aok 26733}#
+ (cons (list (syntax->datum #{k 26739}#)
+ (syntax->datum #{id 26740}#)
+ #{v 26742}#)
+ #{out 26734}#)
+ (cons (#{expand 4522}#
+ #{i 26741}#
+ #{r* 26731}#
+ #{w* 26732}#
+ #{mod 25955}#)
+ #{inits 26735}#)))))))
+ #{tmp 26737}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwsnh}#))))
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- (if (if #{aok -ANAU$bmvAmthP7L7xwsne}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- (pair? #{out -ANAU$bmvAmthP7L7xwsnf}#))
- (cons #{aok -ANAU$bmvAmthP7L7xwsne}#
- (reverse #{out -ANAU$bmvAmthP7L7xwsnf}#))
+ #{tmp 26736}#))))
+ (#{parse-body 25961}#
+ #{req 26725}#
+ #{opt 26726}#
+ #{rest 26727}#
+ (if (if #{aok 26733}#
+ #{aok 26733}#
+ (pair? #{out 26734}#))
+ (cons #{aok 26733}# (reverse #{out 26734}#))
#f)
- #{body -ANAU$bmvAmthP7L7xwsna}#
- (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#)
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#)
+ #{body 26729}#
+ (reverse #{vars 26730}#)
+ #{r* 26731}#
+ #{w* 26732}#
+ (reverse #{inits 26735}#)
'()))))
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- #{body -ANAU$bmvAmthP7L7xwsrh}#
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
- #{meta -ANAU$bmvAmthP7L7xwsrm}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsro}#
+ (#{parse-body 25961}#
+ (lambda (#{req 26997}#
+ #{opt 26998}#
+ #{rest 26999}#
+ #{kw 27000}#
+ #{body 27001}#
+ #{vars 27002}#
+ #{r* 27003}#
+ #{w* 27004}#
+ #{inits 27005}#
+ #{meta 27006}#)
+ (let ((#{tmp 27008}#
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
+ #{body 27001}#
'(any any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}#
+ (if (if #{tmp 27008}#
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}#
- #{e1 -ANAU$bmvAmthP7L7xwsrt}#
- #{e2 -ANAU$bmvAmthP7L7xwsru}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xwsrs}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsro}#)
+ (lambda (#{docstring 27012}#
+ #{e1 27013}#
+ #{e2 27014}#)
+ (string? (syntax->datum #{docstring 27012}#)))
+ #{tmp 27008}#)
#f)
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrv}#
- #{e1 -ANAU$bmvAmthP7L7xwsrw}#
- #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsrw}#
- #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ (lambda (#{docstring 27015}# #{e1 27016}# #{e2 27017}#)
+ (#{parse-body 25961}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{rest 26999}#
+ #{kw 27000}#
+ (cons #{e1 27016}# #{e2 27017}#)
+ #{vars 27002}#
+ #{r* 27003}#
+ #{w* 27004}#
+ #{inits 27005}#
(append
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
+ #{meta 27006}#
(list (cons 'documentation
(syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xwsrv}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwsro}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}#
+ #{docstring 27015}#))))))
+ #{tmp 27008}#)
+ (let ((#{tmp 27018}#
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
+ #{body 27001}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsry}#
+ (if #{tmp 27018}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwsr2}#
- #{v -ANAU$bmvAmthP7L7xwsr3}#
- #{e1 -ANAU$bmvAmthP7L7xwsr4}#
- #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsr4}#
- #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ (lambda (#{k 27022}#
+ #{v 27023}#
+ #{e1 27024}#
+ #{e2 27025}#)
+ (#{parse-body 25961}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{rest 26999}#
+ #{kw 27000}#
+ (cons #{e1 27024}# #{e2 27025}#)
+ #{vars 27002}#
+ #{r* 27003}#
+ #{w* 27004}#
+ #{inits 27005}#
(append
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
+ #{meta 27006}#
(syntax->datum
- (map cons
- #{k -ANAU$bmvAmthP7L7xwsr2}#
- #{v -ANAU$bmvAmthP7L7xwsr3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwsry}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}#
+ (map cons #{k 27022}# #{v 27023}#)))))
+ #{tmp 27018}#)
+ (let ((#{tmp 27026}#
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
+ #{body 27001}#
'(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsr6}#
+ (if #{tmp 27026}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}#
- #{e2 -ANAU$bmvAmthP7L7xwsr@}#)
+ (lambda (#{e1 27030}# #{e2 27031}#)
(values
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsr$}#
- #{e2 -ANAU$bmvAmthP7L7xwsr@}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{meta 27006}#
+ #{req 26997}#
+ #{opt 26998}#
+ #{rest 26999}#
+ #{kw 27000}#
+ #{inits 27005}#
+ #{vars 27002}#
+ (#{expand-body 4526}#
+ (cons #{e1 27030}# #{e2 27031}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsbw}#)
- #{s -ANAU$bmvAmthP7L7xwsbz}#
+ (if (if (pair? #{e 25951}#)
+ #{s 25954}#
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwsbw}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#))
- #{e -ANAU$bmvAmthP7L7xwsbw}#)
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsr6}#)
+ #{e 25951}#
+ #{s 25954}#))
+ #{e 25951}#)
+ #{w 25953}#
+ #{mod 25955}#)
+ #{r* 27003}#
+ #{w* 27004}#
+ #{mod 25955}#)))
+ #{tmp 27026}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body -ANAU$bmvAmthP7L7xwsrh}#))))))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}#
- ($sc-dispatch
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsb8}#
+ #{body 27001}#))))))))))
+ (let ((#{tmp 25963}#
+ ($sc-dispatch #{clauses 25957}# '())))
+ (if #{tmp 25963}#
(@apply
(lambda () (values '() #f))
- #{tmp -ANAU$bmvAmthP7L7xwsb8}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}#
+ #{tmp 25963}#)
+ (let ((#{tmp 25967}#
($sc-dispatch
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#
+ #{clauses 25957}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwscA}#
+ (if #{tmp 25967}#
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwscE}#
- #{e1 -ANAU$bmvAmthP7L7xwscF}#
- #{e2 -ANAU$bmvAmthP7L7xwscG}#
- #{args* -ANAU$bmvAmthP7L7xwscH}#
- #{e1* -ANAU$bmvAmthP7L7xwscI}#
- #{e2* -ANAU$bmvAmthP7L7xwscJ}#)
+ (lambda (#{args 25971}#
+ #{e1 25972}#
+ #{e2 25973}#
+ #{args* 25974}#
+ #{e1* 25975}#
+ #{e2* 25976}#)
(call-with-values
(lambda ()
- (#{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- #{args -ANAU$bmvAmthP7L7xwscE}#))
- (lambda (#{req -ANAU$bmvAmthP7L7xwscK}#
- #{opt -ANAU$bmvAmthP7L7xwscL}#
- #{rest -ANAU$bmvAmthP7L7xwscM}#
- #{kw -ANAU$bmvAmthP7L7xwscN}#)
+ (#{get-formals 25956}# #{args 25971}#))
+ (lambda (#{req 25977}#
+ #{opt 25978}#
+ #{rest 25979}#
+ #{kw 25980}#)
(call-with-values
(lambda ()
- (#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
- #{req -ANAU$bmvAmthP7L7xwscK}#
- #{opt -ANAU$bmvAmthP7L7xwscL}#
- #{rest -ANAU$bmvAmthP7L7xwscM}#
- #{kw -ANAU$bmvAmthP7L7xwscN}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwscF}#
- #{e2 -ANAU$bmvAmthP7L7xwscG}#)))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwsdK}#
- #{req -ANAU$bmvAmthP7L7xwsdL}#
- #{opt -ANAU$bmvAmthP7L7xwsdM}#
- #{rest -ANAU$bmvAmthP7L7xwsdN}#
- #{kw -ANAU$bmvAmthP7L7xwsdO}#
- #{inits -ANAU$bmvAmthP7L7xwsdP}#
- #{vars -ANAU$bmvAmthP7L7xwsdQ}#
- #{body -ANAU$bmvAmthP7L7xwsdR}#)
+ (#{parse-req 25958}#
+ #{req 25977}#
+ #{opt 25978}#
+ #{rest 25979}#
+ #{kw 25980}#
+ (cons #{e1 25972}# #{e2 25973}#)))
+ (lambda (#{meta 26045}#
+ #{req 26046}#
+ #{opt 26047}#
+ #{rest 26048}#
+ #{kw 26049}#
+ #{inits 26050}#
+ #{vars 26051}#
+ #{body 26052}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwsbw}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#
- #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#
- #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
- #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#
- (cons #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
- #{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#)))
- #{e2* -ANAU$bmvAmthP7L7xwscJ}#
- #{e1* -ANAU$bmvAmthP7L7xwscI}#
- #{args* -ANAU$bmvAmthP7L7xwscH}#)))
- (lambda (#{meta* -ANAU$bmvAmthP7L7xwsdV}#
- #{else* -ANAU$bmvAmthP7L7xwsdW}#)
+ (#{expand-lambda-case 4534}#
+ #{e 25951}#
+ #{r 25952}#
+ #{w 25953}#
+ #{s 25954}#
+ #{mod 25955}#
+ #{get-formals 25956}#
+ (map (lambda (#{tmp-2888 26053}#
+ #{tmp-2887 26054}#
+ #{tmp-2886 26055}#)
+ (cons #{tmp-2886 26055}#
+ (cons #{tmp-2887 26054}#
+ #{tmp-2888 26053}#)))
+ #{e2* 25976}#
+ #{e1* 25975}#
+ #{args* 25974}#)))
+ (lambda (#{meta* 26056}# #{else* 26057}#)
(values
- (append
- #{meta -ANAU$bmvAmthP7L7xwsdK}#
- #{meta* -ANAU$bmvAmthP7L7xwsdV}#)
+ (append #{meta 26045}# #{meta* 26056}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{req -ANAU$bmvAmthP7L7xwsdL}#
- #{opt -ANAU$bmvAmthP7L7xwsdM}#
- #{rest -ANAU$bmvAmthP7L7xwsdN}#
- #{kw -ANAU$bmvAmthP7L7xwsdO}#
- #{inits -ANAU$bmvAmthP7L7xwsdP}#
- #{vars -ANAU$bmvAmthP7L7xwsdQ}#
- #{body -ANAU$bmvAmthP7L7xwsdR}#
- #{else* -ANAU$bmvAmthP7L7xwsdW}#)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwscA}#)
+ #{s 25954}#
+ #{req 26046}#
+ #{opt 26047}#
+ #{rest 26048}#
+ #{kw 26049}#
+ #{inits 26050}#
+ #{vars 26051}#
+ #{body 26052}#
+ #{else* 26057}#)))))))))
+ #{tmp 25967}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#))))))))
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwssk}#
- #{w -ANAU$bmvAmthP7L7xwssl}#)
- (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#))
- #{x -ANAU$bmvAmthP7L7xwssk}#
+ #{clauses 25957}#))))))))
+ (#{strip 4535}#
+ (lambda (#{x 27068}# #{w 27069}#)
+ (if (memq 'top (car #{w 27069}#))
+ #{x 27068}#
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwssm}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#)
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0)
- 'syntax-object)
+ ((#{f 27070}#
+ (lambda (#{x 27073}#)
+ (if (if (vector? #{x 27073}#)
+ (if (= (vector-length #{x 27073}#) 4)
+ (eq? (vector-ref #{x 27073}# 0) 'syntax-object)
#f)
#f)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 1)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 2))
- (if (pair? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (let ((#{a -ANAU$bmvAmthP7L7xwss8}#
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- (car #{x -ANAU$bmvAmthP7L7xwssp}#)))
- (#{d -ANAU$bmvAmthP7L7xwss9}#
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))))
- (if (if (eq? #{a -ANAU$bmvAmthP7L7xwss8}#
- (car #{x -ANAU$bmvAmthP7L7xwssp}#))
- (eq? #{d -ANAU$bmvAmthP7L7xwss9}#
- (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))
+ (#{strip 4535}#
+ (vector-ref #{x 27073}# 1)
+ (vector-ref #{x 27073}# 2))
+ (if (pair? #{x 27073}#)
+ (let ((#{a 27092}# (#{f 27070}# (car #{x 27073}#)))
+ (#{d 27093}# (#{f 27070}# (cdr #{x 27073}#))))
+ (if (if (eq? #{a 27092}# (car #{x 27073}#))
+ (eq? #{d 27093}# (cdr #{x 27073}#))
#f)
- #{x -ANAU$bmvAmthP7L7xwssp}#
- (cons #{a -ANAU$bmvAmthP7L7xwss8}#
- #{d -ANAU$bmvAmthP7L7xwss9}#)))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (let ((#{old -ANAU$bmvAmthP7L7xwstA}#
- (vector->list #{x -ANAU$bmvAmthP7L7xwssp}#)))
- (let ((#{new -ANAU$bmvAmthP7L7xwstB}#
- (map #{f -ANAU$bmvAmthP7L7xwssm}#
- #{old -ANAU$bmvAmthP7L7xwstA}#)))
+ #{x 27073}#
+ (cons #{a 27092}# #{d 27093}#)))
+ (if (vector? #{x 27073}#)
+ (let ((#{old 27096}# (vector->list #{x 27073}#)))
+ (let ((#{new 27097}#
+ (map #{f 27070}# #{old 27096}#)))
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwstC}#
- (lambda (#{l1 -ANAU$bmvAmthP7L7xwsuO}#
- #{l2 -ANAU$bmvAmthP7L7xwsuP}#)
- (if (null? #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
- #{x -ANAU$bmvAmthP7L7xwssp}#
- (if (eq? (car #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
- (car #{l2 -ANAU$bmvAmthP7L7xwsuP}#))
- (#{lp -ANAU$bmvAmthP7L7xwstC}#
- (cdr #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
- (cdr #{l2 -ANAU$bmvAmthP7L7xwsuP}#))
- (list->vector
- #{new -ANAU$bmvAmthP7L7xwstB}#))))))
- (#{lp -ANAU$bmvAmthP7L7xwstC}#
- #{old -ANAU$bmvAmthP7L7xwstA}#
- #{new -ANAU$bmvAmthP7L7xwstB}#))))
- #{x -ANAU$bmvAmthP7L7xwssp}#))))))
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- #{x -ANAU$bmvAmthP7L7xwssk}#)))))
- (#{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwseC}#)
- (let ((#{id -ANAU$bmvAmthP7L7xwseD}#
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwseC}#)
- (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwseC}#)
- 4)
- (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0)
- 'syntax-object)
+ ((#{lp 27098}#
+ (lambda (#{l1 27174}# #{l2 27175}#)
+ (if (null? #{l1 27174}#)
+ #{x 27073}#
+ (if (eq? (car #{l1 27174}#)
+ (car #{l2 27175}#))
+ (#{lp 27098}#
+ (cdr #{l1 27174}#)
+ (cdr #{l2 27175}#))
+ (list->vector #{new 27097}#))))))
+ (#{lp 27098}# #{old 27096}# #{new 27097}#))))
+ #{x 27073}#))))))
+ (#{f 27070}# #{x 27068}#)))))
+ (#{gen-var 4536}#
+ (lambda (#{id 26101}#)
+ (let ((#{id 26102}#
+ (if (if (vector? #{id 26101}#)
+ (if (= (vector-length #{id 26101}#) 4)
+ (eq? (vector-ref #{id 26101}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1)
- #{id -ANAU$bmvAmthP7L7xwseC}#)))
+ (vector-ref #{id 26101}# 1)
+ #{id 26101}#)))
(gensym
- (string-append
- (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#)
- " "))))))
+ (string-append (symbol->string #{id 26102}#) "-"))))))
(begin
- (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}#
- (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0))
- (lambda ()
- (let ((#{n -ANAU$bmvAmthP7L7xwqAY}#
- #{i -ANAU$bmvAmthP7L7xwqAX}#))
- (begin
- (set! #{i -ANAU$bmvAmthP7L7xwqAX}#
- (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#))
- (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36))))))
- (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
+ (set! #{session-id 4447}#
+ (let ((#{v 15641}#
+ (module-variable
+ (current-module)
+ 'syntax-session-id)))
+ (lambda () ((variable-ref #{v 15641}#)))))
+ (set! #{transformer-environment 4508}#
(make-fluid
- (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#)
+ (lambda (#{k 14684}#)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
'let-syntax
'local-syntax
#f))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (#{global-extend 4484}#
'core
'syntax-parameterize
- (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}#
- #{r -ANAU$bmvAmthP7L7xwnQM}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}#
+ (lambda (#{e 4657}#
+ #{r 4658}#
+ #{w 4659}#
+ #{s 4660}#
+ #{mod 4661}#)
+ (let ((#{tmp 4663}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnQL}#
+ #{e 4657}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}#
+ (if (if #{tmp 4663}#
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}#
- #{val -ANAU$bmvAmthP7L7xwnQW}#
- #{e1 -ANAU$bmvAmthP7L7xwnQX}#
- #{e2 -ANAU$bmvAmthP7L7xwnQY}#)
- (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{var -ANAU$bmvAmthP7L7xwnQV}#))
- #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
+ (lambda (#{var 4667}#
+ #{val 4668}#
+ #{e1 4669}#
+ #{e2 4670}#)
+ (#{valid-bound-ids? 4512}# #{var 4667}#))
+ #{tmp 4663}#)
#f)
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xwnRm}#
- #{val -ANAU$bmvAmthP7L7xwnRn}#
- #{e1 -ANAU$bmvAmthP7L7xwnRo}#
- #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
- (let ((#{names -ANAU$bmvAmthP7L7xwnRq}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnSc}#)
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwnSc}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#))
- #{var -ANAU$bmvAmthP7L7xwnRm}#)))
+ (lambda (#{var 4748}#
+ #{val 4749}#
+ #{e1 4750}#
+ #{e2 4751}#)
+ (let ((#{names 4752}#
+ (map (lambda (#{x 4802}#)
+ (#{id-var-name 4505}# #{x 4802}# #{w 4659}#))
+ #{var 4748}#)))
(begin
(for-each
- (lambda (#{id -ANAU$bmvAmthP7L7xwnRr}#
- #{n -ANAU$bmvAmthP7L7xwnRs}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwnRt}#
- (car (let ((#{t -ANAU$bmvAmthP7L7xwnR0}#
- (assq #{n -ANAU$bmvAmthP7L7xwnRs}#
- #{r -ANAU$bmvAmthP7L7xwnQM}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnR0}#
- (cdr #{t -ANAU$bmvAmthP7L7xwnR0}#)
- (if (symbol?
- #{n -ANAU$bmvAmthP7L7xwnRs}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwnR5}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwnRs}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnR5}#
- #{t -ANAU$bmvAmthP7L7xwnR5}#
+ (lambda (#{id 4753}# #{n 4754}#)
+ (let ((#{atom-key 4755}#
+ (car (let ((#{t 4762}#
+ (assq #{n 4754}# #{r 4658}#)))
+ (if #{t 4762}#
+ (cdr #{t 4762}#)
+ (if (symbol? #{n 4754}#)
+ (let ((#{t 4767}#
+ (#{get-global-definition-hook 4449}#
+ #{n 4754}#
+ #{mod 4661}#)))
+ (if #{t 4767}#
+ #{t 4767}#
'(global)))
'(displaced-lexical)))))))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}#
- 'displaced-lexical)
+ (if (eqv? #{atom-key 4755}# 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{e 4657}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{id -ANAU$bmvAmthP7L7xwnRr}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
+ (if (if (pair? #{id 4753}#) #{s 4660}# #f)
(set-source-properties!
- #{id -ANAU$bmvAmthP7L7xwnRr}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{id -ANAU$bmvAmthP7L7xwnRr}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))
- #{var -ANAU$bmvAmthP7L7xwnRm}#
- #{names -ANAU$bmvAmthP7L7xwnRq}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnRo}#
- #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{id 4753}#
+ #{s 4660}#))
+ #{id 4753}#)
+ #{w 4659}#
+ #{mod 4661}#)))))
+ #{var 4748}#
+ #{names 4752}#)
+ (#{expand-body 4526}#
+ (cons #{e1 4750}# #{e2 4751}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{names -ANAU$bmvAmthP7L7xwnRq}#
- (let ((#{trans-r -ANAU$bmvAmthP7L7xwnTy}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwnQM}#)))
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnTz}#)
+ (if (if (pair? #{e 4657}#) #{s 4660}# #f)
+ (set-source-properties! #{e 4657}# #{s 4660}#))
+ #{e 4657}#)
+ #{w 4659}#
+ #{mod 4661}#)
+ (#{extend-env 4480}#
+ #{names 4752}#
+ (let ((#{trans-r 4888}#
+ (#{macros-only-env 4482}# #{r 4658}#)))
+ (map (lambda (#{x 4889}#)
(cons 'macro
- (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwnTz}#
- #{trans-r -ANAU$bmvAmthP7L7xwnTy}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)))
- #{val -ANAU$bmvAmthP7L7xwnRn}#))
- #{r -ANAU$bmvAmthP7L7xwnQM}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
+ (#{eval-local-transformer 4528}#
+ (#{expand 4522}#
+ #{x 4889}#
+ #{trans-r 4888}#
+ #{w 4659}#
+ #{mod 4661}#)
+ #{mod 4661}#)))
+ #{val 4749}#))
+ #{r 4658}#)
+ #{w 4659}#
+ #{mod 4661}#))))
+ #{tmp 4663}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#))))))
+ (if (if (pair? #{e 4657}#) #{s 4660}# #f)
+ (set-source-properties! #{e 4657}# #{s 4660}#))
+ #{e 4657}#)
+ #{w 4659}#
+ #{mod 4661}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}#
- #{r -ANAU$bmvAmthP7L7xwnXF}#
- #{w -ANAU$bmvAmthP7L7xwnXG}#
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #{mod -ANAU$bmvAmthP7L7xwnXI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnXE}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnXK}#
+ (lambda (#{e 5098}#
+ #{r 5099}#
+ #{w 5100}#
+ #{s 5101}#
+ #{mod 5102}#)
+ (let ((#{tmp 5104}# ($sc-dispatch #{e 5098}# '(_ any))))
+ (if #{tmp 5104}#
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#)
- (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{e -ANAU$bmvAmthP7L7xwnXN}#
- #{w -ANAU$bmvAmthP7L7xwnXG}#)))
+ (lambda (#{e 5107}#)
+ (let ((#{exp 5111}#
+ (#{strip 4535}# #{e 5107}# #{w 5100}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #{exp -ANAU$bmvAmthP7L7xwnXR}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnXK}#)
+ #{s 5101}#
+ #{exp 5111}#)))
+ #{tmp 5104}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#)
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnXE}#
- #{s -ANAU$bmvAmthP7L7xwnXH}#))
- #{e -ANAU$bmvAmthP7L7xwnXE}#)
- #{w -ANAU$bmvAmthP7L7xwnXG}#
- #{mod -ANAU$bmvAmthP7L7xwnXI}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? #{e 5098}#) #{s 5101}# #f)
+ (set-source-properties! #{e 5098}# #{s 5101}#))
+ #{e 5098}#)
+ #{w 5100}#
+ #{mod 5102}#)))))))
+ (#{global-extend 4484}#
'core
'syntax
(letrec*
- ((#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwncT}#
- #{e -ANAU$bmvAmthP7L7xwncU}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#)
- (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwncU}#)
+ ((#{gen-syntax 5331}#
+ (lambda (#{src 5433}#
+ #{e 5434}#
+ #{r 5435}#
+ #{maps 5436}#
+ #{ellipsis? 5437}#
+ #{mod 5438}#)
+ (if (if (symbol? #{e 5434}#)
#t
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0)
- 'syntax-object)
+ (if (if (vector? #{e 5434}#)
+ (if (= (vector-length #{e 5434}#) 4)
+ (eq? (vector-ref #{e 5434}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1))
+ (symbol? (vector-ref #{e 5434}# 1))
#f))
- (let ((#{label -ANAU$bmvAmthP7L7xwncz}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(()))))
- (let ((#{b -ANAU$bmvAmthP7L7xwnc0}#
- (let ((#{t -ANAU$bmvAmthP7L7xwnc7}#
- (assq #{label -ANAU$bmvAmthP7L7xwncz}#
- #{r -ANAU$bmvAmthP7L7xwncV}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnc7}#
- (cdr #{t -ANAU$bmvAmthP7L7xwnc7}#)
- (if (symbol? #{label -ANAU$bmvAmthP7L7xwncz}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwndB}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{label -ANAU$bmvAmthP7L7xwncz}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#)))
- (if #{t -ANAU$bmvAmthP7L7xwndB}#
- #{t -ANAU$bmvAmthP7L7xwndB}#
- '(global)))
+ (let ((#{label 5465}#
+ (#{id-var-name 4505}# #{e 5434}# '(()))))
+ (let ((#{b 5466}#
+ (let ((#{t 5473}# (assq #{label 5465}# #{r 5435}#)))
+ (if #{t 5473}#
+ (cdr #{t 5473}#)
+ (if (symbol? #{label 5465}#)
+ (let ((#{t 5479}#
+ (#{get-global-definition-hook 4449}#
+ #{label 5465}#
+ #{mod 5438}#)))
+ (if #{t 5479}# #{t 5479}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax)
+ (if (eq? (car #{b 5466}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev -ANAU$bmvAmthP7L7xwndK}#
- (cdr #{b -ANAU$bmvAmthP7L7xwnc0}#)))
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- (car #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
- (cdr #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#)))
- (lambda (#{var -ANAU$bmvAmthP7L7xwndO}#
- #{maps -ANAU$bmvAmthP7L7xwndP}#)
- (values
- (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#)
- #{maps -ANAU$bmvAmthP7L7xwndP}#)))
- (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{e -ANAU$bmvAmthP7L7xwncU}#)
+ (let ((#{var.lev 5488}# (cdr #{b 5466}#)))
+ (#{gen-ref 5332}#
+ #{src 5433}#
+ (car #{var.lev 5488}#)
+ (cdr #{var.lev 5488}#)
+ #{maps 5436}#)))
+ (lambda (#{var 5492}# #{maps 5493}#)
+ (values (list 'ref #{var 5492}#) #{maps 5493}#)))
+ (if (#{ellipsis? 5437}# #{e 5434}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src -ANAU$bmvAmthP7L7xwncT}#)
- (values
- (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}#
+ #{src 5433}#)
+ (values (list 'quote #{e 5434}#) #{maps 5436}#)))))
+ (let ((#{tmp 5495}#
+ ($sc-dispatch #{e 5434}# '(any any))))
+ (if (if #{tmp 5495}#
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}#
- #{e -ANAU$bmvAmthP7L7xwndW}#)
- (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{dots -ANAU$bmvAmthP7L7xwndV}#))
- #{tmp -ANAU$bmvAmthP7L7xwndR}#)
+ (lambda (#{dots 5499}# #{e 5500}#)
+ (#{ellipsis? 5437}# #{dots 5499}#))
+ #{tmp 5495}#)
#f)
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwndX}#
- #{e -ANAU$bmvAmthP7L7xwndY}#)
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{e -ANAU$bmvAmthP7L7xwndY}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwndZ}#) #f)
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- #{tmp -ANAU$bmvAmthP7L7xwndR}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnda}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}#
+ (lambda (#{dots 5501}# #{e 5502}#)
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ #{e 5502}#
+ #{r 5435}#
+ #{maps 5436}#
+ (lambda (#{x 5503}#) #f)
+ #{mod 5438}#))
+ #{tmp 5495}#)
+ (let ((#{tmp 5504}#
+ ($sc-dispatch #{e 5434}# '(any any . any))))
+ (if (if #{tmp 5504}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwnde}#
- #{dots -ANAU$bmvAmthP7L7xwndf}#
- #{y -ANAU$bmvAmthP7L7xwndg}#)
- (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{dots -ANAU$bmvAmthP7L7xwndf}#))
- #{tmp -ANAU$bmvAmthP7L7xwnda}#)
+ (lambda (#{x 5508}# #{dots 5509}# #{y 5510}#)
+ (#{ellipsis? 5437}# #{dots 5509}#))
+ #{tmp 5504}#)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwndh}#
- #{dots -ANAU$bmvAmthP7L7xwndi}#
- #{y -ANAU$bmvAmthP7L7xwndj}#)
+ (lambda (#{x 5511}# #{dots 5512}# #{y 5513}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwndk}#
- (lambda (#{y -ANAU$bmvAmthP7L7xwnds}#
- #{k -ANAU$bmvAmthP7L7xwndt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}#
+ ((#{f 5514}#
+ (lambda (#{y 5522}# #{k 5523}#)
+ (let ((#{tmp 5525}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwnds}#
+ #{y 5522}#
'(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}#
+ (if (if #{tmp 5525}#
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwndz}#
- #{y -ANAU$bmvAmthP7L7xwnd0}#)
- (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{dots -ANAU$bmvAmthP7L7xwndz}#))
- #{tmp -ANAU$bmvAmthP7L7xwndv}#)
+ (lambda (#{dots 5529}#
+ #{y 5530}#)
+ (#{ellipsis? 5437}#
+ #{dots 5529}#))
+ #{tmp 5525}#)
#f)
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwnd1}#
- #{y -ANAU$bmvAmthP7L7xwnd2}#)
- (#{f -ANAU$bmvAmthP7L7xwndk}#
- #{y -ANAU$bmvAmthP7L7xwnd2}#
- (lambda (#{maps -ANAU$bmvAmthP7L7xwnd3}#)
+ (lambda (#{dots 5531}# #{y 5532}#)
+ (#{f 5514}#
+ #{y 5532}#
+ (lambda (#{maps 5533}#)
(call-with-values
(lambda ()
- (#{k -ANAU$bmvAmthP7L7xwndt}#
+ (#{k 5523}#
(cons '()
- #{maps -ANAU$bmvAmthP7L7xwnd3}#)))
- (lambda (#{x -ANAU$bmvAmthP7L7xwnd4}#
- #{maps -ANAU$bmvAmthP7L7xwnd5}#)
- (if (null? (car #{maps -ANAU$bmvAmthP7L7xwnd5}#))
+ #{maps 5533}#)))
+ (lambda (#{x 5534}#
+ #{maps 5535}#)
+ (if (null? (car #{maps 5535}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src -ANAU$bmvAmthP7L7xwncT}#)
+ #{src 5433}#)
(values
- (let ((#{map-env -ANAU$bmvAmthP7L7xwnd9}#
- (car #{maps -ANAU$bmvAmthP7L7xwnd5}#)))
+ (let ((#{map-env 5539}#
+ (car #{maps 5535}#)))
(list 'apply
'(primitive
append)
- (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
- #{x -ANAU$bmvAmthP7L7xwnd4}#
- #{map-env -ANAU$bmvAmthP7L7xwnd9}#)))
- (cdr #{maps -ANAU$bmvAmthP7L7xwnd5}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwndv}#)
+ (#{gen-map 5334}#
+ #{x 5534}#
+ #{map-env 5539}#)))
+ (cdr #{maps 5535}#))))))))
+ #{tmp 5525}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{y -ANAU$bmvAmthP7L7xwnds}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwneA}#
- #{maps -ANAU$bmvAmthP7L7xwneB}#)
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ #{y 5522}#
+ #{r 5435}#
+ #{maps 5436}#
+ #{ellipsis? 5437}#
+ #{mod 5438}#))
+ (lambda (#{y 5542}# #{maps 5543}#)
(call-with-values
(lambda ()
- (#{k -ANAU$bmvAmthP7L7xwndt}#
- #{maps -ANAU$bmvAmthP7L7xwneB}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwneC}#
- #{maps -ANAU$bmvAmthP7L7xwneD}#)
+ (#{k 5523}# #{maps 5543}#))
+ (lambda (#{x 5544}#
+ #{maps 5545}#)
(values
- (if (equal?
- #{y -ANAU$bmvAmthP7L7xwneA}#
- ''())
- #{x -ANAU$bmvAmthP7L7xwneC}#
+ (if (equal? #{y 5542}# ''())
+ #{x 5544}#
(list 'append
- #{x -ANAU$bmvAmthP7L7xwneC}#
- #{y -ANAU$bmvAmthP7L7xwneA}#))
- #{maps -ANAU$bmvAmthP7L7xwneD}#))))))))))
- (#{f -ANAU$bmvAmthP7L7xwndk}#
- #{y -ANAU$bmvAmthP7L7xwndj}#
- (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#)
+ #{x 5544}#
+ #{y 5542}#))
+ #{maps 5545}#))))))))))
+ (#{f 5514}#
+ #{y 5513}#
+ (lambda (#{maps 5517}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{x -ANAU$bmvAmthP7L7xwndh}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- (cons '()
- #{maps -ANAU$bmvAmthP7L7xwndn}#)
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwndo}#
- #{maps -ANAU$bmvAmthP7L7xwndp}#)
- (if (null? (car #{maps -ANAU$bmvAmthP7L7xwndp}#))
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ #{x 5511}#
+ #{r 5435}#
+ (cons '() #{maps 5517}#)
+ #{ellipsis? 5437}#
+ #{mod 5438}#))
+ (lambda (#{x 5518}# #{maps 5519}#)
+ (if (null? (car #{maps 5519}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src -ANAU$bmvAmthP7L7xwncT}#)
+ #{src 5433}#)
(values
- (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
- #{x -ANAU$bmvAmthP7L7xwndo}#
- (car #{maps -ANAU$bmvAmthP7L7xwndp}#))
- (cdr #{maps -ANAU$bmvAmthP7L7xwndp}#)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwnda}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwneT}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwneT}#
+ (#{gen-map 5334}#
+ #{x 5518}#
+ (car #{maps 5519}#))
+ (cdr #{maps 5519}#)))))))))
+ #{tmp 5504}#)
+ (let ((#{tmp 5561}#
+ ($sc-dispatch #{e 5434}# '(any . any))))
+ (if #{tmp 5561}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwneX}#
- #{y -ANAU$bmvAmthP7L7xwneY}#)
+ (lambda (#{x 5565}# #{y 5566}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{x -ANAU$bmvAmthP7L7xwneX}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwneZ}#
- #{maps -ANAU$bmvAmthP7L7xwnea}#)
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ #{x 5565}#
+ #{r 5435}#
+ #{maps 5436}#
+ #{ellipsis? 5437}#
+ #{mod 5438}#))
+ (lambda (#{x 5567}# #{maps 5568}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{y -ANAU$bmvAmthP7L7xwneY}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwnea}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwneb}#
- #{maps -ANAU$bmvAmthP7L7xwnec}#)
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ #{y 5566}#
+ #{r 5435}#
+ #{maps 5568}#
+ #{ellipsis? 5437}#
+ #{mod 5438}#))
+ (lambda (#{y 5569}# #{maps 5570}#)
(values
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwneh}#
- (car #{y -ANAU$bmvAmthP7L7xwneb}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}#
+ (let ((#{atom-key 5575}#
+ (car #{y 5569}#)))
+ (if (eqv? #{atom-key 5575}#
'quote)
- (if (eq? (car #{x -ANAU$bmvAmthP7L7xwneZ}#)
+ (if (eq? (car #{x 5567}#)
'quote)
(list 'quote
- (cons (car (cdr #{x -ANAU$bmvAmthP7L7xwneZ}#))
- (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))))
- (if (eq? (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))
+ (cons (car (cdr #{x 5567}#))
+ (car (cdr #{y 5569}#))))
+ (if (eq? (car (cdr #{y 5569}#))
'())
- (list 'list
- #{x -ANAU$bmvAmthP7L7xwneZ}#)
+ (list 'list #{x 5567}#)
(list 'cons
- #{x -ANAU$bmvAmthP7L7xwneZ}#
- #{y -ANAU$bmvAmthP7L7xwneb}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}#
+ #{x 5567}#
+ #{y 5569}#)))
+ (if (eqv? #{atom-key 5575}#
'list)
(cons 'list
- (cons #{x -ANAU$bmvAmthP7L7xwneZ}#
- (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)))
+ (cons #{x 5567}#
+ (cdr #{y 5569}#)))
(list 'cons
- #{x -ANAU$bmvAmthP7L7xwneZ}#
- #{y -ANAU$bmvAmthP7L7xwneb}#))))
- #{maps -ANAU$bmvAmthP7L7xwnec}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwneT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}#
+ #{x 5567}#
+ #{y 5569}#))))
+ #{maps 5570}#))))))
+ #{tmp 5561}#)
+ (let ((#{tmp 5604}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
+ #{e 5434}#
'#(vector (any . each-any)))))
- (if #{tmp -ANAU$bmvAmthP7L7xwne$}#
+ (if #{tmp 5604}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}#
- #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
+ (lambda (#{e1 5608}# #{e2 5609}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnfC}#
- #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwnfE}#
- #{maps -ANAU$bmvAmthP7L7xwnfF}#)
+ (#{gen-syntax 5331}#
+ #{src 5433}#
+ (cons #{e1 5608}# #{e2 5609}#)
+ #{r 5435}#
+ #{maps 5436}#
+ #{ellipsis? 5437}#
+ #{mod 5438}#))
+ (lambda (#{e 5610}# #{maps 5611}#)
(values
- (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#)
- 'list)
- (cons 'vector
- (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#))
- (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#)
- 'quote)
+ (if (eq? (car #{e 5610}#) 'list)
+ (cons 'vector (cdr #{e 5610}#))
+ (if (eq? (car #{e 5610}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#))))
+ (car (cdr #{e 5610}#))))
(list 'list->vector
- #{e -ANAU$bmvAmthP7L7xwnfE}#)))
- #{maps -ANAU$bmvAmthP7L7xwnfF}#))))
- #{tmp -ANAU$bmvAmthP7L7xwne$}#)
+ #{e 5610}#)))
+ #{maps 5611}#))))
+ #{tmp 5604}#)
(values
- (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#))))))))))))
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwnfg}#
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- #{level -ANAU$bmvAmthP7L7xwnfi}#
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (if (= #{level -ANAU$bmvAmthP7L7xwnfi}# 0)
- (values
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (list 'quote #{e 5434}#)
+ #{maps 5436}#))))))))))))
+ (#{gen-ref 5332}#
+ (lambda (#{src 5638}#
+ #{var 5639}#
+ #{level 5640}#
+ #{maps 5641}#)
+ (if (= #{level 5640}# 0)
+ (values #{var 5639}# #{maps 5641}#)
+ (if (null? #{maps 5641}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src -ANAU$bmvAmthP7L7xwnfg}#)
+ #{src 5638}#)
(call-with-values
(lambda ()
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- #{src -ANAU$bmvAmthP7L7xwnfg}#
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- (#{1-}# #{level -ANAU$bmvAmthP7L7xwnfi}#)
- (cdr #{maps -ANAU$bmvAmthP7L7xwnfj}#)))
- (lambda (#{outer-var -ANAU$bmvAmthP7L7xwnfk}#
- #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#)
- (let ((#{b -ANAU$bmvAmthP7L7xwnfm}#
- (assq #{outer-var -ANAU$bmvAmthP7L7xwnfk}#
- (car #{maps -ANAU$bmvAmthP7L7xwnfj}#))))
- (if #{b -ANAU$bmvAmthP7L7xwnfm}#
- (values
- (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#)
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}#
+ (#{gen-ref 5332}#
+ #{src 5638}#
+ #{var 5639}#
+ (#{1-}# #{level 5640}#)
+ (cdr #{maps 5641}#)))
+ (lambda (#{outer-var 5642}# #{outer-maps 5643}#)
+ (let ((#{b 5644}#
+ (assq #{outer-var 5642}# (car #{maps 5641}#))))
+ (if #{b 5644}#
+ (values (cdr #{b 5644}#) #{maps 5641}#)
+ (let ((#{inner-var 5646}#
(gensym
(string-append
(symbol->string 'tmp)
- " "))))
+ "-"))))
(values
- #{inner-var -ANAU$bmvAmthP7L7xwnfo}#
- (cons (cons (cons #{outer-var -ANAU$bmvAmthP7L7xwnfk}#
- #{inner-var -ANAU$bmvAmthP7L7xwnfo}#)
- (car #{maps -ANAU$bmvAmthP7L7xwnfj}#))
- #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#)))))))))))
- (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwnf2}#
- #{map-env -ANAU$bmvAmthP7L7xwnf3}#)
- (let ((#{formals -ANAU$bmvAmthP7L7xwnf4}#
- (map cdr #{map-env -ANAU$bmvAmthP7L7xwnf3}#))
- (#{actuals -ANAU$bmvAmthP7L7xwnf5}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnf7}#)
- (list 'ref (car #{x -ANAU$bmvAmthP7L7xwnf7}#)))
- #{map-env -ANAU$bmvAmthP7L7xwnf3}#)))
- (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnf2}#) 'ref)
- (car #{actuals -ANAU$bmvAmthP7L7xwnf5}#)
+ #{inner-var 5646}#
+ (cons (cons (cons #{outer-var 5642}#
+ #{inner-var 5646}#)
+ (car #{maps 5641}#))
+ #{outer-maps 5643}#)))))))))))
+ (#{gen-map 5334}#
+ (lambda (#{e 5660}# #{map-env 5661}#)
+ (let ((#{formals 5662}# (map cdr #{map-env 5661}#))
+ (#{actuals 5663}#
+ (map (lambda (#{x 5665}#)
+ (list 'ref (car #{x 5665}#)))
+ #{map-env 5661}#)))
+ (if (eq? (car #{e 5660}#) 'ref)
+ (car #{actuals 5663}#)
(if (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#)
- (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref)
- (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#))
- #{formals -ANAU$bmvAmthP7L7xwnf4}#)
+ (lambda (#{x 5666}#)
+ (if (eq? (car #{x 5666}#) 'ref)
+ (memq (car (cdr #{x 5666}#)) #{formals 5662}#)
#f))
- (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))
+ (cdr #{e 5660}#))
(cons 'map
- (cons (list 'primitive
- (car #{e -ANAU$bmvAmthP7L7xwnf2}#))
- (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}#
+ (cons (list 'primitive (car #{e 5660}#))
+ (map (let ((#{r 5668}#
(map cons
- #{formals -ANAU$bmvAmthP7L7xwnf4}#
- #{actuals -ANAU$bmvAmthP7L7xwnf5}#)))
- (lambda (#{x -ANAU$bmvAmthP7L7xwnf@}#)
- (cdr (assq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf@}#))
- #{r -ANAU$bmvAmthP7L7xwnf$}#))))
- (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))))
+ #{formals 5662}#
+ #{actuals 5663}#)))
+ (lambda (#{x 5669}#)
+ (cdr (assq (car (cdr #{x 5669}#))
+ #{r 5668}#))))
+ (cdr #{e 5660}#))))
(cons 'map
- (cons (list 'lambda
- #{formals -ANAU$bmvAmthP7L7xwnf4}#
- #{e -ANAU$bmvAmthP7L7xwnf2}#)
- #{actuals -ANAU$bmvAmthP7L7xwnf5}#)))))))
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwngB}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwngC}#
- (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'ref)
- (let ((#{name -ANAU$bmvAmthP7L7xwngM}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{var -ANAU$bmvAmthP7L7xwngN}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (cons (list 'lambda #{formals 5662}# #{e 5660}#)
+ #{actuals 5663}#)))))))
+ (#{regen 5338}#
+ (lambda (#{x 5671}#)
+ (let ((#{atom-key 5672}# (car #{x 5671}#)))
+ (if (eqv? #{atom-key 5672}# 'ref)
+ (let ((#{name 5682}# (car (cdr #{x 5671}#)))
+ (#{var 5683}# (car (cdr #{x 5671}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name -ANAU$bmvAmthP7L7xwngM}#
- #{var -ANAU$bmvAmthP7L7xwngN}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
- 'primitive)
- (let ((#{name -ANAU$bmvAmthP7L7xwngZ}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ #{name 5682}#
+ #{var 5683}#))
+ (if (eqv? #{atom-key 5672}# 'primitive)
+ (let ((#{name 5695}# (car (cdr #{x 5671}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name -ANAU$bmvAmthP7L7xwngZ}#)
+ #{name 5695}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name -ANAU$bmvAmthP7L7xwngZ}#
+ #{name 5695}#
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote)
- (let ((#{exp -ANAU$bmvAmthP7L7xwngr}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (if (eqv? #{atom-key 5672}# 'quote)
+ (let ((#{exp 5713}# (car (cdr #{x 5671}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp -ANAU$bmvAmthP7L7xwngr}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
- 'lambda)
- (if (list? (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (let ((#{req -ANAU$bmvAmthP7L7xwng2}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{vars -ANAU$bmvAmthP7L7xwng4}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{exp -ANAU$bmvAmthP7L7xwng6}#
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- (car (cdr (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))))
- (let ((#{body -ANAU$bmvAmthP7L7xwng@}#
+ #{exp 5713}#))
+ (if (eqv? #{atom-key 5672}# 'lambda)
+ (if (list? (car (cdr #{x 5671}#)))
+ (let ((#{req 5724}# (car (cdr #{x 5671}#)))
+ (#{vars 5726}# (car (cdr #{x 5671}#)))
+ (#{exp 5728}#
+ (#{regen 5338}#
+ (car (cdr (cdr #{x 5671}#))))))
+ (let ((#{body 5733}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwng2}#
+ #{req 5724}#
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwng4}#
- #{exp -ANAU$bmvAmthP7L7xwng6}#
+ #{vars 5726}#
+ #{exp 5728}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body -ANAU$bmvAmthP7L7xwng@}#)))
- (error "how did we get here"
- #{x -ANAU$bmvAmthP7L7xwngB}#))
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
- (let ((#{name -ANAU$bmvAmthP7L7xwnhY}#
- (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ #{body 5733}#)))
+ (error "how did we get here" #{x 5671}#))
+ (let ((#{fun-exp 5749}#
+ (let ((#{name 5758}# (car #{x 5671}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name -ANAU$bmvAmthP7L7xwnhY}#)
+ #{name 5758}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name -ANAU$bmvAmthP7L7xwnhY}#
+ #{name 5758}#
#f))))
- (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#
- (map #{regen -ANAU$bmvAmthP7L7xwna0}#
- (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (#{arg-exps 5750}#
+ (map #{regen 5338}# (cdr #{x 5671}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
- #{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#))))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwna1}#
- #{r -ANAU$bmvAmthP7L7xwna2}#
- #{w -ANAU$bmvAmthP7L7xwna3}#
- #{s -ANAU$bmvAmthP7L7xwna4}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwna6}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{fun-exp 5749}#
+ #{arg-exps 5750}#))))))))))
+ (lambda (#{e 5339}#
+ #{r 5340}#
+ #{w 5341}#
+ #{s 5342}#
+ #{mod 5343}#)
+ (let ((#{e 5344}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#)
- #{s -ANAU$bmvAmthP7L7xwna4}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwna1}#
- #{s -ANAU$bmvAmthP7L7xwna4}#))
- #{e -ANAU$bmvAmthP7L7xwna1}#)
- #{w -ANAU$bmvAmthP7L7xwna3}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwna6}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwna8}#
+ (if (if (pair? #{e 5339}#) #{s 5342}# #f)
+ (set-source-properties! #{e 5339}# #{s 5342}#))
+ #{e 5339}#)
+ #{w 5341}#
+ #{mod 5343}#)))
+ (let ((#{tmp 5346}# ($sc-dispatch #{e 5344}# '(_ any))))
+ (if #{tmp 5346}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#)
+ (lambda (#{x 5371}#)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{e -ANAU$bmvAmthP7L7xwna6}#
- #{x -ANAU$bmvAmthP7L7xwnbV}#
- #{r -ANAU$bmvAmthP7L7xwna2}#
+ (#{gen-syntax 5331}#
+ #{e 5344}#
+ #{x 5371}#
+ #{r 5340}#
'()
- #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwncL}#
- #{maps -ANAU$bmvAmthP7L7xwncM}#)
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- #{e -ANAU$bmvAmthP7L7xwncL}#))))
- #{tmp -ANAU$bmvAmthP7L7xwna8}#)
+ #{ellipsis? 4530}#
+ #{mod 5343}#))
+ (lambda (#{e 5425}# #{maps 5426}#)
+ (#{regen 5338}# #{e 5425}#))))
+ #{tmp 5346}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e -ANAU$bmvAmthP7L7xwna6}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 5344}#)))))))
+ (#{global-extend 4484}#
'core
'lambda
- (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}#
- #{r -ANAU$bmvAmthP7L7xwnkW}#
- #{w -ANAU$bmvAmthP7L7xwnkX}#
- #{s -ANAU$bmvAmthP7L7xwnkY}#
- #{mod -ANAU$bmvAmthP7L7xwnkZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnkV}#
- '(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnkb}#
+ (lambda (#{e 5946}#
+ #{r 5947}#
+ #{w 5948}#
+ #{s 5949}#
+ #{mod 5950}#)
+ (let ((#{tmp 5952}#
+ ($sc-dispatch #{e 5946}# '(_ any any . each-any))))
+ (if #{tmp 5952}#
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}#
- #{e1 -ANAU$bmvAmthP7L7xwnkg}#
- #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
+ (lambda (#{args 5956}# #{e1 5957}# #{e2 5958}#)
(call-with-values
(lambda ()
- (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- #{args -ANAU$bmvAmthP7L7xwnkf}#))
- (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}#
- #{opt -ANAU$bmvAmthP7L7xwnkl}#
- #{rest -ANAU$bmvAmthP7L7xwnkm}#
- #{kw -ANAU$bmvAmthP7L7xwnkn}#)
+ (#{lambda-formals 4531}# #{args 5956}#))
+ (lambda (#{req 5961}#
+ #{opt 5962}#
+ #{rest 5963}#
+ #{kw 5964}#)
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwnko}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}#
- #{meta -ANAU$bmvAmthP7L7xwnks}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}#
+ ((#{lp 5965}#
+ (lambda (#{body 5968}# #{meta 5969}#)
+ (let ((#{tmp 5971}#
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwnkr}#
+ #{body 5968}#
'(any any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}#
+ (if (if #{tmp 5971}#
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwnky}#
- #{e1 -ANAU$bmvAmthP7L7xwnkz}#
- #{e2 -ANAU$bmvAmthP7L7xwnk0}#)
+ (lambda (#{docstring 5975}#
+ #{e1 5976}#
+ #{e2 5977}#)
(string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xwnky}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnku}#)
+ (syntax->datum #{docstring 5975}#)))
+ #{tmp 5971}#)
#f)
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwnk1}#
- #{e1 -ANAU$bmvAmthP7L7xwnk2}#
- #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}#
- #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
+ (lambda (#{docstring 5978}#
+ #{e1 5979}#
+ #{e2 5980}#)
+ (#{lp 5965}#
+ (cons #{e1 5979}# #{e2 5980}#)
(append
- #{meta -ANAU$bmvAmthP7L7xwnks}#
+ #{meta 5969}#
(list (cons 'documentation
(syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xwnk1}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwnku}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}#
+ #{docstring 5978}#))))))
+ #{tmp 5971}#)
+ (let ((#{tmp 5981}#
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwnkr}#
+ #{body 5968}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnk4}#
+ (if #{tmp 5981}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}#
- #{v -ANAU$bmvAmthP7L7xwnk9}#
- #{e1 -ANAU$bmvAmthP7L7xwnk$}#
- #{e2 -ANAU$bmvAmthP7L7xwnk@}#)
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}#
- #{e2 -ANAU$bmvAmthP7L7xwnk@}#)
+ (lambda (#{k 5985}#
+ #{v 5986}#
+ #{e1 5987}#
+ #{e2 5988}#)
+ (#{lp 5965}#
+ (cons #{e1 5987}# #{e2 5988}#)
(append
- #{meta -ANAU$bmvAmthP7L7xwnks}#
+ #{meta 5969}#
(syntax->datum
(map cons
- #{k -ANAU$bmvAmthP7L7xwnk8}#
- #{v -ANAU$bmvAmthP7L7xwnk9}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwnk4}#)
- (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}#
- #{e -ANAU$bmvAmthP7L7xwnkV}#
- #{r -ANAU$bmvAmthP7L7xwnkW}#
- #{w -ANAU$bmvAmthP7L7xwnkX}#
- #{s -ANAU$bmvAmthP7L7xwnkY}#
- #{mod -ANAU$bmvAmthP7L7xwnkZ}#
- #{req -ANAU$bmvAmthP7L7xwnkk}#
- #{rest -ANAU$bmvAmthP7L7xwnkm}#
- #{meta -ANAU$bmvAmthP7L7xwnks}#
- #{body -ANAU$bmvAmthP7L7xwnkr}#))))))))
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnkg}#
- #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
- '())))))
- #{tmp -ANAU$bmvAmthP7L7xwnkb}#)
+ #{k 5985}#
+ #{v 5986}#)))))
+ #{tmp 5981}#)
+ (#{expand-simple-lambda 4532}#
+ #{e 5946}#
+ #{r 5947}#
+ #{w 5948}#
+ #{s 5949}#
+ #{mod 5950}#
+ #{req 5961}#
+ #{rest 5963}#
+ #{meta 5969}#
+ #{body 5968}#))))))))
+ (#{lp 5965}# (cons #{e1 5957}# #{e2 5958}#) '())))))
+ #{tmp 5952}#)
(syntax-violation
'lambda
"bad lambda"
- #{e -ANAU$bmvAmthP7L7xwnkV}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 5946}#)))))
+ (#{global-extend 4484}#
'core
'lambda*
- (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}#
- #{r -ANAU$bmvAmthP7L7xwnpd}#
- #{w -ANAU$bmvAmthP7L7xwnpe}#
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{mod -ANAU$bmvAmthP7L7xwnpg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnpc}#
- '(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnpi}#
+ (lambda (#{e 6277}#
+ #{r 6278}#
+ #{w 6279}#
+ #{s 6280}#
+ #{mod 6281}#)
+ (let ((#{tmp 6283}#
+ ($sc-dispatch #{e 6277}# '(_ any any . each-any))))
+ (if #{tmp 6283}#
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}#
- #{e1 -ANAU$bmvAmthP7L7xwnpn}#
- #{e2 -ANAU$bmvAmthP7L7xwnpo}#)
+ (lambda (#{args 6287}# #{e1 6288}# #{e2 6289}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnpc}#
- #{r -ANAU$bmvAmthP7L7xwnpd}#
- #{w -ANAU$bmvAmthP7L7xwnpe}#
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{mod -ANAU$bmvAmthP7L7xwnpg}#
- #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (list (cons #{args -ANAU$bmvAmthP7L7xwnpm}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnpn}#
- #{e2 -ANAU$bmvAmthP7L7xwnpo}#)))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnpr}#
- #{lcase -ANAU$bmvAmthP7L7xwnps}#)
+ (#{expand-lambda-case 4534}#
+ #{e 6277}#
+ #{r 6278}#
+ #{w 6279}#
+ #{s 6280}#
+ #{mod 6281}#
+ #{lambda*-formals 4533}#
+ (list (cons #{args 6287}#
+ (cons #{e1 6288}# #{e2 6289}#)))))
+ (lambda (#{meta 6292}# #{lcase 6293}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{meta -ANAU$bmvAmthP7L7xwnpr}#
- #{lcase -ANAU$bmvAmthP7L7xwnps}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnpi}#)
+ #{s 6280}#
+ #{meta 6292}#
+ #{lcase 6293}#))))
+ #{tmp 6283}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e -ANAU$bmvAmthP7L7xwnpc}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 6277}#)))))
+ (#{global-extend 4484}#
'core
'case-lambda
- (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}#
- #{r -ANAU$bmvAmthP7L7xwnsX}#
- #{w -ANAU$bmvAmthP7L7xwnsY}#
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{mod -ANAU$bmvAmthP7L7xwnsa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}#
+ (lambda (#{e 6463}#
+ #{r 6464}#
+ #{w 6465}#
+ #{s 6466}#
+ #{mod 6467}#)
+ (let ((#{tmp 6469}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnsW}#
+ #{e 6463}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnsc}#
+ (if #{tmp 6469}#
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}#
- #{e1 -ANAU$bmvAmthP7L7xwnsh}#
- #{e2 -ANAU$bmvAmthP7L7xwnsi}#
- #{args* -ANAU$bmvAmthP7L7xwnsj}#
- #{e1* -ANAU$bmvAmthP7L7xwnsk}#
- #{e2* -ANAU$bmvAmthP7L7xwnsl}#)
+ (lambda (#{args 6473}#
+ #{e1 6474}#
+ #{e2 6475}#
+ #{args* 6476}#
+ #{e1* 6477}#
+ #{e2* 6478}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnsW}#
- #{r -ANAU$bmvAmthP7L7xwnsX}#
- #{w -ANAU$bmvAmthP7L7xwnsY}#
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{mod -ANAU$bmvAmthP7L7xwnsa}#
- #{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- (cons (cons #{args -ANAU$bmvAmthP7L7xwnsg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnsh}#
- #{e2 -ANAU$bmvAmthP7L7xwnsi}#))
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}#
- #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}#
- #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}#
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}#
- #{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}#)))
- #{e2* -ANAU$bmvAmthP7L7xwnsl}#
- #{e1* -ANAU$bmvAmthP7L7xwnsk}#
- #{args* -ANAU$bmvAmthP7L7xwnsj}#))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnsr}#
- #{lcase -ANAU$bmvAmthP7L7xwnss}#)
+ (#{expand-lambda-case 4534}#
+ #{e 6463}#
+ #{r 6464}#
+ #{w 6465}#
+ #{s 6466}#
+ #{mod 6467}#
+ #{lambda-formals 4531}#
+ (cons (cons #{args 6473}#
+ (cons #{e1 6474}# #{e2 6475}#))
+ (map (lambda (#{tmp-3387 6481}#
+ #{tmp-3386 6482}#
+ #{tmp-3385 6483}#)
+ (cons #{tmp-3385 6483}#
+ (cons #{tmp-3386 6482}#
+ #{tmp-3387 6481}#)))
+ #{e2* 6478}#
+ #{e1* 6477}#
+ #{args* 6476}#))))
+ (lambda (#{meta 6484}# #{lcase 6485}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{meta -ANAU$bmvAmthP7L7xwnsr}#
- #{lcase -ANAU$bmvAmthP7L7xwnss}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnsc}#)
+ #{s 6466}#
+ #{meta 6484}#
+ #{lcase 6485}#))))
+ #{tmp 6469}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e -ANAU$bmvAmthP7L7xwnsW}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 6463}#)))))
+ (#{global-extend 4484}#
'core
'case-lambda*
- (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}#
- #{r -ANAU$bmvAmthP7L7xwnvP}#
- #{w -ANAU$bmvAmthP7L7xwnvQ}#
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{mod -ANAU$bmvAmthP7L7xwnvS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}#
+ (lambda (#{e 6647}#
+ #{r 6648}#
+ #{w 6649}#
+ #{s 6650}#
+ #{mod 6651}#)
+ (let ((#{tmp 6653}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnvO}#
+ #{e 6647}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnvU}#
+ (if #{tmp 6653}#
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}#
- #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
- #{e2 -ANAU$bmvAmthP7L7xwnva}#
- #{args* -ANAU$bmvAmthP7L7xwnvb}#
- #{e1* -ANAU$bmvAmthP7L7xwnvc}#
- #{e2* -ANAU$bmvAmthP7L7xwnvd}#)
+ (lambda (#{args 6657}#
+ #{e1 6658}#
+ #{e2 6659}#
+ #{args* 6660}#
+ #{e1* 6661}#
+ #{e2* 6662}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnvO}#
- #{r -ANAU$bmvAmthP7L7xwnvP}#
- #{w -ANAU$bmvAmthP7L7xwnvQ}#
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{mod -ANAU$bmvAmthP7L7xwnvS}#
- #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (cons (cons #{args -ANAU$bmvAmthP7L7xwnvY}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
- #{e2 -ANAU$bmvAmthP7L7xwnva}#))
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}#
- #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}#
- #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}#
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}#
- #{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}#)))
- #{e2* -ANAU$bmvAmthP7L7xwnvd}#
- #{e1* -ANAU$bmvAmthP7L7xwnvc}#
- #{args* -ANAU$bmvAmthP7L7xwnvb}#))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnvj}#
- #{lcase -ANAU$bmvAmthP7L7xwnvk}#)
+ (#{expand-lambda-case 4534}#
+ #{e 6647}#
+ #{r 6648}#
+ #{w 6649}#
+ #{s 6650}#
+ #{mod 6651}#
+ #{lambda*-formals 4533}#
+ (cons (cons #{args 6657}#
+ (cons #{e1 6658}# #{e2 6659}#))
+ (map (lambda (#{tmp-3422 6665}#
+ #{tmp-3421 6666}#
+ #{tmp-3420 6667}#)
+ (cons #{tmp-3420 6667}#
+ (cons #{tmp-3421 6666}#
+ #{tmp-3422 6665}#)))
+ #{e2* 6662}#
+ #{e1* 6661}#
+ #{args* 6660}#))))
+ (lambda (#{meta 6668}# #{lcase 6669}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{meta -ANAU$bmvAmthP7L7xwnvj}#
- #{lcase -ANAU$bmvAmthP7L7xwnvk}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnvU}#)
+ #{s 6650}#
+ #{meta 6668}#
+ #{lcase 6669}#))))
+ #{tmp 6653}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e -ANAU$bmvAmthP7L7xwnvO}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 6647}#)))))
+ (#{global-extend 4484}#
'core
'let
(letrec*
- ((#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwn04}#
- #{r -ANAU$bmvAmthP7L7xwn05}#
- #{w -ANAU$bmvAmthP7L7xwn06}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#
- #{constructor -ANAU$bmvAmthP7L7xwn09}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#
- #{vals -ANAU$bmvAmthP7L7xwn0@}#
- #{exps -ANAU$bmvAmthP7L7xwn1A}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#))
+ ((#{expand-let 6860}#
+ (lambda (#{e 7009}#
+ #{r 7010}#
+ #{w 7011}#
+ #{s 7012}#
+ #{mod 7013}#
+ #{constructor 7014}#
+ #{ids 7015}#
+ #{vals 7016}#
+ #{exps 7017}#)
+ (if (not (#{valid-bound-ids? 4512}# #{ids 7015}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwn04}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwn2O}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#)))
- (let ((#{nw -ANAU$bmvAmthP7L7xwn2Q}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#
- #{labels -ANAU$bmvAmthP7L7xwn2O}#
- #{w -ANAU$bmvAmthP7L7xwn06}#))
- (#{nr -ANAU$bmvAmthP7L7xwn2R}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwn2O}#
- #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- #{r -ANAU$bmvAmthP7L7xwn05}#)))
- (#{constructor -ANAU$bmvAmthP7L7xwn09}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- (map syntax->datum
- #{ids -ANAU$bmvAmthP7L7xwn0$}#)
- #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwn2i}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwn2i}#
- #{r -ANAU$bmvAmthP7L7xwn05}#
- #{w -ANAU$bmvAmthP7L7xwn06}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#))
- #{vals -ANAU$bmvAmthP7L7xwn0@}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- #{exps -ANAU$bmvAmthP7L7xwn1A}#
- (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
- #{e -ANAU$bmvAmthP7L7xwn04}#
- #{nw -ANAU$bmvAmthP7L7xwn2Q}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#)
- #{nr -ANAU$bmvAmthP7L7xwn2R}#
- #{nw -ANAU$bmvAmthP7L7xwn2Q}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnyq}#
+ #{e 7009}#)
+ (let ((#{labels 7095}#
+ (#{gen-labels 4489}# #{ids 7015}#))
+ (#{new-vars 7096}#
+ (map #{gen-var 4536}# #{ids 7015}#)))
+ (let ((#{nw 7097}#
+ (#{make-binding-wrap 4500}#
+ #{ids 7015}#
+ #{labels 7095}#
+ #{w 7011}#))
+ (#{nr 7098}#
+ (#{extend-var-env 4481}#
+ #{labels 7095}#
+ #{new-vars 7096}#
+ #{r 7010}#)))
+ (#{constructor 7014}#
+ #{s 7012}#
+ (map syntax->datum #{ids 7015}#)
+ #{new-vars 7096}#
+ (map (lambda (#{x 7115}#)
+ (#{expand 4522}#
+ #{x 7115}#
+ #{r 7010}#
+ #{w 7011}#
+ #{mod 7013}#))
+ #{vals 7016}#)
+ (#{expand-body 4526}#
+ #{exps 7017}#
+ (#{source-wrap 4516}#
+ #{e 7009}#
+ #{nw 7097}#
+ #{s 7012}#
+ #{mod 7013}#)
+ #{nr 7098}#
+ #{nw 7097}#
+ #{mod 7013}#))))))))
+ (lambda (#{e 6861}#
+ #{r 6862}#
+ #{w 6863}#
+ #{s 6864}#
+ #{mod 6865}#)
+ (let ((#{tmp 6867}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{e 6861}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}#
+ (if (if #{tmp 6867}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}#
- #{val -ANAU$bmvAmthP7L7xwnyv}#
- #{e1 -ANAU$bmvAmthP7L7xwnyw}#
- #{e2 -ANAU$bmvAmthP7L7xwnyx}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwnyu}#))
- #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
+ (lambda (#{id 6871}#
+ #{val 6872}#
+ #{e1 6873}#
+ #{e2 6874}#)
+ (and-map #{id? 4486}# #{id 6871}#))
+ #{tmp 6867}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwnzB}#
- #{val -ANAU$bmvAmthP7L7xwnzC}#
- #{e1 -ANAU$bmvAmthP7L7xwnzD}#
- #{e2 -ANAU$bmvAmthP7L7xwnzE}#)
- (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#
- #{build-let -ANAU$bmvAmthP7L7xwnNO}#
- #{id -ANAU$bmvAmthP7L7xwnzB}#
- #{val -ANAU$bmvAmthP7L7xwnzC}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnzD}#
- #{e2 -ANAU$bmvAmthP7L7xwnzE}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnzi}#
+ (lambda (#{id 6890}#
+ #{val 6891}#
+ #{e1 6892}#
+ #{e2 6893}#)
+ (#{expand-let 6860}#
+ #{e 6861}#
+ #{r 6862}#
+ #{w 6863}#
+ #{s 6864}#
+ #{mod 6865}#
+ #{build-let 4468}#
+ #{id 6890}#
+ #{val 6891}#
+ (cons #{e1 6892}# #{e2 6893}#)))
+ #{tmp 6867}#)
+ (let ((#{tmp 6923}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{e 6861}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}#
+ (if (if #{tmp 6923}#
(@apply
- (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}#
- #{id -ANAU$bmvAmthP7L7xwnzn}#
- #{val -ANAU$bmvAmthP7L7xwnzo}#
- #{e1 -ANAU$bmvAmthP7L7xwnzp}#
- #{e2 -ANAU$bmvAmthP7L7xwnzq}#)
- (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#)
+ (lambda (#{f 6927}#
+ #{id 6928}#
+ #{val 6929}#
+ #{e1 6930}#
+ #{e2 6931}#)
+ (if (if (symbol? #{f 6927}#)
#t
- (if (if (vector?
- #{f -ANAU$bmvAmthP7L7xwnzm}#)
- (if (= (vector-length
- #{f -ANAU$bmvAmthP7L7xwnzm}#)
- 4)
- (eq? (vector-ref
- #{f -ANAU$bmvAmthP7L7xwnzm}#
- 0)
+ (if (if (vector? #{f 6927}#)
+ (if (= (vector-length #{f 6927}#) 4)
+ (eq? (vector-ref #{f 6927}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{f -ANAU$bmvAmthP7L7xwnzm}#
- 1))
+ (symbol? (vector-ref #{f 6927}# 1))
#f))
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwnzn}#)
+ (and-map #{id? 4486}# #{id 6928}#)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
+ #{tmp 6923}#)
#f)
(@apply
- (lambda (#{f -ANAU$bmvAmthP7L7xwn0U}#
- #{id -ANAU$bmvAmthP7L7xwn0V}#
- #{val -ANAU$bmvAmthP7L7xwn0W}#
- #{e1 -ANAU$bmvAmthP7L7xwn0X}#
- #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)
- (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#
- #{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
- (cons #{f -ANAU$bmvAmthP7L7xwn0U}#
- #{id -ANAU$bmvAmthP7L7xwn0V}#)
- #{val -ANAU$bmvAmthP7L7xwn0W}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwn0X}#
- #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
+ (lambda (#{f 6973}#
+ #{id 6974}#
+ #{val 6975}#
+ #{e1 6976}#
+ #{e2 6977}#)
+ (#{expand-let 6860}#
+ #{e 6861}#
+ #{r 6862}#
+ #{w 6863}#
+ #{s 6864}#
+ #{mod 6865}#
+ #{build-named-let 4469}#
+ (cons #{f 6973}# #{id 6974}#)
+ #{val 6975}#
+ (cons #{e1 6976}# #{e2 6977}#)))
+ #{tmp 6923}#)
(syntax-violation
'let
"bad let"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#)
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#))
- #{e -ANAU$bmvAmthP7L7xwnyk}#)
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#)))))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? #{e 6861}#) #{s 6864}# #f)
+ (set-source-properties! #{e 6861}# #{s 6864}#))
+ #{e 6861}#)
+ #{w 6863}#
+ #{mod 6865}#)))))))))
+ (#{global-extend 4484}#
'core
'letrec
- (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}#
- #{r -ANAU$bmvAmthP7L7xwn8x}#
- #{w -ANAU$bmvAmthP7L7xwn8y}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}#
+ (lambda (#{e 7527}#
+ #{r 7528}#
+ #{w 7529}#
+ #{s 7530}#
+ #{mod 7531}#)
+ (let ((#{tmp 7533}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{e 7527}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}#
+ (if (if #{tmp 7533}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwn86}#
- #{val -ANAU$bmvAmthP7L7xwn87}#
- #{e1 -ANAU$bmvAmthP7L7xwn88}#
- #{e2 -ANAU$bmvAmthP7L7xwn89}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwn86}#))
- #{tmp -ANAU$bmvAmthP7L7xwn82}#)
+ (lambda (#{id 7537}#
+ #{val 7538}#
+ #{e1 7539}#
+ #{e2 7540}#)
+ (and-map #{id? 4486}# #{id 7537}#))
+ #{tmp 7533}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}#
- #{val -ANAU$bmvAmthP7L7xwn9O}#
- #{e1 -ANAU$bmvAmthP7L7xwn9P}#
- #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#))
+ (lambda (#{id 7556}#
+ #{val 7557}#
+ #{e1 7558}#
+ #{e2 7559}#)
+ (if (not (#{valid-bound-ids? 4512}# #{id 7556}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwn$q}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#)))
- (let ((#{w -ANAU$bmvAmthP7L7xwn$s}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#
- #{labels -ANAU$bmvAmthP7L7xwn$q}#
- #{w -ANAU$bmvAmthP7L7xwn8y}#))
- (#{r -ANAU$bmvAmthP7L7xwn$t}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwn$q}#
- #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- #{r -ANAU$bmvAmthP7L7xwn8x}#)))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#
+ #{e 7527}#)
+ (let ((#{labels 7649}#
+ (#{gen-labels 4489}# #{id 7556}#))
+ (#{new-vars 7650}#
+ (map #{gen-var 4536}# #{id 7556}#)))
+ (let ((#{w 7651}#
+ (#{make-binding-wrap 4500}#
+ #{id 7556}#
+ #{labels 7649}#
+ #{w 7529}#))
+ (#{r 7652}#
+ (#{extend-var-env 4481}#
+ #{labels 7649}#
+ #{new-vars 7650}#
+ #{r 7528}#)))
+ (#{build-letrec 4470}#
+ #{s 7530}#
#f
- (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#)
- #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwn@$}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwn@$}#
- #{r -ANAU$bmvAmthP7L7xwn$t}#
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))
- #{val -ANAU$bmvAmthP7L7xwn9O}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwn9P}#
- #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (map syntax->datum #{id 7556}#)
+ #{new-vars 7650}#
+ (map (lambda (#{x 7737}#)
+ (#{expand 4522}#
+ #{x 7737}#
+ #{r 7652}#
+ #{w 7651}#
+ #{mod 7531}#))
+ #{val 7557}#)
+ (#{expand-body 4526}#
+ (cons #{e1 7558}# #{e2 7559}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #f)
+ (if (if (pair? #{e 7527}#) #{s 7530}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwn8w}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#))
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#)
- #{r -ANAU$bmvAmthP7L7xwn$t}#
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwn82}#)
+ #{e 7527}#
+ #{s 7530}#))
+ #{e 7527}#)
+ #{w 7651}#
+ #{mod 7531}#)
+ #{r 7652}#
+ #{w 7651}#
+ #{mod 7531}#))))))
+ #{tmp 7533}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwn8w}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#))
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{w -ANAU$bmvAmthP7L7xwn8y}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? #{e 7527}#) #{s 7530}# #f)
+ (set-source-properties! #{e 7527}# #{s 7530}#))
+ #{e 7527}#)
+ #{w 7529}#
+ #{mod 7531}#))))))
+ (#{global-extend 4484}#
'core
'letrec*
- (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}#
- #{r -ANAU$bmvAmthP7L7xwoGC}#
- #{w -ANAU$bmvAmthP7L7xwoGD}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}#
+ (lambda (#{e 8132}#
+ #{r 8133}#
+ #{w 8134}#
+ #{s 8135}#
+ #{mod 8136}#)
+ (let ((#{tmp 8138}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{e 8132}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}#
+ (if (if #{tmp 8138}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}#
- #{val -ANAU$bmvAmthP7L7xwoGM}#
- #{e1 -ANAU$bmvAmthP7L7xwoGN}#
- #{e2 -ANAU$bmvAmthP7L7xwoGO}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwoGL}#))
- #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
+ (lambda (#{id 8142}#
+ #{val 8143}#
+ #{e1 8144}#
+ #{e2 8145}#)
+ (and-map #{id? 4486}# #{id 8142}#))
+ #{tmp 8138}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}#
- #{val -ANAU$bmvAmthP7L7xwoGf}#
- #{e1 -ANAU$bmvAmthP7L7xwoGg}#
- #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#))
+ (lambda (#{id 8161}#
+ #{val 8162}#
+ #{e1 8163}#
+ #{e2 8164}#)
+ (if (not (#{valid-bound-ids? 4512}# #{id 8161}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwoH7}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#)))
- (let ((#{w -ANAU$bmvAmthP7L7xwoH9}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#
- #{labels -ANAU$bmvAmthP7L7xwoH7}#
- #{w -ANAU$bmvAmthP7L7xwoGD}#))
- (#{r -ANAU$bmvAmthP7L7xwoH$}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwoH7}#
- #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- #{r -ANAU$bmvAmthP7L7xwoGC}#)))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#
+ #{e 8132}#)
+ (let ((#{labels 8254}#
+ (#{gen-labels 4489}# #{id 8161}#))
+ (#{new-vars 8255}#
+ (map #{gen-var 4536}# #{id 8161}#)))
+ (let ((#{w 8256}#
+ (#{make-binding-wrap 4500}#
+ #{id 8161}#
+ #{labels 8254}#
+ #{w 8134}#))
+ (#{r 8257}#
+ (#{extend-var-env 4481}#
+ #{labels 8254}#
+ #{new-vars 8255}#
+ #{r 8133}#)))
+ (#{build-letrec 4470}#
+ #{s 8135}#
#t
- (map syntax->datum #{id -ANAU$bmvAmthP7L7xwoGe}#)
- #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwoJP}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwoJP}#
- #{r -ANAU$bmvAmthP7L7xwoH$}#
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))
- #{val -ANAU$bmvAmthP7L7xwoGf}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwoGg}#
- #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (map syntax->datum #{id 8161}#)
+ #{new-vars 8255}#
+ (map (lambda (#{x 8342}#)
+ (#{expand 4522}#
+ #{x 8342}#
+ #{r 8257}#
+ #{w 8256}#
+ #{mod 8136}#))
+ #{val 8162}#)
+ (#{expand-body 4526}#
+ (cons #{e1 8163}# #{e2 8164}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #f)
+ (if (if (pair? #{e 8132}#) #{s 8135}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoGB}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#))
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#)
- #{r -ANAU$bmvAmthP7L7xwoH$}#
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
+ #{e 8132}#
+ #{s 8135}#))
+ #{e 8132}#)
+ #{w 8256}#
+ #{mod 8136}#)
+ #{r 8257}#
+ #{w 8256}#
+ #{mod 8136}#))))))
+ #{tmp 8138}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoGB}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#))
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{w -ANAU$bmvAmthP7L7xwoGD}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? #{e 8132}#) #{s 8135}# #f)
+ (set-source-properties! #{e 8132}# #{s 8135}#))
+ #{e 8132}#)
+ #{w 8134}#
+ #{mod 8136}#))))))
+ (#{global-extend 4484}#
'core
'set!
- (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoP@}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- '(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwoP@}#
+ (lambda (#{e 8776}#
+ #{r 8777}#
+ #{w 8778}#
+ #{s 8779}#
+ #{mod 8780}#)
+ (let ((#{tmp 8782}#
+ ($sc-dispatch #{e 8776}# '(_ any any))))
+ (if (if #{tmp 8782}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}#
- #{val -ANAU$bmvAmthP7L7xwoQE}#)
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#)
+ (lambda (#{id 8786}# #{val 8787}#)
+ (if (symbol? #{id 8786}#)
#t
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwoQD}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwoQD}#
- 0)
- 'syntax-object)
+ (if (if (vector? #{id 8786}#)
+ (if (= (vector-length #{id 8786}#) 4)
+ (eq? (vector-ref #{id 8786}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1))
+ (symbol? (vector-ref #{id 8786}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwoP@}#)
+ #{tmp 8782}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoQf}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwoQh}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#))
- (#{id-mod -ANAU$bmvAmthP7L7xwoQi}#
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQf}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwoQf}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- 0)
+ (lambda (#{id 8814}# #{val 8815}#)
+ (let ((#{n 8816}#
+ (#{id-var-name 4505}# #{id 8814}# #{w 8778}#))
+ (#{id-mod 8817}#
+ (if (if (vector? #{id 8814}#)
+ (if (= (vector-length #{id 8814}#) 4)
+ (eq? (vector-ref #{id 8814}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwoQf}# 3)
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwoQj}#
- (let ((#{t -ANAU$bmvAmthP7L7xwoRM}#
- (assq #{n -ANAU$bmvAmthP7L7xwoQh}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#)))
- (if #{t -ANAU$bmvAmthP7L7xwoRM}#
- (cdr #{t -ANAU$bmvAmthP7L7xwoRM}#)
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwoQh}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwoRR}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwoQh}#
- #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)))
- (if #{t -ANAU$bmvAmthP7L7xwoRR}#
- #{t -ANAU$bmvAmthP7L7xwoRR}#
- '(global)))
+ (vector-ref #{id 8814}# 3)
+ #{mod 8780}#)))
+ (let ((#{b 8818}#
+ (let ((#{t 8859}# (assq #{n 8816}# #{r 8777}#)))
+ (if #{t 8859}#
+ (cdr #{t 8859}#)
+ (if (symbol? #{n 8816}#)
+ (let ((#{t 8864}#
+ (#{get-global-definition-hook 4449}#
+ #{n 8816}#
+ #{id-mod 8817}#)))
+ (if #{t 8864}# #{t 8864}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- (car #{b -ANAU$bmvAmthP7L7xwoQj}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'lexical)
- (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwoQf}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'global)
- (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #{n -ANAU$bmvAmthP7L7xwoQh}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'macro)
- (let ((#{p -ANAU$bmvAmthP7L7xwoWL}#
- (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)))
+ (let ((#{atom-key 8819}# (car #{b 8818}#)))
+ (if (eqv? #{atom-key 8819}# 'lexical)
+ (#{build-lexical-assignment 4457}#
+ #{s 8779}#
+ (syntax->datum #{id 8814}#)
+ (cdr #{b 8818}#)
+ (#{expand 4522}#
+ #{val 8815}#
+ #{r 8777}#
+ #{w 8778}#
+ #{mod 8780}#))
+ (if (eqv? #{atom-key 8819}# 'global)
+ (#{build-global-assignment 4460}#
+ #{s 8779}#
+ #{n 8816}#
+ (#{expand 4522}#
+ #{val 8815}#
+ #{r 8777}#
+ #{w 8778}#
+ #{mod 8780}#)
+ #{id-mod 8817}#)
+ (if (eqv? #{atom-key 8819}# 'macro)
+ (let ((#{p 9178}# (cdr #{b 8818}#)))
(if (procedure-property
- #{p -ANAU$bmvAmthP7L7xwoWL}#
+ #{p 9178}#
'variable-transformer)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- #{p -ANAU$bmvAmthP7L7xwoWL}#
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (#{expand 4522}#
+ (#{expand-macro 4525}#
+ #{p 9178}#
+ #{e 8776}#
+ #{r 8777}#
+ #{w 8778}#
+ #{s 8779}#
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{mod 8780}#)
+ #{r 8777}#
'(())
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ #{mod 8780}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{id-mod -ANAU$bmvAmthP7L7xwoQi}#))))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'displaced-lexical)
+ (#{wrap 4515}#
+ #{e 8776}#
+ #{w 8778}#
+ #{mod 8780}#)
+ (#{wrap 4515}#
+ #{id 8814}#
+ #{w 8778}#
+ #{id-mod 8817}#))))
+ (if (eqv? #{atom-key 8819}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))
+ (#{wrap 4515}#
+ #{id 8814}#
+ #{w 8778}#
+ #{mod 8780}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #f)
+ (if (if (pair? #{e 8776}#) #{s 8779}# #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#))
- #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))))
- #{tmp -ANAU$bmvAmthP7L7xwoP@}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}#
+ #{e 8776}#
+ #{s 8779}#))
+ #{e 8776}#)
+ #{w 8778}#
+ #{mod 8780}#))))))))))
+ #{tmp 8782}#)
+ (let ((#{tmp 9273}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{e 8776}#
'(_ (any . each-any) any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwoXq}#
+ (if #{tmp 9273}#
(@apply
- (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}#
- #{tail -ANAU$bmvAmthP7L7xwoXv}#
- #{val -ANAU$bmvAmthP7L7xwoXw}#)
+ (lambda (#{head 9277}# #{tail 9278}# #{val 9279}#)
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{head -ANAU$bmvAmthP7L7xwoXu}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
+ (#{syntax-type 4521}#
+ #{head 9277}#
+ #{r 8777}#
'(())
#f
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ #{mod 8780}#
#t))
- (lambda (#{type -ANAU$bmvAmthP7L7xwoXz}#
- #{value -ANAU$bmvAmthP7L7xwoX0}#
- #{ee -ANAU$bmvAmthP7L7xwoX1}#
- #{ww -ANAU$bmvAmthP7L7xwoX2}#
- #{ss -ANAU$bmvAmthP7L7xwoX3}#
- #{modmod -ANAU$bmvAmthP7L7xwoX4}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwoXz}#
- 'module-ref)
- (let ((#{val -ANAU$bmvAmthP7L7xwoX8}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoXw}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
+ (lambda (#{type 9282}#
+ #{value 9283}#
+ #{ee 9284}#
+ #{ww 9285}#
+ #{ss 9286}#
+ #{modmod 9287}#)
+ (if (eqv? #{type 9282}# 'module-ref)
+ (let ((#{val 9291}#
+ (#{expand 4522}#
+ #{val 9279}#
+ #{r 8777}#
+ #{w 8778}#
+ #{mod 8780}#)))
(call-with-values
(lambda ()
- (#{value -ANAU$bmvAmthP7L7xwoX0}#
- (cons #{head -ANAU$bmvAmthP7L7xwoXu}#
- #{tail -ANAU$bmvAmthP7L7xwoXv}#)
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}#
- #{r -ANAU$bmvAmthP7L7xwoX$}#
- #{w -ANAU$bmvAmthP7L7xwoX@}#
- #{s* -ANAU$bmvAmthP7L7xwoYA}#
- #{mod -ANAU$bmvAmthP7L7xwoYB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}#
- (list #{e -ANAU$bmvAmthP7L7xwoX9}#)))
+ (#{value 9283}#
+ (cons #{head 9277}# #{tail 9278}#)
+ #{r 8777}#
+ #{w 8778}#))
+ (lambda (#{e 9292}#
+ #{r 9293}#
+ #{w 9294}#
+ #{s* 9295}#
+ #{mod 9296}#)
+ (let ((#{tmp 9298}# (list #{e 9292}#)))
(if (@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwoYF}#)
- (if (symbol?
- #{e -ANAU$bmvAmthP7L7xwoYF}#)
+ (lambda (#{e 9300}#)
+ (if (symbol? #{e 9300}#)
#t
- (if (if (vector?
- #{e -ANAU$bmvAmthP7L7xwoYF}#)
+ (if (if (vector? #{e 9300}#)
(if (= (vector-length
- #{e -ANAU$bmvAmthP7L7xwoYF}#)
+ #{e 9300}#)
4)
(eq? (vector-ref
- #{e -ANAU$bmvAmthP7L7xwoYF}#
+ #{e 9300}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{e -ANAU$bmvAmthP7L7xwoYF}#
- 1))
+ (vector-ref #{e 9300}# 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
+ #{tmp 9298}#)
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#)
- (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (syntax->datum
- #{e -ANAU$bmvAmthP7L7xwoYj}#)
- #{val -ANAU$bmvAmthP7L7xwoX8}#
- #{mod -ANAU$bmvAmthP7L7xwoYB}#))
- #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
+ (lambda (#{e 9330}#)
+ (#{build-global-assignment 4460}#
+ #{s 8779}#
+ (syntax->datum #{e 9330}#)
+ #{val 9291}#
+ #{mod 9296}#))
+ #{tmp 9298}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwoX9}#))))))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (let ((#{e -ANAU$bmvAmthP7L7xwocE}#
+ #{e 9292}#))))))
+ (#{build-application 4453}#
+ #{s 8779}#
+ (let ((#{e 9555}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("142"
- "143"
- "144"
- "145"
- "146"
- "147"))
+ #("l-*-3668"
+ "l-*-3669"
+ "l-*-3670"
+ "l-*-3671"
+ "l-*-3672"
+ "l-*-3673"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("13z" "140" "141"))
+ #("l-*-3654"
+ "l-*-3655"
+ "l-*-3656"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("13l"
- "13m"
- "13n"
- "13o"
- "13p"))
+ #("l-*-3618"
+ "l-*-3619"
+ "l-*-3620"
+ "l-*-3621"
+ "l-*-3622"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
- #{head -ANAU$bmvAmthP7L7xwoXu}#)))
+ #{head 9277}#)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwocE}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwocE}#)
+ (#{syntax-type 4521}#
+ #{e 9555}#
+ #{r 8777}#
+ #{w 8778}#
+ (#{source-annotation 4479}# #{e 9555}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ #{mod 8780}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwocL}#
- #{value -ANAU$bmvAmthP7L7xwocM}#
- #{e -ANAU$bmvAmthP7L7xwocN}#
- #{w -ANAU$bmvAmthP7L7xwocO}#
- #{s -ANAU$bmvAmthP7L7xwocP}#
- #{mod -ANAU$bmvAmthP7L7xwocQ}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwocL}#
- #{value -ANAU$bmvAmthP7L7xwocM}#
- #{e -ANAU$bmvAmthP7L7xwocN}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwocO}#
- #{s -ANAU$bmvAmthP7L7xwocP}#
- #{mod -ANAU$bmvAmthP7L7xwocQ}#))))
- (map (lambda (#{e -ANAU$bmvAmthP7L7xwocU}#)
+ (lambda (#{type 9562}#
+ #{value 9563}#
+ #{e 9564}#
+ #{w 9565}#
+ #{s 9566}#
+ #{mod 9567}#)
+ (#{expand-expr 4523}#
+ #{type 9562}#
+ #{value 9563}#
+ #{e 9564}#
+ #{r 8777}#
+ #{w 9565}#
+ #{s 9566}#
+ #{mod 9567}#))))
+ (map (lambda (#{e 9571}#)
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwocU}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwocU}#)
+ (#{syntax-type 4521}#
+ #{e 9571}#
+ #{r 8777}#
+ #{w 8778}#
+ (#{source-annotation 4479}#
+ #{e 9571}#)
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ #{mod 8780}#
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwocj}#
- #{value -ANAU$bmvAmthP7L7xwock}#
- #{e -ANAU$bmvAmthP7L7xwocl}#
- #{w -ANAU$bmvAmthP7L7xwocm}#
- #{s -ANAU$bmvAmthP7L7xwocn}#
- #{mod -ANAU$bmvAmthP7L7xwoco}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwocj}#
- #{value -ANAU$bmvAmthP7L7xwock}#
- #{e -ANAU$bmvAmthP7L7xwocl}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwocm}#
- #{s -ANAU$bmvAmthP7L7xwocn}#
- #{mod -ANAU$bmvAmthP7L7xwoco}#))))
+ (lambda (#{type 9586}#
+ #{value 9587}#
+ #{e 9588}#
+ #{w 9589}#
+ #{s 9590}#
+ #{mod 9591}#)
+ (#{expand-expr 4523}#
+ #{type 9586}#
+ #{value 9587}#
+ #{e 9588}#
+ #{r 8777}#
+ #{w 9589}#
+ #{s 9590}#
+ #{mod 9591}#))))
(append
- #{tail -ANAU$bmvAmthP7L7xwoXv}#
- (list #{val -ANAU$bmvAmthP7L7xwoXw}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwoXq}#)
+ #{tail 9278}#
+ (list #{val 9279}#))))))))
+ #{tmp 9273}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#))
- #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))
+ (if (if (pair? #{e 8776}#) #{s 8779}# #f)
+ (set-source-properties! #{e 8776}# #{s 8779}#))
+ #{e 8776}#)
+ #{w 8778}#
+ #{mod 8780}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e -ANAU$bmvAmthP7L7xwodT}#
- #{r -ANAU$bmvAmthP7L7xwodU}#
- #{w -ANAU$bmvAmthP7L7xwodV}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwodT}#
- '(_ each-any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}#
+ (lambda (#{e 9634}# #{r 9635}# #{w 9636}#)
+ (let ((#{tmp 9638}#
+ ($sc-dispatch #{e 9634}# '(_ each-any any))))
+ (if (if #{tmp 9638}#
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}#
- #{id -ANAU$bmvAmthP7L7xwodb}#)
- (if (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{mod -ANAU$bmvAmthP7L7xwoda}#)
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#)
+ (lambda (#{mod 9641}# #{id 9642}#)
+ (if (and-map #{id? 4486}# #{mod 9641}#)
+ (if (symbol? #{id 9642}#)
#t
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwodb}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwodb}#
- 0)
+ (if (if (vector? #{id 9642}#)
+ (if (= (vector-length #{id 9642}#) 4)
+ (eq? (vector-ref #{id 9642}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1))
+ (symbol? (vector-ref #{id 9642}# 1))
#f))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwodX}#)
+ #{tmp 9638}#)
#f)
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}#
- #{id -ANAU$bmvAmthP7L7xwoeE}#)
+ (lambda (#{mod 9682}# #{id 9683}#)
(values
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#)
- #{r -ANAU$bmvAmthP7L7xwodU}#
- #{w -ANAU$bmvAmthP7L7xwodV}#
+ (syntax->datum #{id 9683}#)
+ #{r 9635}#
+ #{w 9636}#
#f
(syntax->datum
(cons '#(syntax-object
#(ribcage
#(mod id)
#((top) (top))
- #("14n" "14o"))
+ #("l-*-3715" "l-*-3716"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("14i" "14j" "14k"))
+ #("l-*-3703" "l-*-3704" "l-*-3705"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{mod -ANAU$bmvAmthP7L7xwoeD}#))))
- #{tmp -ANAU$bmvAmthP7L7xwodX}#)
+ #{mod 9682}#))))
+ #{tmp 9638}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwodT}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 9634}#))))))
+ (#{global-extend 4484}#
'module-ref
'@@
- (lambda (#{e -ANAU$bmvAmthP7L7xwofg}#
- #{r -ANAU$bmvAmthP7L7xwofh}#
- #{w -ANAU$bmvAmthP7L7xwofi}#)
+ (lambda (#{e 9775}# #{r 9776}# #{w 9777}#)
(letrec*
- ((#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwogG}#
- #{mod -ANAU$bmvAmthP7L7xwogH}#)
- (if (pair? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (cons (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (car #{x -ANAU$bmvAmthP7L7xwogG}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#)
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (cdr #{x -ANAU$bmvAmthP7L7xwogG}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0)
- 'syntax-object)
+ ((#{remodulate 9778}#
+ (lambda (#{x 9813}# #{mod 9814}#)
+ (if (pair? #{x 9813}#)
+ (cons (#{remodulate 9778}#
+ (car #{x 9813}#)
+ #{mod 9814}#)
+ (#{remodulate 9778}#
+ (cdr #{x 9813}#)
+ #{mod 9814}#))
+ (if (if (vector? #{x 9813}#)
+ (if (= (vector-length #{x 9813}#) 4)
+ (eq? (vector-ref #{x 9813}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwogV}#
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 1)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (#{wrap -ANAU$bmvAmthP7L7xwogW}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 2)))
+ (let ((#{expression 9828}#
+ (#{remodulate 9778}#
+ (vector-ref #{x 9813}# 1)
+ #{mod 9814}#))
+ (#{wrap 9829}# (vector-ref #{x 9813}# 2)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwogV}#
- #{wrap -ANAU$bmvAmthP7L7xwogW}#
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwoge}#
- (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)))
- (let ((#{v -ANAU$bmvAmthP7L7xwogf}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwoge}#)))
+ #{expression 9828}#
+ #{wrap 9829}#
+ #{mod 9814}#))
+ (if (vector? #{x 9813}#)
+ (let ((#{n 9837}# (vector-length #{x 9813}#)))
+ (let ((#{v 9838}# (make-vector #{n 9837}#)))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwogg}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwohP}#
- #{n -ANAU$bmvAmthP7L7xwoge}#)
- #{v -ANAU$bmvAmthP7L7xwogf}#
+ ((#{loop 9839}#
+ (lambda (#{i 9886}#)
+ (if (= #{i 9886}# #{n 9837}#)
+ #{v 9838}#
(begin
(vector-set!
- #{v -ANAU$bmvAmthP7L7xwogf}#
- #{i -ANAU$bmvAmthP7L7xwohP}#
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwogG}#
- #{i -ANAU$bmvAmthP7L7xwohP}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (#{loop -ANAU$bmvAmthP7L7xwogg}#
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwohP}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwogg}# 0))))
- #{x -ANAU$bmvAmthP7L7xwogG}#))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwofl}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwofg}#
- '(_ each-any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}#
+ #{v 9838}#
+ #{i 9886}#
+ (#{remodulate 9778}#
+ (vector-ref #{x 9813}# #{i 9886}#)
+ #{mod 9814}#))
+ (#{loop 9839}# (#{1+}# #{i 9886}#)))))))
+ (#{loop 9839}# 0))))
+ #{x 9813}#))))))
+ (let ((#{tmp 9780}#
+ ($sc-dispatch #{e 9775}# '(_ each-any any))))
+ (if (if #{tmp 9780}#
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}#
- #{exp -ANAU$bmvAmthP7L7xwofq}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{mod -ANAU$bmvAmthP7L7xwofp}#))
- #{tmp -ANAU$bmvAmthP7L7xwofl}#)
+ (lambda (#{mod 9784}# #{exp 9785}#)
+ (and-map #{id? 4486}# #{mod 9784}#))
+ #{tmp 9780}#)
#f)
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwof8}#
+ (lambda (#{mod 9801}# #{exp 9802}#)
+ (let ((#{mod 9803}#
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(mod exp)
#((top) (top))
- #("151" "152"))
- #(ribcage (remodulate) ((top)) ("14s"))
+ #("l-*-3759" "l-*-3760"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("l-*-3726"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("14p" "14q" "14r"))
+ #("l-*-3723" "l-*-3724" "l-*-3725"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{mod -ANAU$bmvAmthP7L7xwof6}#))))
+ #{mod 9801}#))))
(values
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#
- #{mod -ANAU$bmvAmthP7L7xwof8}#)
- #{r -ANAU$bmvAmthP7L7xwofh}#
- #{w -ANAU$bmvAmthP7L7xwofi}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#)
- #{mod -ANAU$bmvAmthP7L7xwof8}#)))
- #{tmp -ANAU$bmvAmthP7L7xwofl}#)
+ (#{remodulate 9778}# #{exp 9802}# #{mod 9803}#)
+ #{r 9776}#
+ #{w 9777}#
+ (#{source-annotation 4479}# #{exp 9802}#)
+ #{mod 9803}#)))
+ #{tmp 9780}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwofg}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 9775}#))))))
+ (#{global-extend 4484}#
'core
'if
- (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoi0}#
- '(_ any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwoi6}#
+ (lambda (#{e 9987}#
+ #{r 9988}#
+ #{w 9989}#
+ #{s 9990}#
+ #{mod 9991}#)
+ (let ((#{tmp 9993}#
+ ($sc-dispatch #{e 9987}# '(_ any any))))
+ (if #{tmp 9993}#
(@apply
- (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}#
- #{then -ANAU$bmvAmthP7L7xwoi@}#)
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{test -ANAU$bmvAmthP7L7xwoi$}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{then -ANAU$bmvAmthP7L7xwoi@}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (lambda (#{test 9997}# #{then 9998}#)
+ (#{build-conditional 4454}#
+ #{s 9990}#
+ (#{expand 4522}#
+ #{test 9997}#
+ #{r 9988}#
+ #{w 9989}#
+ #{mod 9991}#)
+ (#{expand 4522}#
+ #{then 9998}#
+ #{r 9988}#
+ #{w 9989}#
+ #{mod 9991}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwoi6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoi0}#
- '(_ any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwomg}#
+ #{tmp 9993}#)
+ (let ((#{tmp 10223}#
+ ($sc-dispatch #{e 9987}# '(_ any any any))))
+ (if #{tmp 10223}#
(@apply
- (lambda (#{test -ANAU$bmvAmthP7L7xwomk}#
- #{then -ANAU$bmvAmthP7L7xwoml}#
- #{else -ANAU$bmvAmthP7L7xwomm}#)
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{test -ANAU$bmvAmthP7L7xwomk}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{then -ANAU$bmvAmthP7L7xwoml}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{else -ANAU$bmvAmthP7L7xwomm}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)))
- #{tmp -ANAU$bmvAmthP7L7xwomg}#)
+ (lambda (#{test 10227}# #{then 10228}# #{else 10229}#)
+ (#{build-conditional 4454}#
+ #{s 9990}#
+ (#{expand 4522}#
+ #{test 10227}#
+ #{r 9988}#
+ #{w 9989}#
+ #{mod 9991}#)
+ (#{expand 4522}#
+ #{then 10228}#
+ #{r 9988}#
+ #{w 9989}#
+ #{mod 9991}#)
+ (#{expand 4522}#
+ #{else 10229}#
+ #{r 9988}#
+ #{w 9989}#
+ #{mod 9991}#)))
+ #{tmp 10223}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwoi0}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ #{e 9987}#)))))))
+ (#{global-extend 4484}#
'core
'with-fluids
- (lambda (#{e -ANAU$bmvAmthP7L7xwos1}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{s -ANAU$bmvAmthP7L7xwos4}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}#
+ (lambda (#{e 10628}#
+ #{r 10629}#
+ #{w 10630}#
+ #{s 10631}#
+ #{mod 10632}#)
+ (let ((#{tmp 10634}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwos1}#
+ #{e 10628}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwos7}#
+ (if #{tmp 10634}#
(@apply
- (lambda (#{fluid -ANAU$bmvAmthP7L7xwos@}#
- #{val -ANAU$bmvAmthP7L7xwotA}#
- #{b -ANAU$bmvAmthP7L7xwotB}#
- #{b* -ANAU$bmvAmthP7L7xwotC}#)
- (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
- #{s -ANAU$bmvAmthP7L7xwos4}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwouT}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwouT}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#))
- #{fluid -ANAU$bmvAmthP7L7xwos@}#)
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwovZ}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwovZ}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#))
- #{val -ANAU$bmvAmthP7L7xwotA}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{b -ANAU$bmvAmthP7L7xwotB}#
- #{b* -ANAU$bmvAmthP7L7xwotC}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (#{fluid 10638}#
+ #{val 10639}#
+ #{b 10640}#
+ #{b* 10641}#)
+ (#{build-dynlet 4455}#
+ #{s 10631}#
+ (map (lambda (#{x 10722}#)
+ (#{expand 4522}#
+ #{x 10722}#
+ #{r 10629}#
+ #{w 10630}#
+ #{mod 10632}#))
+ #{fluid 10638}#)
+ (map (lambda (#{x 10792}#)
+ (#{expand 4522}#
+ #{x 10792}#
+ #{r 10629}#
+ #{w 10630}#
+ #{mod 10632}#))
+ #{val 10639}#)
+ (#{expand-body 4526}#
+ (cons #{b 10640}# #{b* 10641}#)
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#)
- #{s -ANAU$bmvAmthP7L7xwos4}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwos1}#
- #{s -ANAU$bmvAmthP7L7xwos4}#))
- #{e -ANAU$bmvAmthP7L7xwos1}#)
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)))
- #{tmp -ANAU$bmvAmthP7L7xwos7}#)
+ (if (if (pair? #{e 10628}#) #{s 10631}# #f)
+ (set-source-properties! #{e 10628}# #{s 10631}#))
+ #{e 10628}#)
+ #{w 10630}#
+ #{mod 10632}#)
+ #{r 10629}#
+ #{w 10630}#
+ #{mod 10632}#)))
+ #{tmp 10634}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwos1}#)))))
+ #{e 10628}#)))))
(module-define!
(current-module)
'begin
'eval-when
'eval-when
'()))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (#{global-extend 4484}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
- (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}#
- #{keys -ANAU$bmvAmthP7L7xwpOF}#)
+ ((#{convert-pattern 11160}#
+ (lambda (#{pattern 12757}# #{keys 12758}#)
(letrec*
- ((#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- (lambda (#{p* -ANAU$bmvAmthP7L7xwpX2}#
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#)
- (if (not (pair? #{p* -ANAU$bmvAmthP7L7xwpX2}#))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{p* -ANAU$bmvAmthP7L7xwpX2}#
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#)
+ ((#{cvt* 12759}#
+ (lambda (#{p* 13383}# #{n 13384}# #{ids 13385}#)
+ (if (not (pair? #{p* 13383}#))
+ (#{cvt 12761}#
+ #{p* 13383}#
+ #{n 13384}#
+ #{ids 13385}#)
(call-with-values
(lambda ()
- (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#)
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}#
- #{ids -ANAU$bmvAmthP7L7xwpX8}#)
+ (#{cvt* 12759}#
+ (cdr #{p* 13383}#)
+ #{n 13384}#
+ #{ids 13385}#))
+ (lambda (#{y 13388}# #{ids 13389}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- (car #{p* -ANAU$bmvAmthP7L7xwpX2}#)
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX8}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwpX@}#
- #{ids -ANAU$bmvAmthP7L7xwpYA}#)
+ (#{cvt 12761}#
+ (car #{p* 13383}#)
+ #{n 13384}#
+ #{ids 13389}#))
+ (lambda (#{x 13392}# #{ids 13393}#)
(values
- (cons #{x -ANAU$bmvAmthP7L7xwpX@}#
- #{y -ANAU$bmvAmthP7L7xwpX7}#)
- #{ids -ANAU$bmvAmthP7L7xwpYA}#))))))))
- (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#)
+ (cons #{x 13392}# #{y 13388}#)
+ #{ids 13393}#))))))))
+ (#{v-reverse 12760}#
+ (lambda (#{x 13394}#)
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwpYC}#
- (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}#
- #{x -ANAU$bmvAmthP7L7xwpZT}#)
- (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#))
- (values
- #{r -ANAU$bmvAmthP7L7xwpZS}#
- #{x -ANAU$bmvAmthP7L7xwpZT}#)
- (#{loop -ANAU$bmvAmthP7L7xwpYC}#
- (cons (car #{x -ANAU$bmvAmthP7L7xwpZT}#)
- #{r -ANAU$bmvAmthP7L7xwpZS}#)
- (cdr #{x -ANAU$bmvAmthP7L7xwpZT}#))))))
- (#{loop -ANAU$bmvAmthP7L7xwpYC}#
- '()
- #{x -ANAU$bmvAmthP7L7xwpYB}#))))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#)
- (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ ((#{loop 13395}#
+ (lambda (#{r 13475}# #{x 13476}#)
+ (if (not (pair? #{x 13476}#))
+ (values #{r 13475}# #{x 13476}#)
+ (#{loop 13395}#
+ (cons (car #{x 13476}#) #{r 13475}#)
+ (cdr #{x 13476}#))))))
+ (#{loop 13395}# '() #{x 13394}#))))
+ (#{cvt 12761}#
+ (lambda (#{p 12764}# #{n 12765}# #{ids 12766}#)
+ (if (if (symbol? #{p 12764}#)
#t
- (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#)
- (if (= (vector-length
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
- 4)
- (eq? (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- 0)
+ (if (if (vector? #{p 12764}#)
+ (if (= (vector-length #{p 12764}#) 4)
+ (eq? (vector-ref #{p 12764}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1))
+ (symbol? (vector-ref #{p 12764}# 1))
#f))
- (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- #{keys -ANAU$bmvAmthP7L7xwpOF}#)
+ (if (#{bound-id-member? 4514}#
+ #{p 12764}#
+ #{keys 12758}#)
(values
- (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#)
- (if (if (eq? (if (if (vector?
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
- (if (= (vector-length
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ (vector 'free-id #{p 12764}#)
+ #{ids 12766}#)
+ (if (if (eq? (if (if (vector? #{p 12764}#)
+ (if (= (vector-length #{p 12764}#)
4)
- (eq? (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- 0)
+ (eq? (vector-ref #{p 12764}# 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- 1)
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ (vector-ref #{p 12764}# 1)
+ #{p 12764}#)
(if (if (= (vector-length
'#(syntax-object
_
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827"
+ "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827" "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (#{id-var-name 4505}# #{p 12764}# '(()))
+ (#{id-var-name 4505}#
'#(syntax-object
_
((top)
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827" "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#)
+ (values '_ #{ids 12766}#)
(values
'any
- (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}#
+ (cons (cons #{p 12764}# #{n 12765}#)
+ #{ids 12766}#))))
+ (let ((#{tmp 13086}#
+ ($sc-dispatch #{p 12764}# '(any any))))
+ (if (if #{tmp 13086}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}#
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
- (if (if (if (vector?
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ (lambda (#{x 13090}# #{dots 13091}#)
+ (if (if (if (vector? #{dots 13091}#)
(if (= (vector-length
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ #{dots 13091}#)
4)
(eq? (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
+ #{dots 13091}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
- 1))
+ (vector-ref #{dots 13091}# 1))
#f)
- (if (eq? (if (if (vector?
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ (if (eq? (if (if (vector? #{dots 13091}#)
(if (= (vector-length
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ #{dots 13091}#)
4)
(eq? (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
+ #{dots 13091}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
- 1)
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
+ (vector-ref #{dots 13091}# 1)
+ #{dots 13091}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
+ (eq? (#{id-var-name 4505}#
+ #{dots 13091}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (#{id-var-name 4505}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
+ #{tmp 13086}#)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}#
- #{dots -ANAU$bmvAmthP7L7xwpU3}#)
+ (lambda (#{x 13191}# #{dots 13192}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpU2}#
- (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}#
- #{ids -ANAU$bmvAmthP7L7xwpU5}#)
+ (#{cvt 12761}#
+ #{x 13191}#
+ (#{1+}# #{n 12765}#)
+ #{ids 12766}#))
+ (lambda (#{p 13193}# #{ids 13194}#)
(values
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}#
- 'any)
+ (if (eq? #{p 13193}# 'any)
'each-any
- (vector
- 'each
- #{p -ANAU$bmvAmthP7L7xwpU4}#))
- #{ids -ANAU$bmvAmthP7L7xwpU5}#))))
- #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}#
+ (vector 'each #{p 13193}#))
+ #{ids 13194}#))))
+ #{tmp 13086}#)
+ (let ((#{tmp 13195}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{p 12764}#
'(any any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}#
+ (if (if #{tmp 13195}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}#
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
- #{ys -ANAU$bmvAmthP7L7xwpVA}#)
- (if (if (if (vector?
- #{dots -ANAU$bmvAmthP7L7xwpU@}#)
+ (lambda (#{x 13199}#
+ #{dots 13200}#
+ #{ys 13201}#)
+ (if (if (if (vector? #{dots 13200}#)
(if (= (vector-length
- #{dots -ANAU$bmvAmthP7L7xwpU@}#)
+ #{dots 13200}#)
4)
(eq? (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
+ #{dots 13200}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
- 1))
+ (vector-ref #{dots 13200}# 1))
#f)
(if (eq? (if (if (vector?
- #{dots -ANAU$bmvAmthP7L7xwpU@}#)
+ #{dots 13200}#)
(if (= (vector-length
- #{dots -ANAU$bmvAmthP7L7xwpU@}#)
+ #{dots 13200}#)
4)
(eq? (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
+ #{dots 13200}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
+ #{dots 13200}#
1)
- #{dots -ANAU$bmvAmthP7L7xwpU@}#)
+ #{dots 13200}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{dots -ANAU$bmvAmthP7L7xwpU@}#
+ (eq? (#{id-var-name 4505}#
+ #{dots 13200}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (#{id-var-name 4505}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
+ #{tmp 13195}#)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}#
- #{dots -ANAU$bmvAmthP7L7xwpWl}#
- #{ys -ANAU$bmvAmthP7L7xwpWm}#)
+ (lambda (#{x 13301}#
+ #{dots 13302}#
+ #{ys 13303}#)
(call-with-values
(lambda ()
- (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- #{ys -ANAU$bmvAmthP7L7xwpWm}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}#
- #{ids -ANAU$bmvAmthP7L7xwpWq}#)
+ (#{cvt* 12759}#
+ #{ys 13303}#
+ #{n 12765}#
+ #{ids 12766}#))
+ (lambda (#{ys 13306}# #{ids 13307}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpWk}#
- (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpWq}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}#
- #{ids -ANAU$bmvAmthP7L7xwpWs}#)
+ (#{cvt 12761}#
+ #{x 13301}#
+ (#{1+}# #{n 12765}#)
+ #{ids 13307}#))
+ (lambda (#{x 13308}# #{ids 13309}#)
(call-with-values
(lambda ()
- (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
- #{ys -ANAU$bmvAmthP7L7xwpWp}#))
- (lambda (#{ys -ANAU$bmvAmthP7L7xwpXN}#
- #{e -ANAU$bmvAmthP7L7xwpXO}#)
+ (#{v-reverse 12760}#
+ #{ys 13306}#))
+ (lambda (#{ys 13342}#
+ #{e 13343}#)
(values
(vector
'each+
- #{x -ANAU$bmvAmthP7L7xwpWr}#
- #{ys -ANAU$bmvAmthP7L7xwpXN}#
- #{e -ANAU$bmvAmthP7L7xwpXO}#)
- #{ids -ANAU$bmvAmthP7L7xwpWs}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}#
+ #{x 13308}#
+ #{ys 13342}#
+ #{e 13343}#)
+ #{ids 13309}#))))))))
+ #{tmp 13195}#)
+ (let ((#{tmp 13344}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{p 12764}#
'(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXP}#
+ (if #{tmp 13344}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}#
- #{y -ANAU$bmvAmthP7L7xwpXU}#)
+ (lambda (#{x 13348}# #{y 13349}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{y -ANAU$bmvAmthP7L7xwpXU}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}#
- #{ids -ANAU$bmvAmthP7L7xwpXW}#)
+ (#{cvt 12761}#
+ #{y 13349}#
+ #{n 12765}#
+ #{ids 12766}#))
+ (lambda (#{y 13350}# #{ids 13351}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpXT}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpXW}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwpXX}#
- #{ids -ANAU$bmvAmthP7L7xwpXY}#)
+ (#{cvt 12761}#
+ #{x 13348}#
+ #{n 12765}#
+ #{ids 13351}#))
+ (lambda (#{x 13352}#
+ #{ids 13353}#)
(values
- (cons #{x -ANAU$bmvAmthP7L7xwpXX}#
- #{y -ANAU$bmvAmthP7L7xwpXV}#)
- #{ids -ANAU$bmvAmthP7L7xwpXY}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwpXP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}#
+ (cons #{x 13352}#
+ #{y 13350}#)
+ #{ids 13353}#))))))
+ #{tmp 13344}#)
+ (let ((#{tmp 13354}#
+ ($sc-dispatch #{p 12764}# '())))
+ (if #{tmp 13354}#
(@apply
(lambda ()
- (values
- '()
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- #{tmp -ANAU$bmvAmthP7L7xwpXZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}#
+ (values '() #{ids 12766}#))
+ #{tmp 13354}#)
+ (let ((#{tmp 13358}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{p 12764}#
'#(vector each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXd}#
+ (if #{tmp 13358}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpXh}#)
+ (lambda (#{x 13362}#)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpXh}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{p -ANAU$bmvAmthP7L7xwpXi}#
- #{ids -ANAU$bmvAmthP7L7xwpXj}#)
+ (#{cvt 12761}#
+ #{x 13362}#
+ #{n 12765}#
+ #{ids 12766}#))
+ (lambda (#{p 13363}#
+ #{ids 13364}#)
(values
(vector
'vector
- #{p -ANAU$bmvAmthP7L7xwpXi}#)
- #{ids -ANAU$bmvAmthP7L7xwpXj}#))))
- #{tmp -ANAU$bmvAmthP7L7xwpXd}#)
+ #{p 13363}#)
+ #{ids 13364}#))))
+ #{tmp 13358}#)
(values
(vector
'atom
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
+ (#{strip 4535}#
+ #{p 12764}#
'(())))
- #{ids -ANAU$bmvAmthP7L7xwpON}#)))))))))))))))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{pattern -ANAU$bmvAmthP7L7xwpOE}#
- 0
- '()))))
- (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
- (lambda (#{pvars -ANAU$bmvAmthP7L7xwpZU}#
- #{exp -ANAU$bmvAmthP7L7xwpZV}#
- #{y -ANAU$bmvAmthP7L7xwpZW}#
- #{r -ANAU$bmvAmthP7L7xwpZX}#
- #{mod -ANAU$bmvAmthP7L7xwpZY}#)
- (let ((#{ids -ANAU$bmvAmthP7L7xwpZZ}#
- (map car #{pvars -ANAU$bmvAmthP7L7xwpZU}#)))
+ #{ids 12766}#)))))))))))))))
+ (#{cvt 12761}# #{pattern 12757}# 0 '()))))
+ (#{build-dispatch-call 11161}#
+ (lambda (#{pvars 13477}#
+ #{exp 13478}#
+ #{y 13479}#
+ #{r 13480}#
+ #{mod 13481}#)
+ (let ((#{ids 13482}# (map car #{pvars 13477}#)))
(begin
- (map cdr #{pvars -ANAU$bmvAmthP7L7xwpZU}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwpZb}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwpZc}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#)))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ (map cdr #{pvars 13477}#)
+ (let ((#{labels 13484}#
+ (#{gen-labels 4489}# #{ids 13482}#))
+ (#{new-vars 13485}#
+ (map #{gen-var 4536}# #{ids 13482}#)))
+ (#{build-application 4453}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
'(guile)
'apply
#f))
- (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
+ (list (#{build-simple-lambda 4462}#
#f
- (map syntax->datum
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#)
+ (map syntax->datum #{ids 13482}#)
#f
- #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
+ #{new-vars 13485}#
'()
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwpZV}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwpZb}#
- (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}#
- #{level -ANAU$bmvAmthP7L7xwpec}#)
+ (#{expand 4522}#
+ #{exp 13478}#
+ (#{extend-env 4480}#
+ #{labels 13484}#
+ (map (lambda (#{var 13808}# #{level 13809}#)
(cons 'syntax
- (cons #{var -ANAU$bmvAmthP7L7xwpeb}#
- #{level -ANAU$bmvAmthP7L7xwpec}#)))
- #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
- (map cdr
- #{pvars -ANAU$bmvAmthP7L7xwpZU}#))
- #{r -ANAU$bmvAmthP7L7xwpZX}#)
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#
- #{labels -ANAU$bmvAmthP7L7xwpZb}#
+ (cons #{var 13808}#
+ #{level 13809}#)))
+ #{new-vars 13485}#
+ (map cdr #{pvars 13477}#))
+ #{r 13480}#)
+ (#{make-binding-wrap 4500}#
+ #{ids 13482}#
+ #{labels 13484}#
'(()))
- #{mod -ANAU$bmvAmthP7L7xwpZY}#))
- #{y -ANAU$bmvAmthP7L7xwpZW}#)))))))
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwpEQ}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#
- #{clauses -ANAU$bmvAmthP7L7xwpES}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{pat -ANAU$bmvAmthP7L7xwpEU}#
- #{fender -ANAU$bmvAmthP7L7xwpEV}#
- #{exp -ANAU$bmvAmthP7L7xwpEW}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#)
+ #{mod 13481}#))
+ #{y 13479}#)))))))
+ (#{gen-clause 11162}#
+ (lambda (#{x 12129}#
+ #{keys 12130}#
+ #{clauses 12131}#
+ #{r 12132}#
+ #{pat 12133}#
+ #{fender 12134}#
+ #{exp 12135}#
+ #{mod 12136}#)
(call-with-values
(lambda ()
- (#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
- #{pat -ANAU$bmvAmthP7L7xwpEU}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#))
- (lambda (#{p -ANAU$bmvAmthP7L7xwpGy}#
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#)
- (if (not (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (map car #{pvars -ANAU$bmvAmthP7L7xwpGz}#)))
+ (#{convert-pattern 11160}#
+ #{pat 12133}#
+ #{keys 12130}#))
+ (lambda (#{p 12291}# #{pvars 12292}#)
+ (if (not (#{distinct-bound-ids? 4513}#
+ (map car #{pvars 12292}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat -ANAU$bmvAmthP7L7xwpEU}#)
+ #{pat 12133}#)
(if (not (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#)
- (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}#
- (car #{x -ANAU$bmvAmthP7L7xwpIn}#)))
- (if (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwpIr}#)
+ (lambda (#{x 12408}#)
+ (not (let ((#{x 12412}# (car #{x 12408}#)))
+ (if (if (if (vector? #{x 12412}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwpIr}#)
+ #{x 12412}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwpIr}#
+ #{x 12412}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwpIr}#
- 1))
+ (vector-ref #{x 12412}# 1))
#f)
(if (eq? (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwpIr}#)
+ #{x 12412}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwpIr}#)
+ #{x 12412}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwpIr}#
+ #{x 12412}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x -ANAU$bmvAmthP7L7xwpIr}#
+ #{x 12412}#
1)
- #{x -ANAU$bmvAmthP7L7xwpIr}#)
+ #{x 12412}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwpIr}#
+ (eq? (#{id-var-name 4505}#
+ #{x 12412}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (#{id-var-name 4505}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#))
+ #{pvars 12292}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat -ANAU$bmvAmthP7L7xwpEU}#)
- (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}#
+ #{pat 12133}#)
+ (let ((#{y 12488}#
(gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ (string-append (symbol->string 'tmp) "-"))))
+ (#{build-application 4453}#
#f
- (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp))
- (#{vars -ANAU$bmvAmthP7L7xwpMI}#
- (list #{y -ANAU$bmvAmthP7L7xwpJ3}#))
- (#{exp -ANAU$bmvAmthP7L7xwpMK}#
- (let ((#{y -ANAU$bmvAmthP7L7xwpMb}#
+ (let ((#{req 12631}# (list 'tmp))
+ (#{vars 12633}# (list #{y 12488}#))
+ (#{exp 12635}#
+ (let ((#{y 12652}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y -ANAU$bmvAmthP7L7xwpJ3}#)))
- (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}#
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpMo}#
+ #{y 12488}#)))
+ (let ((#{test-exp 12656}#
+ (let ((#{tmp 12665}#
($sc-dispatch
- #{fender -ANAU$bmvAmthP7L7xwpEV}#
+ #{fender 12134}#
'#(atom #t))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpMo}#
+ (if #{tmp 12665}#
(@apply
- (lambda ()
- #{y -ANAU$bmvAmthP7L7xwpMb}#)
- #{tmp -ANAU$bmvAmthP7L7xwpMo}#)
- (let ((#{then-exp -ANAU$bmvAmthP7L7xwpM6}#
- (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#
- #{fender -ANAU$bmvAmthP7L7xwpEV}#
- #{y -ANAU$bmvAmthP7L7xwpMb}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#))
- (#{else-exp -ANAU$bmvAmthP7L7xwpM7}#
+ (lambda () #{y 12652}#)
+ #{tmp 12665}#)
+ (let ((#{then-exp 12683}#
+ (#{build-dispatch-call 11161}#
+ #{pvars 12292}#
+ #{fender 12134}#
+ #{y 12652}#
+ #{r 12132}#
+ #{mod 12136}#))
+ (#{else-exp 12684}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
%expanded-vtables
10)
#f
- #{y -ANAU$bmvAmthP7L7xwpMb}#
- #{then-exp -ANAU$bmvAmthP7L7xwpM6}#
- #{else-exp -ANAU$bmvAmthP7L7xwpM7}#)))))
- (#{then-exp -ANAU$bmvAmthP7L7xwpMg}#
- (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#
- #{exp -ANAU$bmvAmthP7L7xwpEW}#
- #{y -ANAU$bmvAmthP7L7xwpMb}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#))
- (#{else-exp -ANAU$bmvAmthP7L7xwpMh}#
- (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
- #{x -ANAU$bmvAmthP7L7xwpEQ}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#
- #{clauses -ANAU$bmvAmthP7L7xwpES}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#)))
+ #{y 12652}#
+ #{then-exp 12683}#
+ #{else-exp 12684}#)))))
+ (#{then-exp 12657}#
+ (#{build-dispatch-call 11161}#
+ #{pvars 12292}#
+ #{exp 12135}#
+ #{y 12652}#
+ #{r 12132}#
+ #{mod 12136}#))
+ (#{else-exp 12658}#
+ (#{gen-syntax-case 11163}#
+ #{x 12129}#
+ #{keys 12130}#
+ #{clauses 12131}#
+ #{r 12132}#
+ #{mod 12136}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp -ANAU$bmvAmthP7L7xwpMf}#
- #{then-exp -ANAU$bmvAmthP7L7xwpMg}#
- #{else-exp -ANAU$bmvAmthP7L7xwpMh}#)))))
- (let ((#{body -ANAU$bmvAmthP7L7xwpMP}#
+ #{test-exp 12656}#
+ #{then-exp 12657}#
+ #{else-exp 12658}#)))))
+ (let ((#{body 12640}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwpMG}#
+ #{req 12631}#
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwpMI}#
- #{exp -ANAU$bmvAmthP7L7xwpMK}#
+ #{vars 12633}#
+ #{exp 12635}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body -ANAU$bmvAmthP7L7xwpMP}#)))
- (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any)
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
+ #{body 12640}#)))
+ (list (if (eq? #{p 12291}# 'any)
+ (let ((#{fun-exp 12706}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'list
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}#
- (list #{x -ANAU$bmvAmthP7L7xwpEQ}#)))
+ (#{arg-exps 12707}#
+ (list #{x 12129}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
- #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#))
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
+ #{fun-exp 12706}#
+ #{arg-exps 12707}#))
+ (let ((#{fun-exp 12730}#
(if (equal?
(module-name (current-module))
'(guile))
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}#
- (list #{x -ANAU$bmvAmthP7L7xwpEQ}#
+ (#{arg-exps 12731}#
+ (list #{x 12129}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p -ANAU$bmvAmthP7L7xwpGy}#))))
+ #{p 12291}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
- #{arg-exps -ANAU$bmvAmthP7L7xwpNq}#))))))))))))
- (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- #{clauses -ANAU$bmvAmthP7L7xwo7d}#
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)
- (if (null? #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
+ #{fun-exp 12730}#
+ #{arg-exps 12731}#))))))))))))
+ (#{gen-syntax-case 11163}#
+ (lambda (#{x 11562}#
+ #{keys 11563}#
+ #{clauses 11564}#
+ #{r 11565}#
+ #{mod 11566}#)
+ (if (null? #{clauses 11564}#)
+ (let ((#{fun-exp 11571}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
'(guile)
'syntax-violation
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}#
+ (#{arg-exps 11572}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x -ANAU$bmvAmthP7L7xwo7b}#)))
+ #{x 11562}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
- #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}#
- (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwo8G}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwo8H}#
+ #{fun-exp 11571}#
+ #{arg-exps 11572}#))
+ (let ((#{tmp 11605}# (car #{clauses 11564}#)))
+ (let ((#{tmp 11606}#
+ ($sc-dispatch #{tmp 11605}# '(any any))))
+ (if #{tmp 11606}#
(@apply
- (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#)
- (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ (lambda (#{pat 11608}# #{exp 11609}#)
+ (if (if (if (symbol? #{pat 11608}#)
#t
- (if (if (vector?
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
- (if (= (vector-length
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ (if (if (vector? #{pat 11608}#)
+ (if (= (vector-length #{pat 11608}#)
4)
- (eq? (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
- 0)
+ (eq? (vector-ref #{pat 11608}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
- 1))
+ (symbol? (vector-ref #{pat 11608}# 1))
#f))
(and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#)
+ (lambda (#{x 11636}#)
(not (if (eq? (if (if (vector?
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{pat 11608}#)
(if (= (vector-length
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{pat 11608}#)
4)
(eq? (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{pat 11608}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{pat 11608}#
1)
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{pat 11608}#)
(if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwo8l}#)
+ #{x 11636}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwo8l}#)
+ #{x 11636}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo8l}#
+ #{x 11636}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo8l}#
- 1)
- #{x -ANAU$bmvAmthP7L7xwo8l}#))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ (vector-ref #{x 11636}# 1)
+ #{x 11636}#))
+ (eq? (#{id-var-name 4505}#
+ #{pat 11608}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwo8l}#
+ (#{id-var-name 4505}#
+ #{x 11636}#
'(())))
#f)))
(cons '#(syntax-object
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{keys -ANAU$bmvAmthP7L7xwo7c}#))
+ #{keys 11563}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024"
+ "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024"
+ "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (#{id-var-name 4505}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (#{id-var-name 4505}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- #{r -ANAU$bmvAmthP7L7xwo7e}#
+ (#{expand 4522}#
+ #{exp 11609}#
+ #{r 11565}#
'(())
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwo@V}#
- (list (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)))
- (#{var -ANAU$bmvAmthP7L7xwo@W}#
- (let ((#{id -ANAU$bmvAmthP7L7xwo@8}#
- (if (if (vector?
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{mod 11566}#)
+ (let ((#{labels 11812}#
+ (list (string-append
+ "l-"
+ (#{session-id 4447}#)
+ (symbol->string (gensym "-")))))
+ (#{var 11813}#
+ (let ((#{id 11851}#
+ (if (if (vector? #{pat 11608}#)
(if (= (vector-length
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{pat 11608}#)
4)
(eq? (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{pat 11608}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
- 1)
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)))
+ (vector-ref #{pat 11608}# 1)
+ #{pat 11608}#)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwo@8}#)
- " ")))))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ (symbol->string #{id 11851}#)
+ "-")))))
+ (#{build-application 4453}#
#f
- (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
+ (#{build-simple-lambda 4462}#
#f
- (list (syntax->datum
- #{pat -ANAU$bmvAmthP7L7xwo8J}#))
+ (list (syntax->datum #{pat 11608}#))
#f
- (list #{var -ANAU$bmvAmthP7L7xwo@W}#)
+ (list #{var 11813}#)
'()
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwo@V}#
+ (#{expand 4522}#
+ #{exp 11609}#
+ (#{extend-env 4480}#
+ #{labels 11812}#
(list (cons 'syntax
- (cons #{var -ANAU$bmvAmthP7L7xwo@W}#
- 0)))
- #{r -ANAU$bmvAmthP7L7xwo7e}#)
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (list #{pat -ANAU$bmvAmthP7L7xwo8J}#)
- #{labels -ANAU$bmvAmthP7L7xwo@V}#
+ (cons #{var 11813}# 0)))
+ #{r 11565}#)
+ (#{make-binding-wrap 4500}#
+ (list #{pat 11608}#)
+ #{labels 11812}#
'(()))
- #{mod -ANAU$bmvAmthP7L7xwo7f}#))
- (list #{x -ANAU$bmvAmthP7L7xwo7b}#))))
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- #{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{mod 11566}#))
+ (list #{x 11562}#))))
+ (#{gen-clause 11162}#
+ #{x 11562}#
+ #{keys 11563}#
+ (cdr #{clauses 11564}#)
+ #{r 11565}#
+ #{pat 11608}#
#t
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)))
- #{tmp -ANAU$bmvAmthP7L7xwo8H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwo8G}#
- '(any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpEI}#
+ #{exp 11609}#
+ #{mod 11566}#)))
+ #{tmp 11606}#)
+ (let ((#{tmp 12121}#
+ ($sc-dispatch #{tmp 11605}# '(any any any))))
+ (if #{tmp 12121}#
(@apply
- (lambda (#{pat -ANAU$bmvAmthP7L7xwpEK}#
- #{fender -ANAU$bmvAmthP7L7xwpEL}#
- #{exp -ANAU$bmvAmthP7L7xwpEM}#)
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- #{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{pat -ANAU$bmvAmthP7L7xwpEK}#
- #{fender -ANAU$bmvAmthP7L7xwpEL}#
- #{exp -ANAU$bmvAmthP7L7xwpEM}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#))
- #{tmp -ANAU$bmvAmthP7L7xwpEI}#)
+ (lambda (#{pat 12123}#
+ #{fender 12124}#
+ #{exp 12125}#)
+ (#{gen-clause 11162}#
+ #{x 11562}#
+ #{keys 11563}#
+ (cdr #{clauses 11564}#)
+ #{r 11565}#
+ #{pat 12123}#
+ #{fender 12124}#
+ #{exp 12125}#
+ #{mod 11566}#))
+ #{tmp 12121}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwo1N}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
- #{w -ANAU$bmvAmthP7L7xwo1P}#
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwo1S}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (car #{clauses 11564}#)))))))))))
+ (lambda (#{e 11164}#
+ #{r 11165}#
+ #{w 11166}#
+ #{s 11167}#
+ #{mod 11168}#)
+ (let ((#{e 11169}#
+ (#{wrap 4515}#
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#)
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwo1N}#
- #{s -ANAU$bmvAmthP7L7xwo1Q}#))
- #{e -ANAU$bmvAmthP7L7xwo1N}#)
- #{w -ANAU$bmvAmthP7L7xwo1P}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}#
+ (if (if (pair? #{e 11164}#) #{s 11167}# #f)
+ (set-source-properties! #{e 11164}# #{s 11167}#))
+ #{e 11164}#)
+ #{w 11166}#
+ #{mod 11168}#)))
+ (let ((#{tmp 11171}#
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwo1S}#
+ #{e 11169}#
'(_ any each-any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwo1U}#
+ (if #{tmp 11171}#
(@apply
- (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}#
- #{key -ANAU$bmvAmthP7L7xwo1u}#
- #{m -ANAU$bmvAmthP7L7xwo1v}#)
+ (lambda (#{val 11196}# #{key 11197}# #{m 11198}#)
(if (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#)
- (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (lambda (#{x 11199}#)
+ (if (if (symbol? #{x 11199}#)
#t
- (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
- (if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 0)
+ (if (if (vector? #{x 11199}#)
+ (if (= (vector-length #{x 11199}#) 4)
+ (eq? (vector-ref #{x 11199}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 1))
+ (symbol? (vector-ref #{x 11199}# 1))
#f))
- (not (if (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (not (if (if (if (vector? #{x 11199}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ #{x 11199}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
+ #{x 11199}#
0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 1))
+ (symbol? (vector-ref #{x 11199}# 1))
#f)
- (if (eq? (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (if (eq? (if (if (vector? #{x 11199}#)
(if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ #{x 11199}#)
4)
(eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
+ #{x 11199}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 1)
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (vector-ref #{x 11199}# 1)
+ #{x 11199}#)
(if (if (= (vector-length
'#(syntax-object
...
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwo1w}#
+ (eq? (#{id-var-name 4505}#
+ #{x 11199}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (#{id-var-name 4505}#
'#(syntax-object
...
((top)
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key -ANAU$bmvAmthP7L7xwo1u}#)
- (let ((#{x -ANAU$bmvAmthP7L7xwo3u}#
+ #{key 11197}#)
+ (let ((#{x 11325}#
(gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- (let ((#{req -ANAU$bmvAmthP7L7xwo5w}# (list 'tmp))
- (#{vars -ANAU$bmvAmthP7L7xwo5y}#
- (list #{x -ANAU$bmvAmthP7L7xwo3u}#))
- (#{exp -ANAU$bmvAmthP7L7xwo50}#
- (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
+ (string-append (symbol->string 'tmp) "-"))))
+ (#{build-application 4453}#
+ #{s 11167}#
+ (let ((#{req 11455}# (list 'tmp))
+ (#{vars 11457}# (list #{x 11325}#))
+ (#{exp 11459}#
+ (#{gen-syntax-case 11163}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x -ANAU$bmvAmthP7L7xwo3u}#)
- #{key -ANAU$bmvAmthP7L7xwo1u}#
- #{m -ANAU$bmvAmthP7L7xwo1v}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
- (let ((#{body -ANAU$bmvAmthP7L7xwo55}#
+ #{x 11325}#)
+ #{key 11197}#
+ #{m 11198}#
+ #{r 11165}#
+ #{mod 11168}#)))
+ (let ((#{body 11464}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwo5w}#
+ #{req 11455}#
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwo5y}#
- #{exp -ANAU$bmvAmthP7L7xwo50}#
+ #{vars 11457}#
+ #{exp 11459}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body -ANAU$bmvAmthP7L7xwo55}#)))
- (list (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwo1t}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
+ #{body 11464}#)))
+ (list (#{expand 4522}#
+ #{val 11196}#
+ #{r 11165}#
'(())
- #{mod -ANAU$bmvAmthP7L7xwo1R}#))))
+ #{mod 11168}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e -ANAU$bmvAmthP7L7xwo1S}#)))
- #{tmp -ANAU$bmvAmthP7L7xwo1U}#)
+ #{e 11169}#)))
+ #{tmp 11171}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwo1S}#)))))))
+ #{e 11169}#)))))))
(set! macroexpand
(lambda*
- (#{x -ANAU$bmvAmthP7L7xwpfh}#
+ (#{x 13882}#
#:optional
- (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e)
- (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval)))
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- (list #{x -ANAU$bmvAmthP7L7xwpfh}#)
+ (#{m 13883}# 'e)
+ (#{esew 13884}# '(eval)))
+ (#{expand-top-sequence 4518}#
+ (list #{x 13882}#)
'()
'((top))
#f
- #{m -ANAU$bmvAmthP7L7xwpfi}#
- #{esew -ANAU$bmvAmthP7L7xwpfj}#
+ #{m 13883}#
+ #{esew 13884}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#)
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0)
- 'syntax-object)
+ (lambda (#{x 13887}#)
+ (if (if (vector? #{x 13887}#)
+ (if (= (vector-length #{x 13887}#) 4)
+ (eq? (vector-ref #{x 13887}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1))
+ (symbol? (vector-ref #{x 13887}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id -ANAU$bmvAmthP7L7xwpf@}#
- #{datum -ANAU$bmvAmthP7L7xwpgA}#)
- (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 2))
- (#{module -ANAU$bmvAmthP7L7xwpgG}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 3)))
+ (lambda (#{id 13912}# #{datum 13913}#)
+ (let ((#{wrap 13918}# (vector-ref #{id 13912}# 2))
+ (#{module 13919}# (vector-ref #{id 13912}# 3)))
(vector
'syntax-object
- #{datum -ANAU$bmvAmthP7L7xwpgA}#
- #{wrap -ANAU$bmvAmthP7L7xwpgF}#
- #{module -ANAU$bmvAmthP7L7xwpgG}#))))
+ #{datum 13913}#
+ #{wrap 13918}#
+ #{module 13919}#))))
(set! syntax->datum
- (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{x -ANAU$bmvAmthP7L7xwpgN}#
- '(()))))
+ (lambda (#{x 13926}#)
+ (#{strip 4535}# #{x 13926}# '(()))))
(set! syntax-source
- (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#)
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{x -ANAU$bmvAmthP7L7xwpgQ}#)))
+ (lambda (#{x 13929}#)
+ (#{source-annotation 4479}# #{x 13929}#)))
(set! generate-temporaries
- (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#)
+ (lambda (#{ls 14082}#)
(begin
- (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#))
+ (if (not (list? #{ls 14082}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls -ANAU$bmvAmthP7L7xwpip}#))
- (let ((#{mod -ANAU$bmvAmthP7L7xwpix}#
+ #{ls 14082}#))
+ (let ((#{mod 14090}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (gensym)
+ (map (lambda (#{x 14091}#)
+ (#{wrap 4515}#
+ (gensym "t-")
'((top))
- #{mod -ANAU$bmvAmthP7L7xwpix}#))
- #{ls -ANAU$bmvAmthP7L7xwpip}#)))))
+ #{mod 14090}#))
+ #{ls 14082}#)))))
(set! free-identifier=?
- (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}#
- #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ (lambda (#{x 14095}# #{y 14096}#)
(begin
- (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
- 'syntax-object)
+ (if (not (if (if (vector? #{x 14095}#)
+ (if (= (vector-length #{x 14095}#) 4)
+ (eq? (vector-ref #{x 14095}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1))
+ (symbol? (vector-ref #{x 14095}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x -ANAU$bmvAmthP7L7xwpi2}#))
- (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
- 'syntax-object)
+ #{x 14095}#))
+ (if (not (if (if (vector? #{y 14096}#)
+ (if (= (vector-length #{y 14096}#) 4)
+ (eq? (vector-ref #{y 14096}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1))
+ (symbol? (vector-ref #{y 14096}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y -ANAU$bmvAmthP7L7xwpi3}#))
- (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
- 'syntax-object)
+ #{y 14096}#))
+ (if (eq? (if (if (vector? #{x 14095}#)
+ (if (= (vector-length #{x 14095}#) 4)
+ (eq? (vector-ref #{x 14095}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)
- #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
- 'syntax-object)
+ (vector-ref #{x 14095}# 1)
+ #{x 14095}#)
+ (if (if (vector? #{y 14096}#)
+ (if (= (vector-length #{y 14096}#) 4)
+ (eq? (vector-ref #{y 14096}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)
- #{y -ANAU$bmvAmthP7L7xwpi3}#))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwpi2}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{y -ANAU$bmvAmthP7L7xwpi3}#
- '(())))
+ (vector-ref #{y 14096}# 1)
+ #{y 14096}#))
+ (eq? (#{id-var-name 4505}# #{x 14095}# '(()))
+ (#{id-var-name 4505}# #{y 14096}# '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x -ANAU$bmvAmthP7L7xwplN}#
- #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (lambda (#{x 14246}# #{y 14247}#)
(begin
- (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
- 'syntax-object)
+ (if (not (if (if (vector? #{x 14246}#)
+ (if (= (vector-length #{x 14246}#) 4)
+ (eq? (vector-ref #{x 14246}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1))
+ (symbol? (vector-ref #{x 14246}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x -ANAU$bmvAmthP7L7xwplN}#))
- (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
- 'syntax-object)
+ #{x 14246}#))
+ (if (not (if (if (vector? #{y 14247}#)
+ (if (= (vector-length #{y 14247}#) 4)
+ (eq? (vector-ref #{y 14247}# 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
+ (symbol? (vector-ref #{y 14247}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y -ANAU$bmvAmthP7L7xwplO}#))
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
- 'syntax-object)
+ #{y 14247}#))
+ (if (if (if (vector? #{x 14246}#)
+ (if (= (vector-length #{x 14246}#) 4)
+ (eq? (vector-ref #{x 14246}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
- 'syntax-object)
+ (if (vector? #{y 14247}#)
+ (if (= (vector-length #{y 14247}#) 4)
+ (eq? (vector-ref #{y 14247}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)
- (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (car (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 2))
- (car (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 2)))
+ (if (eq? (vector-ref #{x 14246}# 1)
+ (vector-ref #{y 14247}# 1))
+ (#{same-marks? 4504}#
+ (car (vector-ref #{x 14246}# 2))
+ (car (vector-ref #{y 14247}# 2)))
#f)
- (eq? #{x -ANAU$bmvAmthP7L7xwplN}#
- #{y -ANAU$bmvAmthP7L7xwplO}#)))))
+ (eq? #{x 14246}# #{y 14247}#)))))
(set! syntax-violation
(lambda*
- (#{who -ANAU$bmvAmthP7L7xwpnT}#
- #{message -ANAU$bmvAmthP7L7xwpnU}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
+ (#{who 14380}#
+ #{message 14381}#
+ #{form 14382}#
#:optional
- (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f))
+ (#{subform 14383}# #f))
(begin
- (if (not (if (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
- (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwpno}#
- (string? #{who -ANAU$bmvAmthP7L7xwpnT}#)))
- (if #{t -ANAU$bmvAmthP7L7xwpno}#
- #{t -ANAU$bmvAmthP7L7xwpno}#
- (symbol? #{who -ANAU$bmvAmthP7L7xwpnT}#)))))
+ (if (not (if (not #{who 14380}#)
+ (not #{who 14380}#)
+ (let ((#{t 14401}# (string? #{who 14380}#)))
+ (if #{t 14401}#
+ #{t 14401}#
+ (symbol? #{who 14380}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who -ANAU$bmvAmthP7L7xwpnT}#))
- (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#))
+ #{who 14380}#))
+ (if (not (string? #{message 14381}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message -ANAU$bmvAmthP7L7xwpnU}#))
+ #{message 14381}#))
(throw 'syntax-error
- #{who -ANAU$bmvAmthP7L7xwpnT}#
- #{message -ANAU$bmvAmthP7L7xwpnU}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (if #{form -ANAU$bmvAmthP7L7xwpnV}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
- #{subform -ANAU$bmvAmthP7L7xwpnW}#))
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
- '(()))
- (if #{subform -ANAU$bmvAmthP7L7xwpnW}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{subform -ANAU$bmvAmthP7L7xwpnW}#
- '(()))
+ #{who 14380}#
+ #{message 14381}#
+ (#{source-annotation 4479}#
+ (if #{form 14382}#
+ #{form 14382}#
+ #{subform 14383}#))
+ (#{strip 4535}# #{form 14382}# '(()))
+ (if #{subform 14383}#
+ (#{strip 4535}# #{subform 14383}# '(()))
#f)))))
(letrec*
- ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#)
+ ((#{syntax-local-binding 14605}#
+ (lambda (#{id 14738}#)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwps5}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwps5}#
- 0)
+ (if (not (if (if (vector? #{id 14738}#)
+ (if (= (vector-length #{id 14738}#) 4)
+ (eq? (vector-ref #{id 14738}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
+ (symbol? (vector-ref #{id 14738}# 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwps5}#))
- ((fluid-ref
- #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#)
- (lambda (#{e -ANAU$bmvAmthP7L7xwpth}#
- #{r -ANAU$bmvAmthP7L7xwpti}#
- #{w -ANAU$bmvAmthP7L7xwptj}#
- #{s -ANAU$bmvAmthP7L7xwptk}#
- #{rib -ANAU$bmvAmthP7L7xwptl}#
- #{mod -ANAU$bmvAmthP7L7xwptm}#)
+ #{id 14738}#))
+ ((fluid-ref #{transformer-environment 4508}#)
+ (lambda (#{e 14778}#
+ #{r 14779}#
+ #{w 14780}#
+ #{s 14781}#
+ #{rib 14782}#
+ #{mod 14783}#)
(call-with-values
(lambda ()
- (let ((#{id -ANAU$bmvAmthP7L7xwptp}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
- (#{w -ANAU$bmvAmthP7L7xwptq}#
- (let ((#{w -ANAU$bmvAmthP7L7xwpt1}#
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwps5}#
- 2)))
- (let ((#{ms -ANAU$bmvAmthP7L7xwpt2}#
- (car #{w -ANAU$bmvAmthP7L7xwpt1}#))
- (#{s -ANAU$bmvAmthP7L7xwpt3}#
- (cdr #{w -ANAU$bmvAmthP7L7xwpt1}#)))
- (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwpt2}#)
- (eq? (car #{ms -ANAU$bmvAmthP7L7xwpt2}#)
- #f)
+ (let ((#{id 14786}# (vector-ref #{id 14738}# 1))
+ (#{w 14787}#
+ (let ((#{w 14798}# (vector-ref #{id 14738}# 2)))
+ (let ((#{ms 14799}# (car #{w 14798}#))
+ (#{s 14800}# (cdr #{w 14798}#)))
+ (if (if (pair? #{ms 14799}#)
+ (eq? (car #{ms 14799}#) #f)
#f)
- (cons (cdr #{ms -ANAU$bmvAmthP7L7xwpt2}#)
- (if #{rib -ANAU$bmvAmthP7L7xwptl}#
- (cons #{rib -ANAU$bmvAmthP7L7xwptl}#
- (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#))
- (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#)))
- (cons #{ms -ANAU$bmvAmthP7L7xwpt2}#
- (if #{rib -ANAU$bmvAmthP7L7xwptl}#
- (cons #{rib -ANAU$bmvAmthP7L7xwptl}#
- #{s -ANAU$bmvAmthP7L7xwpt3}#)
- #{s -ANAU$bmvAmthP7L7xwpt3}#))))))
- (#{mod -ANAU$bmvAmthP7L7xwpts}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 3)))
- (let ((#{n -ANAU$bmvAmthP7L7xwptv}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{id -ANAU$bmvAmthP7L7xwptp}#
- #{w -ANAU$bmvAmthP7L7xwptq}#)))
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwptv}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwpt9}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwptp}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwptp}#)
+ (cons (cdr #{ms 14799}#)
+ (if #{rib 14782}#
+ (cons #{rib 14782}#
+ (cdr #{s 14800}#))
+ (cdr #{s 14800}#)))
+ (cons #{ms 14799}#
+ (if #{rib 14782}#
+ (cons #{rib 14782}# #{s 14800}#)
+ #{s 14800}#))))))
+ (#{mod 14789}# (vector-ref #{id 14738}# 3)))
+ (let ((#{n 14792}#
+ (#{id-var-name 4505}#
+ #{id 14786}#
+ #{w 14787}#)))
+ (if (symbol? #{n 14792}#)
+ (let ((#{mod 14806}#
+ (if (if (vector? #{id 14786}#)
+ (if (= (vector-length #{id 14786}#)
4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 0)
+ (eq? (vector-ref #{id 14786}# 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 3)
- #{mod -ANAU$bmvAmthP7L7xwpts}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwpt$}#
- (let ((#{t -ANAU$bmvAmthP7L7xwpt@}#
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwptv}#
- #{mod -ANAU$bmvAmthP7L7xwpt9}#)))
- (if #{t -ANAU$bmvAmthP7L7xwpt@}#
- #{t -ANAU$bmvAmthP7L7xwpt@}#
+ (vector-ref #{id 14786}# 3)
+ #{mod 14789}#)))
+ (let ((#{b 14807}#
+ (let ((#{t 14808}#
+ (#{get-global-definition-hook 4449}#
+ #{n 14792}#
+ #{mod 14806}#)))
+ (if #{t 14808}#
+ #{t 14808}#
'(global)))))
- (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
- 'global)
- (values
- 'global
- #{n -ANAU$bmvAmthP7L7xwptv}#
- #{mod -ANAU$bmvAmthP7L7xwpt9}#)
+ (if (eq? (car #{b 14807}#) 'global)
+ (values 'global #{n 14792}# #{mod 14806}#)
(values
- (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwpt$}#)
- #{mod -ANAU$bmvAmthP7L7xwpt9}#))))
- (if (string? #{n -ANAU$bmvAmthP7L7xwptv}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwpuZ}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwptp}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwptp}#)
+ (car #{b 14807}#)
+ (cdr #{b 14807}#)
+ #{mod 14806}#))))
+ (if (string? #{n 14792}#)
+ (let ((#{mod 14834}#
+ (if (if (vector? #{id 14786}#)
+ (if (= (vector-length #{id 14786}#)
4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 0)
+ (eq? (vector-ref #{id 14786}# 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 3)
- #{mod -ANAU$bmvAmthP7L7xwpts}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwpua}#
- (let ((#{t -ANAU$bmvAmthP7L7xwpub}#
+ (vector-ref #{id 14786}# 3)
+ #{mod 14789}#)))
+ (let ((#{b 14835}#
+ (let ((#{t 14836}#
(assq-ref
- #{r -ANAU$bmvAmthP7L7xwpti}#
- #{n -ANAU$bmvAmthP7L7xwptv}#)))
- (if #{t -ANAU$bmvAmthP7L7xwpub}#
- #{t -ANAU$bmvAmthP7L7xwpub}#
+ #{r 14779}#
+ #{n 14792}#)))
+ (if #{t 14836}#
+ #{t 14836}#
'(displaced-lexical)))))
(values
- (car #{b -ANAU$bmvAmthP7L7xwpua}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwpua}#)
- #{mod -ANAU$bmvAmthP7L7xwpuZ}#)))
+ (car #{b 14835}#)
+ (cdr #{b 14835}#)
+ #{mod 14834}#)))
(error "unexpected id-var-name"
- #{id -ANAU$bmvAmthP7L7xwptp}#
- #{w -ANAU$bmvAmthP7L7xwptq}#
- #{n -ANAU$bmvAmthP7L7xwptv}#))))))
- (lambda (#{type -ANAU$bmvAmthP7L7xwpuo}#
- #{value -ANAU$bmvAmthP7L7xwpup}#
- #{mod -ANAU$bmvAmthP7L7xwpuq}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'lexical)
- (values
- 'lexical
- #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'macro)
- (values 'macro #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'syntax)
- (values
- 'pattern-variable
- #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
- 'displaced-lexical)
+ #{id 14786}#
+ #{w 14787}#
+ #{n 14792}#))))))
+ (lambda (#{type 14849}# #{value 14850}# #{mod 14851}#)
+ (if (eqv? #{type 14849}# 'lexical)
+ (values 'lexical #{value 14850}#)
+ (if (eqv? #{type 14849}# 'macro)
+ (values 'macro #{value 14850}#)
+ (if (eqv? #{type 14849}# 'syntax)
+ (values 'pattern-variable #{value 14850}#)
+ (if (eqv? #{type 14849}# 'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
- 'global)
+ (if (eqv? #{type 14849}# 'global)
(values
'global
- (cons #{value -ANAU$bmvAmthP7L7xwpup}#
- (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#)))
+ (cons #{value 14850}# (cdr #{mod 14851}#)))
(values 'other #f)))))))))))))
- (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#)
+ (#{syntax-locally-bound-identifiers 14606}#
+ (lambda (#{id 14862}#)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwpu1}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwpu1}#
- 0)
+ (if (not (if (if (vector? #{id 14862}#)
+ (if (= (vector-length #{id 14862}#) 4)
+ (eq? (vector-ref #{id 14862}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1))
+ (symbol? (vector-ref #{id 14862}# 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwpu1}#))
- (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 2)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 3))))))
+ #{id 14862}#))
+ (#{locally-bound-identifiers 4506}#
+ (vector-ref #{id 14862}# 2)
+ (vector-ref #{id 14862}# 3))))))
(begin
(define!
'syntax-module
- (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#)
+ (lambda (#{id 14608}#)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwpq3}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwpq3}#
- 0)
+ (if (not (if (if (vector? #{id 14608}#)
+ (if (= (vector-length #{id 14608}#) 4)
+ (eq? (vector-ref #{id 14608}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1))
+ (symbol? (vector-ref #{id 14608}# 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwpq3}#))
- (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3)))))
+ #{id 14608}#))
+ (cdr (vector-ref #{id 14608}# 3)))))
(define!
'syntax-local-binding
- #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#)
+ #{syntax-local-binding 14605}#)
(define!
'syntax-locally-bound-identifiers
- #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#)))
+ #{syntax-locally-bound-identifiers 14606}#)))
(letrec*
- ((#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp5r}#
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwp5r}#)
- (let ((#{first -ANAU$bmvAmthP7L7xwp5v}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwp5r}#)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
+ ((#{match-each 14969}#
+ (lambda (#{e 15556}#
+ #{p 15557}#
+ #{w 15558}#
+ #{mod 15559}#)
+ (if (pair? #{e 15556}#)
+ (let ((#{first 15560}#
+ (#{match 14975}#
+ (car #{e 15556}#)
+ #{p 15557}#
+ #{w 15558}#
'()
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
- (if #{first -ANAU$bmvAmthP7L7xwp5v}#
- (let ((#{rest -ANAU$bmvAmthP7L7xwp5y}#
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (cdr #{e -ANAU$bmvAmthP7L7xwp5r}#)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
- (if #{rest -ANAU$bmvAmthP7L7xwp5y}#
- (cons #{first -ANAU$bmvAmthP7L7xwp5v}#
- #{rest -ANAU$bmvAmthP7L7xwp5y}#)
+ #{mod 15559}#)))
+ (if #{first 15560}#
+ (let ((#{rest 15563}#
+ (#{match-each 14969}#
+ (cdr #{e 15556}#)
+ #{p 15557}#
+ #{w 15558}#
+ #{mod 15559}#)))
+ (if #{rest 15563}#
+ (cons #{first 15560}# #{rest 15563}#)
#f))
#f))
- (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ (if (null? #{e 15556}#)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0)
- 'syntax-object)
+ (if (if (vector? #{e 15556}#)
+ (if (= (vector-length #{e 15556}#) 4)
+ (eq? (vector-ref #{e 15556}# 0) 'syntax-object)
#f)
#f)
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 1)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 2))
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 3))
+ (#{match-each 14969}#
+ (vector-ref #{e 15556}# 1)
+ #{p 15557}#
+ (#{join-wraps 4502}#
+ #{w 15558}#
+ (vector-ref #{e 15556}# 2))
+ (vector-ref #{e 15556}# 3))
#f)))))
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp6O}#
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwp6O}#)
- (let ((#{l -ANAU$bmvAmthP7L7xwp6R}#
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (cdr #{e -ANAU$bmvAmthP7L7xwp6O}#)
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)))
- (if #{l -ANAU$bmvAmthP7L7xwp6R}#
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{e -ANAU$bmvAmthP7L7xwp6O}#)
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
- #{l -ANAU$bmvAmthP7L7xwp6R}#)
+ (#{match-each-any 14971}#
+ (lambda (#{e 15591}# #{w 15592}# #{mod 15593}#)
+ (if (pair? #{e 15591}#)
+ (let ((#{l 15594}#
+ (#{match-each-any 14971}#
+ (cdr #{e 15591}#)
+ #{w 15592}#
+ #{mod 15593}#)))
+ (if #{l 15594}#
+ (cons (#{wrap 4515}#
+ (car #{e 15591}#)
+ #{w 15592}#
+ #{mod 15593}#)
+ #{l 15594}#)
#f))
- (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ (if (null? #{e 15591}#)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0)
- 'syntax-object)
+ (if (if (vector? #{e 15591}#)
+ (if (= (vector-length #{e 15591}#) 4)
+ (eq? (vector-ref #{e 15591}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 1)
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 2))
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
+ (#{match-each-any 14971}#
+ (vector-ref #{e 15591}# 1)
+ (#{join-wraps 4502}#
+ #{w 15592}#
+ (vector-ref #{e 15591}# 2))
+ #{mod 15593}#)
#f)))))
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwp6p}#
- #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (null? #{p -ANAU$bmvAmthP7L7xwp6p}#)
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# '_)
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'any)
- (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (pair? #{p -ANAU$bmvAmthP7L7xwp6p}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (car #{p -ANAU$bmvAmthP7L7xwp6p}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (cdr #{p -ANAU$bmvAmthP7L7xwp6p}#)
- #{r -ANAU$bmvAmthP7L7xwp6q}#))
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'each-any)
- (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 0)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'each+)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (reverse
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 2))
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 3)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)))
- (if (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'free-id)
+ (#{match-empty 14972}#
+ (lambda (#{p 15618}# #{r 15619}#)
+ (if (null? #{p 15618}#)
+ #{r 15619}#
+ (if (eq? #{p 15618}# '_)
+ #{r 15619}#
+ (if (eq? #{p 15618}# 'any)
+ (cons '() #{r 15619}#)
+ (if (pair? #{p 15618}#)
+ (#{match-empty 14972}#
+ (car #{p 15618}#)
+ (#{match-empty 14972}#
+ (cdr #{p 15618}#)
+ #{r 15619}#))
+ (if (eq? #{p 15618}# 'each-any)
+ (cons '() #{r 15619}#)
+ (let ((#{atom-key 15620}# (vector-ref #{p 15618}# 0)))
+ (if (eqv? #{atom-key 15620}# 'each)
+ (#{match-empty 14972}#
+ (vector-ref #{p 15618}# 1)
+ #{r 15619}#)
+ (if (eqv? #{atom-key 15620}# 'each+)
+ (#{match-empty 14972}#
+ (vector-ref #{p 15618}# 1)
+ (#{match-empty 14972}#
+ (reverse (vector-ref #{p 15618}# 2))
+ (#{match-empty 14972}#
+ (vector-ref #{p 15618}# 3)
+ #{r 15619}#)))
+ (if (if (eqv? #{atom-key 15620}# 'free-id)
#t
- (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'atom))
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'vector)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)))))))))))))
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}#
- #{r -ANAU$bmvAmthP7L7xwp6@}#)
- (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#))
- #{r -ANAU$bmvAmthP7L7xwp6@}#
- (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#)
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#)
- #{r -ANAU$bmvAmthP7L7xwp6@}#)))))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwpxD}#
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
- (if (null? #{p -ANAU$bmvAmthP7L7xwpxE}#)
- (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #f)
- (if (pair? #{p -ANAU$bmvAmthP7L7xwpxE}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (car #{p -ANAU$bmvAmthP7L7xwpxE}#)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (cdr #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (cdr #{p -ANAU$bmvAmthP7L7xwpxE}#)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ (eqv? #{atom-key 15620}# 'atom))
+ #{r 15619}#
+ (if (eqv? #{atom-key 15620}# 'vector)
+ (#{match-empty 14972}#
+ (vector-ref #{p 15618}# 1)
+ #{r 15619}#)))))))))))))
+ (#{combine 14973}#
+ (lambda (#{r* 15639}# #{r 15640}#)
+ (if (null? (car #{r* 15639}#))
+ #{r 15640}#
+ (cons (map car #{r* 15639}#)
+ (#{combine 14973}#
+ (map cdr #{r* 15639}#)
+ #{r 15640}#)))))
+ (#{match* 14974}#
+ (lambda (#{e 15004}#
+ #{p 15005}#
+ #{w 15006}#
+ #{r 15007}#
+ #{mod 15008}#)
+ (if (null? #{p 15005}#)
+ (if (null? #{e 15004}#) #{r 15007}# #f)
+ (if (pair? #{p 15005}#)
+ (if (pair? #{e 15004}#)
+ (#{match 14975}#
+ (car #{e 15004}#)
+ (car #{p 15005}#)
+ #{w 15006}#
+ (#{match 14975}#
+ (cdr #{e 15004}#)
+ (cdr #{p 15005}#)
+ #{w 15006}#
+ #{r 15007}#
+ #{mod 15008}#)
+ #{mod 15008}#)
#f)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpxE}# 'each-any)
- (let ((#{l -ANAU$bmvAmthP7L7xwpxM}#
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{l -ANAU$bmvAmthP7L7xwpxM}#
- (cons #{l -ANAU$bmvAmthP7L7xwpxM}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#)
+ (if (eq? #{p 15005}# 'each-any)
+ (let ((#{l 15013}#
+ (#{match-each-any 14971}#
+ #{e 15004}#
+ #{w 15006}#
+ #{mod 15008}#)))
+ (if #{l 15013}#
+ (cons #{l 15013}# #{r 15007}#)
#f))
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 0)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each)
- (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{r -ANAU$bmvAmthP7L7xwpxG}#)
- (let ((#{l -ANAU$bmvAmthP7L7xwpxY}#
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{l -ANAU$bmvAmthP7L7xwpxY}#
+ (let ((#{atom-key 15018}# (vector-ref #{p 15005}# 0)))
+ (if (eqv? #{atom-key 15018}# 'each)
+ (if (null? #{e 15004}#)
+ (#{match-empty 14972}#
+ (vector-ref #{p 15005}# 1)
+ #{r 15007}#)
+ (let ((#{l 15025}#
+ (#{match-each 14969}#
+ #{e 15004}#
+ (vector-ref #{p 15005}# 1)
+ #{w 15006}#
+ #{mod 15008}#)))
+ (if #{l 15025}#
(letrec*
- ((#{collect -ANAU$bmvAmthP7L7xwpxb}#
- (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#)
- (if (null? (car #{l -ANAU$bmvAmthP7L7xwpyO}#))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- (cons (map car
- #{l -ANAU$bmvAmthP7L7xwpyO}#)
- (#{collect -ANAU$bmvAmthP7L7xwpxb}#
- (map cdr
- #{l -ANAU$bmvAmthP7L7xwpyO}#)))))))
- (#{collect -ANAU$bmvAmthP7L7xwpxb}#
- #{l -ANAU$bmvAmthP7L7xwpxY}#))
+ ((#{collect 15028}#
+ (lambda (#{l 15079}#)
+ (if (null? (car #{l 15079}#))
+ #{r 15007}#
+ (cons (map car #{l 15079}#)
+ (#{collect 15028}#
+ (map cdr #{l 15079}#)))))))
+ (#{collect 15028}# #{l 15025}#))
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+)
+ (if (eqv? #{atom-key 15018}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1))
- (#{y-pat -ANAU$bmvAmthP7L7xwpyY}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 2))
- (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 3)))
+ (let ((#{x-pat 15088}# (vector-ref #{p 15005}# 1))
+ (#{y-pat 15089}# (vector-ref #{p 15005}# 2))
+ (#{z-pat 15090}#
+ (vector-ref #{p 15005}# 3)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwpyd}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#)
+ ((#{f 15094}#
+ (lambda (#{e 15096}# #{w 15097}#)
+ (if (pair? #{e 15096}#)
(call-with-values
(lambda ()
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- (cdr #{e -ANAU$bmvAmthP7L7xwpyf}#)
- #{w -ANAU$bmvAmthP7L7xwpyg}#))
- (lambda (#{xr* -ANAU$bmvAmthP7L7xwpyh}#
- #{y-pat -ANAU$bmvAmthP7L7xwpyi}#
- #{r -ANAU$bmvAmthP7L7xwpyj}#)
- (if #{r -ANAU$bmvAmthP7L7xwpyj}#
- (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpyi}#)
- (let ((#{xr -ANAU$bmvAmthP7L7xwpyk}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwpyf}#)
- #{x-pat -ANAU$bmvAmthP7L7xwpyX}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#
+ (#{f 15094}#
+ (cdr #{e 15096}#)
+ #{w 15097}#))
+ (lambda (#{xr* 15098}#
+ #{y-pat 15099}#
+ #{r 15100}#)
+ (if #{r 15100}#
+ (if (null? #{y-pat 15099}#)
+ (let ((#{xr 15101}#
+ (#{match 14975}#
+ (car #{e 15096}#)
+ #{x-pat 15088}#
+ #{w 15097}#
'()
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{xr -ANAU$bmvAmthP7L7xwpyk}#
+ #{mod 15008}#)))
+ (if #{xr 15101}#
(values
- (cons #{xr -ANAU$bmvAmthP7L7xwpyk}#
- #{xr* -ANAU$bmvAmthP7L7xwpyh}#)
- #{y-pat -ANAU$bmvAmthP7L7xwpyi}#
- #{r -ANAU$bmvAmthP7L7xwpyj}#)
+ (cons #{xr 15101}#
+ #{xr* 15098}#)
+ #{y-pat 15099}#
+ #{r 15100}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat -ANAU$bmvAmthP7L7xwpyi}#)
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwpyf}#)
- (car #{y-pat -ANAU$bmvAmthP7L7xwpyi}#)
- #{w -ANAU$bmvAmthP7L7xwpyg}#
- #{r -ANAU$bmvAmthP7L7xwpyj}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
+ (cdr #{y-pat 15099}#)
+ (#{match 14975}#
+ (car #{e 15096}#)
+ (car #{y-pat 15099}#)
+ #{w 15097}#
+ #{r 15100}#
+ #{mod 15008}#)))
(values #f #f #f))))
- (if (if (vector?
- #{e -ANAU$bmvAmthP7L7xwpyf}#)
+ (if (if (vector? #{e 15096}#)
(if (= (vector-length
- #{e -ANAU$bmvAmthP7L7xwpyf}#)
+ #{e 15096}#)
4)
- (eq? (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpyf}#
- 0)
+ (eq? (vector-ref #{e 15096}# 0)
'syntax-object)
#f)
#f)
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpyf}#
- 1)
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#
- #{e -ANAU$bmvAmthP7L7xwpyf}#))
+ (#{f 15094}#
+ (vector-ref #{e 15096}# 1)
+ (#{join-wraps 4502}#
+ #{w 15097}#
+ #{e 15096}#))
(values
'()
- #{y-pat -ANAU$bmvAmthP7L7xwpyY}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- #{e -ANAU$bmvAmthP7L7xwpyf}#
- #{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#))))
- (lambda (#{xr* -ANAU$bmvAmthP7L7xwpy$}#
- #{y-pat -ANAU$bmvAmthP7L7xwpy@}#
- #{r -ANAU$bmvAmthP7L7xwpzA}#)
- (if #{r -ANAU$bmvAmthP7L7xwpzA}#
- (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpy@}#)
- (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1)
- #{r -ANAU$bmvAmthP7L7xwpzA}#)
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- #{xr* -ANAU$bmvAmthP7L7xwpy$}#
- #{r -ANAU$bmvAmthP7L7xwpzA}#))
+ #{y-pat 15089}#
+ (#{match 14975}#
+ #{e 15096}#
+ #{z-pat 15090}#
+ #{w 15097}#
+ #{r 15007}#
+ #{mod 15008}#)))))))
+ (#{f 15094}# #{e 15004}# #{w 15006}#))))
+ (lambda (#{xr* 15127}# #{y-pat 15128}# #{r 15129}#)
+ (if #{r 15129}#
+ (if (null? #{y-pat 15128}#)
+ (if (null? #{xr* 15127}#)
+ (#{match-empty 14972}#
+ (vector-ref #{p 15005}# 1)
+ #{r 15129}#)
+ (#{combine 14973}#
+ #{xr* 15127}#
+ #{r 15129}#))
#f)
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- 'free-id)
- (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (if (eqv? #{atom-key 15018}# 'free-id)
+ (if (if (symbol? #{e 15004}#)
#t
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (if (= (vector-length
- #{e -ANAU$bmvAmthP7L7xwpxD}#)
- 4)
- (eq? (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- 0)
+ (if (if (vector? #{e 15004}#)
+ (if (= (vector-length #{e 15004}#) 4)
+ (eq? (vector-ref #{e 15004}# 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- 1))
+ (symbol? (vector-ref #{e 15004}# 1))
#f))
- (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#))
- (#{j -ANAU$bmvAmthP7L7xwp4M}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1)))
- (if (eq? (if (if (vector?
- #{i -ANAU$bmvAmthP7L7xwp4L}#)
+ (if (let ((#{i 15460}#
+ (#{wrap 4515}#
+ #{e 15004}#
+ #{w 15006}#
+ #{mod 15008}#))
+ (#{j 15461}#
+ (vector-ref #{p 15005}# 1)))
+ (if (eq? (if (if (vector? #{i 15460}#)
(if (= (vector-length
- #{i -ANAU$bmvAmthP7L7xwp4L}#)
+ #{i 15460}#)
4)
(eq? (vector-ref
- #{i -ANAU$bmvAmthP7L7xwp4L}#
+ #{i 15460}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{i -ANAU$bmvAmthP7L7xwp4L}#
- 1)
- #{i -ANAU$bmvAmthP7L7xwp4L}#)
- (if (if (vector?
- #{j -ANAU$bmvAmthP7L7xwp4M}#)
+ (vector-ref #{i 15460}# 1)
+ #{i 15460}#)
+ (if (if (vector? #{j 15461}#)
(if (= (vector-length
- #{j -ANAU$bmvAmthP7L7xwp4M}#)
+ #{j 15461}#)
4)
(eq? (vector-ref
- #{j -ANAU$bmvAmthP7L7xwp4M}#
+ #{j 15461}#
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{j -ANAU$bmvAmthP7L7xwp4M}#
- 1)
- #{j -ANAU$bmvAmthP7L7xwp4M}#))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{i -ANAU$bmvAmthP7L7xwp4L}#
+ (vector-ref #{j 15461}# 1)
+ #{j 15461}#))
+ (eq? (#{id-var-name 4505}#
+ #{i 15460}#
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{j -ANAU$bmvAmthP7L7xwp4M}#
+ (#{id-var-name 4505}#
+ #{j 15461}#
'(())))
#f))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
+ #{r 15007}#
#f)
#f)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom)
+ (if (eqv? #{atom-key 15018}# 'atom)
(if (equal?
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
+ (vector-ref #{p 15005}# 1)
+ (#{strip 4535}# #{e 15004}# #{w 15006}#))
+ #{r 15007}#
#f)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- 'vector)
- (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (vector->list #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ (if (eqv? #{atom-key 15018}# 'vector)
+ (if (vector? #{e 15004}#)
+ (#{match 14975}#
+ (vector->list #{e 15004}#)
+ (vector-ref #{p 15005}# 1)
+ #{w 15006}#
+ #{r 15007}#
+ #{mod 15008}#)
#f))))))))))))
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}#
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#)
- (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#)
+ (#{match 14975}#
+ (lambda (#{e 15521}#
+ #{p 15522}#
+ #{w 15523}#
+ #{r 15524}#
+ #{mod 15525}#)
+ (if (not #{r 15524}#)
#f
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# '_)
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# 'any)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwp5I}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#)
- #{r -ANAU$bmvAmthP7L7xwp5L}#)
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5I}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5I}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0)
- 'syntax-object)
+ (if (eq? #{p 15522}# '_)
+ #{r 15524}#
+ (if (eq? #{p 15522}# 'any)
+ (cons (#{wrap 4515}#
+ #{e 15521}#
+ #{w 15523}#
+ #{mod 15525}#)
+ #{r 15524}#)
+ (if (if (vector? #{e 15521}#)
+ (if (= (vector-length #{e 15521}#) 4)
+ (eq? (vector-ref #{e 15521}# 0) 'syntax-object)
#f)
#f)
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 1)
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 2))
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 3))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- #{e -ANAU$bmvAmthP7L7xwp5I}#
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#))))))))
+ (#{match* 14974}#
+ (vector-ref #{e 15521}# 1)
+ #{p 15522}#
+ (#{join-wraps 4502}#
+ #{w 15523}#
+ (vector-ref #{e 15521}# 2))
+ #{r 15524}#
+ (vector-ref #{e 15521}# 3))
+ (#{match* 14974}#
+ #{e 15521}#
+ #{p 15522}#
+ #{w 15523}#
+ #{r 15524}#
+ #{mod 15525}#))))))))
(set! $sc-dispatch
- (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}#
- #{p -ANAU$bmvAmthP7L7xwpwo}#)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any)
- (list #{e -ANAU$bmvAmthP7L7xwpwn}#)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_)
+ (lambda (#{e 14976}# #{p 14977}#)
+ (if (eq? #{p 14977}# 'any)
+ (list #{e 14976}#)
+ (if (eq? #{p 14977}# '_)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0)
- 'syntax-object)
+ (if (if (vector? #{e 14976}#)
+ (if (= (vector-length #{e 14976}#) 4)
+ (eq? (vector-ref #{e 14976}# 0) 'syntax-object)
#f)
#f)
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1)
- #{p -ANAU$bmvAmthP7L7xwpwo}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2)
+ (#{match* 14974}#
+ (vector-ref #{e 14976}# 1)
+ #{p 14977}#
+ (vector-ref #{e 14976}# 2)
'()
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- #{e -ANAU$bmvAmthP7L7xwpwn}#
- #{p -ANAU$bmvAmthP7L7xwpwo}#
+ (vector-ref #{e 14976}# 3))
+ (#{match* 14974}#
+ #{e 14976}#
+ #{p 14977}#
'(())
'()
#f))))))))))
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
- '(_ () any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3L}#
+ (lambda (#{x 27756}#)
+ (let ((#{tmp 27758}#
+ ($sc-dispatch #{x 27756}# '(_ () any . each-any))))
+ (if #{tmp 27758}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}#
- #{e2 -ANAU$bmvAmthP7L7xws3Q}#)
+ (lambda (#{e1 27762}# #{e2 27763}#)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk"))
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-27729" "l-*-27730"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- (cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws3P}#
- #{e2 -ANAU$bmvAmthP7L7xws3Q}#))))
- #{tmp -ANAU$bmvAmthP7L7xws3L}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}#
+ (cons '() (cons #{e1 27762}# #{e2 27763}#))))
+ #{tmp 27758}#)
+ (let ((#{tmp 27764}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
+ #{x 27756}#
'(_ ((any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3R}#
+ (if #{tmp 27764}#
(@apply
- (lambda (#{out -ANAU$bmvAmthP7L7xws3V}#
- #{in -ANAU$bmvAmthP7L7xws3W}#
- #{e1 -ANAU$bmvAmthP7L7xws3X}#
- #{e2 -ANAU$bmvAmthP7L7xws3Y}#)
+ (lambda (#{out 27768}#
+ #{in 27769}#
+ #{e1 27770}#
+ #{e2 27771}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bl" "1bm" "1bn" "1bo"))
+ #("l-*-27735"
+ "l-*-27736"
+ "l-*-27737"
+ "l-*-27738"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- #{in -ANAU$bmvAmthP7L7xws3W}#
+ #{in 27769}#
'()
- (list #{out -ANAU$bmvAmthP7L7xws3V}#
+ (list #{out 27768}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bl" "1bm" "1bn" "1bo"))
+ #("l-*-27735"
+ "l-*-27736"
+ "l-*-27737"
+ "l-*-27738"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27726")))
(hygiene guile))
(cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws3X}#
- #{e2 -ANAU$bmvAmthP7L7xws3Y}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws3R}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}#
+ (cons #{e1 27770}# #{e2 27771}#))))))
+ #{tmp 27764}#)
+ (let ((#{tmp 27772}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
+ #{x 27756}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3Z}#
+ (if #{tmp 27772}#
(@apply
- (lambda (#{out -ANAU$bmvAmthP7L7xws3d}#
- #{in -ANAU$bmvAmthP7L7xws3e}#
- #{e1 -ANAU$bmvAmthP7L7xws3f}#
- #{e2 -ANAU$bmvAmthP7L7xws3g}#)
+ (lambda (#{out 27776}#
+ #{in 27777}#
+ #{e1 27778}#
+ #{e2 27779}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
(cons '#(syntax-object
list
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- #{in -ANAU$bmvAmthP7L7xws3e}#)
+ #{in 27777}#)
'()
- (list #{out -ANAU$bmvAmthP7L7xws3d}#
+ (list #{out 27776}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27726")))
(hygiene guile))
(cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws3f}#
- #{e2 -ANAU$bmvAmthP7L7xws3g}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws3Z}#)
+ (cons #{e1 27778}#
+ #{e2 27779}#))))))
+ #{tmp 27772}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws3J}#))))))))))
+ #{x 27756}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}#
+ (lambda (#{x 27833}#)
+ (let ((#{tmp 27835}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws4H}#
+ #{x 27833}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xws4J}#
+ (if #{tmp 27835}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4N}#
- #{keyword -ANAU$bmvAmthP7L7xws4O}#
- #{pattern -ANAU$bmvAmthP7L7xws4P}#
- #{template -ANAU$bmvAmthP7L7xws4Q}#)
+ (lambda (#{k 27839}#
+ #{keyword 27840}#
+ #{pattern 27841}#
+ #{template 27842}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(vector
'(#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws4P}#))
+ #{pattern 27841}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
(cons '#(syntax-object
x
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- (cons #{k -ANAU$bmvAmthP7L7xws4N}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#
- #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
+ (cons #{k 27839}#
+ (map (lambda (#{tmp-27807 27843}#
+ #{tmp-27806 27844}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("1bu"
- "1bv"
- "1bw"
- "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
+ #{tmp-27806 27844}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("1bu"
- "1bv"
- "1bw"
- "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#)))
- #{template -ANAU$bmvAmthP7L7xws4Q}#
- #{pattern -ANAU$bmvAmthP7L7xws4P}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws4J}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}#
+ #{tmp-27807 27843}#)))
+ #{template 27842}#
+ #{pattern 27841}#))))))
+ #{tmp 27835}#)
+ (let ((#{tmp 27845}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws4H}#
+ #{x 27833}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}#
+ (if (if #{tmp 27845}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4X}#
- #{docstring -ANAU$bmvAmthP7L7xws4Y}#
- #{keyword -ANAU$bmvAmthP7L7xws4Z}#
- #{pattern -ANAU$bmvAmthP7L7xws4a}#
- #{template -ANAU$bmvAmthP7L7xws4b}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xws4Y}#)))
- #{tmp -ANAU$bmvAmthP7L7xws4T}#)
+ (lambda (#{k 27849}#
+ #{docstring 27850}#
+ #{keyword 27851}#
+ #{pattern 27852}#
+ #{template 27853}#)
+ (string? (syntax->datum #{docstring 27850}#)))
+ #{tmp 27845}#)
#f)
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4c}#
- #{docstring -ANAU$bmvAmthP7L7xws4d}#
- #{keyword -ANAU$bmvAmthP7L7xws4e}#
- #{pattern -ANAU$bmvAmthP7L7xws4f}#
- #{template -ANAU$bmvAmthP7L7xws4g}#)
+ (lambda (#{k 27854}#
+ #{docstring 27855}#
+ #{keyword 27856}#
+ #{pattern 27857}#
+ #{template 27858}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
- #{docstring -ANAU$bmvAmthP7L7xws4d}#
+ #{docstring 27855}#
(vector
'(#(syntax-object
macro-type
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(cons '#(syntax-object
patterns
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws4f}#))
+ #{pattern 27857}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
(cons '#(syntax-object
x
pattern
template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27793")))
(hygiene guile))
- (cons #{k -ANAU$bmvAmthP7L7xws4c}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#
- #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
+ (cons #{k 27854}#
+ (map (lambda (#{tmp-27832 27859}#
+ #{tmp-27831 27860}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene
guile))
- #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
+ #{tmp-27831 27860}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene
guile))
- #{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#)))
- #{template -ANAU$bmvAmthP7L7xws4g}#
- #{pattern -ANAU$bmvAmthP7L7xws4f}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws4T}#)
+ #{tmp-27832 27859}#)))
+ #{template 27858}#
+ #{pattern 27857}#))))))
+ #{tmp 27845}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws4H}#))))))))
+ #{x 27833}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws47}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws49}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws47}#
- '(_ (any . any) any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws49}#
+ (lambda (#{x 27897}#)
+ (let ((#{tmp 27899}#
+ ($sc-dispatch #{x 27897}# '(_ (any . any) any))))
+ (if #{tmp 27899}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5B}#
- #{pattern -ANAU$bmvAmthP7L7xws5C}#
- #{template -ANAU$bmvAmthP7L7xws5D}#)
+ (lambda (#{name 27903}#
+ #{pattern 27904}#
+ #{template 27905}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874" "l-*-27875" "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
- #{name -ANAU$bmvAmthP7L7xws5B}#
+ #{name 27903}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874" "l-*-27875" "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
'()
(list (cons '#(syntax-object
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874"
+ "l-*-27875"
+ "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27871")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws5C}#)
- #{template -ANAU$bmvAmthP7L7xws5D}#))))
- #{tmp -ANAU$bmvAmthP7L7xws49}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}#
+ #{pattern 27904}#)
+ #{template 27905}#))))
+ #{tmp 27899}#)
+ (let ((#{tmp 27906}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws47}#
+ #{x 27897}#
'(_ (any . any) any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}#
+ (if (if #{tmp 27906}#
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5I}#
- #{pattern -ANAU$bmvAmthP7L7xws5J}#
- #{docstring -ANAU$bmvAmthP7L7xws5K}#
- #{template -ANAU$bmvAmthP7L7xws5L}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xws5K}#)))
- #{tmp -ANAU$bmvAmthP7L7xws5E}#)
+ (lambda (#{name 27910}#
+ #{pattern 27911}#
+ #{docstring 27912}#
+ #{template 27913}#)
+ (string? (syntax->datum #{docstring 27912}#)))
+ #{tmp 27906}#)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5M}#
- #{pattern -ANAU$bmvAmthP7L7xws5N}#
- #{docstring -ANAU$bmvAmthP7L7xws5O}#
- #{template -ANAU$bmvAmthP7L7xws5P}#)
+ (lambda (#{name 27914}#
+ #{pattern 27915}#
+ #{docstring 27916}#
+ #{template 27917}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
- #{name -ANAU$bmvAmthP7L7xws5M}#
+ #{name 27914}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
'()
- #{docstring -ANAU$bmvAmthP7L7xws5O}#
+ #{docstring 27916}#
(list (cons '#(syntax-object
_
((top)
docstring
template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1c8")))
+ #("l-*-27871")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws5N}#)
- #{template -ANAU$bmvAmthP7L7xws5P}#))))
- #{tmp -ANAU$bmvAmthP7L7xws5E}#)
+ #{pattern 27915}#)
+ #{template 27917}#))))
+ #{tmp 27906}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws47}#))))))))
+ #{x 27897}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}#
+ (lambda (#{x 27966}#)
+ (let ((#{tmp 27968}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws5x}#
+ #{x 27966}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}#
+ (if (if #{tmp 27968}#
(@apply
- (lambda (#{let* -ANAU$bmvAmthP7L7xws53}#
- #{x -ANAU$bmvAmthP7L7xws54}#
- #{v -ANAU$bmvAmthP7L7xws55}#
- #{e1 -ANAU$bmvAmthP7L7xws56}#
- #{e2 -ANAU$bmvAmthP7L7xws57}#)
- (and-map
- identifier?
- #{x -ANAU$bmvAmthP7L7xws54}#))
- #{tmp -ANAU$bmvAmthP7L7xws5z}#)
+ (lambda (#{let* 27972}#
+ #{x 27973}#
+ #{v 27974}#
+ #{e1 27975}#
+ #{e2 27976}#)
+ (and-map identifier? #{x 27973}#))
+ #{tmp 27968}#)
#f)
(@apply
- (lambda (#{let* -ANAU$bmvAmthP7L7xws58}#
- #{x -ANAU$bmvAmthP7L7xws59}#
- #{v -ANAU$bmvAmthP7L7xws5$}#
- #{e1 -ANAU$bmvAmthP7L7xws5@}#
- #{e2 -ANAU$bmvAmthP7L7xws6A}#)
+ (lambda (#{let* 27977}#
+ #{x 27978}#
+ #{v 27979}#
+ #{e1 27980}#
+ #{e2 27981}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xws6B}#
- (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#)
- (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#)
+ ((#{f 27982}#
+ (lambda (#{bindings 27985}#)
+ (if (null? #{bindings 27985}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("1cv" "1cw"))
+ #("l-*-27952" "l-*-27953"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1cq" "1cr" "1cs" "1ct" "1cu"))
+ #("l-*-27942"
+ "l-*-27943"
+ "l-*-27944"
+ "l-*-27945"
+ "l-*-27946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ck")))
+ #(ribcage #(x) #((top)) #("l-*-27928")))
(hygiene guile))
- (cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws5@}#
- #{e2 -ANAU$bmvAmthP7L7xws6A}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws6F}#
- (list (#{f -ANAU$bmvAmthP7L7xws6B}#
- (cdr #{bindings -ANAU$bmvAmthP7L7xws6E}#))
- (car #{bindings -ANAU$bmvAmthP7L7xws6E}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws6G}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xws6F}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws6G}#
+ (cons '() (cons #{e1 27980}# #{e2 27981}#)))
+ (let ((#{tmp 27986}#
+ (list (#{f 27982}# (cdr #{bindings 27985}#))
+ (car #{bindings 27985}#))))
+ (let ((#{tmp 27987}#
+ ($sc-dispatch #{tmp 27986}# '(any any))))
+ (if #{tmp 27987}#
(@apply
- (lambda (#{body -ANAU$bmvAmthP7L7xws6I}#
- #{binding -ANAU$bmvAmthP7L7xws6J}#)
+ (lambda (#{body 27989}# #{binding 27990}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body binding)
#((top) (top))
- #("1cx" "1cy"))
+ #("l-*-27962" "l-*-27963"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("1cv" "1cw"))
+ #("l-*-27952" "l-*-27953"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1cq" "1cr" "1cs" "1ct" "1cu"))
+ #("l-*-27942"
+ "l-*-27943"
+ "l-*-27944"
+ "l-*-27945"
+ "l-*-27946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ck")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27928")))
(hygiene guile))
- (list #{binding -ANAU$bmvAmthP7L7xws6J}#)
- #{body -ANAU$bmvAmthP7L7xws6I}#))
- #{tmp -ANAU$bmvAmthP7L7xws6G}#)
+ (list #{binding 27990}#)
+ #{body 27989}#))
+ #{tmp 27987}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xws6F}#))))))))
- (#{f -ANAU$bmvAmthP7L7xws6B}#
- (map list
- #{x -ANAU$bmvAmthP7L7xws59}#
- #{v -ANAU$bmvAmthP7L7xws5$}#))))
- #{tmp -ANAU$bmvAmthP7L7xws5z}#)
+ #{tmp 27986}#))))))))
+ (#{f 27982}# (map list #{x 27978}# #{v 27979}#))))
+ #{tmp 27968}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws5x}#))))))
+ #{x 27966}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws63}#
+ (lambda (#{orig-x 28048}#)
+ (let ((#{tmp 28050}#
($sc-dispatch
- #{orig-x -ANAU$bmvAmthP7L7xws61}#
+ #{orig-x 28048}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws63}#
+ (if #{tmp 28050}#
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#
- #{step -ANAU$bmvAmthP7L7xws69}#
- #{e0 -ANAU$bmvAmthP7L7xws6$}#
- #{e1 -ANAU$bmvAmthP7L7xws6@}#
- #{c -ANAU$bmvAmthP7L7xws7A}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}#
- (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}#
- #{s -ANAU$bmvAmthP7L7xws7F}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}#
- ($sc-dispatch
- #{s -ANAU$bmvAmthP7L7xws7F}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xws7H}#
- (@apply
- (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#)
- #{tmp -ANAU$bmvAmthP7L7xws7H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}#
- ($sc-dispatch
- #{s -ANAU$bmvAmthP7L7xws7F}#
- '(any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws7K}#
+ (lambda (#{var 28054}#
+ #{init 28055}#
+ #{step 28056}#
+ #{e0 28057}#
+ #{e1 28058}#
+ #{c 28059}#)
+ (let ((#{tmp 28060}#
+ (map (lambda (#{v 28063}# #{s 28064}#)
+ (let ((#{tmp 28066}#
+ ($sc-dispatch #{s 28064}# '())))
+ (if #{tmp 28066}#
+ (@apply (lambda () #{v 28063}#) #{tmp 28066}#)
+ (let ((#{tmp 28069}#
+ ($sc-dispatch #{s 28064}# '(any))))
+ (if #{tmp 28069}#
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#)
- #{e -ANAU$bmvAmthP7L7xws7N}#)
- #{tmp -ANAU$bmvAmthP7L7xws7K}#)
+ (lambda (#{e 28072}#) #{e 28072}#)
+ #{tmp 28069}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x -ANAU$bmvAmthP7L7xws61}#
- #{s -ANAU$bmvAmthP7L7xws7F}#))))))
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{step -ANAU$bmvAmthP7L7xws69}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xws7B}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xws7C}#
+ #{orig-x 28048}#
+ #{s 28064}#))))))
+ #{var 28054}#
+ #{step 28056}#)))
+ (let ((#{tmp 28061}#
+ ($sc-dispatch #{tmp 28060}# 'each-any)))
+ (if #{tmp 28061}#
(@apply
- (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}#
- ($sc-dispatch
- #{e1 -ANAU$bmvAmthP7L7xws6@}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xws7V}#
+ (lambda (#{step 28078}#)
+ (let ((#{tmp 28080}# ($sc-dispatch #{e1 28058}# '())))
+ (if #{tmp 28080}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1d6"))
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1d6"))
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- (map list
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#)
+ (map list #{var 28054}# #{init 28055}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(list '#(syntax-object
not
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- #{e0 -ANAU$bmvAmthP7L7xws6$}#)
+ #{e0 28057}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(append
- #{c -ANAU$bmvAmthP7L7xws7A}#
+ #{c 28059}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene
guile))
- #{step -ANAU$bmvAmthP7L7xws7T}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xws7V}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}#
+ #{step 28078}#)))))))
+ #{tmp 28080}#)
+ (let ((#{tmp 28084}#
($sc-dispatch
- #{e1 -ANAU$bmvAmthP7L7xws6@}#
+ #{e1 28058}#
'(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws7Z}#
+ (if #{tmp 28084}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}#
- #{e2 -ANAU$bmvAmthP7L7xws7e}#)
+ (lambda (#{e1 28088}# #{e2 28089}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025" "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
'#(syntax-object
doloop
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025" "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(map list
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#)
+ #{var 28054}#
+ #{init 28055}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- #{e0 -ANAU$bmvAmthP7L7xws6$}#
+ #{e0 28057}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- (cons #{e1 -ANAU$bmvAmthP7L7xws7d}#
- #{e2 -ANAU$bmvAmthP7L7xws7e}#))
+ (cons #{e1 28088}#
+ #{e2 28089}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(append
- #{c -ANAU$bmvAmthP7L7xws7A}#
+ #{c 28059}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("1d7"
- "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage
()
()
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene
guile))
- #{step -ANAU$bmvAmthP7L7xws7T}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xws7Z}#)
+ #{step 28078}#)))))))
+ #{tmp 28084}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 -ANAU$bmvAmthP7L7xws6@}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws7C}#)
+ #{e1 28058}#))))))
+ #{tmp 28061}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xws7B}#)))))
- #{tmp -ANAU$bmvAmthP7L7xws63}#)
+ #{tmp 28060}#)))))
+ #{tmp 28050}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x -ANAU$bmvAmthP7L7xws61}#))))))
+ #{orig-x 28048}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (lambda (#{p -ANAU$bmvAmthP7L7xws@F}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws@I}#
+ ((#{quasi 28375}#
+ (lambda (#{p 28399}# #{lev 28400}#)
+ (let ((#{tmp 28402}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@F}#
+ #{p 28399}#
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws@I}#
+ (if #{tmp 28402}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xws@M}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
+ (lambda (#{p 28406}#)
+ (if (= #{lev 28400}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p -ANAU$bmvAmthP7L7xws@M}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ #{p 28406}#)
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (list #{p -ANAU$bmvAmthP7L7xws@M}#)
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))))
- #{tmp -ANAU$bmvAmthP7L7xws@I}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws@P}#
+ (#{quasi 28375}#
+ (list #{p 28406}#)
+ (#{1-}# #{lev 28400}#)))))
+ #{tmp 28402}#)
+ (let ((#{tmp 28409}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@F}#
+ #{p 28399}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws@P}#
+ (if #{tmp 28409}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xws@T}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (lambda (#{p 28413}#)
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dn"))
+ #(ribcage #(p) #((top)) #("l-*-28128"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("1dn"))
+ #(ribcage #(p) #((top)) #("l-*-28128"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (list #{p -ANAU$bmvAmthP7L7xws@T}#)
- (#{1+}# #{lev -ANAU$bmvAmthP7L7xws@G}#))))
- #{tmp -ANAU$bmvAmthP7L7xws@P}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws@W}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@F}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws@W}#
+ (#{quasi 28375}#
+ (list #{p 28413}#)
+ (#{1+}# #{lev 28400}#))))
+ #{tmp 28409}#)
+ (let ((#{tmp 28416}#
+ ($sc-dispatch #{p 28399}# '(any . any))))
+ (if #{tmp 28416}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xws@a}#
- #{q -ANAU$bmvAmthP7L7xws@b}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws@d}#
+ (lambda (#{p 28420}# #{q 28421}#)
+ (let ((#{tmp 28423}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@a}#
+ #{p 28420}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws@d}#
+ (if #{tmp 28423}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xws@h}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)
+ (lambda (#{p 28427}#)
+ (if (= #{lev 28400}# 0)
+ (#{quasilist* 28379}#
+ (map (lambda (#{tmp-28139 28463}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dq"))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131"
+ "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121"
+ "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#))
- #{p -ANAU$bmvAmthP7L7xws@h}#)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q -ANAU$bmvAmthP7L7xws@b}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ #{tmp-28139 28463}#))
+ #{p 28427}#)
+ (#{quasi 28375}#
+ #{q 28421}#
+ #{lev 28400}#))
+ (#{quasicons 28377}#
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dq"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dq"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xws@h}#
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q -ANAU$bmvAmthP7L7xws@b}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#))))
- #{tmp -ANAU$bmvAmthP7L7xws@d}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}#
+ (#{quasi 28375}#
+ #{p 28427}#
+ (#{1-}# #{lev 28400}#)))
+ (#{quasi 28375}#
+ #{q 28421}#
+ #{lev 28400}#))))
+ #{tmp 28423}#)
+ (let ((#{tmp 28468}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@a}#
+ #{p 28420}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAK}#
+ (if #{tmp 28468}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
- (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)
+ (lambda (#{p 28472}#)
+ (if (= #{lev 28400}# 0)
+ (#{quasiappend 28378}#
+ (map (lambda (#{tmp-28144 28475}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131"
+ "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121"
+ "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#))
- #{p -ANAU$bmvAmthP7L7xwtAO}#)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q -ANAU$bmvAmthP7L7xws@b}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ #{tmp-28144 28475}#))
+ #{p 28472}#)
+ (#{quasi 28375}#
+ #{q 28421}#
+ #{lev 28400}#))
+ (#{quasicons 28377}#
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtAO}#
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q -ANAU$bmvAmthP7L7xws@b}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtAK}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xws@a}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q -ANAU$bmvAmthP7L7xws@b}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xws@W}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xws@F}#
- '#(vector each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAf}#
+ (#{quasi 28375}#
+ #{p 28472}#
+ (#{1-}# #{lev 28400}#)))
+ (#{quasi 28375}#
+ #{q 28421}#
+ #{lev 28400}#))))
+ #{tmp 28468}#)
+ (#{quasicons 28377}#
+ (#{quasi 28375}#
+ #{p 28420}#
+ #{lev 28400}#)
+ (#{quasi 28375}#
+ #{q 28421}#
+ #{lev 28400}#)))))))
+ #{tmp 28416}#)
+ (let ((#{tmp 28489}#
+ ($sc-dispatch #{p 28399}# '#(vector each-any))))
+ (if #{tmp 28489}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#)
- (let ((#{x -ANAU$bmvAmthP7L7xwtAm}#
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{x -ANAU$bmvAmthP7L7xwtAj}#
- #{lev -ANAU$bmvAmthP7L7xws@G}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}#
+ (lambda (#{x 28493}#)
+ (let ((#{x 28496}#
+ (#{vquasi 28376}#
+ #{x 28493}#
+ #{lev 28400}#)))
+ (let ((#{tmp 28498}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtAm}#
+ #{x 28496}#
'(#(atom "quote") each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAo}#
+ (if #{tmp 28498}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#)
+ (lambda (#{x 28502}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("1en"))
+ #("l-*-28249"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (list->vector
- #{x -ANAU$bmvAmthP7L7xwtAs}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtAo}#)
+ (list->vector #{x 28502}#)))
+ #{tmp 28498}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtAu}#
- (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}#
- #{k -ANAU$bmvAmthP7L7xwtA7}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtA9}#
+ ((#{f 28504}#
+ (lambda (#{y 28516}# #{k 28517}#)
+ (let ((#{tmp 28519}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtA6}#
+ #{y 28516}#
'(#(atom "quote")
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtA9}#
+ (if #{tmp 28519}#
(@apply
- (lambda (#{y -ANAU$bmvAmthP7L7xwtBA}#)
- (#{k -ANAU$bmvAmthP7L7xwtA7}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)
+ (lambda (#{y 28522}#)
+ (#{k 28517}#
+ (map (lambda (#{tmp-28274 28523}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("1eu"))
+ #("l-*-28272"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("1ep"
- "1eq"
- "1er"))
+ #("l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage
#(_)
#((top))
- #("1eo"))
+ #("l-*-28252"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene
guile))
- #{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#))
- #{y -ANAU$bmvAmthP7L7xwtBA}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtA9}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBC}#
+ #{tmp-28274 28523}#))
+ #{y 28522}#)))
+ #{tmp 28519}#)
+ (let ((#{tmp 28524}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtA6}#
+ #{y 28516}#
'(#(atom "list")
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBC}#
+ (if #{tmp 28524}#
(@apply
- (lambda (#{y -ANAU$bmvAmthP7L7xwtBF}#)
- (#{k -ANAU$bmvAmthP7L7xwtA7}#
- #{y -ANAU$bmvAmthP7L7xwtBF}#))
- #{tmp -ANAU$bmvAmthP7L7xwtBC}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBG}#
+ (lambda (#{y 28527}#)
+ (#{k 28517}#
+ #{y 28527}#))
+ #{tmp 28524}#)
+ (let ((#{tmp 28528}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtA6}#
+ #{y 28516}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBG}#
+ (if #{tmp 28528}#
(@apply
- (lambda (#{y -ANAU$bmvAmthP7L7xwtBJ}#
- #{z -ANAU$bmvAmthP7L7xwtBK}#)
- (#{f -ANAU$bmvAmthP7L7xwtAu}#
- #{z -ANAU$bmvAmthP7L7xwtBK}#
- (lambda (#{ls -ANAU$bmvAmthP7L7xwtBL}#)
- (#{k -ANAU$bmvAmthP7L7xwtA7}#
+ (lambda (#{y 28531}#
+ #{z 28532}#)
+ (#{f 28504}#
+ #{z 28532}#
+ (lambda (#{ls 28533}#)
+ (#{k 28517}#
(append
- #{y -ANAU$bmvAmthP7L7xwtBJ}#
- #{ls -ANAU$bmvAmthP7L7xwtBL}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtBG}#)
+ #{y 28531}#
+ #{ls 28533}#)))))
+ #{tmp 28528}#)
(list '#(syntax-object
"list->vector"
((top)
()
())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws9r}#)
- #((m-ANAU$bmvAmthP7L7xws9s
+ #(t-28289)
+ #((m-*-28290
top))
- #("1f0"))
+ #("l-*-28293"))
#(ribcage
#(else)
#((top))
- #("1ez"))
+ #("l-*-28287"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("1ep"
- "1eq"
- "1er"))
+ #("l-*-28254"
+ "l-*-28255"
+ "l-*-28256"))
#(ribcage
#(_)
#((top))
- #("1eo"))
+ #("l-*-28252"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene
guile))
- #{x -ANAU$bmvAmthP7L7xwtAm}#))))))))))
- (#{f -ANAU$bmvAmthP7L7xwtAu}#
- #{x -ANAU$bmvAmthP7L7xwtAm}#
- (lambda (#{ls -ANAU$bmvAmthP7L7xwtAw}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAy}#
+ #{x 28496}#))))))))))
+ (#{f 28504}#
+ #{x 28496}#
+ (lambda (#{ls 28506}#)
+ (let ((#{tmp 28508}#
($sc-dispatch
- #{ls -ANAU$bmvAmthP7L7xwtAw}#
+ #{ls 28506}#
'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAy}#
+ (if #{tmp 28508}#
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)
+ (lambda (#{t-28262 28511}#)
(cons '#(syntax-object
"vector"
((top)
()
())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws9X}#)
- #((m-ANAU$bmvAmthP7L7xws9Y
+ #(t-28262)
+ #((m-*-28263
top))
- #("1et"))
+ #("l-*-28267"))
#(ribcage
()
()
#(ribcage
#(ls)
#((top))
- #("1es"))
+ #("l-*-28261"))
#(ribcage
#(_)
#((top))
- #("1eo"))
+ #("l-*-28252"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#))
- #{tmp -ANAU$bmvAmthP7L7xwtAy}#)
+ #{t-28262 28511}#))
+ #{tmp 28508}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls -ANAU$bmvAmthP7L7xwtAw}#))))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtAf}#)
+ #{ls 28506}#))))))))))
+ #{tmp 28489}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1du"))
+ #(ribcage #(p) #((top)) #("l-*-28152"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p -ANAU$bmvAmthP7L7xws@F}#)))))))))))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBn}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBq}#
+ #{p 28399}#)))))))))))
+ (#{vquasi 28376}#
+ (lambda (#{p 28561}# #{lev 28562}#)
+ (let ((#{tmp 28564}#
+ ($sc-dispatch #{p 28561}# '(any . any))))
+ (if #{tmp 28564}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}#
+ (lambda (#{p 28568}# #{q 28569}#)
+ (let ((#{tmp 28571}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBu}#
+ #{p 28568}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBx}#
+ (if #{tmp 28571}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#)
+ (lambda (#{p 28575}#)
+ (if (= #{lev 28562}# 0)
+ (#{quasilist* 28379}#
+ (map (lambda (#{tmp-28168 28611}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dz"))
+ #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#))
- #{p -ANAU$bmvAmthP7L7xwtB1}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ #{tmp-28168 28611}#))
+ #{p 28575}#)
+ (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))
+ (#{quasicons 28377}#
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dz"))
+ #(ribcage #(p) #((top)) #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dz"))
+ #(ribcage #(p) #((top)) #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtB1}#
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#)))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtBx}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtCg}#
+ (#{quasi 28375}#
+ #{p 28575}#
+ (#{1-}# #{lev 28562}#)))
+ (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))))
+ #{tmp 28571}#)
+ (let ((#{tmp 28618}#
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBu}#
+ #{p 28568}#
'(#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtCg}#
+ (if #{tmp 28618}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
- (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#)
+ (lambda (#{p 28622}#)
+ (if (= #{lev 28562}# 0)
+ (#{quasiappend 28378}#
+ (map (lambda (#{tmp-28173 28625}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1e0"))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160"
+ "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156"
+ "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#))
- #{p -ANAU$bmvAmthP7L7xwtCk}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ #{tmp-28173 28625}#))
+ #{p 28622}#)
+ (#{vquasi 28376}#
+ #{q 28569}#
+ #{lev 28562}#))
+ (#{quasicons 28377}#
+ (#{quasicons 28377}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1e0"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("1e0"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtCk}#
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#)))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtCg}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtBu}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwtBq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtC5}#
- ($sc-dispatch #{p -ANAU$bmvAmthP7L7xwtBn}# '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwtC5}#
+ (#{quasi 28375}#
+ #{p 28622}#
+ (#{1-}# #{lev 28562}#)))
+ (#{vquasi 28376}#
+ #{q 28569}#
+ #{lev 28562}#))))
+ #{tmp 28618}#)
+ (#{quasicons 28377}#
+ (#{quasi 28375}# #{p 28568}# #{lev 28562}#)
+ (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)))))))
+ #{tmp 28564}#)
+ (let ((#{tmp 28643}# ($sc-dispatch #{p 28561}# '())))
+ (if #{tmp 28643}#
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
()))
- #{tmp -ANAU$bmvAmthP7L7xwtC5}#)
+ #{tmp 28643}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p -ANAU$bmvAmthP7L7xwtBn}#)))))))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDG}#
- #{y -ANAU$bmvAmthP7L7xwtDH}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDI}#
- (list #{x -ANAU$bmvAmthP7L7xwtDG}#
- #{y -ANAU$bmvAmthP7L7xwtDH}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDJ}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtDI}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}#
+ #{p 28561}#)))))))
+ (#{quasicons 28377}#
+ (lambda (#{x 28656}# #{y 28657}#)
+ (let ((#{tmp 28658}# (list #{x 28656}# #{y 28657}#)))
+ (let ((#{tmp 28659}#
+ ($sc-dispatch #{tmp 28658}# '(any any))))
+ (if #{tmp 28659}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}#
+ (lambda (#{x 28661}# #{y 28662}#)
+ (let ((#{tmp 28664}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
+ #{y 28662}#
'(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDO}#
+ (if #{tmp 28664}#
(@apply
- (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}#
+ (lambda (#{dy 28668}#)
+ (let ((#{tmp 28670}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{x 28661}#
'(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDU}#
+ (if #{tmp 28670}#
(@apply
- (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#)
+ (lambda (#{dx 28674}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("1e7"))
+ #("l-*-28195"))
#(ribcage
#(dy)
#((top))
- #("1e6"))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{dx -ANAU$bmvAmthP7L7xwtDY}#
- #{dy -ANAU$bmvAmthP7L7xwtDS}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDU}#)
- (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#)
+ (cons #{dx 28674}# #{dy 28668}#)))
+ #{tmp 28670}#)
+ (if (null? #{dy 28668}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("1e8"))
- #(ribcage #(dy) #((top)) #("1e6"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28197"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#)
+ #{x 28661}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1e8"))
- #(ribcage #(dy) #((top)) #("1e6"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28197"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtDO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}#
+ #{x 28661}#
+ #{y 28662}#)))))
+ #{tmp 28664}#)
+ (let ((#{tmp 28679}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
+ #{y 28662}#
'(#(atom "list") . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDd}#
+ (if #{tmp 28679}#
(@apply
- (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#)
+ (lambda (#{stuff 28683}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("1e9"))
+ #("l-*-28200"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{stuff -ANAU$bmvAmthP7L7xwtDh}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDd}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}#
+ (cons #{x 28661}# #{stuff 28683}#)))
+ #{tmp 28679}#)
+ (let ((#{tmp 28684}#
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
+ #{y 28662}#
'(#(atom "list*") . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDi}#
+ (if #{tmp 28684}#
(@apply
- (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#)
+ (lambda (#{stuff 28688}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("1ea"))
+ #("l-*-28203"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{stuff -ANAU$bmvAmthP7L7xwtDm}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDi}#)
+ (cons #{x 28661}# #{stuff 28688}#)))
+ #{tmp 28684}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1eb"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28205"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtDJ}#)
+ #{x 28661}#
+ #{y 28662}#))))))))
+ #{tmp 28659}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtDI}#))))))
- (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}#
- #{y -ANAU$bmvAmthP7L7xwtDy}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}#
- ($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDy}#
- '(#(atom "quote") ()))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtD0}#
+ #{tmp 28658}#))))))
+ (#{quasiappend 28378}#
+ (lambda (#{x 28699}# #{y 28700}#)
+ (let ((#{tmp 28702}#
+ ($sc-dispatch #{y 28700}# '(#(atom "quote") ()))))
+ (if #{tmp 28702}#
(@apply
(lambda ()
- (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
+ (if (null? #{x 28699}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("1ec" "1ed"))
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
())
- (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#))
- (car #{x -ANAU$bmvAmthP7L7xwtDx}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtDx}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtD5}#
+ (if (null? (cdr #{x 28699}#))
+ (car #{x 28699}#)
+ (let ((#{tmp 28707}#
+ ($sc-dispatch #{x 28699}# 'each-any)))
+ (if #{tmp 28707}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#)
+ (lambda (#{p 28711}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("1ee"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28221"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1ec" "1ed"))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p -ANAU$bmvAmthP7L7xwtD9}#))
- #{tmp -ANAU$bmvAmthP7L7xwtD5}#)
+ #{p 28711}#))
+ #{tmp 28707}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtDx}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtD0}#)
- (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
- #{y -ANAU$bmvAmthP7L7xwtDy}#
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtEF}#
- (list #{x -ANAU$bmvAmthP7L7xwtDx}#
- #{y -ANAU$bmvAmthP7L7xwtDy}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtEG}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtEF}#
- '(each-any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtEG}#
+ #{x 28699}#))))))
+ #{tmp 28702}#)
+ (if (null? #{x 28699}#)
+ #{y 28700}#
+ (let ((#{tmp 28719}# (list #{x 28699}# #{y 28700}#)))
+ (let ((#{tmp 28720}#
+ ($sc-dispatch #{tmp 28719}# '(each-any any))))
+ (if #{tmp 28720}#
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}#
- #{y -ANAU$bmvAmthP7L7xwtEJ}#)
+ (lambda (#{p 28722}# #{y 28723}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage
#(p y)
#((top) (top))
- #("1eg" "1eh"))
- #(ribcage #(_) #((top)) #("1ef"))
+ #("l-*-28232" "l-*-28233"))
+ #(ribcage #(_) #((top)) #("l-*-28224"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1ec" "1ed"))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (append
- #{p -ANAU$bmvAmthP7L7xwtEI}#
- (list #{y -ANAU$bmvAmthP7L7xwtEJ}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtEG}#)
+ (append #{p 28722}# (list #{y 28723}#))))
+ #{tmp 28720}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtEF}#)))))))))
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}#
- #{y -ANAU$bmvAmthP7L7xwtEO}#)
+ #{tmp 28719}#)))))))))
+ (#{quasilist* 28379}#
+ (lambda (#{x 28727}# #{y 28728}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtEP}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFo}#)
- (if (null? #{x -ANAU$bmvAmthP7L7xwtFo}#)
- #{y -ANAU$bmvAmthP7L7xwtEO}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (car #{x -ANAU$bmvAmthP7L7xwtFo}#)
- (#{f -ANAU$bmvAmthP7L7xwtEP}#
- (cdr #{x -ANAU$bmvAmthP7L7xwtFo}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwtEP}#
- #{x -ANAU$bmvAmthP7L7xwtEN}#))))
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFr}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtFt}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
- '(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtFt}#
+ ((#{f 28729}#
+ (lambda (#{x 28818}#)
+ (if (null? #{x 28818}#)
+ #{y 28728}#
+ (#{quasicons 28377}#
+ (car #{x 28818}#)
+ (#{f 28729}# (cdr #{x 28818}#)))))))
+ (#{f 28729}# #{x 28727}#))))
+ (#{emit 28381}#
+ (lambda (#{x 28821}#)
+ (let ((#{tmp 28823}#
+ ($sc-dispatch #{x 28821}# '(#(atom "quote") any))))
+ (if #{tmp 28823}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#)
+ (lambda (#{x 28827}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("1f2"))
+ #(ribcage #(x) #((top)) #("l-*-28299"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f1"))
+ #(ribcage #(x) #((top)) #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtFx}#))
- #{tmp -ANAU$bmvAmthP7L7xwtFt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}#
+ #{x 28827}#))
+ #{tmp 28823}#)
+ (let ((#{tmp 28828}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "list") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtFy}#
+ (if #{tmp 28828}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtF2}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtF3}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtF4}#
+ (lambda (#{x 28832}#)
+ (let ((#{tmp 28833}# (map #{emit 28381}# #{x 28832}#)))
+ (let ((#{tmp 28834}#
+ ($sc-dispatch #{tmp 28833}# 'each-any)))
+ (if #{tmp 28834}#
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#)
+ (lambda (#{t-28304 28836}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws92}#)
- #((m-ANAU$bmvAmthP7L7xws93 top))
- #("1f4"))
- #(ribcage #(x) #((top)) #("1f3"))
+ #(t-28304)
+ #((m-*-28305 top))
+ #("l-*-28309"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-28302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f1"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#))
- #{tmp -ANAU$bmvAmthP7L7xwtF4}#)
+ #{t-28304 28836}#))
+ #{tmp 28834}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtF3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtFy}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}#
+ #{tmp 28833}#)))))
+ #{tmp 28828}#)
+ (let ((#{tmp 28837}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtF7}#
+ (if #{tmp 28837}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtF@}#
- #{y -ANAU$bmvAmthP7L7xwtGA}#)
+ (lambda (#{x 28841}# #{y 28842}#)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtGB}#
- (lambda (#{x* -ANAU$bmvAmthP7L7xwtGE}#)
- (if (null? #{x* -ANAU$bmvAmthP7L7xwtGE}#)
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- #{y -ANAU$bmvAmthP7L7xwtGA}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGF}#
- (list (#{emit -ANAU$bmvAmthP7L7xws$z}#
- (car #{x* -ANAU$bmvAmthP7L7xwtGE}#))
- (#{f -ANAU$bmvAmthP7L7xwtGB}#
- (cdr #{x* -ANAU$bmvAmthP7L7xwtGE}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGG}#
+ ((#{f 28843}#
+ (lambda (#{x* 28846}#)
+ (if (null? #{x* 28846}#)
+ (#{emit 28381}# #{y 28842}#)
+ (let ((#{tmp 28847}#
+ (list (#{emit 28381}#
+ (car #{x* 28846}#))
+ (#{f 28843}#
+ (cdr #{x* 28846}#)))))
+ (let ((#{tmp 28848}#
($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGF}#
+ #{tmp 28847}#
'(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGG}#
+ (if #{tmp 28848}#
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}#
- #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)
+ (lambda (#{t-28324 28850}#
+ #{t-28323 28851}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws$F}#
- #{ g-ANAU$bmvAmthP7L7xws$E}#)
- #((m-ANAU$bmvAmthP7L7xws$G
- top)
- (m-ANAU$bmvAmthP7L7xws$G
- top))
- #("1f9" "1fa"))
+ #(t-28324 t-28323)
+ #((m-*-28325 top)
+ (m-*-28325 top))
+ #("l-*-28329"
+ "l-*-28330"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("1f7" "1f8"))
+ #("l-*-28318"
+ "l-*-28319"))
#(ribcage
#(x y)
#((top) (top))
- #("1f5" "1f6"))
+ #("l-*-28314"
+ "l-*-28315"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}#
- #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGG}#)
+ #{t-28324 28850}#
+ #{t-28323 28851}#))
+ #{tmp 28848}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtGF}#))))))))
- (#{f -ANAU$bmvAmthP7L7xwtGB}#
- #{x -ANAU$bmvAmthP7L7xwtF@}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtF7}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}#
+ #{tmp 28847}#))))))))
+ (#{f 28843}# #{x 28841}#)))
+ #{tmp 28837}#)
+ (let ((#{tmp 28852}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "append") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGK}#
+ (if #{tmp 28852}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtGO}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}#
+ (lambda (#{x 28856}#)
+ (let ((#{tmp 28857}#
+ (map #{emit 28381}# #{x 28856}#)))
+ (let ((#{tmp 28858}#
($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGP}#
+ #{tmp 28857}#
'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}#
+ (if #{tmp 28858}#
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#)
+ (lambda (#{t-28336 28860}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws$O}#)
- #((m-ANAU$bmvAmthP7L7xws$P
- top))
- #("1fc"))
+ #(t-28336)
+ #((m-*-28337 top))
+ #("l-*-28341"))
#(ribcage
#(x)
#((top))
- #("1fb"))
+ #("l-*-28334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGQ}#)
+ #{t-28336 28860}#))
+ #{tmp 28858}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtGP}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtGK}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}#
+ #{tmp 28857}#)))))
+ #{tmp 28852}#)
+ (let ((#{tmp 28861}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "vector") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGT}#
+ (if #{tmp 28861}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtGX}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}#
+ (lambda (#{x 28865}#)
+ (let ((#{tmp 28866}#
+ (map #{emit 28381}# #{x 28865}#)))
+ (let ((#{tmp 28867}#
($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGY}#
+ #{tmp 28866}#
'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}#
+ (if #{tmp 28867}#
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#)
+ (lambda (#{t-28348 28869}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws$Y}#)
- #((m-ANAU$bmvAmthP7L7xws$Z
- top))
- #("1fe"))
+ #(t-28348)
+ #((m-*-28349 top))
+ #("l-*-28353"))
#(ribcage
#(x)
#((top))
- #("1fd"))
+ #("l-*-28346"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGZ}#)
+ #{t-28348 28869}#))
+ #{tmp 28867}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtGY}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtGT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}#
+ #{tmp 28866}#)))))
+ #{tmp 28861}#)
+ (let ((#{tmp 28870}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "list->vector") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGc}#
+ (if #{tmp 28870}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}#
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtGg}#)))
+ (lambda (#{x 28874}#)
+ (let ((#{tmp 28875}#
+ (#{emit 28381}# #{x 28874}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws$i}#)
- #((m-ANAU$bmvAmthP7L7xws$j
- top))
- #("1fg"))
+ #(t-28360)
+ #((m-*-28361 top))
+ #("l-*-28364"))
#(ribcage
#(x)
#((top))
- #("1ff"))
+ #("l-*-28358"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xwtGh}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtGc}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}#
+ #{tmp 28875}#)))
+ #{tmp 28870}#)
+ (let ((#{tmp 28878}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ #{x 28821}#
'(#(atom "value") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGk}#
+ (if #{tmp 28878}#
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#)
- #{x -ANAU$bmvAmthP7L7xwtGo}#)
- #{tmp -ANAU$bmvAmthP7L7xwtGk}#)
+ (lambda (#{x 28882}#) #{x 28882}#)
+ #{tmp 28878}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtFr}#))))))))))))))))))
- (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws$0}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws$2}#
+ #{x 28821}#))))))))))))))))))
+ (lambda (#{x 28382}#)
+ (let ((#{tmp 28384}#
+ ($sc-dispatch #{x 28382}# '(_ any))))
+ (if #{tmp 28384}#
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#)
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{e -ANAU$bmvAmthP7L7xws$6}#
- 0)))
- #{tmp -ANAU$bmvAmthP7L7xws$2}#)
+ (lambda (#{e 28388}#)
+ (#{emit 28381}# (#{quasi 28375}# #{e 28388}# 0)))
+ #{tmp 28384}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws$0}#)))))))
+ #{x 28382}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#)
+ (lambda (#{x 28937}#)
(letrec*
- ((#{read-file -ANAU$bmvAmthP7L7xwtHU}#
- (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}#
- #{k -ANAU$bmvAmthP7L7xwtJC}#)
- (let ((#{p -ANAU$bmvAmthP7L7xwtJD}#
- (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#)))
+ ((#{read-file 28938}#
+ (lambda (#{fn 29047}# #{k 29048}#)
+ (let ((#{p 29049}# (open-input-file #{fn 29047}#)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtJE}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}#
- #{result -ANAU$bmvAmthP7L7xwtJ7}#)
- (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#)
+ ((#{f 29050}#
+ (lambda (#{x 29104}# #{result 29105}#)
+ (if (eof-object? #{x 29104}#)
(begin
- (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#)
- (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#))
- (#{f -ANAU$bmvAmthP7L7xwtJE}#
- (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
- (cons (datum->syntax
- #{k -ANAU$bmvAmthP7L7xwtJC}#
- #{x -ANAU$bmvAmthP7L7xwtJ6}#)
- #{result -ANAU$bmvAmthP7L7xwtJ7}#))))))
- (#{f -ANAU$bmvAmthP7L7xwtJE}#
- (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
- '()))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtHT}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtHW}#
+ (close-input-port #{p 29049}#)
+ (reverse #{result 29105}#))
+ (#{f 29050}#
+ (read #{p 29049}#)
+ (cons (datum->syntax #{k 29048}# #{x 29104}#)
+ #{result 29105}#))))))
+ (#{f 29050}# (read #{p 29049}#) '()))))))
+ (let ((#{tmp 28940}#
+ ($sc-dispatch #{x 28937}# '(any any))))
+ (if #{tmp 28940}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}#
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)
- (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}#
- (syntax->datum
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}#
- (#{read-file -ANAU$bmvAmthP7L7xwtHU}#
- #{fn -ANAU$bmvAmthP7L7xwtHc}#
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtHd}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtHe}#
+ (lambda (#{k 28944}# #{filename 28945}#)
+ (let ((#{fn 28946}# (syntax->datum #{filename 28945}#)))
+ (let ((#{tmp 28947}#
+ (#{read-file 28938}#
+ #{fn 28946}#
+ #{filename 28945}#)))
+ (let ((#{tmp 28948}#
+ ($sc-dispatch #{tmp 28947}# 'each-any)))
+ (if #{tmp 28948}#
(@apply
- (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#)
+ (lambda (#{exp 28966}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("1fv"))
+ #(ribcage #(exp) #((top)) #("l-*-28934"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1fu"))
+ #(ribcage #(fn) #((top)) #("l-*-28929"))
#(ribcage
#(k filename)
#((top) (top))
- #("1fs" "1ft"))
- #(ribcage (read-file) ((top)) ("1fl"))
- #(ribcage #(x) #((top)) #("1fk")))
+ #("l-*-28925" "l-*-28926"))
+ #(ribcage
+ (read-file)
+ ((top))
+ ("l-*-28909"))
+ #(ribcage #(x) #((top)) #("l-*-28908")))
(hygiene guile))
- #{exp -ANAU$bmvAmthP7L7xwtHw}#))
- #{tmp -ANAU$bmvAmthP7L7xwtHe}#)
+ #{exp 28966}#))
+ #{tmp 28948}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtHd}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtHW}#)
+ #{tmp 28947}#))))))
+ #{tmp 28940}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtHT}#)))))))
+ #{x 28937}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtKI}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtKK}#
+ (lambda (#{x 29124}#)
+ (let ((#{tmp 29126}#
+ ($sc-dispatch #{x 29124}# '(any any))))
+ (if #{tmp 29126}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}#
- #{filename -ANAU$bmvAmthP7L7xwtKP}#)
- (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}#
- (syntax->datum
- #{filename -ANAU$bmvAmthP7L7xwtKP}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}#
+ (lambda (#{k 29130}# #{filename 29131}#)
+ (let ((#{fn 29132}# (syntax->datum #{filename 29131}#)))
+ (let ((#{tmp 29133}#
(datum->syntax
- #{filename -ANAU$bmvAmthP7L7xwtKP}#
- (let ((#{t -ANAU$bmvAmthP7L7xwtKU}#
- (%search-load-path
- #{fn -ANAU$bmvAmthP7L7xwtKQ}#)))
- (if #{t -ANAU$bmvAmthP7L7xwtKU}#
- #{t -ANAU$bmvAmthP7L7xwtKU}#
+ #{filename 29131}#
+ (let ((#{t 29136}# (%search-load-path #{fn 29132}#)))
+ (if #{t 29136}#
+ #{t 29136}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x -ANAU$bmvAmthP7L7xwtKI}#
- #{filename -ANAU$bmvAmthP7L7xwtKP}#))))))
+ #{x 29124}#
+ #{filename 29131}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1g0"))
+ #(ribcage #(fn) #((top)) #("l-*-29118"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1fz"))
+ #(ribcage #(fn) #((top)) #("l-*-29114"))
#(ribcage
#(k filename)
#((top) (top))
- #("1fx" "1fy"))
+ #("l-*-29110" "l-*-29111"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fw")))
+ #(ribcage #(x) #((top)) #("l-*-29107")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xwtKR}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtKK}#)
+ #{tmp 29133}#))))
+ #{tmp 29126}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtKI}#))))))
+ #{x 29124}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#)
+ (lambda (#{x 29145}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x -ANAU$bmvAmthP7L7xwtKc}#))))
+ #{x 29145}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#)
+ (lambda (#{x 29148}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x -ANAU$bmvAmthP7L7xwtKe}#))))
+ #{x 29148}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}#
+ (lambda (#{x 29204}#)
+ (let ((#{tmp 29206}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtLD}#
+ #{x 29204}#
'(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtLF}#
+ (if #{tmp 29206}#
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}#
- #{m1 -ANAU$bmvAmthP7L7xwtLK}#
- #{m2 -ANAU$bmvAmthP7L7xwtLL}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}#
+ (lambda (#{e 29210}# #{m1 29211}# #{m2 29212}#)
+ (let ((#{tmp 29213}#
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtL2}#
- (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}#
- #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
- (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}#
+ ((#{f 29255}#
+ (lambda (#{clause 29258}# #{clauses 29259}#)
+ (if (null? #{clauses 29259}#)
+ (let ((#{tmp 29261}#
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ #{clause 29258}#
'(#(free-id
#(syntax-object
else
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtL8}#
+ (if #{tmp 29261}#
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}#
- #{e2 -ANAU$bmvAmthP7L7xwtMB}#)
+ (lambda (#{e1 29265}# #{e2 29266}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1gc" "1gd"))
+ #("l-*-29172" "l-*-29173"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1 -ANAU$bmvAmthP7L7xwtMA}#
- #{e2 -ANAU$bmvAmthP7L7xwtMB}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtL8}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}#
+ (cons #{e1 29265}# #{e2 29266}#)))
+ #{tmp 29261}#)
+ (let ((#{tmp 29267}#
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ #{clause 29258}#
'(each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtMC}#
+ (if #{tmp 29267}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}#
- #{e1 -ANAU$bmvAmthP7L7xwtMH}#
- #{e2 -ANAU$bmvAmthP7L7xwtMI}#)
+ (lambda (#{k 29271}#
+ #{e1 29272}#
+ #{e2 29273}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1ge" "1gf" "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
memv
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
'#(syntax-object
t
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene
guile))
- #{k -ANAU$bmvAmthP7L7xwtMG}#))
+ #{k 29271}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1 -ANAU$bmvAmthP7L7xwtMH}#
- #{e2 -ANAU$bmvAmthP7L7xwtMI}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtMC}#)
+ (cons #{e1 29272}#
+ #{e2 29273}#))))
+ #{tmp 29267}#)
(syntax-violation
'case
"bad clause"
- #{x -ANAU$bmvAmthP7L7xwtLD}#
- #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMQ}#
- (#{f -ANAU$bmvAmthP7L7xwtL2}#
- (car #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
- (cdr #{clauses -ANAU$bmvAmthP7L7xwtL6}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMT}#
+ #{x 29204}#
+ #{clause 29258}#)))))
+ (let ((#{tmp 29281}#
+ (#{f 29255}#
+ (car #{clauses 29259}#)
+ (cdr #{clauses 29259}#))))
+ (let ((#{tmp 29284}#
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ #{clause 29258}#
'(each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtMT}#
+ (if #{tmp 29284}#
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}#
- #{e1 -ANAU$bmvAmthP7L7xwtMY}#
- #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)
+ (lambda (#{k 29288}#
+ #{e1 29289}#
+ #{e2 29290}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj" "1gk" "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
memv
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
'#(syntax-object
t
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
quote
#((top)
(top)
(top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage
()
()
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- #{k -ANAU$bmvAmthP7L7xwtMX}#))
+ #{k 29288}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1 -ANAU$bmvAmthP7L7xwtMY}#
- #{e2 -ANAU$bmvAmthP7L7xwtMZ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtMQ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtMT}#)
+ (cons #{e1 29289}#
+ #{e2 29290}#))
+ #{tmp 29281}#))
+ #{tmp 29284}#)
(syntax-violation
'case
"bad clause"
- #{x -ANAU$bmvAmthP7L7xwtLD}#
- #{clause -ANAU$bmvAmthP7L7xwtL5}#))))))))
- (#{f -ANAU$bmvAmthP7L7xwtL2}#
- #{m1 -ANAU$bmvAmthP7L7xwtLK}#
- #{m2 -ANAU$bmvAmthP7L7xwtLL}#))))
- (let ((#{body -ANAU$bmvAmthP7L7xwtLN}#
- #{tmp -ANAU$bmvAmthP7L7xwtLM}#))
+ #{x 29204}#
+ #{clause 29258}#))))))))
+ (#{f 29255}# #{m1 29211}# #{m2 29212}#))))
+ (let ((#{body 29214}# #{tmp 29213}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1g8"))
+ #(ribcage #(body) #((top)) #("l-*-29161"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153" "l-*-29154" "l-*-29155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("l-*-29150")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1g8"))
+ #(ribcage
+ #(body)
+ #((top))
+ #("l-*-29161"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29150")))
(hygiene guile))
- #{e -ANAU$bmvAmthP7L7xwtLJ}#))
- #{body -ANAU$bmvAmthP7L7xwtLN}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtLF}#)
+ #{e 29210}#))
+ #{body 29214}#))))
+ #{tmp 29206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtLD}#))))))
+ #{x 29204}#))))))
(define make-variable-transformer
- (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#)
- (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#)
+ (lambda (#{proc 29308}#)
+ (if (procedure? #{proc 29308}#)
(letrec*
- ((#{trans -ANAU$bmvAmthP7L7xwtMp}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#)
- (#{proc -ANAU$bmvAmthP7L7xwtMo}#
- #{x -ANAU$bmvAmthP7L7xwtMv}#))))
+ ((#{trans 29309}#
+ (lambda (#{x 29315}#)
+ (#{proc 29308}# #{x 29315}#))))
(begin
(set-procedure-property!
- #{trans -ANAU$bmvAmthP7L7xwtMp}#
+ #{trans 29309}#
'variable-transformer
#t)
- #{trans -ANAU$bmvAmthP7L7xwtMp}#))
+ #{trans 29309}#))
(error "variable transformer not a procedure"
- #{proc -ANAU$bmvAmthP7L7xwtMo}#))))
+ #{proc 29308}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtND}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtNF}#
+ (lambda (#{x 29347}#)
+ (let ((#{tmp 29349}#
+ ($sc-dispatch #{x 29347}# '(_ any))))
+ (if #{tmp 29349}#
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#)
+ (lambda (#{e 29353}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
- #{e -ANAU$bmvAmthP7L7xwtNJ}#))
+ #{e 29353}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
- (cons #{e -ANAU$bmvAmthP7L7xwtNJ}#
+ (cons #{e 29353}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("1gr"))
+ #("l-*-29322"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(e)
#((top))
- #("1gr"))
+ #("l-*-29322"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtNF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}#
+ #{tmp 29349}#)
+ (let ((#{tmp 29354}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtND}#
+ #{x 29347}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}#
+ (if (if #{tmp 29354}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtNO}#
- #{exp1 -ANAU$bmvAmthP7L7xwtNP}#
- #{var -ANAU$bmvAmthP7L7xwtNQ}#
- #{val -ANAU$bmvAmthP7L7xwtNR}#
- #{exp2 -ANAU$bmvAmthP7L7xwtNS}#)
- (if (identifier? #{id -ANAU$bmvAmthP7L7xwtNO}#)
- (identifier? #{var -ANAU$bmvAmthP7L7xwtNQ}#)
+ (lambda (#{id 29358}#
+ #{exp1 29359}#
+ #{var 29360}#
+ #{val 29361}#
+ #{exp2 29362}#)
+ (if (identifier? #{id 29358}#)
+ (identifier? #{var 29360}#)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
+ #{tmp 29354}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}#
- #{exp1 -ANAU$bmvAmthP7L7xwtNU}#
- #{var -ANAU$bmvAmthP7L7xwtNV}#
- #{val -ANAU$bmvAmthP7L7xwtNW}#
- #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)
+ (lambda (#{id 29363}#
+ #{exp1 29364}#
+ #{var 29365}#
+ #{val 29366}#
+ #{exp2 29367}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
(list '#(syntax-object
lambda
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
'#((#(syntax-object
macro-type
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
.
#(syntax-object
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
set!
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile)))
(list (list '#(syntax-object
set!
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{var -ANAU$bmvAmthP7L7xwtNV}#
- #{val -ANAU$bmvAmthP7L7xwtNW}#)
+ #{var 29365}#
+ #{val 29366}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{exp2 -ANAU$bmvAmthP7L7xwtNX}#))
- (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}#
+ #{exp2 29367}#))
+ (list (cons #{id 29363}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- (cons #{exp1 -ANAU$bmvAmthP7L7xwtNU}#
+ (cons #{exp1 29364}#
'(#(syntax-object
x
((top)
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))))))
- (list #{id -ANAU$bmvAmthP7L7xwtNT}#
+ (list #{id 29363}#
(list '#(syntax-object
identifier?
((top)
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
(list '#(syntax-object
syntax
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{id -ANAU$bmvAmthP7L7xwtNT}#))
+ #{id 29363}#))
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{exp1 -ANAU$bmvAmthP7L7xwtNU}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
+ #{exp1 29364}#))))))
+ #{tmp 29354}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtND}#))))))))
+ #{x 29347}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}#
+ (lambda (#{x 29399}#)
+ (let ((#{tmp 29401}#
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtNu}#
+ #{x 29399}#
'(_ (any . any) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtNw}#
+ (if #{tmp 29401}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}#
- #{args -ANAU$bmvAmthP7L7xwtN1}#
- #{b0 -ANAU$bmvAmthP7L7xwtN2}#
- #{b1 -ANAU$bmvAmthP7L7xwtN3}#)
+ (lambda (#{id 29405}#
+ #{args 29406}#
+ #{b0 29407}#
+ #{b1 29408}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1h3" "1h4" "1h5" "1h6"))
+ #("l-*-29381"
+ "l-*-29382"
+ "l-*-29383"
+ "l-*-29384"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- #{id -ANAU$bmvAmthP7L7xwtN0}#
+ #{id 29405}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1h3" "1h4" "1h5" "1h6"))
+ #("l-*-29381"
+ "l-*-29382"
+ "l-*-29383"
+ "l-*-29384"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- (cons #{args -ANAU$bmvAmthP7L7xwtN1}#
- (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}#
- #{b1 -ANAU$bmvAmthP7L7xwtN3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtNw}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtNu}#
- '(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}#
+ (cons #{args 29406}#
+ (cons #{b0 29407}# #{b1 29408}#)))))
+ #{tmp 29401}#)
+ (let ((#{tmp 29409}#
+ ($sc-dispatch #{x 29399}# '(_ any any))))
+ (if (if #{tmp 29409}#
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}#
- #{val -ANAU$bmvAmthP7L7xwtN9}#)
+ (lambda (#{id 29413}# #{val 29414}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(id val)
#((top) (top))
- #("1h7" "1h8"))
+ #("l-*-29391" "l-*-29392"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))))
- #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
+ #{tmp 29409}#)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}#
- #{val -ANAU$bmvAmthP7L7xwtN@}#)
+ (lambda (#{id 29415}# #{val 29416}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("1h9" "1ha"))
+ #("l-*-29395" "l-*-29396"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- #{id -ANAU$bmvAmthP7L7xwtN$}#
- #{val -ANAU$bmvAmthP7L7xwtN@}#))
- #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
+ #{id 29415}#
+ #{val 29416}#))
+ #{tmp 29409}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtNu}#))))))))
+ #{x 29399}#))))))))
HCoop / bpt / guile.git / commitdiff